_ 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.圖片修改存檔_bt = New System.Windows.Forms.Button() Me.WebBrowser2 = New System.Windows.Forms.WebBrowser() Me.檔案名稱1_tb = New System.Windows.Forms.TextBox() Me.我的電腦_lb = New System.Windows.Forms.Label() Me.讀取料夾路徑_bt = New System.Windows.Forms.Button() Me.檔案名稱_lb = New System.Windows.Forms.Label() Me.楦頭圖片編號_lb = New System.Windows.Forms.Label() Me.楦頭編號_lb = New System.Windows.Forms.Label() Me.檔案名稱_tb = New System.Windows.Forms.TextBox() Me.楦頭圖片編號_tb = New System.Windows.Forms.TextBox() Me.下載圖片_bt = New System.Windows.Forms.Button() Me.查詢_bt = New System.Windows.Forms.Button() Me.楦頭編號_tb = New System.Windows.Forms.TextBox() Me.PictureBox1 = New System.Windows.Forms.PictureBox() Me.主表單_dgv = New System.Windows.Forms.DataGridView() Me.文字提示_lb = New System.Windows.Forms.Label() Me.SaveFileDialog1 = New System.Windows.Forms.SaveFileDialog() Me.FolderBrowserDialog1 = New System.Windows.Forms.FolderBrowserDialog() CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.主表單_dgv, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() ' '圖片修改存檔_bt ' Me.圖片修改存檔_bt.ForeColor = System.Drawing.Color.Green Me.圖片修改存檔_bt.Location = New System.Drawing.Point(1766, 13) Me.圖片修改存檔_bt.Name = "圖片修改存檔_bt" Me.圖片修改存檔_bt.Size = New System.Drawing.Size(127, 54) Me.圖片修改存檔_bt.TabIndex = 591 Me.圖片修改存檔_bt.Text = "圖片修改存檔" Me.圖片修改存檔_bt.UseVisualStyleBackColor = True ' 'WebBrowser2 ' Me.WebBrowser2.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.WebBrowser2.Location = New System.Drawing.Point(1361, 75) Me.WebBrowser2.MinimumSize = New System.Drawing.Size(20, 20) Me.WebBrowser2.Name = "WebBrowser2" Me.WebBrowser2.Size = New System.Drawing.Size(548, 863) Me.WebBrowser2.TabIndex = 587 Me.WebBrowser2.Url = New System.Uri("", System.UriKind.Relative) ' '檔案名稱1_tb ' Me.檔案名稱1_tb.AllowDrop = True Me.檔案名稱1_tb.ForeColor = System.Drawing.Color.Black Me.檔案名稱1_tb.Location = New System.Drawing.Point(1576, 45) Me.檔案名稱1_tb.Multiline = True Me.檔案名稱1_tb.Name = "檔案名稱1_tb" Me.檔案名稱1_tb.Size = New System.Drawing.Size(184, 23) Me.檔案名稱1_tb.TabIndex = 585 ' '我的電腦_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(1359, 45) Me.我的電腦_lb.Name = "我的電腦_lb" Me.我的電腦_lb.Size = New System.Drawing.Size(86, 24) Me.我的電腦_lb.TabIndex = 584 Me.我的電腦_lb.Text = "我的電腦" ' '讀取料夾路徑_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(1451, 45) Me.讀取料夾路徑_bt.Name = "讀取料夾路徑_bt" Me.讀取料夾路徑_bt.Size = New System.Drawing.Size(119, 24) Me.讀取料夾路徑_bt.TabIndex = 583 Me.讀取料夾路徑_bt.Text = "讀取料夾路徑" Me.讀取料夾路徑_bt.UseVisualStyleBackColor = True ' '檔案名稱_lb ' Me.檔案名稱_lb.AutoSize = True Me.檔案名稱_lb.Location = New System.Drawing.Point(1364, 948) Me.檔案名稱_lb.Name = "檔案名稱_lb" Me.檔案名稱_lb.Size = New System.Drawing.Size(55, 16) Me.檔案名稱_lb.TabIndex = 582 Me.檔案名稱_lb.Text = "檔案名稱" ' '楦頭圖片編號_lb ' Me.楦頭圖片編號_lb.AutoSize = True Me.楦頭圖片編號_lb.Location = New System.Drawing.Point(500, 48) Me.楦頭圖片編號_lb.Name = "楦頭圖片編號_lb" Me.楦頭圖片編號_lb.Size = New System.Drawing.Size(79, 16) Me.楦頭圖片編號_lb.TabIndex = 581 Me.楦頭圖片編號_lb.Text = "楦頭圖片編號" ' '楦頭編號_lb ' Me.楦頭編號_lb.AutoSize = True Me.楦頭編號_lb.Location = New System.Drawing.Point(524, 17) Me.楦頭編號_lb.Name = "楦頭編號_lb" Me.楦頭編號_lb.Size = New System.Drawing.Size(55, 16) Me.楦頭編號_lb.TabIndex = 580 Me.楦頭編號_lb.Text = "楦頭編號" ' '檔案名稱_tb ' Me.檔案名稱_tb.AllowDrop = True Me.檔案名稱_tb.Location = New System.Drawing.Point(1426, 945) Me.檔案名稱_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4) Me.檔案名稱_tb.Multiline = True Me.檔案名稱_tb.Name = "檔案名稱_tb" Me.檔案名稱_tb.Size = New System.Drawing.Size(483, 23) Me.檔案名稱_tb.TabIndex = 579 ' '楦頭圖片編號_tb ' Me.楦頭圖片編號_tb.Location = New System.Drawing.Point(586, 45) Me.楦頭圖片編號_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4) Me.楦頭圖片編號_tb.Name = "楦頭圖片編號_tb" Me.楦頭圖片編號_tb.Size = New System.Drawing.Size(155, 23) Me.楦頭圖片編號_tb.TabIndex = 578 ' '下載圖片_bt ' Me.下載圖片_bt.ForeColor = System.Drawing.Color.Blue Me.下載圖片_bt.Location = New System.Drawing.Point(377, 13) Me.下載圖片_bt.Name = "下載圖片_bt" Me.下載圖片_bt.Size = New System.Drawing.Size(117, 55) Me.下載圖片_bt.TabIndex = 577 Me.下載圖片_bt.Text = "下載圖片" Me.下載圖片_bt.UseVisualStyleBackColor = True ' '查詢_bt ' Me.查詢_bt.ForeColor = System.Drawing.Color.Black Me.查詢_bt.Location = New System.Drawing.Point(254, 12) Me.查詢_bt.Name = "查詢_bt" Me.查詢_bt.Size = New System.Drawing.Size(117, 55) Me.查詢_bt.TabIndex = 576 Me.查詢_bt.Text = "查詢" Me.查詢_bt.UseVisualStyleBackColor = True ' '楦頭編號_tb ' Me.楦頭編號_tb.Location = New System.Drawing.Point(586, 14) Me.楦頭編號_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4) Me.楦頭編號_tb.Name = "楦頭編號_tb" Me.楦頭編號_tb.Size = New System.Drawing.Size(155, 23) Me.楦頭編號_tb.TabIndex = 575 ' 'PictureBox1 ' Me.PictureBox1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) Me.PictureBox1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch Me.PictureBox1.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D Me.PictureBox1.Location = New System.Drawing.Point(254, 74) Me.PictureBox1.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4) Me.PictureBox1.Name = "PictureBox1" Me.PictureBox1.Size = New System.Drawing.Size(1103, 894) Me.PictureBox1.TabIndex = 574 Me.PictureBox1.TabStop = False ' '主表單_dgv ' 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.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.主表單_dgv.Location = New System.Drawing.Point(3, 3) Me.主表單_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4) Me.主表單_dgv.Name = "主表單_dgv" Me.主表單_dgv.RowHeadersWidth = 5 Me.主表單_dgv.RowTemplate.Height = 24 Me.主表單_dgv.Size = New System.Drawing.Size(245, 965) Me.主表單_dgv.TabIndex = 573 ' '文字提示_lb ' Me.文字提示_lb.AutoSize = True Me.文字提示_lb.Font = New System.Drawing.Font("微軟正黑體", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(136, Byte)) Me.文字提示_lb.ForeColor = System.Drawing.Color.Red Me.文字提示_lb.Location = New System.Drawing.Point(834, 4) Me.文字提示_lb.Name = "文字提示_lb" Me.文字提示_lb.Size = New System.Drawing.Size(533, 68) Me.文字提示_lb.TabIndex = 590 Me.文字提示_lb.Text = "1、修改圖片時先將伺服器上的圖片下載到我的電腦。" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "2、修改好圖片後再將圖片檔案重送到伺服器FTP文夾,並在將檔案拖曳到檔案名稱方格中。" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "3、確認所選擇的楦頭編" & "號與修改好的圖片檔案名稱無誤後點擊存檔。" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "4、如檔案無法拖曳至伺服器FTP文件夾,請修改檔案名稱不要帶有中文字或是符號" ' 'SaveFileDialog1 ' Me.SaveFileDialog1.DefaultExt = "jpg" Me.SaveFileDialog1.SupportMultiDottedExtensions = True Me.SaveFileDialog1.Title = "指定檔案名稱與選擇檔案路徑" ' '楦頭圖片資料庫 ' 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.圖片修改存檔_bt) Me.Controls.Add(Me.WebBrowser2) Me.Controls.Add(Me.檔案名稱1_tb) Me.Controls.Add(Me.我的電腦_lb) Me.Controls.Add(Me.讀取料夾路徑_bt) Me.Controls.Add(Me.檔案名稱_lb) Me.Controls.Add(Me.楦頭圖片編號_lb) Me.Controls.Add(Me.楦頭編號_lb) Me.Controls.Add(Me.檔案名稱_tb) Me.Controls.Add(Me.楦頭圖片編號_tb) Me.Controls.Add(Me.下載圖片_bt) Me.Controls.Add(Me.查詢_bt) Me.Controls.Add(Me.楦頭編號_tb) Me.Controls.Add(Me.PictureBox1) Me.Controls.Add(Me.主表單_dgv) Me.Controls.Add(Me.文字提示_lb) 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.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.主表單_dgv, System.ComponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) Me.PerformLayout() End Sub Friend WithEvents 圖片修改存檔_bt As Button Friend WithEvents WebBrowser2 As WebBrowser Friend WithEvents 檔案名稱1_tb As TextBox Friend WithEvents 我的電腦_lb As Label Friend WithEvents 讀取料夾路徑_bt As Button Friend WithEvents 檔案名稱_lb As Label Friend WithEvents 楦頭圖片編號_lb As Label Friend WithEvents 楦頭編號_lb As Label Friend WithEvents 檔案名稱_tb As TextBox Friend WithEvents 楦頭圖片編號_tb As TextBox Friend WithEvents 下載圖片_bt As Button Friend WithEvents 查詢_bt As Button Friend WithEvents 楦頭編號_tb As TextBox Friend WithEvents PictureBox1 As PictureBox Friend WithEvents 主表單_dgv As DataGridView Friend WithEvents 文字提示_lb As Label Friend WithEvents SaveFileDialog1 As SaveFileDialog Friend WithEvents FolderBrowserDialog1 As FolderBrowserDialog End Class