PublicClassForm1PrivateSubForm1_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.LoadShell("regsvr32dm.dll")dm=CreateObject("dm.dmsoft")dm.Delay(500)MessageBox.Show(dm.ver())EndSubEndClass
专注于为中小企业提供成都网站设计、成都网站制作服务,电脑端+手机端+微信端的三站合一,更高效的管理,为中小企业伊川免费做网站提供优质的服务。我们立足成都,凝聚了一批互联网行业人才,有力地推动了上1000家企业的稳健成长,帮助中小企业通过网站建设实现规模扩充和转变。
你这个是操作多个窗口还是操作单个窗口
单个窗口的话,没必要创建多个对象,1个就够了。
如果特殊情况下需要创建多个大漠插件的对象,承载对象的变量可设置成数组型,或者可更换成模块去创建多个对象
我以前用过:如图,这个模块可以实现,需要的话精益论坛上有 搜索下
代码的写法如下:
1、先创建个全局变量的对象数组
2、如下
大漠插件是采用com方式编写 对于VB6来说无比简单~
只需要点击 工程--引用--选中大漠.dll ---使用时
Private Sub Form_Load()
Dim a As New dmsoft
Debug.Print a.FindWindow("", "Windows 任务管理器")
End Sub
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Shell("regsvr32 dm.dll")
dm = CreateObject("dm.dmsoft")
dm.Delay(500)
MessageBox.Show(dm.ver())
End Sub
End Class