Option ExplicitDim WithEvents myControl As VBControlExtenderPrivate Sub Command1_Click()
On Error GoTo ErrorQuit
Call myControl.ExecuteCMD("Hello") '就在这儿老是说对象不支持该属性和方法
ErrorQuit:
If Err <> 0 Then MsgBox Error, vbCritical
End SubPrivate Sub Form_Load()
'Licenses.Add "RichText.RichTextctrl.1"
'Set myControl = Controls.Add("RichText.RichTextctrl.1", "mycontrol")
Licenses.Add "pHC3100.HC3100"
Set myControl = Controls.Add("pHC3100.HC3100", "mycontrol")
myControl.Left = 0
myControl.Width = 5000
myControl.Visible = True
End SubPrivate Sub myControl_ObjectEvent(Info As EventInfo)
Dim I As Integer
Dim Str As String
Select Case Info.Name
Case "MouseDown"
For I = 1 To Info.EventParameters.Count
Str = Str & Info.EventParameters.Item(I - 1).Name & "/" & Info.EventParameters.Item(I - 1).Value & IIf(I = Info.EventParameters.Count, ".", ";")
Next I
MsgBox "I Feel MouseDown! Parameter Name/Value:" & Str
Case Else
'其他事件
End Select
End Sub
如果我不是动态加载的话,则可以执行上面Command中的语句?
究竟是为什么???
On Error GoTo ErrorQuit
Call myControl.ExecuteCMD("Hello") '就在这儿老是说对象不支持该属性和方法
ErrorQuit:
If Err <> 0 Then MsgBox Error, vbCritical
End SubPrivate Sub Form_Load()
'Licenses.Add "RichText.RichTextctrl.1"
'Set myControl = Controls.Add("RichText.RichTextctrl.1", "mycontrol")
Licenses.Add "pHC3100.HC3100"
Set myControl = Controls.Add("pHC3100.HC3100", "mycontrol")
myControl.Left = 0
myControl.Width = 5000
myControl.Visible = True
End SubPrivate Sub myControl_ObjectEvent(Info As EventInfo)
Dim I As Integer
Dim Str As String
Select Case Info.Name
Case "MouseDown"
For I = 1 To Info.EventParameters.Count
Str = Str & Info.EventParameters.Item(I - 1).Name & "/" & Info.EventParameters.Item(I - 1).Value & IIf(I = Info.EventParameters.Count, ".", ";")
Next I
MsgBox "I Feel MouseDown! Parameter Name/Value:" & Str
Case Else
'其他事件
End Select
End Sub
如果我不是动态加载的话,则可以执行上面Command中的语句?
究竟是为什么???
解决方案 »
- 关于combobox和optionbutton对应关系
- 住院发票套打,使用爱普生1600K针式打印机
- 有没有可以直接发消息到网络中另一台计算机的API函数???
- 谁知道datagrid的行选择时前景色和背景色的对应算法
- 高手,我需要帮助
- 如何把对数据库access的连接放到模块中(ado)?
- 急救!关于dlgcommondialog
- 各位大仙讲讲vb和MSMQ的连接
- 请问进行adodc1.refresh等操作时doevents怎样使用
- 怎樣鎖定Win2000的鍵盤( Ctrl+Alt+DEL . Alt-Tab . Winkey . Ctrl-ESC )
- 运行问题
- 如何建立两个Recordset数据集的关联
Call myControl.Object.ExecuteCMD("Hello")