Ubah Warna Form dengan HScrollBar

Deskripsi : Anda ingin mengubah warna form program Anda setiap saat ketika Program Anda sedang RUN..?? Berikut Tipsnya&^-^..

'*************************************
'* Ubah Warna Form dengan HScrollBar *
'*************************************
'Email : ryan20shinichi@gmail.com
'Facebook : Shinichi Ryan
'--------------------------------
'Komponen Yang dibutuhkan :
'1. 1 Project & 1 Form
'2. 3 HScrollBar
'Koding di Form

'--------- Batas Awal ----------
Private Sub HScroll1_Change(Index As Integer)
Me.BackColor = RGB(HScroll1(0), HScroll1(1), HScroll1(2))
End Sub
'--------- Batas Akhir ----------

Form Transparan

Deskripsi : Tips berikut ini adalah bagaimana Form terlihat Transparan sehingga yang terlihat hanyalah Gambar Backgroundnya saja!

'*******************
'* Form Transparan *
'*******************
'Email : ryan20shinichi@gmail.com
'Facebook : Shinichi Ryan
'--------------------------------
'Komponen Yang dibutuhkan :
'1. 1 Project & 1 Form
'2. 1 Module
'Sebelumnya Atur Nilai Properties Form nya sbb:
'1. Ubah BackColor --> Biru
'2. Ubah BorderStyle ---> 0-None
'3. Masukkan Gambar dgn Extension .gif



'Koding di Form
'--------- Batas Awal ----------
Option Explicit
Dim color As Long, flag As Byte

Private Sub Form_Activate()
On Error GoTo Err
color = vbBlue
flag = flag Or LWA_COLORKEY
SetTransparan Form1.hwnd, color, 0, flag
Exit Sub
Err: MsgBox Err.Description & " Source : " & Err.Source
End Sub


Private Sub Label1_Click()
End
End Sub
'--------- Batas Akhir ---------- '


'Koding di Module
'--------- Batas Awal ----------
Option Explicit
Public Const LWA_COLORKEY = 1
Public Const LWA_ALPHA = 2
Public Const LWA_BOTH = 3
Public Const WS_EX_LAYERED = &H80000
Public Const GWL_EXSTYLE = -20
Public Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long, ByVal warna As Long, ByVal X As Byte, ByVal alpha As Long) As Boolean
Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Public Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long

Sub SetTransparan(frm As Long, warna As Long, nTrans As Integer, flag As Byte)
On Error GoTo Err

Dim attrib As Long
attrib = GetWindowLong(frm, GWL_EXSTYLE)
SetWindowLong frm, GWL_EXSTYLE, attrib Or WS_EX_LAYERED
SetLayeredWindowAttributes frm, warna, nTrans, flag
Exit Sub
Err:
MsgBox Err.Description & " Source : " & Err.Source
End Sub
'--------- Batas Akhir ----------

Form Tanpa Title Bar

Deskripsi : Banyak kita jumpai Form tanpa Title Bar, Anda tahu cara menghilangkannya?? Berikut Tipsnya..

'************************
'* Form Tanpa Title Bar *
'************************
'Email : ryan20shinichi@gmail.com
'Facebook : Shinichi Ryan
'--------------------------------
'Komponen Yang dibutuhkan :
'1. 1 Project & 1 Form
'2. 1 Command (for Exit)

Form Hanya Run 1x

Deskripsi : Ketika Program VB Anda telah di-Compile menjadi (.exe),
Program Anda dapat RUN lebih dari 1x,, Pertanyaannya,
Bisakah Program Anda hanya dapat RUN 1x?? Berikut Tipsnya^-^
'*********************
'* Form Hanya Run 1x *
'*********************
'Email : ryan20shinichi@gmail.com
'Facebook : Shinichi Ryan
'--------------------------------
'Komponen Yang dibutuhkan :
'1. 1 Project & 1 Form
'2. Telah diCompile
'Koding di Form

'--------- Batas Awal ----------
Private Sub Form_Load()
If App.PrevInstance = True Then End
End Sub
'--------- Batas Akhir ----------

Drag Form Tanpa Harus pada Title Bar

Deskripsi : Tips berikut ini adalah bagaimana men-Drag Form tanpa harus pada Title Bar

'****************************************
'* Drag Form Tanpa Harus pada Title Bar *
'****************************************
'Email : ryan20shinichi@gmail.com
'Facebook : Shinichi Ryan
'--------------------------------
'Komponen Yang dibutuhkan :
'1. 1 Project & 1 Form
'Koding di Form
'--------- Batas Awal ----------
Option Explicit
Dim drag_horizontal, drag_vertikal As Integer

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
drag_horizontal = X
drag_vertikal = Y
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = vbLeftButton Then
Me.Left = Me.Left - (drag_horizontal - X)
Me.Top = Me.Top - (drag_vertikal - Y)
End If
End Sub
'--------- Batas Akhir ----------

Animasi Form Exit

Deskripsi : Anda ingin Tombol Keluar pada Program VB Anda terlihat berbeda dari biasanya? Berikut Tips Agar Tombol Keluar dapat Naik & Turun..


'*********************
'* Animasi Form Exit *
'*********************
'Email : ryan20shinichi@gmail.com
'Facebook : Shinichi Ryan
'--------------------------------
'Komponen Yang dibutuhkan :
'1. 1 Project & 1 Form
'2. 2 Command
'Koding di Form
'--------- Batas Awal ----------
'Keluar(Naik)
Private Sub Command1_Click()
Do Until Me.Top <= -4000 Me.Move Me.Left, Me.Top - 30: DoEvents Loop End End Sub 'Keluar(Turun) Private Sub Command2_Click() Do Until Me.Top > 15000
Me.Move Me.Left, Me.Top + 30: DoEvents
Loop
End
End Sub
'--------- Batas Akhir ----------