初学VB,奇怪,VB这句怎么用的?

xhwu3721 2007-01-03 09:45:24

Declare Function q Lib "Uart_debug_Dll.dll" Alias "WriteCmdComm_mp3" _
(ByVal comm As String, ByVal num As Integer)

Private Sub Command1_Click()
Dim Command1, command2
Command1 = CByte(&H3)
command2 = CByte(&H1)
WriteCmdComm_mp3(Command1&command2,2) //这一句总是提示说是错的,如何改呢?
End Sub

...全文

130 6 打赏收藏转发到动态举报

写回复

用AI写文章

6 条回复

切换为时间正序

请发表友善的回复…

发表回复

xhwu3721 2007-01-03

打赏
举报

在线等,急用.

韧恒 2007-01-03

打赏
举报

Declare Function q Lib "Uart_debug_Dll.dll" Alias "WriteCmdComm_mp3" _
(ByVal comm As String, ByVal num As Integer)

Private Sub Command1_Click()
Dim Command1, command2
Command1 = CByte(&H3)
command2 = CByte(&H1)
q(Command1&command2,2) //这一句总是提示说是错的,如何改呢?
End Sub

xhwu3721 2007-01-03

打赏
举报

在线等啊,急用.

韧恒 2007-01-03

打赏
举报

Declare Function q Lib "Uart_debug_Dll.dll" Alias "WriteCmdComm_mp3" _
(ByVal comm As String, ByVal num As Integer)

Private Sub Command1_Click()
Dim Command1, command2
Command1 = CByte(&H3)
command2 = CByte(&H1)
q(Command1&command2,2) //这一句总是提示说是错的,如何改呢?
End Sub

韧恒 2007-01-03

打赏
举报

Declare Function q Lib "Uart_debug_Dll.dll" Alias "WriteCmdComm_mp3" _
(ByVal comm As String, ByVal num As Integer)

Private Sub Command1_Click()
Dim Command1, command2
Command1 = CByte(&H3)
command2 = CByte(&H1)
q(Command1&command2,2) //这一句总是提示说是错的,如何改呢?
End Sub

韧恒 2007-01-03

打赏
举报

Declare Function q Lib "Uart_debug_Dll.dll" Alias "WriteCmdComm_mp3" _
(ByVal comm As String, ByVal num As Integer)

Private Sub Command1_Click()
Dim Command1, command2
Command1 = CByte(&H3)
command2 = CByte(&H1)
q(Command1&command2,2) //这一句总是提示说是错的,如何改呢?
End Sub