vb 的 FileListBox 控件

vb 的 FileListBox 控件
'显示 程序目录 下的所有*.txt
File1.Path = App.Path
File1.Pattern = "*.txt"


'显示 C:\目录下的所有*.c
File1.Path = "C:\"
File1.Pattern = "*.c"


List1.AddItem "我是文字"  '添加"我是文字"到列表框
List1.RemoveItem 0        '删除列表框里的第一个项目

显示 第i个项目内容
i=1
Text1 = File1.List(i-1)

刷新
File1.Pattern = "*.txt"  '任意文件格式不影响结果
File1.Pattern = "*.c"    '刷新  后显示
----------------------------------------------------------------
----------------------------------------------------------------
----------------------------------------------------------------

FileListBox 控件 可用部分  列表框ListBox控件 属性

----------------------------------------------------------------
----------------------------------------------------------------
----------------------------------------------------------------
因为是只读属性 所以只能在 属性区更改  不能用代码更改
----------------------------------------------------------------
'给列表中的元素赋值

----------------------------------------------------------------
Text2 = File1
'返回被选中的项目 的值
----------------------------------------------------------------
'返回被选中第几项
text1 = List1.ListIndex + 1

----------------------------------------------------------------

'第i个项目被选中
i=1
List1.Selected(i-1) = True
File1.Selected(i-1) = True

'第i个项目被取消 (不被选中)
i=1
List1.Selected(i-1) = False
File1.Selected(i-1) = False
'返回列表框中的项目总数
zs = File1.ListCount

'返回列表框中的被项目位置(一个以上 返回最后一个)
Text1 = File1.ListIndex
返回0第一个被选中 、、返回-1没有 项目被选中


'判断列表框是否只有一个项目被选中
    If File1.SelCount = 1 Then
----------------------------------------------------------------
----------------------------------------------------------------
LefttoRightCmd  '移动所选项目到另一个列表框（左到右）
RighttoLeftCmd  '移动所选项目到另一个列表框（右到左）


----------------------------------------------------------------
Private Sub Command2_Click()
  List1.Clear '清空列表
End Sub
----------------------------------------------------------------
i=1 '如要删除列表中的第一个项目(可删除第N个项目)
List1.RemoveItem i-1

List1AddCmd     '给列表框List1增加新项目


_____________________________________________________________________________ _

中磊UG二次开发教程 梅雷著 qq1821117007
学UG就上UG网 http://www.9sug.com/