私は Visual Basic を初めて使用しますが、現在取り組んでいるプログラムで問題が発生しています。Sterling ActiveX ライブラリを使用して、Sterling Trader ソフトウェアの簡単なタスク (注文の送信) を行う基本的な機能プログラムを作成しています。私は、機能し、そこから構築できる基本的なものを作ろうとしています。これまでの私のコードは次のとおりです。
Imports SterlingLib
Public Class Form1
Dim WithEvents m_STIEvents As STIEvents
Private Declare Sub GetLocalTime Lib "kernel32" (ByRef lpSystemTime As SYSTEMTIME)
Private Structure SYSTEMTIME
Dim wYear As Short
Dim wMonth As Short
Dim wDayOfWeek As Short
Dim wDay As Short
Dim wHour As Short
Dim wMinute As Short
Dim wSecond As Short
Dim wMilliseconds As Short
End Structure
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
m_STIEvents = New STIEvents
End Sub
Private Sub m_STIEvents_OnSTIOrderUpdateMsg(ByVal oSTIOrderUpdateMsg As SterlingLib.STIOrderUpdateMsg) Handles m_STIEvents.OnSTIOrderUpdateMsg
Dim order As STIOrder
order = New STIOrder
Dim storder As structSTIOrder
storder.bstrAccount = "ACCT7"
storder.bstrSide = "B"
storder.bstrSymbol = "CSCO"
order.Quantity = "500"
storder.bstrStrPriceType = SterlingLib.STIPriceTypes.ptSTIMkt
storder.bstrTif = "D"
storder.bstrDestination = "NYSE"
Dim theTime As SYSTEMTIME
GetLocalTime(theTime)
storder.bstrClOrderId = storder.bstrAccount & theTime.wYear & theTime.wMonth & theTime.wDay & theTime.wHour & theTime.wMinute & theTime.wSecond & theTime.wMilliseconds
Dim ret As Integer
ret = order.SubmitOrder
End Sub
Private Function Text1() As Object
Throw New NotImplementedException
End Function
End Class
このプログラムを実行すると、「アプリケーションで未処理の例外が発生しました。続行をクリックすると、アプリケーションはこのエラーを無視して続行を試みます。終了をクリックすると、アプリケーションはすぐに閉じます。
次のエラーのため、CLSID {5E89F49B-6A12-420F-8570-E510EF1B580A} を持つコンポーネントの COM クラス ファクトリを取得できませんでした: 800700c1."
これはどういう意味ですか?どうすれば修正できますか? デバッグすると、問題が発生している行として「m_STIEvents = New STIEvents」が強調表示されますが、わかりません。