categories.designer.vb
来自「wrox出版社的另一套经典的VB2005数据库编程学习书籍,收集了书中源码,郑重」· VB 代码 · 共 293 行 · 第 1/2 页
VB
293 行
Me.btnReset.Enabled = False
Me.btnReset.Location = New System.Drawing.Point(235, 44)
Me.btnReset.Name = "btnReset"
Me.btnReset.Size = New System.Drawing.Size(133, 26)
Me.btnReset.TabIndex = 17
Me.btnReset.Text = "Reset to 100 x 75 Pixels"
'
'gbLayout
'
Me.gbLayout.Controls.Add(Me.rbZoom)
Me.gbLayout.Controls.Add(Me.rbStretch)
Me.gbLayout.Controls.Add(Me.rbNormal)
Me.gbLayout.Location = New System.Drawing.Point(14, 34)
Me.gbLayout.Name = "gbLayout"
Me.gbLayout.Size = New System.Drawing.Size(189, 41)
Me.gbLayout.TabIndex = 16
Me.gbLayout.TabStop = False
Me.gbLayout.Text = "ImageLayout Property"
'
'rbZoom
'
Me.rbZoom.AutoSize = True
Me.rbZoom.Location = New System.Drawing.Point(135, 20)
Me.rbZoom.Name = "rbZoom"
Me.rbZoom.Size = New System.Drawing.Size(48, 17)
Me.rbZoom.TabIndex = 2
Me.rbZoom.Text = "Zoom"
'
'rbStretch
'
Me.rbStretch.AutoSize = True
Me.rbStretch.Location = New System.Drawing.Point(73, 20)
Me.rbStretch.Name = "rbStretch"
Me.rbStretch.Size = New System.Drawing.Size(55, 17)
Me.rbStretch.TabIndex = 1
Me.rbStretch.Text = "Stretch"
'
'rbNormal
'
Me.rbNormal.AutoSize = True
Me.rbNormal.Checked = True
Me.rbNormal.Location = New System.Drawing.Point(7, 20)
Me.rbNormal.Name = "rbNormal"
Me.rbNormal.Size = New System.Drawing.Size(54, 17)
Me.rbNormal.TabIndex = 0
Me.rbNormal.Text = "Normal"
'
'CategoriesDataGridView
'
Me.CategoriesDataGridView.AllowUserToAddRows = False
Me.CategoriesDataGridView.AllowUserToDeleteRows = False
Me.CategoriesDataGridView.AutoGenerateColumns = False
Me.CategoriesDataGridView.Columns.Add(Me.DataGridViewTextBoxColumn1)
Me.CategoriesDataGridView.Columns.Add(Me.DataGridViewTextBoxColumn2)
Me.CategoriesDataGridView.Columns.Add(Me.DataGridViewTextBoxColumn3)
Me.CategoriesDataGridView.Columns.Add(Me.DataGridViewImageColumn4)
Me.CategoriesDataGridView.DataSource = Me.CategoriesBindingSource
Me.CategoriesDataGridView.Location = New System.Drawing.Point(14, 82)
Me.CategoriesDataGridView.Name = "CategoriesDataGridView"
Me.CategoriesDataGridView.RowTemplate.Height = 75
Me.CategoriesDataGridView.RowTemplate.Resizable = System.Windows.Forms.DataGridViewTriState.[True]
Me.CategoriesDataGridView.Size = New System.Drawing.Size(540, 250)
Me.CategoriesDataGridView.TabIndex = 15
'
'DataGridViewTextBoxColumn1
'
Me.DataGridViewTextBoxColumn1.DataPropertyName = "CategoryID"
Me.DataGridViewTextBoxColumn1.HeaderText = "CategoryID"
Me.DataGridViewTextBoxColumn1.Name = "CategoryID"
Me.DataGridViewTextBoxColumn1.ReadOnly = True
'
'DataGridViewTextBoxColumn2
'
Me.DataGridViewTextBoxColumn2.DataPropertyName = "CategoryName"
Me.DataGridViewTextBoxColumn2.HeaderText = "CategoryName"
Me.DataGridViewTextBoxColumn2.Name = "CategoryName"
'
'DataGridViewTextBoxColumn3
'
Me.DataGridViewTextBoxColumn3.DataPropertyName = "Description"
Me.DataGridViewTextBoxColumn3.HeaderText = "Description"
Me.DataGridViewTextBoxColumn3.Name = "Description"
'
'DataGridViewImageColumn4
'
Me.DataGridViewImageColumn4.DataPropertyName = "Picture"
DataGridViewCellStyle1.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleCenter
DataGridViewCellStyle1.NullValue = CType(resources.GetObject("DataGridViewCellStyle1.NullValue"), Object)
Me.DataGridViewImageColumn4.DefaultCellStyle = DataGridViewCellStyle1
Me.DataGridViewImageColumn4.HeaderText = "Picture"
Me.DataGridViewImageColumn4.MinimumWidth = 25
Me.DataGridViewImageColumn4.Name = "Picture"
'
'Categories
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(568, 344)
Me.Controls.Add(Me.btnTestSave)
Me.Controls.Add(Me.btnReset)
Me.Controls.Add(Me.gbLayout)
Me.Controls.Add(Me.CategoriesDataGridView)
Me.Controls.Add(Me.CategoriesBindingNavigator)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
Me.MaximizeBox = False
Me.Name = "Categories"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "Northwind Categories Table Images"
CType(Me.NorthwindDataSet, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.CategoriesBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.CategoriesBindingNavigator, System.ComponentModel.ISupportInitialize).EndInit()
Me.CategoriesBindingNavigator.ResumeLayout(False)
Me.CategoriesBindingNavigator.PerformLayout()
Me.gbLayout.ResumeLayout(False)
Me.gbLayout.PerformLayout()
CType(Me.CategoriesDataGridView, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents NorthwindDataSet As DataGridViewImagesNW.NorthwindDataSet
Friend WithEvents CategoriesBindingSource As System.Windows.Forms.BindingSource
Friend WithEvents CategoriesTableAdapter As DataGridViewImagesNW.NorthwindDataSetTableAdapters.CategoriesTableAdapter
Friend WithEvents CategoriesBindingNavigator As System.Windows.Forms.BindingNavigator
Friend WithEvents bindingNavigatorCountItem As System.Windows.Forms.ToolStripLabel
Friend WithEvents bindingNavigatorMoveFirstItem As System.Windows.Forms.ToolStripButton
Friend WithEvents bindingNavigatorMovePreviousItem As System.Windows.Forms.ToolStripButton
Friend WithEvents bindingNavigatorSeparator As System.Windows.Forms.ToolStripSeparator
Friend WithEvents bindingNavigatorPositionItem As System.Windows.Forms.ToolStripTextBox
Friend WithEvents bindingNavigatorSeparator1 As System.Windows.Forms.ToolStripSeparator
Friend WithEvents bindingNavigatorMoveNextItem As System.Windows.Forms.ToolStripButton
Friend WithEvents bindingNavigatorMoveLastItem As System.Windows.Forms.ToolStripButton
Friend WithEvents btnTestSave As System.Windows.Forms.Button
Friend WithEvents btnReset As System.Windows.Forms.Button
Friend WithEvents gbLayout As System.Windows.Forms.GroupBox
Friend WithEvents rbZoom As System.Windows.Forms.RadioButton
Friend WithEvents rbStretch As System.Windows.Forms.RadioButton
Friend WithEvents rbNormal As System.Windows.Forms.RadioButton
Friend WithEvents CategoriesDataGridView As System.Windows.Forms.DataGridView
Friend WithEvents DataGridViewTextBoxColumn1 As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents DataGridViewTextBoxColumn2 As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents DataGridViewTextBoxColumn3 As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents DataGridViewImageColumn4 As System.Windows.Forms.DataGridViewImageColumn
End Class
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?