February 28, 2021
Hot Topics:

Beginning Resource Files

  • By Kenneth Ives
  • Send Email »
  • More Articles »

Open the code window for this form and paste the following code:

Private Sub Command1_Click()'Here is where we alternate the icons and the captions  If Command1.Caption = "Start" Then    Command1.Picture = LoadResPicture(101, vbResIcon)    Command1.Caption = "Stop"  Else    Command1.Picture = LoadResPicture(102, vbResIcon)    Command1.Caption = "Start"  End If  End SubPrivate Sub Form_Load()' paste the icon on the face of the command button' and set the caption.  Look in the online help for' additional information on the second parameter  Command1.Picture = LoadResPicture(102, vbResIcon)  Command1.Caption = "Start"  Show  End Sub

Press F5 and run it. Click on the button a few times.

I bet you feel that this is an awful lot of running around just to change an icon. Well, it isnt.

Page 4 of 5

This article was originally published on November 20, 2002

Enterprise Development Update

Don't miss an article. Subscribe to our newsletter below.

Thanks for your registration, follow us on our social networks to keep up-to-date