_ Partial Class 醫師下診紀錄 Inherits System.Windows.Forms.Form 'Form 覆寫 Dispose 以清除元件清單。 Protected Overrides Sub Dispose(ByVal disposing As Boolean) Try If disposing AndAlso components IsNot Nothing Then components.Dispose() End If Finally MyBase.Dispose(disposing) End Try End Sub '為 Windows Form 設計工具的必要項 Private components As System.ComponentModel.IContainer '注意: 以下為 Windows Form 設計工具所需的程序 '可以使用 Windows Form 設計工具進行修改。 '請勿使用程式碼編輯器進行修改。 Private Sub InitializeComponent() Me.月清單_DGV = New System.Windows.Forms.DataGridView() Me.月份_cb = New System.Windows.Forms.ComboBox() Me.年份_cb = New System.Windows.Forms.ComboBox() Me.Label16 = New System.Windows.Forms.Label() Me.Label17 = New System.Windows.Forms.Label() Me.時間_dtp = New System.Windows.Forms.DateTimePicker() Me.Label1 = New System.Windows.Forms.Label() Me.修改該筆資料_bt = New System.Windows.Forms.Button() Me.刪除該筆資料_bt = New System.Windows.Forms.Button() CType(Me.月清單_DGV, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() ' '月清單_DGV ' Me.月清單_DGV.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ Or System.Windows.Forms.AnchorStyles.Left) _ Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.月清單_DGV.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill Me.月清單_DGV.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.月清單_DGV.Location = New System.Drawing.Point(12, 58) Me.月清單_DGV.Name = "月清單_DGV" Me.月清單_DGV.RowHeadersWidth = 5 Me.月清單_DGV.RowTemplate.Height = 24 Me.月清單_DGV.Size = New System.Drawing.Size(364, 537) Me.月清單_DGV.TabIndex = 768 ' '月份_cb ' Me.月份_cb.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList Me.月份_cb.FormattingEnabled = True Me.月份_cb.Items.AddRange(New Object() {"01", "02", "03", "04", "05", "06", "07", "08", "09", "10", "11", "12"}) Me.月份_cb.Location = New System.Drawing.Point(169, 4) Me.月份_cb.Name = "月份_cb" Me.月份_cb.Size = New System.Drawing.Size(71, 24) Me.月份_cb.TabIndex = 772 ' '年份_cb ' Me.年份_cb.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList Me.年份_cb.FormattingEnabled = True Me.年份_cb.Items.AddRange(New Object() {"2019", "2020", "2021", "2022", "2023", "2024", "2025", "2026", "2027", "2028", "2029", "2030"}) Me.年份_cb.Location = New System.Drawing.Point(54, 4) Me.年份_cb.Name = "年份_cb" Me.年份_cb.Size = New System.Drawing.Size(71, 24) Me.年份_cb.TabIndex = 771 ' 'Label16 ' Me.Label16.AutoSize = True Me.Label16.Location = New System.Drawing.Point(131, 7) Me.Label16.Name = "Label16" Me.Label16.Size = New System.Drawing.Size(32, 16) Me.Label16.TabIndex = 770 Me.Label16.Text = "月份" ' 'Label17 ' Me.Label17.AutoSize = True Me.Label17.Location = New System.Drawing.Point(16, 7) Me.Label17.Name = "Label17" Me.Label17.Size = New System.Drawing.Size(32, 16) Me.Label17.TabIndex = 769 Me.Label17.Text = "年份" ' '時間_dtp ' Me.時間_dtp.CustomFormat = "yyyy/MM/dd HH:mm:ss" Me.時間_dtp.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte)) Me.時間_dtp.Format = System.Windows.Forms.DateTimePickerFormat.Custom Me.時間_dtp.Location = New System.Drawing.Point(66, 32) Me.時間_dtp.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4) Me.時間_dtp.Name = "時間_dtp" Me.時間_dtp.Size = New System.Drawing.Size(174, 23) Me.時間_dtp.TabIndex = 788 ' 'Label1 ' Me.Label1.AutoSize = True Me.Label1.Location = New System.Drawing.Point(4, 36) Me.Label1.Name = "Label1" Me.Label1.Size = New System.Drawing.Size(56, 16) Me.Label1.TabIndex = 789 Me.Label1.Text = "下診時間" ' '修改該筆資料_bt ' Me.修改該筆資料_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte)) Me.修改該筆資料_bt.ForeColor = System.Drawing.Color.Green Me.修改該筆資料_bt.Location = New System.Drawing.Point(246, 4) Me.修改該筆資料_bt.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4) Me.修改該筆資料_bt.Name = "修改該筆資料_bt" Me.修改該筆資料_bt.Size = New System.Drawing.Size(66, 51) Me.修改該筆資料_bt.TabIndex = 791 Me.修改該筆資料_bt.Text = "修改該筆資料" Me.修改該筆資料_bt.UseVisualStyleBackColor = True ' '刪除該筆資料_bt ' Me.刪除該筆資料_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte)) Me.刪除該筆資料_bt.ForeColor = System.Drawing.Color.Red Me.刪除該筆資料_bt.Location = New System.Drawing.Point(318, 4) Me.刪除該筆資料_bt.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4) Me.刪除該筆資料_bt.Name = "刪除該筆資料_bt" Me.刪除該筆資料_bt.Size = New System.Drawing.Size(58, 51) Me.刪除該筆資料_bt.TabIndex = 790 Me.刪除該筆資料_bt.Text = "刪除該筆資料" Me.刪除該筆資料_bt.UseVisualStyleBackColor = True ' '醫師下診紀錄 ' Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.ClientSize = New System.Drawing.Size(388, 600) Me.Controls.Add(Me.修改該筆資料_bt) Me.Controls.Add(Me.刪除該筆資料_bt) Me.Controls.Add(Me.Label1) Me.Controls.Add(Me.時間_dtp) Me.Controls.Add(Me.月份_cb) Me.Controls.Add(Me.年份_cb) Me.Controls.Add(Me.Label16) Me.Controls.Add(Me.Label17) Me.Controls.Add(Me.月清單_DGV) Me.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte)) Me.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4) Me.Name = "醫師下診紀錄" Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen Me.Text = "醫師下診紀錄" CType(Me.月清單_DGV, System.ComponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) Me.PerformLayout() End Sub Friend WithEvents 月清單_DGV As DataGridView Friend WithEvents 月份_cb As ComboBox Friend WithEvents 年份_cb As ComboBox Friend WithEvents Label16 As Label Friend WithEvents Label17 As Label Friend WithEvents 時間_dtp As DateTimePicker Friend WithEvents Label1 As Label Friend WithEvents 修改該筆資料_bt As Button Friend WithEvents 刪除該筆資料_bt As Button End Class