我做了一个学生管理系统,使用的是VB和SQL Server
,其中有句话,PrivateSublvwClient_MouseDown(ButtonAsInteger,ShiftAsInteger,xAsSingle,yAsSing...
,其中有句话,Private Sub lvwClient_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single),编译时显示未找到方法或数据成员,这句话变黄了,怎么办?
Private Sub lvwClient_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
Dim Litem As ListItem
If lvwClient.ListItems.Count = 0 Then
Exit Sub
End If
If lvwClient.SelectedIte登录m Is Nothing Then
Exit Sub
End If
If Button = vbRightButton Then
Set Litem = lvwClient.SelectedItem
muUID.Caption = "用户名:" & Litem.Text
muIP.Caption = "IP地址:" & Litem.SubItems(1)
muSF.Caption = "用户类型:" & Litem.SubItems(2)
PopupMenu userCtrl, , x, y + picLeft.Top
End If
End Sub
代码如上,如何设置用户IP啊。 展开
Private Sub lvwClient_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
Dim Litem As ListItem
If lvwClient.ListItems.Count = 0 Then
Exit Sub
End If
If lvwClient.SelectedIte登录m Is Nothing Then
Exit Sub
End If
If Button = vbRightButton Then
Set Litem = lvwClient.SelectedItem
muUID.Caption = "用户名:" & Litem.Text
muIP.Caption = "IP地址:" & Litem.SubItems(1)
muSF.Caption = "用户类型:" & Litem.SubItems(2)
PopupMenu userCtrl, , x, y + picLeft.Top
End If
End Sub
代码如上,如何设置用户IP啊。 展开
1个回答
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询