Membuat Efek Fade-In Fade-Out Pada Form - VB6 Code

Di bawah ini merupakan fungsi untuk membuat efek fade pada sebuah form.

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 color As Long, ByVal x As Byte, ByVal alpha As Long) As Boolean 
 
Const LWA_BOTH = 3 
Const LWA_ALPHA = 2 
Const LWA_COLORKEY = 1 
Const GWL_EXSTYLE = -20 
Const WS_EX_LAYERED = &H80000 
 
Dim iTransparant As Integer 
 
Public Sub MakeTransparan(hWndBro As Long, iTransp As Integer) 
    On Error Resume Next 
 
    Dim ret As Long 
    ret = GetWindowLong(hWndBro, GWL_EXSTYLE) 
 
    SetWindowLong hWndBro, GWL_EXSTYLE, ret Or WS_EX_LAYERED 
    SetLayeredWindowAttributes hWndBro, RGB(255, 255, 0), iTransp, LWA_ALPHA 
    Exit Sub 
End Sub 

Private Sub Command1_Click() 
    Unload Me 
End Sub 

Private Sub Form_Load() 
 
    Timer1.Enabled = False 
    Timer2.Enabled = False 
    Timer1.Interval = 1 
    Timer2.Interval = 1 
    Me.Visible = False   
    Timer1.Enabled = True 
 
End Sub 
 
Private Sub Form_Unload(Cancel As Integer) 
    Cancel = 1 
    Timer1.Enabled = False 
    Timer2.Enabled = True 
End Sub 
 
Private Sub Timer1_Timer() 
    On Error Resume Next 
    iTransparant = iTransparant + 5 
    If iTransparant > 255 Then 
        iTransparant = 255 
        Timer1.Enabled = False 
    End If 
      MakeTransparan Me.hWnd, iTransparant 
    Me.Show 
End Sub 
 
Private Sub Timer2_Timer() 
    On Error Resume Next 
    iTransparant = iTransparant - 5 
    If iTransparant < 0 Then 
        iTransparant = 0 
        Timer2.Enabled = False 
        End 
    End If 
    MakeTransparan Me.hWnd, iTransparant 
End Sub 

READ MORE - Membuat Efek Fade-In Fade-Out Pada Form - VB6 Code

Menjadikan Form Berada Paling Depan

Fungsi di bawah ini merupakana cara menampilkan form agar berada paling depan (Form On Top/Top Most)

Option Explicit 
 
Public Declare Function SetWindowPos Lib "user32" ByVal hWnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long 
 
Public Const HWND_TOPMOST = -1 
Public Const HWND_NOTOPMOST = -2 
Public Const SWP_NOMOVE = &H2 
Public Const SWP_NOSIZE = &H1 
Public Const SWP_NOACTIVATE = &H10 
Public Const SWP_SHOWWINDOW = &H40 
Public Const FLAGS = SWP_NOMOVE Or SWP_NOSIZE 
 
Public Function TopMost(frm As Form, bTopMost As Boolean) 
    If bTopMost Then 
        Call SetWindowPos(frm.hWnd, HWND_TOPMOST, 0, 0, 0, 0, FLAGS) 
    Else 
        Call SetWindowPos(frm.hWnd, HWND_NOTOPMOST, 0, 0, 0, 0, FLAGS) 
    End If 
End Function 
Contoh penggunaan menjadikan form berada paling depan 
Private Sub Form_Load() 
    TopMost Me, True 
End Sub  

READ MORE - Menjadikan Form Berada Paling Depan

Menjadikan Form Semi Transparan

Bagaimana cara membuat form semi transparan menggunakan Visual Basic 6.0. Simaklah kodenya di bawah ini:

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 color As Long, ByVal x As Byte, ByVal alpha As Long) As Boolean 
 
Const LWA_BOTH = 3 
Const LWA_ALPHA = 2 
Const LWA_COLORKEY = 1 
Const GWL_EXSTYLE = -20 
Const WS_EX_LAYERED = &H80000 
 
Dim iTransparant As Integer 
 
Sub MakeTransparan(hWndBro As Long, iTransp As Integer) 
    On Error Resume Next 
 
    Dim ret As Long 
    ret = GetWindowLong(hWndBro, GWL_EXSTYLE)   
 
    SetWindowLong hWndBro, GWL_EXSTYLE, ret Or WS_EX_LAYERED 
    SetLayeredWindowAttributes hWndBro, RGB(255, 255, 0), iTransp, LWA_ALPHA 
    Exit Sub 
 
End Sub 

Contoh penggunaan membuat form semi transparan

Option Explicit 
 
Private Sub Form_Load() 
    On Error Resume Next 
    MakeTransparan Me.hWnd, 75 
End Sub 

READ MORE - Menjadikan Form Semi Transparan

Generate nomor Secara Unik

Di bawah ini merupakan fungsi yang berlakuk sebagai sebuah generator agar menampilkan nomor secara unik (tidak ada yang sama satu dengan yang lainnya).

Option Explicit 
 
Private Function GenRanUnix(MIN As Integer, MAX As Integer) As Collection 
 
    Dim iMax As Integer 
    Dim iRan As Integer 
    Dim g As Integer 
    Dim y As Integer 
    Dim c As New Collection 
    Dim k As New Collection 
    Dim f As Integer 
    Dim x As Integer 
 
    For f = MIN To MAX 
        c.Add f 
    Next 
 
    y = c.Count 
    Randomize 
 
    For x = 1 To y 
        g = Int(y * Rnd + 1) 
        k.Add c.Item(g) 
        c.Remove g 
        y = c.Count 
    Next 
 
    Set GenRanUnix = k 
 
End Function 

Contoh penggunaan generate nomor secara unik

Private Sub Command1_Click() 
    Dim b As New Collection 
    Dim i As Integer 
    Dim msg As String 
    List1.Clear 
    Set b = GenRanUnix(0, 100) 
    For i = 1 To   b.Count 
        List1.AddItem b.Item(i) 
    Next 
End Sub 

READ MORE - Generate nomor Secara Unik