CARA MEMBUAT TULISAN
BERJALAN DAN BEWARNA WARNI DI VB6
Pertama siapkan
Vb6 Kalau gak punya beli dulu di took matrial J
Setelah itu
siapkan sebagai berikut =
- 1 form
- 1 label
- Dan 2 timer
- Set interval = 100
Sudah
Itu Klik Kanan pada form dan klik view code isikan code ini :
Option
Explicit
Dim
I As Long
Dim
merah, hijau, biru As Integer
Dim
Counter As Integer
Dim
sound As Boolean
Private
Const GWL_EXSTYLE As Long = (-20)
Private
Const WS_EX_LAYERED As Long =
&H80000
Private
Const LWA_ALPHA As Long = &H2
Private
Declare Function CreateRoundRectRgn Lib "gdi32" (ByVal X1 As Long,
ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long, ByVal X3 As Long, ByVal
Y3 As Long) As Long
Private
Declare Function CreateEllipticRgn Lib "gdi32" (ByVal X1 As Long,
ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
Private
Declare Function SetWindowRgn Lib "user32" (ByVal hWnd As Long, ByVal
hRgn As Long, ByVal bRedraw As Boolean) As Long
Private
Declare Function ReleaseCapture Lib "user32" () As Long
Private
Declare Function SendMessage Lib "user32" Alias
"SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam
As Long, lParam As Long) As Long
Public
LoginSucceeded As Boolean
Sub
Timer1_Timer()
Label1.Caption = Right(Label1.Caption,
Len(Label1.Caption) - 1) & Left(Label1.Caption, 1)
End Sub
Private
Sub Timer2_Timer()
'Fungsi
Label Warna
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
- Selesai lalu Klik F5 Untuk Menjalan kan
- lihat hasil nya
- 