_ 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() Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim TreeNode1 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Pulsed Dye Laser") Dim TreeNode2 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("VPL") Dim TreeNode3 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Acne", New System.Windows.Forms.TreeNode() {TreeNode1, TreeNode2}) Dim TreeNode4 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Subcision") Dim TreeNode5 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Acne Scar", New System.Windows.Forms.TreeNode() {TreeNode4}) Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(適應症選擇)) Me.Label1 = New System.Windows.Forms.Label() Me.Label2 = New System.Windows.Forms.Label() Me.病歷號_tb = New System.Windows.Forms.TextBox() Me.醫生_tb = New System.Windows.Forms.TextBox() Me.適應症_dgv = New System.Windows.Forms.DataGridView() Me.TreeView1 = New System.Windows.Forms.TreeView() Me.Label3 = New System.Windows.Forms.Label() Me.病症_cb = New System.Windows.Forms.ComboBox() Me.療程_cb = New System.Windows.Forms.ComboBox() Me.Label4 = New System.Windows.Forms.Label() Me.刪除_bt = New System.Windows.Forms.Button() Me.存檔_bt = New System.Windows.Forms.Button() Me.確認_bt = New System.Windows.Forms.Button() CType(Me.適應症_dgv, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() ' 'Label1 ' Me.Label1.AutoSize = True Me.Label1.Location = New System.Drawing.Point(3, 6) Me.Label1.Name = "Label1" Me.Label1.Size = New System.Drawing.Size(57, 20) Me.Label1.TabIndex = 0 Me.Label1.Text = "醫 師" ' 'Label2 ' Me.Label2.AutoSize = True Me.Label2.Location = New System.Drawing.Point(218, 9) Me.Label2.Name = "Label2" Me.Label2.Size = New System.Drawing.Size(57, 20) Me.Label2.TabIndex = 2 Me.Label2.Text = "病歷號" ' '病歷號_tb ' Me.病歷號_tb.Location = New System.Drawing.Point(281, 3) Me.病歷號_tb.Name = "病歷號_tb" Me.病歷號_tb.Size = New System.Drawing.Size(146, 29) Me.病歷號_tb.TabIndex = 3 ' '醫生_tb ' Me.醫生_tb.Location = New System.Drawing.Point(66, 3) Me.醫生_tb.Name = "醫生_tb" Me.醫生_tb.ReadOnly = True Me.醫生_tb.Size = New System.Drawing.Size(146, 29) Me.醫生_tb.TabIndex = 6 ' '適應症_dgv ' DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(192, Byte), Integer)) Me.適應症_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1 Me.適應症_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) Me.適應症_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill Me.適應症_dgv.BackgroundColor = System.Drawing.Color.White Me.適應症_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.適應症_dgv.Location = New System.Drawing.Point(31, 93) Me.適應症_dgv.Name = "適應症_dgv" Me.適應症_dgv.RowHeadersWidth = 5 Me.適應症_dgv.RowTemplate.Height = 24 Me.適應症_dgv.Size = New System.Drawing.Size(164, 406) Me.適應症_dgv.TabIndex = 228 ' 'TreeView1 ' Me.TreeView1.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.TreeView1.CheckBoxes = True Me.TreeView1.Location = New System.Drawing.Point(3, 35) Me.TreeView1.Name = "TreeView1" TreeNode1.Name = "Node1" TreeNode1.Text = "Pulsed Dye Laser" TreeNode2.Name = "Node4" TreeNode2.Text = "VPL" TreeNode3.Name = "Node0" TreeNode3.Text = "Acne" TreeNode4.Name = "Node5" TreeNode4.Text = "Subcision" TreeNode5.Name = "Node3" TreeNode5.Text = "Acne Scar" Me.TreeView1.Nodes.AddRange(New System.Windows.Forms.TreeNode() {TreeNode3, TreeNode5}) Me.TreeView1.Size = New System.Drawing.Size(512, 485) Me.TreeView1.TabIndex = 229 ' 'Label3 ' Me.Label3.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) Me.Label3.AutoSize = True Me.Label3.Font = New System.Drawing.Font("微軟正黑體", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte)) Me.Label3.Location = New System.Drawing.Point(12, 529) Me.Label3.Name = "Label3" Me.Label3.Size = New System.Drawing.Size(276, 24) Me.Label3.TabIndex = 230 Me.Label3.Text = "新增適應症與療程建議的控制項" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) ' '病症_cb ' Me.病症_cb.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) Me.病症_cb.FormattingEnabled = True Me.病症_cb.Location = New System.Drawing.Point(3, 557) Me.病症_cb.Name = "病症_cb" Me.病症_cb.Size = New System.Drawing.Size(335, 28) Me.病症_cb.TabIndex = 231 ' '療程_cb ' Me.療程_cb.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _ Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.療程_cb.FormattingEnabled = True Me.療程_cb.Location = New System.Drawing.Point(342, 557) Me.療程_cb.Name = "療程_cb" Me.療程_cb.Size = New System.Drawing.Size(172, 28) Me.療程_cb.TabIndex = 232 ' 'Label4 ' Me.Label4.AutoSize = True Me.Label4.Location = New System.Drawing.Point(-4, 505) Me.Label4.Name = "Label4" Me.Label4.Size = New System.Drawing.Size(534, 20) Me.Label4.TabIndex = 234 Me.Label4.Text = "___________________________________________________________________________" ' '刪除_bt ' Me.刪除_bt.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _ Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.刪除_bt.BackgroundImage = Global.HSKIN_MIS_SYS.My.Resources.Resources.GarbageEmpty Me.刪除_bt.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom Me.刪除_bt.Location = New System.Drawing.Point(430, 524) Me.刪除_bt.Name = "刪除_bt" Me.刪除_bt.Size = New System.Drawing.Size(85, 32) Me.刪除_bt.TabIndex = 235 Me.刪除_bt.UseVisualStyleBackColor = True ' '存檔_bt ' Me.存檔_bt.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _ Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.存檔_bt.BackgroundImage = Global.HSKIN_MIS_SYS.My.Resources.Resources.SAVER Me.存檔_bt.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom Me.存檔_bt.Location = New System.Drawing.Point(343, 524) Me.存檔_bt.Name = "存檔_bt" Me.存檔_bt.Size = New System.Drawing.Size(85, 32) Me.存檔_bt.TabIndex = 233 Me.存檔_bt.UseVisualStyleBackColor = True ' '確認_bt ' Me.確認_bt.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.確認_bt.BackgroundImage = Global.HSKIN_MIS_SYS.My.Resources.Resources.check Me.確認_bt.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom Me.確認_bt.Location = New System.Drawing.Point(429, 1) Me.確認_bt.Name = "確認_bt" Me.確認_bt.Size = New System.Drawing.Size(85, 32) Me.確認_bt.TabIndex = 5 Me.確認_bt.UseVisualStyleBackColor = True ' '適應症選擇 ' Me.AutoScaleDimensions = New System.Drawing.SizeF(10.0!, 20.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.ClientSize = New System.Drawing.Size(518, 588) Me.Controls.Add(Me.刪除_bt) Me.Controls.Add(Me.存檔_bt) Me.Controls.Add(Me.療程_cb) Me.Controls.Add(Me.病症_cb) Me.Controls.Add(Me.Label3) Me.Controls.Add(Me.醫生_tb) Me.Controls.Add(Me.確認_bt) Me.Controls.Add(Me.病歷號_tb) Me.Controls.Add(Me.Label2) Me.Controls.Add(Me.Label1) Me.Controls.Add(Me.Label4) Me.Controls.Add(Me.TreeView1) Me.Controls.Add(Me.適應症_dgv) Me.Font = New System.Drawing.Font("微軟正黑體", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte)) Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) Me.Margin = New System.Windows.Forms.Padding(6, 5, 6, 5) Me.MaximizeBox = False Me.MinimizeBox = False 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 Label1 As Label Friend WithEvents Label2 As Label Friend WithEvents 病歷號_tb As TextBox Friend WithEvents 確認_bt As Button Friend WithEvents 醫生_tb As TextBox Friend WithEvents 適應症_dgv As DataGridView Friend WithEvents TreeView1 As TreeView Friend WithEvents Label3 As Label Friend WithEvents 病症_cb As ComboBox Friend WithEvents 療程_cb As ComboBox Friend WithEvents 存檔_bt As Button Friend WithEvents Label4 As Label Friend WithEvents 刪除_bt As Button End Class