VB问题Private Sub Command1_Click()
来源:学生作业帮 编辑:搜狗做题网作业帮 分类:综合作业 时间:2024/04/29 22:36:51
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
这个代码如何改
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
这个代码如何改
根据你的代码,你的题意是当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)得到.
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)得到.
VB问题Private Sub Command1_Click()
vb Private Sub Command1_Click()
VB里的“Private Sub Command1_Click()”是什么意思?
VB的if语句的问题Private Sub Command1_Click()If Text1 = "111" ThenF
Private Sub Command1_Click()
private sub command1_click()
请教下面VB 代码的意思 Private Sub Command1_Click() If Combo1.Text ""
几道VB程序题,Private Sub Command1_Click()Dim x As Integerx = Val(
帮忙VB试题我怎么想都算不对Private Sub Command1_Click()Dim a As Integer,b
9^n+2是不是质数vb编程如下Private Sub Command1_Click()Dim a As Integer
vb求n阶乘表达式Private Sub Command1_Click()Dim n As Integern = Inp
VB Private Sub Command1_Click()Dim x As Integerx = 15768Prin