Partial Class Form1 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.components = New System.ComponentModel.Container() Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Form1)) Me.Label1 = New System.Windows.Forms.Label() Me.客戶_tb = New System.Windows.Forms.ComboBox() Me.IP_tb = New System.Windows.Forms.TextBox() Me.Label2 = New System.Windows.Forms.Label() Me.啟動_bt = New System.Windows.Forms.Button() Me.Timer1 = New System.Windows.Forms.Timer(Me.components) Me.SuspendLayout() ' 'Label1 ' Me.Label1.AutoSize = True Me.Label1.Location = New System.Drawing.Point(12, 9) Me.Label1.Name = "Label1" Me.Label1.Size = New System.Drawing.Size(57, 20) Me.Label1.TabIndex = 0 Me.Label1.Text = "客 戶" ' '客戶_tb ' Me.客戶_tb.FormattingEnabled = True Me.客戶_tb.Location = New System.Drawing.Point(76, 6) Me.客戶_tb.Name = "客戶_tb" Me.客戶_tb.Size = New System.Drawing.Size(222, 28) Me.客戶_tb.TabIndex = 1 ' 'IP_tb ' Me.IP_tb.Location = New System.Drawing.Point(76, 40) Me.IP_tb.Name = "IP_tb" Me.IP_tb.Size = New System.Drawing.Size(222, 29) Me.IP_tb.TabIndex = 2 ' 'Label2 ' Me.Label2.AutoSize = True Me.Label2.Location = New System.Drawing.Point(12, 45) Me.Label2.Name = "Label2" Me.Label2.Size = New System.Drawing.Size(56, 20) Me.Label2.TabIndex = 3 Me.Label2.Text = "外網IP" ' '啟動_bt ' Me.啟動_bt.Location = New System.Drawing.Point(304, 6) Me.啟動_bt.Name = "啟動_bt" Me.啟動_bt.Size = New System.Drawing.Size(75, 63) Me.啟動_bt.TabIndex = 4 Me.啟動_bt.Text = "啟動" Me.啟動_bt.UseVisualStyleBackColor = True ' 'Timer1 ' Me.Timer1.Interval = 180000 ' 'Form1 ' Me.AutoScaleDimensions = New System.Drawing.SizeF(10.0!, 20.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.ClientSize = New System.Drawing.Size(386, 74) Me.Controls.Add(Me.啟動_bt) Me.Controls.Add(Me.Label2) Me.Controls.Add(Me.IP_tb) Me.Controls.Add(Me.客戶_tb) Me.Controls.Add(Me.Label1) 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(5) Me.MaximizeBox = False Me.MinimizeBox = False Me.Name = "Form1" Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen Me.Text = "伺服器外網IP查詢" Me.ResumeLayout(False) Me.PerformLayout() End Sub Friend WithEvents Label1 As Label Friend WithEvents 客戶_tb As ComboBox Friend WithEvents IP_tb As TextBox Friend WithEvents Label2 As Label Friend WithEvents 啟動_bt As Button Friend WithEvents Timer1 As Timer End Class