_ 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.訊息_tb = New System.Windows.Forms.TextBox() Me.確認_bt = New System.Windows.Forms.Button() Me.SuspendLayout() ' '訊息_tb ' Me.訊息_tb.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.訊息_tb.Location = New System.Drawing.Point(5, 4) Me.訊息_tb.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4) Me.訊息_tb.Multiline = True Me.訊息_tb.Name = "訊息_tb" Me.訊息_tb.ScrollBars = System.Windows.Forms.ScrollBars.Vertical Me.訊息_tb.Size = New System.Drawing.Size(420, 291) Me.訊息_tb.TabIndex = 0 ' '確認_bt ' Me.確認_bt.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.確認_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte)) Me.確認_bt.Location = New System.Drawing.Point(278, 296) Me.確認_bt.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4) Me.確認_bt.Name = "確認_bt" Me.確認_bt.Size = New System.Drawing.Size(147, 31) Me.確認_bt.TabIndex = 1 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(429, 330) Me.ControlBox = False Me.Controls.Add(Me.確認_bt) Me.Controls.Add(Me.訊息_tb) 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(4, 4, 4, 4) Me.Name = "可複製訊息通知框" Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen Me.Text = "可複製訊息通知框" Me.ResumeLayout(False) Me.PerformLayout() End Sub Friend WithEvents 訊息_tb As TextBox Friend WithEvents 確認_bt As Button End Class