注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

闻新而动

双核动力

 
 
 

日志

 
 
 
 

怎么样在listbox中加入一个checkbox,并对其进行操作  

2010-07-24 13:36:58|  分类: 网捞快文 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |

怎么样在listbox中加入一个checkbox,并对其进行操作相关

解决方法:1、
怎么样在listbox中加入一个checkbox,并对其进行操作推荐解答:
VB6的ListBox的Style可以选择CheckBox,这个是你要的吗?
2、
呵呵,多谢,那怎么样判断哪几个被选中了呢?
3、
怎么样在listbox中加入一个checkbox,并对其进行操作推荐解答:
Option Explicit
Dim i As Integer
Private Sub Form_Load()
  List1.AddItem "111"
  List1.AddItem "222"
  List1.AddItem "333"
  List1.Selected(0) = True
 
End Sub
Private Sub List1_Click()
Text1.Text = ""
 For i = 0 To List1.ListCount - 1
  If List1.Selected(i) = True Then
    Text1.Text = Text1.Text & List1.List(i)
  End If
 Next i
End Sub
4、
怎么样在listbox中加入一个checkbox,并对其进行操作推荐解答:
        Dim intItem As Integer
        Dim intCheckItems As Integer
       
        intCheckItems = 0
        With lstTest
            For intItem = 1 To .ListCount
                If .Selected(intItem) Then
                    intCheckItems = intCheckItems + 1
                End If
            Next
        End With
       
        MsgBox "总共有 " & CStr(intCheckItems) & " 项被选中。"
5、
怎么样在listbox中加入一个checkbox,并对其进行操作推荐解答:
在窗体上有一个Listbox和一个CommandButton
Private Sub Command1_Click()
   
    Dim i As Integer
    Dim astr As String
   
    For i = 0 To 9
           
        If List1.Selected(i) Then
           
            astr = astr & CStr(i + 1) & "\"
           
        End If
           
    Next
   
    MsgBox "Item " & astr & " 被选中了"
   
End Sub
Private Sub Form_Load()
   
    Dim i As Integer
   
    For i = 1 To 10
        List1.AddItem "Item " & CStr(i)
    Next
   
    MsgBox "请选中其中几项,然后按Command1"
   
End Sub
6、
怎么样在listbox中加入一个checkbox,并对其进行操作推荐解答:
对不起,有的问题,现更正:
Option Explicit
Dim intItem As Integer
Private Sub Command1_Click()
        Dim intCheckItems As Integer
       
        intCheckItems = 0
        With lstTest
            For intItem = 1 To .ListCount
                If .Selected(intItem - 1) Then
                    intCheckItems = intCheckItems + 1
                End If
            Next
        End With
       
        MsgBox "总共有 " & CStr(intCheckItems) & " 项被选中。"
End Sub
Private Sub Form_Load()
       
        With lstTest
            For intItem = 1 To 10
                .AddItem String(5, 64 + intItem)
                .Selected(intItem - 1) = True
            Next
        End With
       
End Sub
7、
怎么样在listbox中加入一个checkbox,并对其进行操作推荐解答:
被选种的属性是True.
listview1.ListItems(1).Checked=True
8、
怎么样在listbox中加入一个checkbox,并对其进行操作推荐解答:
呵呵,本人还是做错了,把要求看成“有多少项选中”,好最后再来一次:
Option Explicit
Dim intItem As Integer
Private Sub Command1_Click()
        Dim intCheckedItems As Integer
        Dim strCheckedItems As String
       
        intCheckedItems = 0
        strCheckedItems = ""
       
        With lstTest
            For intItem = 1 To .ListCount
                If .Selected(intItem - 1) Then
                    intCheckedItems = intCheckedItems + 1
                    strCheckedItems = strCheckedItems & CStr(intCheckedItems) & " " & .List(intItem - 1) & vbCrLf
                End If
            Next
        End With
       
        MsgBox "总共有 " & CStr(intCheckedItems) & " 项被选中,选中项为:" & vbCrLf & strCheckedItems
End Sub
Private Sub Form_Load()
       
        With lstTest
            For intItem = 1 To 10
                .AddItem String(5, 64 + intItem)
                .Selected(intItem - 1) = True
            Next
        End With
       
End Sub
9、
怎么样在listbox中加入一个checkbox,并对其进行操作推荐解答:
这么简单的问题,以后最好自己先向想,然后再问!
10、
怎么样在listbox中加入一个checkbox,并对其进行操作推荐解答:
Option Explicit
Private Sub Command1_Click()
    Dim i As Long, s As String
   
    With List1
    If .SelCount = 0 Then
        MsgBox "没有项目被选中!"
        Exit Sub
    End If
   
    For i = 0 To .ListCount - 1
        If .Selected(i) Then
            s = s & .List(i) & vbCrLf
        End If
    Next i
   
    MsgBox "一共有 " & .SelCount & "个被选中,分别为:" & vbCrLf & s
    End With
   
End Sub
Private Sub Form_Load()
    Dim i As Long
    With List1
    For i = 0 To 100
        .AddItem i
    Next i
    End With
End Sub

来源:电脑网络爱好者:http://www.pcnetfan.com/viewnews-27963.html

  评论这张
 
阅读(777)| 评论(0)
推荐 转载

历史上的今天

在LOFTER的更多文章

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2017