- PR -

OCXに関する質問（教えてください)

1
投稿者投稿内容
初心
会議室デビュー日: 2002/10/10
投稿数: 7
投稿日時: 2002-11-15 17:51
本当の初心者です。大変初歩的な質問で恐縮ですがお答え願います。
VB.NETでOCXを埋め込めるかをテスト（WEBアプリケーション）しているんですが、どうもうまくいけないです。仕様は二つテキストボックスに数字を入れて、ボタンをクリックすると、入れた数字の合計値をvsFlexArray（OCX）にセットし、ごく簡単のプログラムですが、
ソースは以下の通り：
Public Class WebForm1
Inherits System.Web.UI.Page
Protected WithEvents TextBox1 As System.Web.UI.WebControls.TextBox
Protected WithEvents TextBox2 As System.Web.UI.WebControls.TextBox
Protected WithEvents Button1 As System.Web.UI.WebControls.Button

#Region " Web Form Designer Generated Code "

'この呼び出しは Web フォーム デザイナで必要です。
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

End Sub

Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
' CODEGEN: このメソッド呼び出しは Web フォーム デザイナで必要です。
' コード エディタを使って変更しないでください。
InitializeComponent()
End Sub

#End Region

Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
' ページを初期化する ユーザー コードをここに挿入します。
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim vsFlexArray1 As New vsFlexLib.vsFlexArray()
vsFlexArray1.Value() = CStr(CInt(TextBox1.Text) + CInt(TextBox2.Text))
End Sub
End Class

実行したら、下記のエラーが発生しました。

例外の詳細: System.Runtime.InteropServices.COMException: 致命的なエラーです。

ソース エラー:


行 27:
行 28: Dim vsFlexArray1 As New vsFlexLib.vsFlexArray()
行 29: vsFlexArray1.Value() = CStr(CInt(TextBox1.Text) + CInt(TextBox2.Text))
行 30: End Sub
行 31: End Class


ソース ファイル : C:\Inetpub\wwwroot\WebApplication4\WebForm1.aspx.vb 行 : 29

スタック トレース:
[COMException (0x8000ffff): 致命的なエラーです。]
System.RuntimeType.ForwardCallToInvokeMember(String memberName, BindingFlags flags, Object target, MessageData& msgData) +419
vsFlexLib.__vsFlexArray.set_Value(Double ) +0
WebApplication4.WebForm1.Button1_Click(Object sender, EventArgs e) in C:\Inetpub\wwwroot\WebApplication4\WebForm1.aspx.vb:29
System.Web.UI.WebControls.Button.OnClick(EventArgs e) +108
System.Web.UI.WebControls.Button.System.Web.UI.IPostBackEventHandler.RaisePostBackEvent(String eventArgument) +57
System.Web.UI.Page.RaisePostBackEvent(IPostBackEventHandler sourceControl, String eventArgument) +18
System.Web.UI.Page.RaisePostBackEvent(NameValueCollection postData) +33
System.Web.UI.Page.ProcessRequestMain() +660

（恐らくvsFlexArray1に値を設定する時まずいと思います）

何方かご教授お願い致します。
初心
会議室デビュー日: 2002/10/10
投稿数: 7
投稿日時: 2002-11-19 01:55
助けてください。お願いします
1

スキルアップ／キャリアアップ（JOB@IT）