Kode Untuk Mengidentifikasi Nama Sebuah Control di VB6

Bagi seorang programer menempatkan sebuah control dalam form merupakan makanan sehari-hari bagaimana tidak setiap program yang dibuat oleh programer pasti akan menempatkan control tersebut hingga program tersebut bisa digunakan.

Apa itu control?

Control adalah komponen atau objek yang ditempatkan dalam form dimana saling berhubungan satu sama lain hingga membetuk sebuah aplikasi.

Contoh Control di vb6 adalah Textbox, Label, Command dll

Dalam kesempatan di artikel kali ini saya akan berbagi kode yaitu untuk mengidentifikasi sebuah control yang kita tanam dalam sebuah form.

Terkadang control yang kita kita tanamkan dalam form ketika di running tidak bisa di identifikasi nama dari control tersebut karena banyaknya control yang kita tanamkan dalam form untuk membuat program.

Untuk lebih jelasnya perhatikan gambar dibawah ini :

Identifikasi Control

Berdasarkan gambar diatas ketika kursor berada di diatas textbox atau mengkliknya maka nama control tersebut akan mumcul dengan font yang berwarna merah.

Bagaimana cara membuat? ikutilah langkah-langkah dibawah ini :

1. Buka Form vb6 Anda

2. Tanamkan dalam Form 2 Textbox, 2 Commandbutton, 1 Option button dan 1 Timer (banyaknya control bebas)

3. Lalu ketik kode dibawah ini :

Option Explicit


Private Sub Form_Load()

Timer1.Interval = 500

End Sub


Private Sub Timer1_Timer()

    Dim cControl As Control

    Set cControl = Me.ActiveControl


    If Not cControl Is Nothing Then

        Label2.Caption = cControl.Name

        Form1.Caption = cControl.Name 

        Label2.ForeColor = vbRed     

    End If

End Sub

4. Setelah mengetik kode lalu jalankan project Anda.

5. Lalu tes project Anda dengan cara klik setiap kontrol maka secara otomatis nama kontrol yang sebenarnya akan muncul ketika kursor berada diatasnya dengan font merah seperti gambar diatas.

Itulah sekilas artikel pada hari ini tentang Kode Untuk Mengidentifikasi Nama Sebuah Control di VB6.

Semoga artikel ini bermanfaat buat kita semua, Amin.

Selamat mencoba semoga berhasil.


No comments: