关于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控件，如有哪里不足，请多多指出。谢谢。
相关文档：
由底至上是：
• 托管资源
• WMI 基础结构
• 使用者
托管资源
托管资源是任意逻辑或物理组件，通过使 ......
一。数据类型
Byte 1
字节 无符号
Interger 2
字节
Long 4
字节
Float 4
字节
Double 8
字节
String
Date
Boolean
Currency
Variant
2.
变长字符串和定长字符
系统默认初始值为空字符串;
变长字符串：di ......
Option Explicit
Private Type UNICODE_STRING
Length As Integer
MaximumLength As Integer
Buffer As Long
End Type
Private Type OBJECT_ATTRIBUTES
Length As Long
RootDirectory As Long
......
把鼠标移到屏幕指定位置 如（111.111） 单击一下
再移到屏幕另一指定位置指定位置 如（222.222）单击一下
Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
Private Declare Function SetCursorPo ......
