📄 form1.designer.vb
字号:
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class Form1
Inherits System.Windows.Forms.Form
'Form 重写 Dispose,以清理组件列表。
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
MyBase.Dispose(disposing)
End Sub
'Windows 窗体设计器所必需的
Private components As System.ComponentModel.IContainer
'注意: 以下过程是 Windows 窗体设计器所必需的
'可以使用 Windows 窗体设计器修改它。
'不要使用代码编辑器修改它。
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.Label1 = New System.Windows.Forms.Label
Me.textSearch = New System.Windows.Forms.TextBox
Me.editSearch = New System.Windows.Forms.Button
Me.textResult = New System.Windows.Forms.TextBox
Me.Label2 = New System.Windows.Forms.Label
Me.SuspendLayout()
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(12, 15)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(77, 12)
Me.Label1.TabIndex = 0
Me.Label1.Text = "按项目号查询"
'
'textSearch
'
Me.textSearch.Location = New System.Drawing.Point(113, 12)
Me.textSearch.Name = "textSearch"
Me.textSearch.Size = New System.Drawing.Size(100, 21)
Me.textSearch.TabIndex = 1
'
'editSearch
'
Me.editSearch.Location = New System.Drawing.Point(259, 15)
Me.editSearch.Name = "editSearch"
Me.editSearch.Size = New System.Drawing.Size(75, 23)
Me.editSearch.TabIndex = 2
Me.editSearch.Text = "开始查询"
Me.editSearch.UseVisualStyleBackColor = True
'
'textResult
'
Me.textResult.Location = New System.Drawing.Point(26, 106)
Me.textResult.Multiline = True
Me.textResult.Name = "textResult"
Me.textResult.Size = New System.Drawing.Size(295, 93)
Me.textResult.TabIndex = 3
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.Location = New System.Drawing.Point(24, 81)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(65, 12)
Me.Label2.TabIndex = 4
Me.Label2.Text = "查询结果:"
'
'Form1
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 12.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(342, 208)
Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.textResult)
Me.Controls.Add(Me.editSearch)
Me.Controls.Add(Me.textSearch)
Me.Controls.Add(Me.Label1)
Me.Name = "Form1"
Me.Text = "以OLEDB查询数据表TestTable"
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents textSearch As System.Windows.Forms.TextBox
Friend WithEvents editSearch As System.Windows.Forms.Button
Friend WithEvents textResult As System.Windows.Forms.TextBox
Friend WithEvents Label2 As System.Windows.Forms.Label
End Class
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -