Cara mendapatkan 3 Dolar per hari, kerjanya cuma klik iklan yang muncul langsung dibayar caranya:klik gambar dibawah ini atau klik Register Clixsense, lengkapi identitas, tekan Sign-Up kemudian konfirmasi Email.Anda siap klik iklan. Info Lengkap
Hai, sobat Blogger apakabarnya semua kali ini kita akan
mempelajari berbagai macam tip untuk mempercantik tampilan Form di VB, dimana
tip ini tidak memerlukan kode panjang tapi hasilnya membuat kita kagum para
pengguna. Agar tidak penasaran silakan Anda mencoba sendiri, berikut tip-nya :
1. Membuat Form Berbentuk Elips
·
Buka Form baru
·
Masuk ke jendela Kode (F7),kemudian ketik kode
berikut:
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 “user 32” (ByVal hWnd As
Long, ByVal hRgn As Long, ByVal bRedraw As Long) As Long
Private Sub Form_Load ()
Dim lngRegion As Long
Dim lngReturn As Long
Dim FormWidth As Long
Dim FormHeight As Long
lngFormWidth=Me.Width/Screen.TwipsPerPixelX
lngFormHeight=Me.Height/Screen.TwipsPerPixelY
lngRegion=CreateEllipticRgn(0, 0, lngFormWidth, lngFormHeight)
lngReturn=SetWindowRgn(Me.hWnd, lgnRegion, True)
End Sub
Jalankam Program
2. Membuat Form dengan Gradiasi Warna
·
Buka Form yang akan diberikan Gradiasi warna
·
Buka Jendela kode,ketik kode berikut :
Private Sub Form_load()
Form1.AutoRedraw=True
For Y = 0 To ScaleHeight
Line (1,Y)-(ScaleWidth, Y), RGB (200, 150, 255 – (Y*255)\ScaleHeight)
Next Y
End Sub
Jalankan prigram
3. Membuat Efek Form Saat di Close
·
Buka Form yang akan diberikan Efect
1.Form bergerak ke samping
kemudian menghilang kodenya:
Do
Me.Left = Me.Left+ 40
Me.Move Me.Left, Me.Top
DoEvents
Loop Until Me.Lef t >
Screen.Width
2.Form jatuh kebawah kemudian menghilang, kodenya:
Do
Me.Top = Me.Top+ 20
Me.Move Me.Left, Me.Top
DoEvents
Loop Until Me.Top >
Screen.Height-500
3. Form mengecil kemudian menghilang
Do
Form1.Height = Form1.Height -10
Form1.Width = Form1.Width -10
Loop Until Form1.Height=405 And
Form1Width=1680
UnloadMe
Pilih kode yang efek yang anda
ginakan lalu tempatkan di
Private Sub Form_UnLoad (Cancel
As Integer)
Kode disini
End Sub
Jalankan program
4. Membuat Label Berubah Warna
·
Buka Form yang akan diberikan label
·
Letakan Label di Form dan sebuah Timer atur
propertinya
·
Label1 Caption=
Visual Basic
·
Timer interval
: 100
·
Setelah itu buka jendela kode ketik kode berikut:
Private Sub Timer_Timer1()
Label1.ForeColor=RGB(Rnd*255,Rnd*255,Rnd*255)
End Sub
Jalankan program
6. Membuat
Efek Warna pada Command Button
1. Jalankan
program visual basic 6.0 dengan form Standar EXE Setelah itu pilih dan klik CommandButton lalu buat Command di Form
2. Pada Properties – Command1 ubah style dari 0-standard
menjadi 1- Grahphical
3. Ubah
warna command di Propertis-Command1 dengan cara mengklik pada kotak BackColor
kemudian pilih Pallate yang memiliki banyak pilihan warna setelah itu pilih
warna sesuai dengan yang di inginkan, untuk contoh saya mengambil warna merah
4. Masukan kode di bawah ini
Private
Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As
Single)
Command1.BackColor
= &HFF00&
End Sub
Private
Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As
Single)
Command1.BackColor
= &HFF&
End Sub
7. Membuat Tampilan Form dengan Caption
Berjalan
·
Buka Form yang akan di jadikan caption berjalan
·
Letakan Timer dengan interval 100
·
Ketik Kode berikut:
Dim TEXT As String
Private Sub Form_load()
TEXT=”BELAJAR VISUAL BASIC”
End Sub
Private Sub Timer_Timer1()
A=Left(TEXT,1)
C=Len(TEXT)
B=Right(TEXT, C-1)
TEXT=B+A
Form1.Caption=TEXT
End Sub
8. Membuat Form Transparan
·
Buka Form yang akan di Jadikan transparan
·
Lalu ketikan kode berikut:
Option Explicit
Private Declare Function GetWindowLong Lib "user32" Alias
"GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias
"SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal
dwNewLong As Long) As Long
Private Declare Function SetLayeredWindowAttributes Lib
"user32" (ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As
Byte, ByVal dwFlags As Long) As Long
Private Const GWL_STYLE = (-16)
Private Const GWL_EXSTYLE = (-20)
Private Const WS_EX_LAYERED = &H80000
Private Const LWA_COLORKEY = &H1
Private Const LWA_ALPHA = &H2
Public Function MakeTransparentForm(frm As Form)
frm.BackColor = vbBlue
SetWindowLong frm.hwnd,
GWL_EXSTYLE, GetWindowLong(frm.hwnd, GWL_EXSTYLE) Or WS_EX_LAYERED
SetLayeredWindowAttributes
frm.hwnd, vbBlue, 0&, LWA_COLORKEY
End Function
Private Sub Form_Load()
MakeTransparentForm Me
End
Sub
Demuikiam tip dari saya semoga bermanfaat,mohon maaf bila ada kselahan
Penulis: tutorial ~ Nurhasan Blogger | Blog Tutorial dan Informasi |
Artikel SPECIAL EFECT UNTUK TAMPILAN FORM dengan VB 6.0 ini dipublish oleh tutorial pada hari Tuesday, 26 May 2015Terima kasih Anda telah membaca artikel tentang SPECIAL EFECT UNTUK TAMPILAN FORM dengan VB 6.0.