by Edgar Santiago (4 Submissions)
Category: Graphics
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Sun 6th January 2002
Date Added: Mon 8th February 2021
Rating: (1 Votes)
Create a Status bar with the Picture Contol,Image Control and Labels Control
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]
No comments have been posted about Create a Status bar with the Picture Contol,Image Control and Labels Control. Why not be the first to post a comment about Create a Status bar with the Picture Contol,Image Control and Labels Control.