Mega Code Archive

 

Categories / VB.Net by API / System Windows Forms

 

ToolStripProgressBar Value

Imports System.Windows.Forms public class StatusStripDemo    public Shared Sub Main         Application.Run(New Form1)    End Sub End class Public Class Form1     Private Sub ToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem1.Click         ToolStripProgressBar1.Value = 50         ToolStripStatusLabel1.Text = ToolStripProgressBar1.Value     End Sub     Private Sub ToolStripMenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem2.Click         ToolStripProgressBar1.Value = 0         ToolStripStatusLabel1.Text = ToolStripProgressBar1.Value     End Sub End Class <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _ Partial Class Form1     Inherits System.Windows.Forms.Form     'Form overrides dispose to clean up the component list.     <System.Diagnostics.DebuggerNonUserCode()> _     Protected Overrides Sub Dispose(ByVal disposing As Boolean)         If disposing AndAlso components IsNot Nothing Then             components.Dispose()         End If         MyBase.Dispose(disposing)     End Sub     'Required by the Windows Form Designer     Private components As System.ComponentModel.IContainer     'NOTE: The following procedure is required by the Windows Form Designer     'It can be modified using the Windows Form Designer.       'Do not modify it using the code editor.     <System.Diagnostics.DebuggerStepThrough()> _     Private Sub InitializeComponent()         Me.StatusStrip1 = New System.Windows.Forms.StatusStrip         Me.ToolStripStatusLabel1 = New System.Windows.Forms.ToolStripStatusLabel         Me.ToolStripProgressBar1 = New System.Windows.Forms.ToolStripProgressBar         Me.ToolStripDropDownButton1 = New System.Windows.Forms.ToolStripDropDownButton         Me.ToolStripSplitButton1 = New System.Windows.Forms.ToolStripSplitButton         Me.ToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem         Me.ToolStripMenuItem2 = New System.Windows.Forms.ToolStripMenuItem         Me.StatusStrip1.SuspendLayout()         Me.SuspendLayout()         '         'StatusStrip1         '         Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripStatusLabel1, Me.ToolStripProgressBar1, Me.ToolStripDropDownButton1, Me.ToolStripSplitButton1})         Me.StatusStrip1.Location = New System.Drawing.Point(0, 168)         Me.StatusStrip1.Name = "StatusStrip1"         Me.StatusStrip1.Size = New System.Drawing.Size(481, 22)         Me.StatusStrip1.TabIndex = 0         Me.StatusStrip1.Text = "StatusStrip1"         '         'ToolStripStatusLabel1         '         Me.ToolStripStatusLabel1.Name = "ToolStripStatusLabel1"         Me.ToolStripStatusLabel1.Size = New System.Drawing.Size(131, 17)         Me.ToolStripStatusLabel1.Text = "ToolStripStatusLabel1"         '         'ToolStripProgressBar1         '         Me.ToolStripProgressBar1.Name = "ToolStripProgressBar1"         Me.ToolStripProgressBar1.Size = New System.Drawing.Size(100, 16)         '         'ToolStripDropDownButton1         '         Me.ToolStripDropDownButton1.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image         Me.ToolStripDropDownButton1.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem1})         Me.ToolStripDropDownButton1.ImageTransparentColor = System.Drawing.Color.Magenta         Me.ToolStripDropDownButton1.Name = "ToolStripDropDownButton1"         Me.ToolStripDropDownButton1.Size = New System.Drawing.Size(29, 20)         Me.ToolStripDropDownButton1.Text = "ToolStripDropDownButton1"         '         'ToolStripSplitButton1         '         Me.ToolStripSplitButton1.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image         Me.ToolStripSplitButton1.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem2})         Me.ToolStripSplitButton1.ImageTransparentColor = System.Drawing.Color.Magenta         Me.ToolStripSplitButton1.Name = "ToolStripSplitButton1"         Me.ToolStripSplitButton1.Size = New System.Drawing.Size(32, 20)         Me.ToolStripSplitButton1.Text = "ToolStripSplitButton1"         '         'ToolStripMenuItem1         '         Me.ToolStripMenuItem1.Name = "ToolStripMenuItem1"         Me.ToolStripMenuItem1.Size = New System.Drawing.Size(178, 22)         Me.ToolStripMenuItem1.Text = "ToolStripMenuItem1"         '         'ToolStripMenuItem2         '         Me.ToolStripMenuItem2.Name = "ToolStripMenuItem2"         Me.ToolStripMenuItem2.Size = New System.Drawing.Size(178, 22)         Me.ToolStripMenuItem2.Text = "ToolStripMenuItem2"         '         'Form1         '         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 12.0!)         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font         Me.ClientSize = New System.Drawing.Size(481, 190)         Me.Controls.Add(Me.StatusStrip1)         Me.Name = "Form1"         Me.Text = "Form1"         Me.StatusStrip1.ResumeLayout(False)         Me.StatusStrip1.PerformLayout()         Me.ResumeLayout(False)         Me.PerformLayout()     End Sub     Friend WithEvents StatusStrip1 As System.Windows.Forms.StatusStrip     Friend WithEvents ToolStripStatusLabel1 As System.Windows.Forms.ToolStripStatusLabel     Friend WithEvents ToolStripProgressBar1 As System.Windows.Forms.ToolStripProgressBar     Friend WithEvents ToolStripDropDownButton1 As System.Windows.Forms.ToolStripDropDownButton     Friend WithEvents ToolStripSplitButton1 As System.Windows.Forms.ToolStripSplitButton     Friend WithEvents ToolStripMenuItem1 As System.Windows.Forms.ToolStripMenuItem     Friend WithEvents ToolStripMenuItem2 As System.Windows.Forms.ToolStripMenuItem End Class