Cara Membuat Tulisan Berubah Mengikuti Nama Objek Yang Disentuh Mouse

Hi, Apa kabar sobat dumay ?. Hari ini saya akan memberikan tutorial tentang bagaimana cara membuat tulisan berganti-ganti ketika mouse diarhkan ke gambar.
Sebenarnya tidak hanya gambar tetapi objek lain juga bisa asal di mengerti bagaimana cara menggunakan skripnya.

Pada tutorial kali ini saya akan memberikan contoh program Daftar Menu. Bagaimana cara membuatnya ? silahkan ikuti langkah-langkah berikut

1.              Buka Visual Basic 0.6

2.              Pilih Standar EXE

3.              Pada contoh ini buatlah 2 Label, 5 PictureBox, dan 1 CommandButton, 1 Image

4.              Atur Propertiesnya seperti berikut

·         Label 1

Caption : Daftar Menu Café Muda-Mudi (silahkan ganti sesuai keinginan anda)

·         Label 2

Caption : Kosongkan saja

BorderStyle : 1- Fixed Single

·         Picture 1-5

Cukup masukkan gambar makanan pada Picture

·         CommandButton1

Caption : KELUAR

·         Image

Masukkan gambar Makanan Sebagai Latar

Contoh tampilan

*silahkan desain sesuai keinginan anda

5.         Masukkan kode berikut

Private Sub Command1_Click()

Unload Me

End Sub

Private Sub Form_Load()

Picture1.AutoSize = False

Picture2.AutoSize = False

Picture3.AutoSize = False

Picture4.AutoSize = False

Picture5.AutoSize = False

End Sub

Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, x As Single, Y As Single)

Label3.Caption = "SPAGHETTI BUMBU BALI"

Label3.ForeColor = &HFFFFFF

Label3.BackColor = &H0&

End Sub

Private Sub Picture2_MouseMove(Button As Integer, Shift As Integer, x As Single, Y As Single)

Label3.Caption = "KAREDOK PRIANGAN"

Label3.ForeColor = &HFFFFFF

Label3.BackColor = &HC000&

End Sub

Private Sub Picture3_MouseMove(Button As Integer, Shift As Integer, x As Single, Y As Single)

Label3.Caption = "TUMIS KENTANG AYAM KEJU silahkan"

Label3.ForeColor = &HFFFFFF

Label3.BackColor = &HFF0000

End Sub

Private Sub Picture4_MouseMove(Button As Integer, Shift As Integer, x As Single, Y As Single)

Label3.Caption = "SROTO SOKARAJA "

Label3.ForeColor = &HC00000

Label3.BackColor = &HFFFFFF

End Sub

Private Sub Picture5_MouseMove(Button As Integer, Shift As Integer, x As Single, Y As Single)

Label3.Caption = "HATI SAPI MASAK KALIO"

Label3.ForeColor = &HFF&

Label3.BackColor = &H404040

End Sub

6.         Tekan F5 untuk melihat hasilnya

7.         Jika program sudah seperti yang di ingikan, langkah terakhir adalah Save Project dan Save Form

Posted in: Visual Basic 6.0