• Home
 · 
• Graphics
 · 
• Create a Status bar with the Picture Contol,Image Control and Labels Control

Create a Status bar with the Picture Contol,Image Control and Labels Control

Create a Status bar with the Picture Contol,Image Control and Labels Control

Rate Create a Status bar with the Picture Contol,Image Control and Labels Control

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

 1-Click on the Picture Control and set it on the bottom of the Form got to the Properties and set the Align Properties to [Align Bottom]
 2-Click on the image Control and Place it in the Picture Control make sure you have space on the picture Control set the properties to Strech the Picture property select the picture that you like to see when the  Program is Running.
 3- Plase the Label Control in the Same area that you plase the Picture Control and the Image Control.Setthe Label from the left side to the the Middle then Plase 2 more label on the Right Side  .
 3- set the Property of the label .Back style Transparent, Border Style FixedSingle,Alignment Center.

Type this Code:
Private Sub Form_Resize()
  On Error resume Next
 Picture1.Width = Me.ScaleWidth
 Image1.Width = Me.ScaleWidth
 Label2.Move Me.scaleWidth - 400
 Label3.Move Me.scaleWieth - 500
 Label1.Width = Me.scalewidth - 1000
 End Sub
 'If this Number does't work and you Don't See the Label Just Change the value Of the Label1,Label2,Label3,If you Don't See it Most Likely you have to Increse the value.
 Label2 amd 3 will show you the Time and date.
Place a Timer Control on the Form.
 1-Properties of the Timer Interval to 1000
Type this Code in the Timer:
Private Sub Timer1_Timer()
  label2.Caption = Time
  Label3.Caption = Date
 End Sub
 for any Question Contact me at [email protected]