_ 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() Me.文字提醒_lb = New System.Windows.Forms.Label() Me.檔案名稱1_tb = New System.Windows.Forms.TextBox() Me.伺服器FTP文件夾_lb = New System.Windows.Forms.Label() Me.我的電腦_lb = New System.Windows.Forms.Label() Me.WebBrowser2 = New System.Windows.Forms.WebBrowser() Me.讀取料夾路徑_bt = New System.Windows.Forms.Button() Me.特殊模式_ch = New System.Windows.Forms.CheckBox() Me.文字提醒1_lb = New System.Windows.Forms.Label() Me.確認儲存_bt = New System.Windows.Forms.Button() Me.檔案名稱_lb = New System.Windows.Forms.Label() Me.檔案名稱_tb = New System.Windows.Forms.TextBox() Me.查詢_bt = New System.Windows.Forms.Button() Me.楦頭圖片編號_tb = New System.Windows.Forms.TextBox() Me.楦頭編號_tb = New System.Windows.Forms.TextBox() Me.楦頭圖片編號_lb = New System.Windows.Forms.Label() Me.楦頭編號_lb = New System.Windows.Forms.Label() Me.表單_dgv = New System.Windows.Forms.DataGridView() Me.WebBrowser1 = New System.Windows.Forms.WebBrowser() Me.Label5 = New System.Windows.Forms.Label() Me.FolderBrowserDialog1 = New System.Windows.Forms.FolderBrowserDialog() CType(Me.表單_dgv, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() ' '文字提醒_lb ' Me.文字提醒_lb.AutoSize = True Me.文字提醒_lb.ForeColor = System.Drawing.Color.Red Me.文字提醒_lb.Location = New System.Drawing.Point(229, 41) Me.文字提醒_lb.Name = "文字提醒_lb" Me.文字提醒_lb.Size = New System.Drawing.Size(424, 16) Me.文字提醒_lb.TabIndex = 589 Me.文字提醒_lb.Text = "如檔案無法拖曳至伺服器FTP文件夾,請修改檔案名稱不要帶有中文字或是符號" ' '檔案名稱1_tb ' Me.檔案名稱1_tb.AllowDrop = True Me.檔案名稱1_tb.ForeColor = System.Drawing.Color.Black Me.檔案名稱1_tb.Location = New System.Drawing.Point(1259, 38) Me.檔案名稱1_tb.Multiline = True Me.檔案名稱1_tb.Name = "檔案名稱1_tb" Me.檔案名稱1_tb.Size = New System.Drawing.Size(142, 23) Me.檔案名稱1_tb.TabIndex = 588 ' '伺服器FTP文件夾_lb ' Me.伺服器FTP文件夾_lb.AutoSize = True Me.伺服器FTP文件夾_lb.Font = New System.Drawing.Font("微軟正黑體", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte)) Me.伺服器FTP文件夾_lb.Location = New System.Drawing.Point(12, 548) Me.伺服器FTP文件夾_lb.Name = "伺服器FTP文件夾_lb" Me.伺服器FTP文件夾_lb.Size = New System.Drawing.Size(156, 24) Me.伺服器FTP文件夾_lb.TabIndex = 586 Me.伺服器FTP文件夾_lb.Text = "伺服器FTP文件夾" ' '我的電腦_lb ' Me.我的電腦_lb.AutoSize = True Me.我的電腦_lb.Font = New System.Drawing.Font("微軟正黑體", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte)) Me.我的電腦_lb.Location = New System.Drawing.Point(12, 37) Me.我的電腦_lb.Name = "我的電腦_lb" Me.我的電腦_lb.Size = New System.Drawing.Size(86, 24) Me.我的電腦_lb.TabIndex = 585 Me.我的電腦_lb.Text = "我的電腦" ' 'WebBrowser2 ' Me.WebBrowser2.Location = New System.Drawing.Point(12, 67) Me.WebBrowser2.MinimumSize = New System.Drawing.Size(20, 20) Me.WebBrowser2.Name = "WebBrowser2" Me.WebBrowser2.Size = New System.Drawing.Size(1627, 449) Me.WebBrowser2.TabIndex = 571 Me.WebBrowser2.Url = New System.Uri("", System.UriKind.Relative) ' '讀取料夾路徑_bt ' Me.讀取料夾路徑_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte)) Me.讀取料夾路徑_bt.ForeColor = System.Drawing.Color.Blue Me.讀取料夾路徑_bt.Location = New System.Drawing.Point(104, 37) Me.讀取料夾路徑_bt.Name = "讀取料夾路徑_bt" Me.讀取料夾路徑_bt.Size = New System.Drawing.Size(119, 24) Me.讀取料夾路徑_bt.TabIndex = 584 Me.讀取料夾路徑_bt.Text = "讀取料夾路徑" Me.讀取料夾路徑_bt.UseVisualStyleBackColor = True ' '特殊模式_ch ' Me.特殊模式_ch.AutoSize = True Me.特殊模式_ch.Location = New System.Drawing.Point(1259, 12) Me.特殊模式_ch.Name = "特殊模式_ch" Me.特殊模式_ch.Size = New System.Drawing.Size(75, 20) Me.特殊模式_ch.TabIndex = 583 Me.特殊模式_ch.Text = "特殊模式" Me.特殊模式_ch.UseVisualStyleBackColor = True ' '文字提醒1_lb ' Me.文字提醒1_lb.AutoSize = True Me.文字提醒1_lb.Font = New System.Drawing.Font("微軟正黑體", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(136, Byte)) Me.文字提醒1_lb.ForeColor = System.Drawing.Color.Red Me.文字提醒1_lb.Location = New System.Drawing.Point(886, 9) Me.文字提醒1_lb.Name = "文字提醒1_lb" Me.文字提醒1_lb.Size = New System.Drawing.Size(367, 51) Me.文字提醒1_lb.TabIndex = 582 Me.文字提醒1_lb.Text = "1、將我的電腦內的資料拖曳到伺服器FTP文件夾。" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "2、在我的電腦檔案顯示處將要上傳的檔案拖曳到檔案名稱處。" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "3、確認楦頭編號資料、檔案名稱資料無誤後方可按確認" & "存檔。" ' '確認儲存_bt ' Me.確認儲存_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte)) Me.確認儲存_bt.ForeColor = System.Drawing.Color.Blue Me.確認儲存_bt.Location = New System.Drawing.Point(773, 9) Me.確認儲存_bt.Name = "確認儲存_bt" Me.確認儲存_bt.Size = New System.Drawing.Size(107, 52) Me.確認儲存_bt.TabIndex = 581 Me.確認儲存_bt.Text = "確認儲存" Me.確認儲存_bt.UseVisualStyleBackColor = True ' '檔案名稱_lb ' Me.檔案名稱_lb.AutoSize = True Me.檔案名稱_lb.Location = New System.Drawing.Point(12, 525) Me.檔案名稱_lb.Name = "檔案名稱_lb" Me.檔案名稱_lb.Size = New System.Drawing.Size(56, 16) Me.檔案名稱_lb.TabIndex = 580 Me.檔案名稱_lb.Text = "檔案名稱" ' '檔案名稱_tb ' Me.檔案名稱_tb.AllowDrop = True Me.檔案名稱_tb.ForeColor = System.Drawing.Color.Black Me.檔案名稱_tb.Location = New System.Drawing.Point(74, 522) Me.檔案名稱_tb.Multiline = True Me.檔案名稱_tb.Name = "檔案名稱_tb" Me.檔案名稱_tb.Size = New System.Drawing.Size(1509, 23) Me.檔案名稱_tb.TabIndex = 579 ' '查詢_bt ' Me.查詢_bt.Font = New System.Drawing.Font("微軟正黑體", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte)) Me.查詢_bt.ForeColor = System.Drawing.Color.Black Me.查詢_bt.Location = New System.Drawing.Point(1479, 9) Me.查詢_bt.Name = "查詢_bt" Me.查詢_bt.Size = New System.Drawing.Size(159, 52) Me.查詢_bt.TabIndex = 578 Me.查詢_bt.Text = "查詢" Me.查詢_bt.UseVisualStyleBackColor = True ' '楦頭圖片編號_tb ' Me.楦頭圖片編號_tb.ForeColor = System.Drawing.Color.Black Me.楦頭圖片編號_tb.Location = New System.Drawing.Point(485, 9) Me.楦頭圖片編號_tb.Name = "楦頭圖片編號_tb" Me.楦頭圖片編號_tb.Size = New System.Drawing.Size(282, 23) Me.楦頭圖片編號_tb.TabIndex = 577 ' '楦頭編號_tb ' Me.楦頭編號_tb.ForeColor = System.Drawing.Color.Black Me.楦頭編號_tb.Location = New System.Drawing.Point(98, 9) Me.楦頭編號_tb.Name = "楦頭編號_tb" Me.楦頭編號_tb.Size = New System.Drawing.Size(282, 23) Me.楦頭編號_tb.TabIndex = 576 ' '楦頭圖片編號_lb ' Me.楦頭圖片編號_lb.AutoSize = True Me.楦頭圖片編號_lb.Location = New System.Drawing.Point(399, 12) Me.楦頭圖片編號_lb.Name = "楦頭圖片編號_lb" Me.楦頭圖片編號_lb.Size = New System.Drawing.Size(80, 16) Me.楦頭圖片編號_lb.TabIndex = 575 Me.楦頭圖片編號_lb.Text = "楦頭圖片編號" ' '楦頭編號_lb ' Me.楦頭編號_lb.AutoSize = True Me.楦頭編號_lb.Location = New System.Drawing.Point(12, 12) Me.楦頭編號_lb.Name = "楦頭編號_lb" Me.楦頭編號_lb.Size = New System.Drawing.Size(56, 16) Me.楦頭編號_lb.TabIndex = 574 Me.楦頭編號_lb.Text = "楦頭編號" ' '表單_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) _ Or System.Windows.Forms.AnchorStyles.Right), 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(1643, 9) Me.表單_dgv.Name = "表單_dgv" Me.表單_dgv.RowHeadersWidth = 5 Me.表單_dgv.RowTemplate.Height = 24 Me.表單_dgv.Size = New System.Drawing.Size(268, 955) Me.表單_dgv.TabIndex = 573 ' 'WebBrowser1 ' Me.WebBrowser1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) Me.WebBrowser1.Location = New System.Drawing.Point(12, 573) Me.WebBrowser1.MinimumSize = New System.Drawing.Size(20, 20) Me.WebBrowser1.Name = "WebBrowser1" Me.WebBrowser1.Size = New System.Drawing.Size(1627, 391) Me.WebBrowser1.TabIndex = 572 Me.WebBrowser1.Url = New System.Uri("", System.UriKind.Relative) ' 'Label5 ' Me.Label5.AutoSize = True Me.Label5.Font = New System.Drawing.Font("微軟正黑體", 36.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(136, Byte)) Me.Label5.ForeColor = System.Drawing.Color.Red Me.Label5.Location = New System.Drawing.Point(1577, 513) Me.Label5.Name = "Label5" Me.Label5.Size = New System.Drawing.Size(75, 61) Me.Label5.TabIndex = 587 Me.Label5.Text = "↓" ' '楦頭圖片導入資料庫 ' Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.ClientSize = New System.Drawing.Size(1914, 971) Me.Controls.Add(Me.文字提醒_lb) Me.Controls.Add(Me.檔案名稱1_tb) Me.Controls.Add(Me.伺服器FTP文件夾_lb) Me.Controls.Add(Me.我的電腦_lb) Me.Controls.Add(Me.讀取料夾路徑_bt) Me.Controls.Add(Me.特殊模式_ch) Me.Controls.Add(Me.文字提醒1_lb) Me.Controls.Add(Me.確認儲存_bt) Me.Controls.Add(Me.檔案名稱_lb) Me.Controls.Add(Me.檔案名稱_tb) Me.Controls.Add(Me.查詢_bt) Me.Controls.Add(Me.楦頭圖片編號_tb) Me.Controls.Add(Me.楦頭編號_tb) Me.Controls.Add(Me.楦頭圖片編號_lb) Me.Controls.Add(Me.楦頭編號_lb) Me.Controls.Add(Me.表單_dgv) Me.Controls.Add(Me.WebBrowser1) Me.Controls.Add(Me.WebBrowser2) Me.Controls.Add(Me.Label5) 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 = "楦頭圖片導入資料庫" Me.Text = "楦頭圖片導入資料庫" CType(Me.表單_dgv, System.ComponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) Me.PerformLayout() End Sub Friend WithEvents 文字提醒_lb As Label Friend WithEvents 檔案名稱1_tb As TextBox Friend WithEvents 伺服器FTP文件夾_lb As Label Friend WithEvents 我的電腦_lb As Label Friend WithEvents WebBrowser2 As WebBrowser Friend WithEvents 讀取料夾路徑_bt As Button Friend WithEvents 特殊模式_ch As CheckBox Friend WithEvents 文字提醒1_lb As Label Friend WithEvents 確認儲存_bt As Button Friend WithEvents 檔案名稱_lb As Label Friend WithEvents 檔案名稱_tb As TextBox Friend WithEvents 查詢_bt As Button Friend WithEvents 楦頭圖片編號_tb As TextBox Friend WithEvents 楦頭編號_tb As TextBox Friend WithEvents 楦頭圖片編號_lb As Label Friend WithEvents 楦頭編號_lb As Label Friend WithEvents 表單_dgv As DataGridView Friend WithEvents WebBrowser1 As WebBrowser Friend WithEvents Label5 As Label Friend WithEvents FolderBrowserDialog1 As FolderBrowserDialog End Class