VB 求列表框选定项目之和。。。。
答案:1 悬赏:50 手机版
解决时间 2021-04-04 12:05
- 提问者网友：别再叽里呱啦
- 2021-04-03 13:28
VB 求列表框选定项目之和。。。。
最佳答案
- 五星知识达人网友：不如潦草
- 2021-04-03 14:12
listbox 支持多选需要在设计的修改属性MultiSelect的值
Private Sub Command1_Click()
Dim sum As Integer
sum = 0
For i = List1.ListCount - 1 To 0 Step -1
If List1.Selected(i) Then
sum = sum + List1.List(i)
End If
Next
Text1.Text = sum
End Sub
Private Sub Form_Load()
For i = 1 To 100
If i Mod 7 = 0 Then
List1.AddItem i
End If
Next
End Sub
Private Sub Command1_Click()
Dim sum As Integer
sum = 0
For i = List1.ListCount - 1 To 0 Step -1
If List1.Selected(i) Then
sum = sum + List1.List(i)
End If
Next
Text1.Text = sum
End Sub
Private Sub Form_Load()
For i = 1 To 100
If i Mod 7 = 0 Then
List1.AddItem i
End If
Next
End Sub
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯