全部
Ada助手

关于BYVAL类型不匹配的问题!

yttlovezxx 2005-11-14 02:22:09

dim porti as long
Private Sub EDSock_SwitchChange(ByVal ConnectID As Long, ByVal PortNum As Long, ByVal Value As Long)
'For PortNum = 1 To 16
PortNum = Porti + 1

'输入端口短路
If Value = 1 And iPhotoIndex(PortNum - 1) = Value Then

' 加载红灯显示状态
picinput(PortNum - 1).Picture = LoadPicture("C:\David 's bag\Item\R.bmp")
iPhotoIndex(PortNum - 1) = Value - 1

ElseIf Value = 0 And iPhotoIndex(PortNum - 1) = Value Then
'断路状态
picinput(PortNum - 1).Picture = LoadPicture("C:\David 's bag\Item\Z.bmp")
iPhotoIndex(PortNum - 1) = Value + 1

End If
'Next PortNum

End Sub

运行时提示说类型错误.怎么回事?

...全文

给本帖投票

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

写回复

用AI写文章

6 条回复

切换为时间正序

请发表友善的回复…

发表回复

rainstormmaster 2005-12-07

打赏
举报

// picinput(PortNum - 1).Picture = LoadPicture("C:\David 's bag\Item\R.bmp")

类似这样的代码，前面要加个set，即：
set picinput(PortNum - 1).Picture = LoadPicture("C:\David 's bag\Item\R.bmp")

yttlovezxx 2005-12-06

打赏
举报

楼上的.过程中和过程里有什么区别?

lionking13520 2005-11-14

打赏
举报

Private Sub EDSock_SwitchChange(ByVal ConnectID As Long, ByVal PortNum As Long, ByVal Value As Long)
'For PortNum = 1 To 16
dim porti as long
PortNum = Porti + 1

'输入端口短路
If Value = 1 And iPhotoIndex(PortNum - 1) = Value Then

' 加载红灯显示状态
picinput(PortNum - 1).Picture = LoadPicture("C:\David 's bag\Item\R.bmp")
iPhotoIndex(PortNum - 1) = Value - 1

ElseIf Value = 0 And iPhotoIndex(PortNum - 1) = Value Then
'断路状态
picinput(PortNum - 1).Picture = LoadPicture("C:\David 's bag\Item\Z.bmp")
iPhotoIndex(PortNum - 1) = Value + 1

End If
'Next PortNum

End Sub

要把dim porti as long放到过程里去才行
你没把他放到过程中肯定报错,因为没声明