Tukar Caption pada Visual Basic 6.0


Terkadang kita membutuhkan aksi tukar (toggle) property Caption dari sebuah object CommandButton. Misalnya menukar Caption CommandButton dari Start menjadi Stop atau sebaliknya dari Stop menjadi Start. Bagaimana hal tersebut bisa dilakukan melalui pemrograman Visual Basic 6.0?

Buat 1 project dengan :
1 Form

Copy source code berikut pada Form :
Private Sub Form_Load()
Command1.Caption = "Start" 'Set nilai awal Caption dengan start
End Sub

Private Sub Command1_Click()
If Command1.Caption = "Start" Then
Command1.Caption = "Stop"
Else
Command1.Caption = "Start"
End If
End Sub
DOWNLOAD Full Source Project
Comments
0 Comments