VByesno具体怎么用下面是我的代码不管是点yes还是nolist2都会添加项目怎么回事?PrivateSubCommand1Click()DimnAsIntegern=List1.ListCount-1Fori=0TonIfList1.Selected(i)ThenMsgBox"您确定要将其设置为

Question

VByesno具体怎么用
下面是我的代码 不管是点 yes 还是 no list2 都会添加项目
怎么回事?
Private Sub Command1_Click()
Dim n As Integer
n = List1.ListCount - 1
For i = 0 To n
If List1.Selected(i) Then
MsgBox "您确定要将其设置为管理员吗?",vbYesNo + vbInformation,"提示"
If vbYes Then
List2.AddItem List1.List(i)
List2.Refresh
List1.Refresh
Else
Exit Sub
End If
End If
Next
End Sub

Answer 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 Sub