从品牌网站建设到网络营销策划,从策略到执行的一站式服务
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
成都网站建设公司地址:成都市青羊区太升南路288号锦天国际A座10层 建设咨询028-86922220
成都快上网科技有限公司-四川网站建设设计公司 | 蜀ICP备19037934号 Copyright 2020,ALL Rights Reserved cdkjz.cn | 成都网站建设 | © Copyright 2020版权所有.
专家团队为您提供成都网站建设,成都网站设计,成都品牌网站设计,成都营销型网站制作等服务,成都建网站就找快上网! | 成都网站建设哪家好? | 网站建设地图