VB與C++接軌

mini · 2005-06-22, 02:58 PM

接著無奈下不管37 21
按下編譯 -> test.exe

執行(test.exe) 結果沒出現警訊
??
這次在 VB 上多加個除錯，變成

Option Explicit
Private Declare Function ShowMsg Lib "test2.dll" Alias "ShowMsgW" (ByVal send As String, ByVal hWnd As Long) As Integer

Private Sub Command1_Click()
Dim send As String
On Error GoTo NoDoThing

send = "Hello,World!"
Call ShowMsg(send, Me.hWnd)

Exit sub
NoDoThing:
MsgBox "Error"
End Sub

結果 VB 內就是先正確彈出 VC++的 MessageBox 內容
接著彈出 VB的 "Error"

同樣編譯成 test2.exe
執行
只得到 VC++的 MessageBox 內容

??
真是搞不懂，VB 內模擬與 .exe 情況之差異

2005-06-22, 02:58 PM	#2 (permalink)
mini 管理版主榮譽勳章勳章總數17 UID - 4144 在線等級: 註冊日期: 2002-12-07 文章: 13532 精華: 0 現金: 26952 金幣資產: 3024882 金幣	接著無奈下不管37 21 按下編譯 -> test.exe 執行(test.exe) 結果沒出現警訊 ?? 這次在 VB 上多加個除錯，變成 Option Explicit Private Declare Function ShowMsg Lib "test2.dll" Alias "ShowMsgW" (ByVal send As String, ByVal hWnd As Long) As Integer Private Sub Command1_Click() Dim send As String On Error GoTo NoDoThing send = "Hello,World!" Call ShowMsg(send, Me.hWnd) Exit sub NoDoThing: MsgBox "Error" End Sub 結果 VB 內就是先正確彈出 VC++的 MessageBox 內容接著彈出 VB的 "Error" 同樣編譯成 test2.exe 執行只得到 VC++的 MessageBox 內容 ?? 真是搞不懂，VB 內模擬與 .exe 情況之差異

	送花文章: 2060, 收花文章: 8087 篇, 收花: 26943 次

Google 提供的廣告