易截截图软件、单文件、免安装、纯绿色、仅160KB

关于VB的ListBox控件选定项的获取

 今天在做VB项目的时候,使用了ListBox控件来获取一些列表项,用了才发现没有ListView好用,ListView有Items(SelectItem)可以定位到当前的选中项,而ListBox没有;ListView有Tag可以设定选中项的标示,ListBox没有。上网也找不到原因,知道去阅读MSDN和自己测试。
之后终于找到了问题的关键。
事件1:添加ListBox项和对应项的标识
Dim List1 As new ListBox
List1.addItem , , 星期一
List1.ItemData(List1.newIndex) = "1"
List1.addItem , , 星期二
List1.ItemData(List1.newIndex) = "2"
List1.addItem , , 星期三
List1.ItemData(List1.newIndex) = "3"
List1.addItem , , 星期四
List1.ItemData(List1.newIndex) = "4"
Private Sub List1_Click() 
    If List1.ListIndex = -1 Then
         Exit Sub             '没有选中任何项,退出方法
    End If
    Debug.Print List1.ItemData(List1.ListIndex)      '打印选中的List1的标识。。可能是"1" "2" "3" "4"
    Debug.Print List1.Text      '打印选中的List1的名称。。可能是星期一到星期四
End Sub
第一次写文章,因为用的上10寸的上网本,写得很简单,如果看不懂请联系我。
刚用ListBox控件,如有哪里不足,请多多指出。谢谢。


相关文档:

VB语法规范


一。数据类型
 Byte 1
字节 无符号
 Interger  2
字节
 Long  4
字节
 Float 4
字节
 Double 8
字节
 String
 Date
 Boolean
 Currency
 Variant
2.
变长字符串和定长字符
 
系统默认初始值为空字符串;
 
变长字符串:di ......

vb快速访问注册表的方法

VERSION 5.00
Begin VB.Form frmMain
BorderStyle = 1 'Fixed Single
Caption = "Reg Demo"
ClientHeight = 6570
ClientLeft = 45
ClientTop = 435
ClientWidth = 7695
LinkTopic = "Form1"
MaxButton = 0 'False
Min ......

如何使用VB制作OCX控件

 如今OCX控件在编程中已占领了很重要的地位,我们可以利用OCX控件完成一些相当复杂的编程操作。同时OCX控件还有利于主程序的简单化、功能的重用、隐藏程序实现细节、便于升级、传播方便等优点。现在我们可以利用VB 5.0方便地制作出自己的OCX控件供我们在编程中使用,同时还可以把它送给你周围喜欢编程的朋友!下面列出制 ......

[转载]: 教你如何用VB做控件*.ocx

教你如何用VB做控件*.ocx
一个控件有很多事件如:Click、MouseDown、MouseUp、MouseMove等。要触发这些事件都需要你加入代码。在控件的声明处加入Public Event Click()就表明该控件有一“Click”事件。自己编写的控件有什么事件就在声明处加几条事件
如今OCX控件在编程中已占领了很重要的地位,我们可以利用OC ......
© 2009 ej38.com All Rights Reserved. 关于E健网联系我们 | 站点地图 | 赣ICP备09004571号