_ 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.OpenFileDialog1 = New System.Windows.Forms.OpenFileDialog() Me.YT網址_tb = New System.Windows.Forms.TextBox() Me.網址 = New System.Windows.Forms.Label() Me.WB1 = New System.Windows.Forms.WebBrowser() Me.Label1 = New System.Windows.Forms.Label() Me.Label2 = New System.Windows.Forms.Label() Me.SuspendLayout() ' '執行_bt ' Me.執行_bt.Location = New System.Drawing.Point(589, 3) Me.執行_bt.Margin = New System.Windows.Forms.Padding(4) Me.執行_bt.Name = "執行_bt" Me.執行_bt.Size = New System.Drawing.Size(88, 25) Me.執行_bt.TabIndex = 0 Me.執行_bt.Text = "執行" Me.執行_bt.UseVisualStyleBackColor = True ' 'OpenFileDialog1 ' Me.OpenFileDialog1.FileName = "OpenFileDialog1" ' 'YT網址_tb ' Me.YT網址_tb.Location = New System.Drawing.Point(51, 4) Me.YT網址_tb.Margin = New System.Windows.Forms.Padding(4) Me.YT網址_tb.Name = "YT網址_tb" Me.YT網址_tb.Size = New System.Drawing.Size(530, 23) Me.YT網址_tb.TabIndex = 1 Me.YT網址_tb.Text = "https://www.youtube.com/watch?v=OFz9oZptTh4" ' '網址 ' Me.網址.AutoSize = True Me.網址.Location = New System.Drawing.Point(13, 7) Me.網址.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) Me.網址.Name = "網址" Me.網址.Size = New System.Drawing.Size(31, 16) Me.網址.TabIndex = 2 Me.網址.Text = "網址" ' 'WB1 ' Me.WB1.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.WB1.Location = New System.Drawing.Point(2, 34) Me.WB1.MinimumSize = New System.Drawing.Size(20, 20) Me.WB1.Name = "WB1" Me.WB1.Size = New System.Drawing.Size(930, 554) Me.WB1.TabIndex = 3 ' 'Label1 ' Me.Label1.AutoSize = True Me.Label1.Location = New System.Drawing.Point(685, 7) Me.Label1.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) Me.Label1.Name = "Label1" Me.Label1.Size = New System.Drawing.Size(152, 16) Me.Label1.TabIndex = 4 Me.Label1.Text = "YT影片長寬比是 420 X 250" ' 'Label2 ' Me.Label2.AutoSize = True Me.Label2.Location = New System.Drawing.Point(6, 593) Me.Label2.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) Me.Label2.Name = "Label2" Me.Label2.Size = New System.Drawing.Size(152, 16) Me.Label2.TabIndex = 5 Me.Label2.Text = "YT影片長寬比是 420 X 250" ' '測試介面 ' Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.ClientSize = New System.Drawing.Size(933, 613) Me.Controls.Add(Me.Label2) Me.Controls.Add(Me.Label1) Me.Controls.Add(Me.WB1) Me.Controls.Add(Me.網址) Me.Controls.Add(Me.執行_bt) Me.Controls.Add(Me.YT網址_tb) 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(4) Me.Name = "測試介面" Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen Me.Text = "測試介面" Me.ResumeLayout(False) Me.PerformLayout() End Sub Friend WithEvents 執行_bt As Button Friend WithEvents OpenFileDialog1 As OpenFileDialog Friend WithEvents YT網址_tb As TextBox Friend WithEvents 網址 As Label Friend WithEvents WB1 As WebBrowser Friend WithEvents Label1 As Label Friend WithEvents Label2 As Label End Class