扫一扫
分享文章到微信
扫一扫
关注官方公众号
至顶头条
Private Sub Form_Load() If (MsgBox("hehe", vbOKCancel) = vbOK) Then Shell "link2.exe " & Command$ End If End End Sub |
Public Function mathadd(ByVal a As Long, ByVal b As Long) As Long mathadd = a + b End Function |
link2.exe "e:\vbdll\Class1.obj" "e:\vbdll\Module1.obj" "e:\vbdll\Project1.obj" "E:\Program Files\Microsoft Visual Studio\VB98\VBAEXE6.LIB" /ENTRY:__vbaS /EXPORT:mathadd /OUT:"e:\vbdll\ProjectOK.dll" /BASE:0x11000000 /SUBSYSTEM:WINDOWS,4.0 /VERS |
Private Declare Function mathadd Lib "e:\vbdll\ProjectOK.dll" (ByVal a As Long, ByVal b As Long) As Long |
如果您非常迫切的想了解IT领域最新产品与技术信息,那么订阅至顶网技术邮件将是您的最佳途径之一。