_ Partial Class Form5 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(Form5)) Me.Timer1 = New System.Windows.Forms.Timer(Me.components) Me.TextBox1 = New System.Windows.Forms.TextBox Me.Button5 = New System.Windows.Forms.Button Me.Button1 = New System.Windows.Forms.Button Me.TextBox2 = New System.Windows.Forms.TextBox Me.TextBox3 = New System.Windows.Forms.TextBox Me.Label1 = New System.Windows.Forms.Label Me.PictureBox1 = New System.Windows.Forms.PictureBox Me.Label2 = New System.Windows.Forms.Label Me.Button2 = New System.Windows.Forms.Button Me.Label3 = New System.Windows.Forms.Label CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() ' 'Timer1 ' ' 'TextBox1 ' Me.TextBox1.BackColor = System.Drawing.SystemColors.ButtonHighlight Me.TextBox1.Font = New System.Drawing.Font("細明體", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(136, Byte)) Me.TextBox1.Location = New System.Drawing.Point(35, 29) Me.TextBox1.Multiline = True Me.TextBox1.Name = "TextBox1" Me.TextBox1.ReadOnly = True Me.TextBox1.Size = New System.Drawing.Size(468, 299) Me.TextBox1.TabIndex = 0 Me.TextBox1.Text = "聊天室已上線 -- Stand By" ' 'Button5 ' Me.Button5.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.Button5.BackColor = System.Drawing.Color.Transparent Me.Button5.FlatStyle = System.Windows.Forms.FlatStyle.Popup Me.Button5.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte)) Me.Button5.ForeColor = System.Drawing.SystemColors.ButtonHighlight Me.Button5.Location = New System.Drawing.Point(696, 2) Me.Button5.Name = "Button5" Me.Button5.Size = New System.Drawing.Size(23, 24) Me.Button5.TabIndex = 1 Me.Button5.Text = "X" Me.Button5.UseVisualStyleBackColor = False ' 'Button1 ' Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Popup Me.Button1.Location = New System.Drawing.Point(432, 388) Me.Button1.Name = "Button1" Me.Button1.Size = New System.Drawing.Size(71, 22) Me.Button1.TabIndex = 2 Me.Button1.Text = "傳送" Me.Button1.UseVisualStyleBackColor = True ' 'TextBox2 ' Me.TextBox2.Location = New System.Drawing.Point(35, 388) Me.TextBox2.Name = "TextBox2" Me.TextBox2.Size = New System.Drawing.Size(391, 22) Me.TextBox2.TabIndex = 3 ' 'TextBox3 ' Me.TextBox3.Location = New System.Drawing.Point(548, 177) Me.TextBox3.Multiline = True Me.TextBox3.Name = "TextBox3" Me.TextBox3.Size = New System.Drawing.Size(151, 45) Me.TextBox3.TabIndex = 4 Me.TextBox3.Text = "localhost" ' 'Label1 ' Me.Label1.AutoSize = True Me.Label1.BackColor = System.Drawing.Color.Transparent Me.Label1.Location = New System.Drawing.Point(546, 162) Me.Label1.Name = "Label1" Me.Label1.Size = New System.Drawing.Size(75, 12) Me.Label1.TabIndex = 5 Me.Label1.Text = "對方區網IP:" ' 'PictureBox1 ' Me.PictureBox1.BackgroundImage = CType(resources.GetObject("PictureBox1.BackgroundImage"), System.Drawing.Image) Me.PictureBox1.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D Me.PictureBox1.Location = New System.Drawing.Point(548, 29) Me.PictureBox1.Name = "PictureBox1" Me.PictureBox1.Size = New System.Drawing.Size(151, 96) Me.PictureBox1.TabIndex = 6 Me.PictureBox1.TabStop = False ' 'Label2 ' Me.Label2.AutoSize = True Me.Label2.BackColor = System.Drawing.Color.Transparent Me.Label2.Location = New System.Drawing.Point(546, 225) Me.Label2.Name = "Label2" Me.Label2.Size = New System.Drawing.Size(147, 96) Me.Label2.TabIndex = 7 Me.Label2.Text = "注意:區網IP 不是外網IP" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Hamachi: 25.xx.xx.xxx" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "nMatrix: 6.x.x.xxx" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "no-ip: xxxxxx.no-ip.xx" & _ "x" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "測試:localhost" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "如你有加入伺服器,請用" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "伺服器連線程式上顯示的IP" ' 'Button2 ' Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Popup Me.Button2.Location = New System.Drawing.Point(548, 388) Me.Button2.Name = "Button2" Me.Button2.Size = New System.Drawing.Size(151, 22) Me.Button2.TabIndex = 8 Me.Button2.Text = "儲存對話" Me.Button2.UseVisualStyleBackColor = True ' 'Label3 ' Me.Label3.AutoSize = True Me.Label3.BackColor = System.Drawing.Color.Transparent Me.Label3.FlatStyle = System.Windows.Forms.FlatStyle.Popup Me.Label3.Location = New System.Drawing.Point(557, 361) Me.Label3.Name = "Label3" Me.Label3.Size = New System.Drawing.Size(125, 24) Me.Label3.TabIndex = 9 Me.Label3.Text = "本區網聊天室是測試版" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "如有錯誤請回報。" ' 'Form5 ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 12.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.BackgroundImage = CType(resources.GetObject("$this.BackgroundImage"), System.Drawing.Image) Me.ClientSize = New System.Drawing.Size(721, 461) Me.Controls.Add(Me.Label3) Me.Controls.Add(Me.Button2) Me.Controls.Add(Me.Label2) Me.Controls.Add(Me.PictureBox1) Me.Controls.Add(Me.Label1) Me.Controls.Add(Me.TextBox3) Me.Controls.Add(Me.TextBox2) Me.Controls.Add(Me.Button1) Me.Controls.Add(Me.Button5) Me.Controls.Add(Me.TextBox1) Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) Me.Name = "Form5" Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen Me.Text = "區網信息傳送器" CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) Me.PerformLayout() End Sub Friend WithEvents Timer1 As System.Windows.Forms.Timer Friend WithEvents TextBox1 As System.Windows.Forms.TextBox Friend WithEvents Button5 As System.Windows.Forms.Button Friend WithEvents Button1 As System.Windows.Forms.Button Friend WithEvents TextBox2 As System.Windows.Forms.TextBox Friend WithEvents TextBox3 As System.Windows.Forms.TextBox Friend WithEvents Label1 As System.Windows.Forms.Label Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox Friend WithEvents Label2 As System.Windows.Forms.Label Friend WithEvents Button2 As System.Windows.Forms.Button Friend WithEvents Label3 As System.Windows.Forms.Label End Class