VB里面的listBox控件怎么用啊?
listBox是用來顯示列表數據的控件
他的主要屬性如下:
設已知控件為list1
list1.list為列表中顯示的相關數據
list1.Backcolor為列表的背景顏色
list1.Forecolor為他的字體顏色
list1.front為他的字體
list1.style為控件的選中格式(0為默認,1為可以在其上打對號)
當要向其中加入字符竄時可以用這個命令
List1.AddItem
"xxx",
index
xxx為欲加入的字符,index為加入字符的位置(第幾行)
刪除其中的字符竄命令為:
list1.RemoveItem
index
index為已知欲刪除行數。
基本的就這些了。。。。。。。。
VB里如何逐行讀取listbox中的數據
VB可通過循環來獲取ListBox控件的List屬性。
List屬性,返回或設置控件的列表部分的項目。列表是一個字符串數組,數組的每一項都是一列表項目。
下列代碼讀取ListBox控件的List屬性。
OptionExplicit
DimIAsLong
PrivateSubForm_Click()
ForI=1To10
PrintList1.List(I)'輸出ListBox的前10項內容
Next
EndSub
PrivateSubForm_Load()
DimEntryAsString'聲明變量。
ForI=1To30'計數值從1到30。
Entry="Entry"&I'創建輸入項。
List1.AddItemEntry'添加該輸入項。
NextI
EndSub
vb中Listbox怎樣綁定數據庫
通過datasource屬性綁定
比如使用數據庫控件
datasource
控件會出現一個下拉框
選擇需要綁定的數據控件,然后設置datamember綁定表,datafield綁定具體字段;也可以使用代碼綁定
例如
t
list1.datasource=adodc1.recordt
list1.refresh'刷新
VB關于listbox的問題
1.用VB公用打開對話框向listbox列表添加文件名時怎樣才能防止有重復的文件名出現.
可以先做個檢測,先在末尾插入個代碼:
Function CheckAA(ListBox As ListBox, Text As String) As Boolean
For i = 0 To (ListBox.ListCount - 1)
If ListBox.List(i) = Text Then
CheckAA = Fal
Exit Sub
End If
Next
CheckAA = True
End Function
然后在加項目時用CheckAA函數驗證一下,如果沒重復,則返回True
參數ListBox為要驗證的列表框
參數Text為要檢查的字符
2.在添加過程中如果想刪除選中項要怎么辦
先在末尾插入個代碼:
Sub DeleteItem(ListBox As ListBox)
ListBox.RemoveItem ListBox.ListIndex
End Sub
然后在需要刪除選擇項時調用DeleteItem就可以了,
參數ListBox為要刪除選擇項的列表框
3.在添加完成后要點擊完成按鈕后,需要把該窗口中的listbox列表中內容保存在.INI文件中,還要把該窗口中的listbox列表中內容復制到主窗體的listbox列表中,并需要啟動時將保存的文件名讀取到主窗體的listbox列表中
可參照如下ini格式:
[TIP]
歌曲數=2
歌曲1=c:\東方紅.mp3
歌曲2=c:\第二曲.mp3
......
讀取時先取歌曲數,再用For x = l To u ... Next這種語句
For...Next語句樣式:
For 記數用的變量名 = 起始數 To 終止數
[添加過程部分,當記數用的變量名<終止數時才會有效]
Next
請教vb listbox的使用方法
如果說,現在有個ListBox1
我已經向其中添加了若干項目。
如果要實現我雙擊其中一個項目,都跳出一個 Msgbox ,顯示內容為我說雙擊的項目的 行號 & 該行的名稱?
比如,我說選的第三個項目“武漢”,就會顯示一個 msgbox 為“2武漢”
謝謝達人指點!!