久久国产成人av_抖音国产毛片_a片网站免费观看_A片无码播放手机在线观看,色五月在线观看,亚洲精品m在线观看,女人自慰的免费网址,悠悠在线观看精品视频,一级日本片免费的,亚洲精品久,国产精品成人久久久久久久

分享

Excel 求教VBE窗體導(dǎo)入VB的方法和導(dǎo)入后的使用方法

 pphsy 2019-01-09
已解決,從來都是VB或VBA下寫程序,,從沒試過兩者之間導(dǎo)入或?qū)?,也沒試過把VBA窗體封裝在DLL中。

附導(dǎo)入方法和調(diào)用方法:

1,、VBA中在窗體上點(diǎn)擊右鍵,,選擇導(dǎo)出,,得到一個(gè)后綴為frm的窗體文件,;
2、在VB工程資源管理器中點(diǎn)右鍵,,選擇添加,,再選擇添加文件,選中上述導(dǎo)出的frm文件,,點(diǎn)擊打開按鍵,,窗體會(huì)被加至VB工程資源管理器的設(shè)計(jì)器中(窗體中的代碼被同步復(fù)制),你可以雙擊打開查看對(duì)象,,右鍵選擇查看代碼,;
3、假設(shè)工程名為:TestSystem,,已導(dǎo)入的窗體名為UserForm1,,新建一個(gè)類:Test,在Test類中寫入代碼如下:
  1.    Sub Wahaha()
  2.       Dim Ts As New  TestSystem.UserForm1
  3.    Ts.Show vbModal
  4.      Set Ts= Nothing
  5.      End Sub
復(fù)制代碼
4,、存盤,,生成TestSystem.dll;
5,、在VBA工程中Show窗體的方法:當(dāng)然先引用TestSystem后,,代碼如下:
  1.    Private Sub CommandButton1_Click()
  2.       Dim ABC As New TestSystem.Test
  3.       ABC.Wahaha
  4.       Set ABC = Nothing
  5.      End Sub
復(fù)制代碼
6、完工,!點(diǎn)擊CommandButton1后即可Show出封裝在DLL文件的窗體,。

[ 本帖最后由 ctincob 于 2009-11-20 18:46 編輯 ]

    本站是提供個(gè)人知識(shí)管理的網(wǎng)絡(luò)存儲(chǔ)空間,所有內(nèi)容均由用戶發(fā)布,,不代表本站觀點(diǎn),。請(qǐng)注意甄別內(nèi)容中的聯(lián)系方式、誘導(dǎo)購買等信息,,謹(jǐn)防詐騙,。如發(fā)現(xiàn)有害或侵權(quán)內(nèi)容,請(qǐng)點(diǎn)擊一鍵舉報(bào),。
    轉(zhuǎn)藏 分享 獻(xiàn)花(0

    0條評(píng)論

    發(fā)表

    請(qǐng)遵守用戶 評(píng)論公約

    類似文章 更多