Partial Class FTP資料夾管理 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() Me.指定_tb = New System.Windows.Forms.TextBox() Me.刪除_bt = New System.Windows.Forms.Button() Me.修改_bt = New System.Windows.Forms.Button() Me.新增_bt = New System.Windows.Forms.Button() Me.備註_tb = New System.Windows.Forms.TextBox() Me.指定頁面_tb = New System.Windows.Forms.TextBox() Me.資料夾名稱_tb = New System.Windows.Forms.TextBox() Me.Label12 = New System.Windows.Forms.Label() Me.資料夾清單_dgv = New System.Windows.Forms.DataGridView() Me.WebBrowser1 = New System.Windows.Forms.WebBrowser() CType(Me.資料夾清單_dgv, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() ' '指定_tb ' Me.指定_tb.Location = New System.Drawing.Point(497, 9) Me.指定_tb.Name = "指定_tb" Me.指定_tb.Size = New System.Drawing.Size(70, 23) Me.指定_tb.TabIndex = 605 ' '刪除_bt ' Me.刪除_bt.Location = New System.Drawing.Point(744, 8) Me.刪除_bt.Name = "刪除_bt" Me.刪除_bt.Size = New System.Drawing.Size(75, 23) Me.刪除_bt.TabIndex = 604 Me.刪除_bt.Text = "刪除" Me.刪除_bt.UseVisualStyleBackColor = True ' '修改_bt ' Me.修改_bt.Location = New System.Drawing.Point(663, 8) Me.修改_bt.Name = "修改_bt" Me.修改_bt.Size = New System.Drawing.Size(75, 23) Me.修改_bt.TabIndex = 603 Me.修改_bt.Text = "修改" Me.修改_bt.UseVisualStyleBackColor = True ' '新增_bt ' Me.新增_bt.Location = New System.Drawing.Point(582, 8) Me.新增_bt.Name = "新增_bt" Me.新增_bt.Size = New System.Drawing.Size(75, 23) Me.新增_bt.TabIndex = 602 Me.新增_bt.Text = "新增" Me.新增_bt.UseVisualStyleBackColor = True ' '備註_tb ' Me.備註_tb.Location = New System.Drawing.Point(292, 9) Me.備註_tb.Name = "備註_tb" Me.備註_tb.Size = New System.Drawing.Size(200, 23) Me.備註_tb.TabIndex = 601 ' '指定頁面_tb ' Me.指定頁面_tb.Location = New System.Drawing.Point(87, 9) Me.指定頁面_tb.Name = "指定頁面_tb" Me.指定頁面_tb.Size = New System.Drawing.Size(200, 23) Me.指定頁面_tb.TabIndex = 600 ' '資料夾名稱_tb ' Me.資料夾名稱_tb.Location = New System.Drawing.Point(13, 9) Me.資料夾名稱_tb.Name = "資料夾名稱_tb" Me.資料夾名稱_tb.Size = New System.Drawing.Size(70, 23) Me.資料夾名稱_tb.TabIndex = 599 ' 'Label12 ' Me.Label12.AutoSize = True Me.Label12.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte)) Me.Label12.Location = New System.Drawing.Point(825, 11) Me.Label12.Name = "Label12" Me.Label12.Size = New System.Drawing.Size(100, 16) Me.Label12.TabIndex = 598 Me.Label12.Text = "伺服器FTP文件夾" ' '資料夾清單_dgv ' DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, 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.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.資料夾清單_dgv.Location = New System.Drawing.Point(7, 39) Me.資料夾清單_dgv.Name = "資料夾清單_dgv" Me.資料夾清單_dgv.RowHeadersWidth = 5 Me.資料夾清單_dgv.RowTemplate.Height = 24 Me.資料夾清單_dgv.Size = New System.Drawing.Size(565, 630) Me.資料夾清單_dgv.TabIndex = 606 ' 'WebBrowser1 ' Me.WebBrowser1.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.WebBrowser1.Location = New System.Drawing.Point(578, 38) Me.WebBrowser1.MinimumSize = New System.Drawing.Size(20, 20) Me.WebBrowser1.Name = "WebBrowser1" Me.WebBrowser1.Size = New System.Drawing.Size(760, 631) Me.WebBrowser1.TabIndex = 607 Me.WebBrowser1.Url = New System.Uri("", System.UriKind.Relative) ' 'FTP資料夾管理 ' Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.ClientSize = New System.Drawing.Size(1350, 681) Me.Controls.Add(Me.WebBrowser1) Me.Controls.Add(Me.資料夾清單_dgv) Me.Controls.Add(Me.指定_tb) Me.Controls.Add(Me.刪除_bt) Me.Controls.Add(Me.修改_bt) Me.Controls.Add(Me.新增_bt) Me.Controls.Add(Me.備註_tb) Me.Controls.Add(Me.指定頁面_tb) Me.Controls.Add(Me.資料夾名稱_tb) Me.Controls.Add(Me.Label12) 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 = "FTP資料夾管理" Me.Text = "FTP資料夾管理" CType(Me.資料夾清單_dgv, System.ComponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) Me.PerformLayout() End Sub Friend WithEvents 指定_tb As TextBox Friend WithEvents 刪除_bt As Button Friend WithEvents 修改_bt As Button Friend WithEvents 新增_bt As Button Friend WithEvents 備註_tb As TextBox Friend WithEvents 指定頁面_tb As TextBox Friend WithEvents 資料夾名稱_tb As TextBox Friend WithEvents Label12 As Label Friend WithEvents 資料夾清單_dgv As DataGridView Friend WithEvents WebBrowser1 As WebBrowser End Class