| | [SHARE] Cara Membuat Label Berjalan Dan Label Kedap-Kedip |  |
|
+3Egy Karameca II Sofian Karameca II |Hacker| 7 posters |
| Pengirim | Message |
|---|
|Hacker|
Warga 1+
Jumlah posting : 106
Reputation : 35
Join date : 03.09.11
Age : 31
Lokasi : cilegon,jawa barat
|  Subyek: [SHARE] Cara Membuat Label Berjalan Dan Label Kedap-Kedip Mon Sep 05, 2011 12:24 pm | |
| Cara membuat Label berjalan di Injector coba pada label1 bagian properties witdh nya digedein misal witdh 3975 atau drag aja label1 agak memanjang. kode text berjalan diatas bisa cuman buat 1 kali jalan abis itu menghilang. kalau mau yg text berjalan berulang pake ini yg simple , untuk text isi sendiri di label1 caption pada property, jangan lupa kasih spasi kalau ngga nyambung trus tuh text. 1. text label bergerak dari kiri ke kanan - Spoiler:
Private Sub timer4_Timer()
timer4.Interval = 200
Label1.Caption = Mid(Label1.Caption, 2, Len(Label1.Caption) - 1) + Mid(Label1.Caption, 1, 1)
End Sub
atau 2. text label bergerak dari kanan ke kiri - Spoiler:
Private Sub timer4_Timer()
timer4.Interval = 200
Label1.Caption = Mid(Label1.Caption, Len(Label1.Caption), 1) + Mid(Label1.Caption, 1, Len(Label1.Caption) - 1)
End Sub
Tambahan ^ Untuk Membuat Text/Label Kedap Kedip,Ni Codenya: - Spoiler:
Dim i As Long
Dim merah, hijau, biru As Integer
Private Sub Form_Load()
i = 0 'Inisialisasi detik
Timer1.Interval = 100 'Kalau 1000 biasanya lompat 1 detik
Label1.Caption = "Contoh Label Kedap Kedip..."
End Sub
Private Sub Timer1_Timer()
i = i + 1
If i = 1000000 Then i = 0 'Supaya tdk overflow, dsb...
merah = Int(255 * Rnd) 'Bangkitkan angka random untuk merah
hijau = Int(255 * Rnd) 'Bangkitkan angka random untuk hijau
biru = Int(255 * Rnd) 'Bangkitkan angka random untuk biru
Label1.ForeColor = RGB(merah, hijau, biru) 'Campur tiga warna
If i Mod 2 = 0 Then 'Jika counter habis dibagi 2
Label1.Visible = True 'Tampilkan label
Else 'Jika counter tidak habis dibagi 2
Label1.Visible = False 'Sembunyikan label
End If 'Akhir pemeriksaan
End Sub
-NO CAPS BERLEBIHAN
-NO LEACHER
-NO SARA
-NO JUNK
-NO FLOODSEBELUM COMMENT BACA >>>RULES DULU<<< | |
|
| | |
Sofian Karameca II
Admin
Jumlah posting : 132
Reputation : 42
Join date : 03.09.11
Age : 33
Lokasi : Rokan Hilir - Riau
| | Subyek: Re: [SHARE] Cara Membuat Label Berjalan Dan Label Kedap-Kedip Mon Sep 05, 2011 1:00 pm | |
| @TS Salah Room
W Pindahin Ke Visual Basic | |
|
| | |
Egy Karameca II
Warga
Jumlah posting : 13
Reputation : 0
Join date : 05.09.11
| | Subyek: Re: [SHARE] Cara Membuat Label Berjalan Dan Label Kedap-Kedip Mon Sep 05, 2011 1:07 pm | |
| ini dia yang gue cari nice share kak | |
|
| | |
|Hacker|
Warga 1+
Jumlah posting : 106
Reputation : 35
Join date : 03.09.11
Age : 31
Lokasi : cilegon,jawa barat
| | Subyek: Re: [SHARE] Cara Membuat Label Berjalan Dan Label Kedap-Kedip Mon Sep 05, 2011 2:06 pm | |
| | |
|
| | |
andri hidayat
Warga
Jumlah posting : 10
Reputation : 0
Join date : 05.09.11
| | Subyek: Re: [SHARE] Cara Membuat Label Berjalan Dan Label Kedap-Kedip Tue Sep 06, 2011 2:03 am | |
| | |
|
| | |
|Hacker|
Warga 1+
Jumlah posting : 106
Reputation : 35
Join date : 03.09.11
Age : 31
Lokasi : cilegon,jawa barat
| | Subyek: Re: [SHARE] Cara Membuat Label Berjalan Dan Label Kedap-Kedip Tue Sep 06, 2011 9:11 am | |
| | |
|
| | |
chelbapolanda
Warga 1+
Jumlah posting : 122
Reputation : 16
Join date : 04.09.11
Age : 27
Lokasi : Tembilahan, Riau
| | Subyek: Re: [SHARE] Cara Membuat Label Berjalan Dan Label Kedap-Kedip Tue Sep 06, 2011 9:20 am | |
| | |
|
| | |
|Hacker|
Warga 1+
Jumlah posting : 106
Reputation : 35
Join date : 03.09.11
Age : 31
Lokasi : cilegon,jawa barat
| | Subyek: Re: [SHARE] Cara Membuat Label Berjalan Dan Label Kedap-Kedip Tue Sep 06, 2011 9:29 am | |
| | |
|
| | |
No Name
Warga
Jumlah posting : 3
Reputation : 0
Join date : 11.09.11
| | Subyek: Re: [SHARE] Cara Membuat Label Berjalan Dan Label Kedap-Kedip Fri Sep 23, 2011 1:37 pm | |
| | |
|
| | |
Radenz
Warga
Jumlah posting : 43
Reputation : 8
Join date : 04.09.11
Age : 31
Lokasi : Tarakan Kalimantan Timur
| |
| | |
Sponsored content
| | Subyek: Re: [SHARE] Cara Membuat Label Berjalan Dan Label Kedap-Kedip | |
| |
|
| | |
| | [SHARE] Cara Membuat Label Berjalan Dan Label Kedap-Kedip | |
|
![[SHARE] Cara Membuat Label Berjalan Dan Label Kedap-Kedip I_vote_lcap](https://2img.net/s/t/17/70/20/i_vote_lcap.png){kind=small}
![[SHARE] Cara Membuat Label Berjalan Dan Label Kedap-Kedip I_voting_bar](https://2img.net/s/t/17/70/20/i_voting_bar.png){kind=small}
![[SHARE] Cara Membuat Label Berjalan Dan Label Kedap-Kedip I_vote_rcap](https://2img.net/s/t/17/70/20/i_vote_rcap.png){kind=small}
![[SHARE] Cara Membuat Label Berjalan Dan Label Kedap-Kedip M059](https://2img.net/h/www.laymark.com/i/m/m059.gif)
![[SHARE] Cara Membuat Label Berjalan Dan Label Kedap-Kedip M121](https://2img.net/h/www.laymark.com/i/m/m121.gif)