1、 ListBox绑定数据
Dim dt AsNew DataSet
dt = DJGL.ReturnDT("select name from t_item where type='控件列表'")
ListBox1.DataSource = dt.Tables(0)
ListBox1.DisplayMember = "name"
ListBox1.ValueMember = "name"
2、 Tag属性
Tag的类型是Object,因此可以保存任意的控件Control,调用比较方便。
3、 ListView绑定数据及多列显示
ListView1.Columns.Add(ch1)
ListView1.Columns.Add(ch2)
Dim RCount AsInteger = dt.Tables(0).Rows.Count
Dim i AsInteger
For i = 0 To RCount - 1
ListView1.Items.Add(dt.Tables(0).Rows(i)(0).ToString()) 加第一列
ListView1.Items(i).SubItems.Add("NULL") 加第二列
Next
4、 ListBox中右键菜单并选择
在MouseDown事件中:
If e.Button = Windows.Forms.MouseButtons.Right Then
Dim sIndex AsInteger = ListBox1.IndexFromPoint(e.X, e.Y)
If sIndex <> -1 Then
ListBox1.SelectedIndex = sIndex
ListBox1.ContextMenuStrip = ContextMenuStrip1
Else
ListBox1.ContextMenuStrip = Nothing
EndIf
EndIf
5、 ListBox多选取值
应用ListBox1.SelectedItems为被选中的项目集合,每一项为DataRowView类型
Dim ii, irc AsInteger
Dim ll As DataRowView
irc = ListBox1.SelectedItems.Count
For ii = 0 To irc - 1
ll = ListBox1.SelectedItems(ii)
MsgBox(ll.Row(0).ToString())
Next
6、 字符串转颜色值
Color.FromArgb(Convert.ToInt32("FFFFFFFF--ARGB", 16))