?? frmbase.vb
字號:
Public Class frmBase
Inherits System.Windows.Forms.Form
Protected bmData As BindingManagerBase
Protected dtData As DataTable
'bAdd = true 為新增
'bAdd = false 為修改
Protected bAdd As Boolean
#Region " Windows 窗體設計器生成的代碼 "
Public Sub New()
MyBase.New()
'該調用是 Windows 窗體設計器所必需的。
InitializeComponent()
'在 InitializeComponent() 調用之后添加任何初始化
End Sub
'窗體重寫 dispose 以清理組件列表。
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
'Windows 窗體設計器所必需的
Private components As System.ComponentModel.IContainer
'注意: 以下過程是 Windows 窗體設計器所必需的
'可以使用 Windows 窗體設計器修改此過程。
'不要使用代碼編輯器修改它。
Friend WithEvents ToolBar1 As System.Windows.Forms.ToolBar
Friend WithEvents tbbFirst As System.Windows.Forms.ToolBarButton
Friend WithEvents tbbBack As System.Windows.Forms.ToolBarButton
Friend WithEvents tbbForward As System.Windows.Forms.ToolBarButton
Friend WithEvents tbbLast As System.Windows.Forms.ToolBarButton
Friend WithEvents tbbNew As System.Windows.Forms.ToolBarButton
Friend WithEvents tbbModify As System.Windows.Forms.ToolBarButton
Friend WithEvents tbbDel As System.Windows.Forms.ToolBarButton
Friend WithEvents tbbSave As System.Windows.Forms.ToolBarButton
Friend WithEvents tbbUndo As System.Windows.Forms.ToolBarButton
Friend WithEvents tbbExit As System.Windows.Forms.ToolBarButton
Friend WithEvents ImageList1 As System.Windows.Forms.ImageList
Friend WithEvents grbSearch As System.Windows.Forms.GroupBox
Friend WithEvents Label3 As System.Windows.Forms.Label
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents btnSearch As System.Windows.Forms.Button
Friend WithEvents dgdList As System.Windows.Forms.DataGrid
Friend WithEvents txbThree As System.Windows.Forms.TextBox
Friend WithEvents txbTwo As System.Windows.Forms.TextBox
Friend WithEvents txbOne As System.Windows.Forms.TextBox
Friend WithEvents lblCount As System.Windows.Forms.Label
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container
Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(frmBase))
Me.ToolBar1 = New System.Windows.Forms.ToolBar
Me.tbbFirst = New System.Windows.Forms.ToolBarButton
Me.tbbBack = New System.Windows.Forms.ToolBarButton
Me.tbbForward = New System.Windows.Forms.ToolBarButton
Me.tbbLast = New System.Windows.Forms.ToolBarButton
Me.tbbNew = New System.Windows.Forms.ToolBarButton
Me.tbbModify = New System.Windows.Forms.ToolBarButton
Me.tbbDel = New System.Windows.Forms.ToolBarButton
Me.tbbSave = New System.Windows.Forms.ToolBarButton
Me.tbbUndo = New System.Windows.Forms.ToolBarButton
Me.tbbExit = New System.Windows.Forms.ToolBarButton
Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components)
Me.grbSearch = New System.Windows.Forms.GroupBox
Me.Label3 = New System.Windows.Forms.Label
Me.txbThree = New System.Windows.Forms.TextBox
Me.txbTwo = New System.Windows.Forms.TextBox
Me.Label2 = New System.Windows.Forms.Label
Me.Label1 = New System.Windows.Forms.Label
Me.txbOne = New System.Windows.Forms.TextBox
Me.btnSearch = New System.Windows.Forms.Button
Me.lblCount = New System.Windows.Forms.Label
Me.dgdList = New System.Windows.Forms.DataGrid
Me.grbSearch.SuspendLayout()
CType(Me.dgdList, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'ToolBar1
'
Me.ToolBar1.Buttons.AddRange(New System.Windows.Forms.ToolBarButton() {Me.tbbFirst, Me.tbbBack, Me.tbbForward, Me.tbbLast, Me.tbbNew, Me.tbbModify, Me.tbbDel, Me.tbbSave, Me.tbbUndo, Me.tbbExit})
Me.ToolBar1.DropDownArrows = True
Me.ToolBar1.ImageList = Me.ImageList1
Me.ToolBar1.Location = New System.Drawing.Point(0, 0)
Me.ToolBar1.Name = "ToolBar1"
Me.ToolBar1.ShowToolTips = True
Me.ToolBar1.Size = New System.Drawing.Size(608, 41)
Me.ToolBar1.TabIndex = 1
'
'tbbFirst
'
Me.tbbFirst.ImageIndex = 0
Me.tbbFirst.Text = "首記錄"
Me.tbbFirst.ToolTipText = "首記錄"
'
'tbbBack
'
Me.tbbBack.ImageIndex = 1
Me.tbbBack.Text = "上記錄"
Me.tbbBack.ToolTipText = "上一條記錄"
'
'tbbForward
'
Me.tbbForward.ImageIndex = 2
Me.tbbForward.Text = "下記錄"
Me.tbbForward.ToolTipText = "下一條記錄"
'
'tbbLast
'
Me.tbbLast.ImageIndex = 3
Me.tbbLast.Text = "尾記錄"
Me.tbbLast.ToolTipText = "尾記錄"
'
'tbbNew
'
Me.tbbNew.ImageIndex = 4
Me.tbbNew.Text = "新增"
Me.tbbNew.ToolTipText = "新增"
'
'tbbModify
'
Me.tbbModify.ImageIndex = 5
Me.tbbModify.Text = "修改"
Me.tbbModify.ToolTipText = "修改"
'
'tbbDel
'
Me.tbbDel.ImageIndex = 6
Me.tbbDel.Text = "刪除"
Me.tbbDel.ToolTipText = "刪除"
'
'tbbSave
'
Me.tbbSave.Enabled = False
Me.tbbSave.ImageIndex = 7
Me.tbbSave.Text = "保存"
Me.tbbSave.ToolTipText = "保存"
'
'tbbUndo
'
Me.tbbUndo.Enabled = False
Me.tbbUndo.ImageIndex = 8
Me.tbbUndo.Text = "取消"
Me.tbbUndo.ToolTipText = "取消"
'
'tbbExit
'
Me.tbbExit.ImageIndex = 9
Me.tbbExit.Text = "退出"
Me.tbbExit.ToolTipText = "退出"
'
'ImageList1
'
Me.ImageList1.ImageSize = New System.Drawing.Size(16, 16)
Me.ImageList1.ImageStream = CType(resources.GetObject("ImageList1.ImageStream"), System.Windows.Forms.ImageListStreamer)
Me.ImageList1.TransparentColor = System.Drawing.Color.Transparent
'
'grbSearch
'
Me.grbSearch.Controls.Add(Me.Label3)
Me.grbSearch.Controls.Add(Me.txbThree)
Me.grbSearch.Controls.Add(Me.txbTwo)
Me.grbSearch.Controls.Add(Me.Label2)
Me.grbSearch.Controls.Add(Me.Label1)
Me.grbSearch.Controls.Add(Me.txbOne)
Me.grbSearch.Controls.Add(Me.btnSearch)
Me.grbSearch.Controls.Add(Me.lblCount)
Me.grbSearch.Dock = System.Windows.Forms.DockStyle.Top
Me.grbSearch.Location = New System.Drawing.Point(0, 41)
Me.grbSearch.Name = "grbSearch"
Me.grbSearch.Size = New System.Drawing.Size(608, 39)
Me.grbSearch.TabIndex = 2
Me.grbSearch.TabStop = False
'
'Label3
'
Me.Label3.Location = New System.Drawing.Point(376, 16)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(56, 15)
Me.Label3.TabIndex = 6
Me.Label3.Text = "班級名稱"
'
'txbThree
'
Me.txbThree.Location = New System.Drawing.Point(432, 11)
Me.txbThree.Name = "txbThree"
Me.txbThree.Size = New System.Drawing.Size(56, 21)
Me.txbThree.TabIndex = 5
Me.txbThree.Text = ""
'
'txbTwo
'
Me.txbTwo.Location = New System.Drawing.Point(312, 11)
Me.txbTwo.Name = "txbTwo"
Me.txbTwo.Size = New System.Drawing.Size(56, 21)
Me.txbTwo.TabIndex = 4
Me.txbTwo.Text = ""
'
'Label2
'
Me.Label2.Location = New System.Drawing.Point(256, 16)
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -