VB.Net学习笔记(三)
2015-12-25 09:46
435 查看
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))
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))
相关文章推荐
- VB.Net学习笔记(二)
- VB.Net学习笔记(二)
- VB.Net学习笔记(一)
- VB.Net学习笔记(一)
- vb程序的破解笔记
- vb程序的破解笔记
- vba中中文数字和阿拉伯数字转换,也说下sub求面积的问题
- OpenGL VBO顶点缓冲的使用
- VBA编程常用语句
- excel vba 当cell的值变化时 进行判断操作
- Excel VBA保护工作表
- 通过VBS编写自动输入账号和密码、自动登录程序的脚本
- 通过VBS编写自动输入账号和密码、自动登录程序的脚本
- VB操作EXCEL文件大全
- VB中下表越界
- vb Form的基本事件
- 【转载】第一次亲密接触 之 VB和Flash的交互
- VB总结
- 【转载】理解VB中选择语句Select Case结构的最好例子
- VB视频总结(二)