Buat label berjalan di Visual Basic 6.0
Mempercantik tampilan untuk aplikasi yang nanti nya akan dibuat adalah suatu keharusan. Membuat label berjalan adalah salah satu caranya, tulisan berjalan dapat dibuat dengan menggunakan sotware pemrograman berbasis visual, yaitu visual basic. Vb sendiri disini saya gunakan versi 6.0.
Nantinya text yang berada pada label akan bergerak secara vertical maupun horizantil. Marilah alangkah baiknya langsung saja di praktekkan.
Langkah - langkah :
1. Buka Visual Basic 6.0
2. Buat lah satu buah project, dengan memilih standar exe
3. Maka akan muncuk 1 buah form. Seperti ini
.
Nantinya text yang berada pada label akan bergerak secara vertical maupun horizantil. Marilah alangkah baiknya langsung saja di praktekkan.
Langkah - langkah :
1. Buka Visual Basic 6.0
2. Buat lah satu buah project, dengan memilih standar exe
3. Maka akan muncuk 1 buah form. Seperti ini
4. Letakkan 1 label, 2 command button, 2 timer diatas form.
Baca Juga : Cara buat Add Item Combobox
5. Kemudian, dobel klik pada form. Hapus seluruh kode yang ada.
6. Dan Copy paste code berikut :
7. Setelah selesai di paste, coba jalankan aplikasi nya.Private Sub Command1_Click()Timer1.Enabled = TrueTimer2.Enabled = FalseTimer1.Interval = 15End SubPrivate Sub Command2_Click()Timer2.Enabled = TrueTimer1.Enabled = FalseTimer2.Interval = 15End SubPrivate Sub Form_Load()Label1.Caption = "Selamat Datang"Command1.Caption = "Horizontal"Command2.Caption = "Vertical"End SubPrivate Sub Timer1_Timer()Label1.Left = Label1.Left - 15If (Label1.Left <= -(Label1.Width)) Or (Label1.Left >= Me.ScaleWidth) Then Label1.Left = Me.ScaleWidthEnd SubPrivate Sub Timer2_Timer()Label1.Top = Label1.Top - 15If (Label1.Top <= -(Label1.Height)) Or (Label1.Top >= Me.ScaleHeight) Then Label1.Top = Me.ScaleHeightEnd Sub
Hasilnya akan seperti ini.
Sekian tutorial dari saya. Apabila ada yang kurang jelas, dapat meninggalkan komentar di kolom komentar. Terima Kasih!
.
Tidak ada komentar
No Spam / Ads or Outside Links