PublicClassForm1PrivateSubForm1_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.LoadShell("regsvr32dm.dll")dm=CreateObject("dm.dmsoft")dm.Delay(500)MessageBox.Show(dm.ver())EndSubEndClass
專注于為中小企業(yè)提供成都網(wǎng)站設(shè)計(jì)、成都網(wǎng)站制作服務(wù),電腦端+手機(jī)端+微信端的三站合一,更高效的管理,為中小企業(yè)伊川免費(fèi)做網(wǎng)站提供優(yōu)質(zhì)的服務(wù)。我們立足成都,凝聚了一批互聯(lián)網(wǎng)行業(yè)人才,有力地推動了上1000家企業(yè)的穩(wěn)健成長,幫助中小企業(yè)通過網(wǎng)站建設(shè)實(shí)現(xiàn)規(guī)模擴(kuò)充和轉(zhuǎn)變。
你這個是操作多個窗口還是操作單個窗口
單個窗口的話,沒必要創(chuàng)建多個對象,1個就夠了。
如果特殊情況下需要創(chuàng)建多個大漠插件的對象,承載對象的變量可設(shè)置成數(shù)組型,或者可更換成模塊去創(chuàng)建多個對象
我以前用過:如圖,這個模塊可以實(shí)現(xiàn),需要的話精益論壇上有? 搜索下
代碼的寫法如下:
1、先創(chuàng)建個全局變量的對象數(shù)組
2、如下
大漠插件是采用com方式編寫 對于VB6來說無比簡單~
只需要點(diǎn)擊 工程--引用--選中大漠.dll ---使用時
Private Sub Form_Load()
Dim a As New dmsoft
Debug.Print a.FindWindow("", "Windows 任務(wù)管理器")
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