這是 h 檔裡的宣告:
ULONG WINAPI GetVersion1(BYTE* baSWVersion, BYTE* baFWVersion);
這是我在 vb6 模組裡的宣告,
Declare Function GetVersion1 Lib "Win32Project1.dll" (ByRef baSWVersion As Byte, ByRef baFWVersion As Byte) As Integer
這是 vb6 裡呼叫的地方,
Private Sub Command1_Click()
Dim b1(0 To 100) As Byte
Dim b2(0 To 100) As Byte
Dim res As Integer
res = GetVersion1(b1(0), b2(0))
Me.Caption = CStr(res)
Dim s As String
s = ""
Dim i As Integer
For i = 0 To UBound(b1)
If b1(i) <= 0 Then Exit For
s = s + Right("00" + Hex(b1(i)), 2)
s = s + " "
Next i
Text1(0).Text = s
s = ""
For i = 0 To UBound(b2)
If b2(i) <= 0 Then Exit For
s = s + Right("00" + Hex(b2(i)), 2)
s = s + " "
Next i
Text1(1).Text = s
End Sub