网上有关“VBA中如何使用ListBox控件呢？”话题很是火热，小编也是针对VBA中如何使用ListBox控件呢？寻找了一些与之相关的一些信息进行分析 ，如果能碰巧解决你现在面临的问题 ，希望能够帮助到您。
ListBox 控件显示项目列表，从其中可以选择一项或多项。如果项目总数超过了可显示的项目数 ，就自动在 ListBox 控件上添加滚动条 。
如果未选定项目 ，则 ListIndex 属性值是 -1 。列表的第一项是 ListIndex 0，ListCount 属性值总是比最大的 ListIndex 值大 1。
语法
ListBox
说明
使用 AddItem 或者 RemoveItem 方法可以添加或者删除 ListBox 控件中的项目 。对 List、ListCount 和 ListIndex 属性进行设置就可以访问 ListBox 中的项目 。也可以在设计时使用 List 属性在列表中增加项目。
实例
?Dim?Entry,?I,?Msg?'?声明变量 。 Msg?=?"Choose?OK?to?add?100?items?to?your?list?box." MsgBox?Msg?'?显示信息 。 For?I?=?1?To?100?'?计数值从?1?到?100。Entry?=?"Entry?"?&?I?'?创建输入项 。
List1.AddItem?Entry?'?添加该输入项 。
Next?I Msg?=?"Choose?OK?to?remove?every?other?entry." MsgBox?Msg?'?显示信息。 For?I?=?1?To?50?'?确定如何List1.RemoveItem?I?'?每隔一项
Next?I?'?删除 。 Msg?=?"Choose?OK?to?remove?all?items?from?the?list?box." MsgBox?Msg?'?显示信息 。 List1.Clear?'?清除列表框。vb6.0中的app.major还有app.minor还有app.path分别代表什么意思？
’
‘需要Command1 ，text1 ，listbox 3控件
’缺陷：有多行相符合条件的只显示最后一行的，自己改；变色后显示不完全 ，可以添加Label1来显示
Option Explicit
Private Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
Private Const LB_ITEMFROMPOINT = &H1A9
Private Const LB_GETITEMRECT = &H198
Private Const DT_LEFT = &H0
Private Const DT_VCENTER = &H4
Private Const DT_SINGLELINE = &H20
Private Const TRANSPARENT = 1
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function CreateSolidBrush Lib "gdi32" (ByVal crColor As Long) As Long
Private Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long
Private Declare Function SetBkMode Lib "gdi32" (ByVal hdc As Long, ByVal nBkMode As Long) As Long
Private Declare Function SetBkColor Lib "gdi32" (ByVal hdc As Long, ByVal crColor As Long) As Long
Private Declare Function SetTextColor Lib "gdi32" (ByVal hdc As Long, ByVal crColor As Long) As Long
Private Declare Function FillRect Lib "user32" (ByVal hdc As Long, lpRect As RECT, ByVal hBrush As Long) As Long
Private Declare Function DrawText Lib "user32" Alias "DrawTextA" (ByVal hdc As Long, ByVal lpStr As String, ByVal nCount As Long, lpRect As RECT, ByVal wFormat As Long) As Long
Private Sub List1_Click()
Dim Lrect As RECT, LhDc As Long, hBrush As Long
Dim Ret As Long, lpStr As String
lpStr = List1.List(List1.ListIndex) 'List1.Text
Ret = SendMessage(List1.hwnd, LB_GETITEMRECT, List1.ListIndex, Lrect)
LhDc = GetDC(List1.hwnd)
Ret = FillRect(LhDc, Lrect, hBrush)
Ret = DeleteObject(hBrush)
Ret = SetBkMode(LhDc, TRANSPARENT)
Ret = SetTextColor(LhDc, RGB(255, 0, 0)) '选中条目字体颜色
Ret = DrawText(LhDc, lpStr, Len(lpStr), Lrect, DT_SINGLELINE Or DT_LEFT Or DT_VCENTER)
End Sub
Private Sub Command1_Click()
Dim i As Integer
For i = 0 To List1.ListCount - 1
If InStr(1, List1.List(i), Text1) <> 0 Then List1.Selected(i) = True
Next i
End Sub
VB中如何把TEXT中的多行文本添加到LISTBOX中 ，而且是一行一行显示
Major 属性
返回一个 Long，其内容为被引用的类型库的主版本号 ，此属性为只读。
说明
由 Major 属性所返回的代码 ，相当于存在曾引用过的类型库里的主版本号 。
Minor 属性
返回一个 Long，它指定被引用的类型库的次版本号，此属性为只读 。
说明
由 Minor 属性所返回的代码 ，相当于存在曾引用过的类型库里的次版本号。
Path 属性
返回或设置当前路径 。在设计时是不可用的 。对于 App 对象 ，在运行时是只读的。
语法
object.Path [= pathname]
Path 属性的语法包含下面部分：
部分 描述
object 对象表达式，其值是“应用于 ”列表中的一个对象 。
pathname 一个用来计算路径名的字符串表达式 。
说明
Path 属性的值是一个指示路径的字符串 ，例如 C:\Ob 或 C:\Windows\System。对于 DirListBox 或 FileListBox 控件 ，在运行时当控件被创建时，其缺省值是当前路径 。对于 App 对象 ，当从开发环境运行该应用程序时 Path 指定 .VBP 工程文件的路径 ，或者当把应用程序当作一个可执行文件运行时 Path 指定 .exe 文件 。
当建立一个应用程序的文件浏览器和操作能力时使用这个属性。设置 Path 属性对控件产生的影响与 MS-DOS 的 chdir 命令相似－相关的路径可以带有或不带有驱动器的描述 。只有指定带冒号 (:) 的驱动器才能在那个驱动器上选择当前目录 。
使用下面的语法，Path 属性也可以设置限定的网络路径而不需要驱动器连接：
\\servername\sharename\path
前面的语法将 Drive 属性改变成了 0 长度的字符串 ("")。
Path 值的改变将产生以下影响：
对于一个 DirListBox 控件 ，将产生一个 Change 事件。
对于一个 FileListBox 控件 ，将产生一个 PathChange 事件.
注意 对于 DirListBox，Path 的返回值与只返回选定内容的 List(ListIndex) 是不同的 。
1 、打开VB6.0软件 ，新建一个标准exe工程；
2 、在设计界面上添加一个Text控件、一个Command控件和一个List控件；设置Text1的Mutiline属性为True；Command1的Caption属性设置为“转换 ”；
3 、双击Command1控件 ，进入代码编辑界面，输入如下代码：
Private?Sub?Command1_Click()Dim?s()?As?String
s?=?Split(Text1.Text,?vbCrLf)
For?i?=?0?To?UBound(s)
List1.AddItem?(s(i))
Next?i
End?Sub
Private?Sub?Form_Load()
Text1.Text?=?"What?are?you?doing?"?&?vbCrLf?&?"What?is?the?next?"?&?vbCrLf?&?"who?r?u?"
End?Sub
4 、运行工程，单击转换按钮 ，可以看到Text中的多行文本添加到List中；
关于“VBA中如何使用ListBox控件呢？”这个话题的介绍 ，今天小编就给大家分享完了，如果对你有所帮助请保持对本站的关注！
本文来自作者[英复奴]投稿，不代表捕梦资讯立场，如若转载，请注明出处：https://urbike.com.cn/news/1036.html
评论列表（3条）
我是捕梦资讯的签约作者“英复奴”
本文概览：网上有关“VBA中如何使用ListBox控件呢？”话题很是火热，小编也是针对VBA中如何使用ListBox控件呢？寻找了一些与之相关的一些信息进行分析，如果能碰巧解决你现在面临...
文章不错《VBA中如何使用ListBox控件呢？》内容很有帮助