vb.net例程集锦(8)

原作者:kuku 添加时间:2007-06-02 原文发表:2007-06-02 人气:44 来源：互联网

本文章共28074字，分19页，当前第8页，快速翻页：

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

本文提示：《vb.net例程集锦(8)》是本站编辑们为广大网友精选的实用文章，本文阐述了关于文章的相关理论，相对来说专业性强，但是本文只是针对于某个问题提出的见解与论述，未必能辐射到相关问题的方方面面，所以本文处理问题的方法仅仅为您提供一些参考。更多问题请查阅学习中国网其他栏目哦.

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

tCust.Rows(1)(\"custName\") = \"net_lover\"
tCust.Rows(2)(\"custName\") = \"http://xml.sz.luohuedu.net/\"

tCust.Rows(0)(\"custCity\") = \"北京\"
tCust.Rows(1)(\"custCity\") = \"上海\"
tCust.Rows(2)(\"custCity\") = \"河南\"

End Sub
Private Sub AddCustomDataTableStyle()

Dim ts1 As DataGridTableStyle
ts1 = New DataGridTableStyle()
ts1.MappingName = \"Customers\"
ts1.AlternatingBackColor = Color.LightGray

Dim TextCol As DataGridTextBoxColumn
TextCol = New DataGridTextBoxColumn()
TextCol.MappingName = \"custID\"
TextCol.HeaderText = \"序号\"
TextCol.Width = 100

AddHandler TextCol.TextBox.MouseDown, New MouseEventHandler(AddressOf TextBoxMouseDownHandler)
AddHandler TextCol.TextBox.DoubleClick, New EventHandler(AddressOf TextBoxDoubleClickHandler)
ts1.GridColumnStyles.Add(TextCol)
TextCol = New DataGridTextBoxColumn()
TextCol.MappingName = \"custName\"
TextCol.HeaderText = \"姓名\"
TextCol.Width = 100

AddHandler TextCol.TextBox.MouseDown, New MouseEventHandler(AddressOf TextBoxMouseDownHandler)
AddHandler TextCol.TextBox.DoubleClick, New EventHandler(AddressOf TextBoxDoubleClickHandler)
ts1.GridColumnStyles.Add(TextCol)
TextCol = New DataGridTextBoxColumn()
TextCol.MappingName = \"custCity\"
TextCol.HeaderText = \"地址\"
TextCol.Width = 100

AddHandler TextCol.TextBox.MouseDown, New MouseEventHandler(AddressOf TextBoxMouseDownHandler)
AddHandler TextCol.TextBox.DoubleClick, New EventHandler(AddressOf TextBoxDoubleClickHandler)
ts1.GridColumnStyles.Add(TextCol)
dataGrid1.TableStyles.Add(ts1)

End Sub
Friend WithEvents Label1 As System.Windows.Forms.Label
Private Sub InitializeComponent()
Me.dataGrid1 = New System.Windows.Forms.DataGrid()
Me.Label1 = New System.Windows.Forms.Label()
CType(Me.dataGrid1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
\'
\'dataGrid1
\'
Me.dataGrid1.CaptionVisible = False
Me.dataGrid1.DataMember = \"\"
Me.dataGrid1.HeaderForeColor = System.Drawing.SystemColors.ControlText
Me.dataGrid1.Location = New System.Drawing.Point(12, 8)
Me.dataGrid1.Name = \"dataGrid1\"
Me.dataGrid1.Size = New System.Drawing.Size(368, 128)
Me.dataGrid1.TabIndex = 0
\'
\'Label1
\'
Me.Label1.Location = New System.Drawing.Point(10, 149)
Me.Label1.Name = \"Label1\"
Me.Label1.Size = New System.Drawing.Size(370, 23)
Me.Label1.TabIndex = 1
Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
\'
\'Form1
\'
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.ClientSize = New System.Drawing.Size(388, 189)
Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.Label1, Me.dataGrid1})
Me.Name = \"Form1\"
Me.Text = \"鼠标双击事件的例子\"
CType(Me.dataGrid1, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)

本文章更多内容：<<上一页 - 1 - 2 - 3 - 4 - 5 - 6 - 7 - 8 - 9 - 10 - 11 - 12 - 13 - 14 - 15 - 16 - 17 - 18 - 19 - 下一页>>

本页地址