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.ProgressBar1 = New System.Windows.Forms.ProgressBar() Me.主題_lb = New System.Windows.Forms.Label() Me.SuspendLayout() ' 'ProgressBar1 ' Me.ProgressBar1.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.ProgressBar1.Location = New System.Drawing.Point(2, 33) Me.ProgressBar1.Maximum = 10000 Me.ProgressBar1.Name = "ProgressBar1" Me.ProgressBar1.Size = New System.Drawing.Size(566, 39) Me.ProgressBar1.Style = System.Windows.Forms.ProgressBarStyle.Continuous Me.ProgressBar1.TabIndex = 1 ' '主題_lb ' Me.主題_lb.AutoSize = True Me.主題_lb.Location = New System.Drawing.Point(12, 9) Me.主題_lb.Name = "主題_lb" Me.主題_lb.Size = New System.Drawing.Size(126, 16) Me.主題_lb.TabIndex = 2 Me.主題_lb.Text = "Progress Bar Window" ' '進度條視窗 ' Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.ClientSize = New System.Drawing.Size(569, 74) Me.ControlBox = False Me.Controls.Add(Me.主題_lb) Me.Controls.Add(Me.ProgressBar1) Me.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte)) Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None Me.Margin = New System.Windows.Forms.Padding(4) Me.Name = "進度條視窗" Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen Me.ResumeLayout(False) Me.PerformLayout() End Sub Friend WithEvents ProgressBar1 As ProgressBar Friend WithEvents 主題_lb As Label End Class