VByesno具体怎么用下面是我的代码不管是点 - 知识问答

VByesno具体怎么用下面是我的代码不管是点 yes 还是 no list2 都会添加项目怎么回事?Private

1个回答

'这么改就好了
Private Sub Command1_Click()
Dim n As Integer
n = List1.ListCount - 1
For i = 0 To n
If List1.Selected(i) Then
q = MsgBox("您确定要将其设置为管理员吗?",vbYesNo + vbInformation,"提示")
If q = vbYes Then
List2.AddItem List1.List(i)
List2.Refresh
List1.Refresh
Else
Exit Sub
End If
End If
Next
End Su

相关问题