VB问题Private Sub Command1_Click()Private Sub Command1_Click()Dim i%For i = Combo1.ListCount - 1 To 0If Combo1.Selected(i) ThenList1.AddItem Combo1(i)End IfNext i这个代码如何改
来源:学生作业帮助网 编辑:作业帮 时间:2024/07/04 22:50:18
![VB问题Private Sub Command1_Click()Private Sub Command1_Click()Dim i%For i = Combo1.ListCount - 1 To 0If Combo1.Selected(i) ThenList1.AddItem Combo1(i)End IfNext i这个代码如何改](/uploads/image/z/5167235-11-5.jpg?t=VB%E9%97%AE%E9%A2%98Private+Sub+Command1_Click%28%29Private+Sub+Command1_Click%28%29Dim+i%25For+i+%3D+Combo1.ListCount+-+1+To+0If+Combo1.Selected%28i%29+ThenList1.AddItem+Combo1%28i%29End+IfNext+i%E8%BF%99%E4%B8%AA%E4%BB%A3%E7%A0%81%E5%A6%82%E4%BD%95%E6%94%B9)
VB问题Private Sub Command1_Click()Private Sub Command1_Click()Dim i%For i = Combo1.ListCount - 1 To 0If Combo1.Selected(i) ThenList1.AddItem Combo1(i)End IfNext i这个代码如何改
VB问题Private Sub Command1_Click()
Private Sub Command1_Click()
Dim i%
For i = Combo1.ListCount - 1 To 0
If Combo1.Selected(i) Then
List1.AddItem Combo1(i)
End If
Next i
这个代码如何改
VB问题Private Sub Command1_Click()Private Sub Command1_Click()Dim i%For i = Combo1.ListCount - 1 To 0If Combo1.Selected(i) ThenList1.AddItem Combo1(i)End IfNext i这个代码如何改
根据你的代码,你的题意是当Combo1中选择了某项时,将此项加入到List1中,所以,应该是不需要循环的.用以下代码即可.
Private Sub Command1_Click()
If Combo1.ListIndex Then
List1.AddItem Combo1.List(Combo1.ListIndex)
End If
End Sub
另外Combo1是没有Selected(i)属性的,可以使用Combo1.ListIndex来表示当前选择的项索引;
因Combo1是控件名,所以Combo1(i)是用来表示控件数组的,Combo1(i)不能用来表示取得Combo1控件中的项,可以使用Combo1.List(i)得到.