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.Label10 = New System.Windows.Forms.Label() Me.Label8 = New System.Windows.Forms.Label() Me.Label6 = New System.Windows.Forms.Label() Me.TextBox7 = New System.Windows.Forms.TextBox() Me.Label1 = New System.Windows.Forms.Label() Me.Button4 = New System.Windows.Forms.Button() Me.WebBrowser2 = New System.Windows.Forms.WebBrowser() Me.TextBox2 = New System.Windows.Forms.TextBox() Me.Button3 = New System.Windows.Forms.Button() Me.CheckBox1 = New System.Windows.Forms.CheckBox() Me.Label9 = New System.Windows.Forms.Label() Me.TextBox4 = New System.Windows.Forms.TextBox() Me.WebBrowser1 = New System.Windows.Forms.WebBrowser() Me.CheckBox4 = New System.Windows.Forms.CheckBox() Me.CheckBox3 = New System.Windows.Forms.CheckBox() Me.CheckBox2 = New System.Windows.Forms.CheckBox() Me.Button6 = New System.Windows.Forms.Button() Me.Button2 = New System.Windows.Forms.Button() Me.Button1 = New System.Windows.Forms.Button() Me.Button24 = New System.Windows.Forms.Button() Me.TextBox1 = New System.Windows.Forms.TextBox() Me.DataGridView1 = New System.Windows.Forms.DataGridView() Me.Label7 = New System.Windows.Forms.Label() Me.PictureBox1 = New System.Windows.Forms.PictureBox() Me.SaveFileDialog1 = New System.Windows.Forms.SaveFileDialog() Me.FolderBrowserDialog1 = New System.Windows.Forms.FolderBrowserDialog() Me.TextBox8 = New System.Windows.Forms.TextBox() Me.Label2 = New System.Windows.Forms.Label() Me.TextBox6 = New System.Windows.Forms.TextBox() Me.TextBox5 = New System.Windows.Forms.TextBox() Me.TextBox3 = New System.Windows.Forms.TextBox() Me.Label5 = New System.Windows.Forms.Label() Me.ComboBox2 = New System.Windows.Forms.ComboBox() Me.Label4 = New System.Windows.Forms.Label() Me.Label3 = New System.Windows.Forms.Label() Me.Label11 = New System.Windows.Forms.Label() CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() ' 'Label10 ' Me.Label10.AutoSize = True Me.Label10.ForeColor = System.Drawing.Color.Red Me.Label10.Location = New System.Drawing.Point(1682, 65) Me.Label10.Name = "Label10" Me.Label10.Size = New System.Drawing.Size(220, 32) Me.Label10.TabIndex = 613 Me.Label10.Text = "如檔案無法拖曳至伺服器FTP文件夾,請" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "修改檔案名稱不要帶有中文字或是符號" ' 'Label8 ' Me.Label8.AutoSize = True Me.Label8.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(136, Byte)) Me.Label8.ForeColor = System.Drawing.Color.Red Me.Label8.Location = New System.Drawing.Point(1200, 7) Me.Label8.Name = "Label8" Me.Label8.Size = New System.Drawing.Size(291, 80) Me.Label8.TabIndex = 612 Me.Label8.Text = "1、修改圖片時先將伺服器上的圖片下載到我的電腦。" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "2、修改好圖片後再將圖片檔案重送到伺服器FTP文" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " 夾,並在將檔案拖曳到檔案名稱方格中。" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "3、" & "確認所選擇的圖片資料與修改好的圖片檔案名稱無" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " 誤後點擊存檔。" ' 'Label6 ' Me.Label6.AutoSize = True Me.Label6.Font = New System.Drawing.Font("微軟正黑體", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte)) Me.Label6.Location = New System.Drawing.Point(1501, 535) Me.Label6.Name = "Label6" Me.Label6.Size = New System.Drawing.Size(156, 24) Me.Label6.TabIndex = 610 Me.Label6.Text = "伺服器FTP文件夾" ' 'TextBox7 ' Me.TextBox7.AllowDrop = True Me.TextBox7.ForeColor = System.Drawing.Color.Black Me.TextBox7.Location = New System.Drawing.Point(1770, 9) Me.TextBox7.Multiline = True Me.TextBox7.Name = "TextBox7" Me.TextBox7.Size = New System.Drawing.Size(65, 23) Me.TextBox7.TabIndex = 609 ' 'Label1 ' Me.Label1.AutoSize = True Me.Label1.Font = New System.Drawing.Font("微軟正黑體", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte)) Me.Label1.Location = New System.Drawing.Point(1497, 68) Me.Label1.Name = "Label1" Me.Label1.Size = New System.Drawing.Size(86, 24) Me.Label1.TabIndex = 608 Me.Label1.Text = "我的電腦" ' 'Button4 ' Me.Button4.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte)) Me.Button4.ForeColor = System.Drawing.Color.Blue Me.Button4.Location = New System.Drawing.Point(1589, 68) Me.Button4.Name = "Button4" Me.Button4.Size = New System.Drawing.Size(91, 24) Me.Button4.TabIndex = 607 Me.Button4.Text = "讀取料夾路徑" Me.Button4.UseVisualStyleBackColor = True ' 'WebBrowser2 ' Me.WebBrowser2.Location = New System.Drawing.Point(1501, 98) Me.WebBrowser2.MinimumSize = New System.Drawing.Size(20, 20) Me.WebBrowser2.Name = "WebBrowser2" Me.WebBrowser2.Size = New System.Drawing.Size(401, 420) Me.WebBrowser2.TabIndex = 606 Me.WebBrowser2.Url = New System.Uri("", System.UriKind.Relative) ' 'TextBox2 ' Me.TextBox2.Location = New System.Drawing.Point(371, 45) Me.TextBox2.Name = "TextBox2" Me.TextBox2.Size = New System.Drawing.Size(19, 23) Me.TextBox2.TabIndex = 605 ' 'Button3 ' Me.Button3.ForeColor = System.Drawing.Color.Blue Me.Button3.Location = New System.Drawing.Point(542, 68) Me.Button3.Name = "Button3" Me.Button3.Size = New System.Drawing.Size(102, 24) Me.Button3.TabIndex = 604 Me.Button3.Text = "下載圖片" Me.Button3.UseVisualStyleBackColor = True ' 'CheckBox1 ' Me.CheckBox1.AutoSize = True Me.CheckBox1.ForeColor = System.Drawing.Color.Red Me.CheckBox1.Location = New System.Drawing.Point(1501, 12) Me.CheckBox1.Name = "CheckBox1" Me.CheckBox1.Size = New System.Drawing.Size(267, 20) Me.CheckBox1.TabIndex = 603 Me.CheckBox1.Text = "修改圖片,修改前請確認檔案與檔案名正確。" Me.CheckBox1.UseVisualStyleBackColor = True ' 'Label9 ' Me.Label9.AutoSize = True Me.Label9.Location = New System.Drawing.Point(1501, 41) Me.Label9.Name = "Label9" Me.Label9.Size = New System.Drawing.Size(56, 16) Me.Label9.TabIndex = 602 Me.Label9.Text = "檔案名稱" ' 'TextBox4 ' Me.TextBox4.AllowDrop = True Me.TextBox4.ForeColor = System.Drawing.Color.Black Me.TextBox4.Location = New System.Drawing.Point(1563, 38) Me.TextBox4.Multiline = True Me.TextBox4.Name = "TextBox4" Me.TextBox4.Size = New System.Drawing.Size(272, 23) Me.TextBox4.TabIndex = 601 ' 'WebBrowser1 ' Me.WebBrowser1.Location = New System.Drawing.Point(1501, 562) Me.WebBrowser1.MinimumSize = New System.Drawing.Size(20, 20) Me.WebBrowser1.Name = "WebBrowser1" Me.WebBrowser1.Size = New System.Drawing.Size(401, 402) Me.WebBrowser1.TabIndex = 600 Me.WebBrowser1.Url = New System.Uri("", System.UriKind.Relative) ' 'CheckBox4 ' Me.CheckBox4.AutoSize = True Me.CheckBox4.Location = New System.Drawing.Point(1119, 63) Me.CheckBox4.Name = "CheckBox4" Me.CheckBox4.Size = New System.Drawing.Size(75, 20) Me.CheckBox4.TabIndex = 591 Me.CheckBox4.Text = "全部資料" Me.CheckBox4.UseVisualStyleBackColor = True ' 'CheckBox3 ' Me.CheckBox3.AutoSize = True Me.CheckBox3.Location = New System.Drawing.Point(1119, 37) Me.CheckBox3.Name = "CheckBox3" Me.CheckBox3.Size = New System.Drawing.Size(51, 20) Me.CheckBox3.TabIndex = 590 Me.CheckBox3.Text = "彩圖" Me.CheckBox3.UseVisualStyleBackColor = True ' 'CheckBox2 ' Me.CheckBox2.AutoSize = True Me.CheckBox2.Location = New System.Drawing.Point(1119, 11) Me.CheckBox2.Name = "CheckBox2" Me.CheckBox2.Size = New System.Drawing.Size(63, 20) Me.CheckBox2.TabIndex = 589 Me.CheckBox2.Text = "設計圖" Me.CheckBox2.UseVisualStyleBackColor = True ' 'Button6 ' Me.Button6.ForeColor = System.Drawing.Color.Black Me.Button6.Location = New System.Drawing.Point(543, 8) Me.Button6.Name = "Button6" Me.Button6.Size = New System.Drawing.Size(102, 24) Me.Button6.TabIndex = 581 Me.Button6.Text = "查詢" Me.Button6.UseVisualStyleBackColor = True ' 'Button2 ' Me.Button2.ForeColor = System.Drawing.Color.Black Me.Button2.Location = New System.Drawing.Point(542, 38) Me.Button2.Name = "Button2" Me.Button2.Size = New System.Drawing.Size(102, 24) Me.Button2.TabIndex = 580 Me.Button2.Text = "更新清單" Me.Button2.UseVisualStyleBackColor = True ' 'Button1 ' Me.Button1.ForeColor = System.Drawing.Color.Red Me.Button1.Location = New System.Drawing.Point(1406, 75) Me.Button1.Name = "Button1" Me.Button1.Size = New System.Drawing.Size(85, 24) Me.Button1.TabIndex = 579 Me.Button1.Text = "刪除" Me.Button1.UseVisualStyleBackColor = True ' 'Button24 ' Me.Button24.ForeColor = System.Drawing.Color.Green Me.Button24.Location = New System.Drawing.Point(1841, 12) Me.Button24.Name = "Button24" Me.Button24.Size = New System.Drawing.Size(61, 50) Me.Button24.TabIndex = 578 Me.Button24.Text = "圖片修改存檔" Me.Button24.UseVisualStyleBackColor = True ' 'TextBox1 ' Me.TextBox1.Location = New System.Drawing.Point(371, 16) Me.TextBox1.Name = "TextBox1" Me.TextBox1.Size = New System.Drawing.Size(19, 23) Me.TextBox1.TabIndex = 577 ' 'DataGridView1 ' DataGridViewCellStyle1.BackColor = System.Drawing.Color.Thistle Me.DataGridView1.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1 Me.DataGridView1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.DataGridView1.Location = New System.Drawing.Point(12, 7) Me.DataGridView1.Name = "DataGridView1" Me.DataGridView1.RowHeadersWidth = 5 Me.DataGridView1.RowTemplate.Height = 24 Me.DataGridView1.Size = New System.Drawing.Size(525, 957) Me.DataGridView1.TabIndex = 574 ' 'Label7 ' Me.Label7.AutoSize = True Me.Label7.Font = New System.Drawing.Font("微軟正黑體", 26.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(136, Byte)) Me.Label7.ForeColor = System.Drawing.Color.Red Me.Label7.Location = New System.Drawing.Point(1692, 517) Me.Label7.Name = "Label7" Me.Label7.Size = New System.Drawing.Size(55, 45) Me.Label7.TabIndex = 611 Me.Label7.Text = "↓" ' 'PictureBox1 ' Me.PictureBox1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch Me.PictureBox1.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D Me.PictureBox1.Location = New System.Drawing.Point(542, 103) Me.PictureBox1.Name = "PictureBox1" Me.PictureBox1.Size = New System.Drawing.Size(953, 861) Me.PictureBox1.TabIndex = 575 Me.PictureBox1.TabStop = False ' 'SaveFileDialog1 ' Me.SaveFileDialog1.DefaultExt = "jpg" Me.SaveFileDialog1.SupportMultiDottedExtensions = True Me.SaveFileDialog1.Title = "指定檔案名稱與選擇檔案路徑" ' 'TextBox8 ' Me.TextBox8.ForeColor = System.Drawing.Color.Black Me.TextBox8.Location = New System.Drawing.Point(712, 9) Me.TextBox8.Name = "TextBox8" Me.TextBox8.Size = New System.Drawing.Size(149, 23) Me.TextBox8.TabIndex = 627 ' 'Label2 ' Me.Label2.AutoSize = True Me.Label2.Location = New System.Drawing.Point(650, 12) Me.Label2.Name = "Label2" Me.Label2.Size = New System.Drawing.Size(32, 16) Me.Label2.TabIndex = 626 Me.Label2.Text = "客戶" ' 'TextBox6 ' Me.TextBox6.ForeColor = System.Drawing.Color.Black Me.TextBox6.Location = New System.Drawing.Point(712, 67) Me.TextBox6.Name = "TextBox6" Me.TextBox6.Size = New System.Drawing.Size(149, 23) Me.TextBox6.TabIndex = 625 ' 'TextBox5 ' Me.TextBox5.ForeColor = System.Drawing.Color.Black Me.TextBox5.Location = New System.Drawing.Point(712, 38) Me.TextBox5.Name = "TextBox5" Me.TextBox5.Size = New System.Drawing.Size(401, 23) Me.TextBox5.TabIndex = 624 ' 'TextBox3 ' Me.TextBox3.ForeColor = System.Drawing.Color.Black Me.TextBox3.Location = New System.Drawing.Point(929, 9) Me.TextBox3.Name = "TextBox3" Me.TextBox3.Size = New System.Drawing.Size(184, 23) Me.TextBox3.TabIndex = 623 ' 'Label5 ' Me.Label5.AutoSize = True Me.Label5.Location = New System.Drawing.Point(867, 71) Me.Label5.Name = "Label5" Me.Label5.Size = New System.Drawing.Size(63, 16) Me.Label5.TabIndex = 622 Me.Label5.Text = "Category " ' 'ComboBox2 ' Me.ComboBox2.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList Me.ComboBox2.FormattingEnabled = True Me.ComboBox2.Items.AddRange(New Object() {"設計圖", "彩圖"}) Me.ComboBox2.Location = New System.Drawing.Point(936, 67) Me.ComboBox2.Name = "ComboBox2" Me.ComboBox2.Size = New System.Drawing.Size(177, 24) Me.ComboBox2.TabIndex = 621 ' 'Label4 ' Me.Label4.AutoSize = True Me.Label4.Location = New System.Drawing.Point(650, 71) Me.Label4.Name = "Label4" Me.Label4.Size = New System.Drawing.Size(39, 16) Me.Label4.TabIndex = 620 Me.Label4.Text = "Color" ' 'Label3 ' Me.Label3.AutoSize = True Me.Label3.Location = New System.Drawing.Point(867, 12) Me.Label3.Name = "Label3" Me.Label3.Size = New System.Drawing.Size(56, 16) Me.Label3.TabIndex = 619 Me.Label3.Text = "形體號碼" ' 'Label11 ' Me.Label11.AutoSize = True Me.Label11.Location = New System.Drawing.Point(650, 42) Me.Label11.Name = "Label11" Me.Label11.Size = New System.Drawing.Size(56, 16) Me.Label11.TabIndex = 618 Me.Label11.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.TextBox8) Me.Controls.Add(Me.Label2) Me.Controls.Add(Me.TextBox6) Me.Controls.Add(Me.TextBox5) Me.Controls.Add(Me.TextBox3) Me.Controls.Add(Me.Label5) Me.Controls.Add(Me.ComboBox2) Me.Controls.Add(Me.Label4) Me.Controls.Add(Me.Label3) Me.Controls.Add(Me.Label11) Me.Controls.Add(Me.Label10) Me.Controls.Add(Me.Label6) Me.Controls.Add(Me.TextBox7) Me.Controls.Add(Me.Label1) Me.Controls.Add(Me.Button4) Me.Controls.Add(Me.WebBrowser2) Me.Controls.Add(Me.TextBox2) Me.Controls.Add(Me.Button3) Me.Controls.Add(Me.CheckBox1) Me.Controls.Add(Me.Label9) Me.Controls.Add(Me.TextBox4) Me.Controls.Add(Me.WebBrowser1) Me.Controls.Add(Me.CheckBox4) Me.Controls.Add(Me.CheckBox3) Me.Controls.Add(Me.CheckBox2) Me.Controls.Add(Me.Button6) Me.Controls.Add(Me.Button2) Me.Controls.Add(Me.Button1) Me.Controls.Add(Me.Button24) Me.Controls.Add(Me.TextBox1) Me.Controls.Add(Me.PictureBox1) Me.Controls.Add(Me.DataGridView1) Me.Controls.Add(Me.Label7) Me.Controls.Add(Me.Label8) 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.DataGridView1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) Me.PerformLayout() End Sub Friend WithEvents Label10 As Label Friend WithEvents Label8 As Label Friend WithEvents Label6 As Label Friend WithEvents TextBox7 As TextBox Friend WithEvents Label1 As Label Friend WithEvents Button4 As Button Friend WithEvents WebBrowser2 As WebBrowser Friend WithEvents TextBox2 As TextBox Friend WithEvents Button3 As Button Friend WithEvents CheckBox1 As CheckBox Friend WithEvents Label9 As Label Friend WithEvents TextBox4 As TextBox Friend WithEvents WebBrowser1 As WebBrowser Friend WithEvents CheckBox4 As CheckBox Friend WithEvents CheckBox3 As CheckBox Friend WithEvents CheckBox2 As CheckBox Friend WithEvents Button6 As Button Friend WithEvents Button2 As Button Friend WithEvents Button1 As Button Friend WithEvents Button24 As Button Friend WithEvents TextBox1 As TextBox Friend WithEvents PictureBox1 As PictureBox Friend WithEvents DataGridView1 As DataGridView Friend WithEvents Label7 As Label Friend WithEvents SaveFileDialog1 As SaveFileDialog Friend WithEvents FolderBrowserDialog1 As FolderBrowserDialog Friend WithEvents TextBox8 As TextBox Friend WithEvents Label2 As Label Friend WithEvents TextBox6 As TextBox Friend WithEvents TextBox5 As TextBox Friend WithEvents TextBox3 As TextBox Friend WithEvents Label5 As Label Friend WithEvents ComboBox2 As ComboBox Friend WithEvents Label4 As Label Friend WithEvents Label3 As Label Friend WithEvents Label11 As Label End Class