VB6 Code - Menutup Seluruh Form For...each

Di bawah ini merupakan procedure VB6 untuk menutup seluruh form dengan menggunakan for...each.

Option Explicit

Public Sub CloseAllForm()
   Dim frm As Form
   For Each frm In Forms
       Unload frm
   Next
End Sub

Contoh penggunaan procedure di atas:

Private Sub Form_Unload(Cancel As Integer)
   CloseAllForm
End Sub

Demikian contoh kode VB6 untuk menutup seluruh form menggunakan for .. each. Semoga bermanfaat.

READ MORE - VB6 Code - Menutup Seluruh Form For...each

VB6 Code - Membuat Form Yang Berbentuk Lingkaran

Mengenai cara membuat form yang berbentuk lingkarang menggunakan VB6 - Adapun cara membuat form berbentuk lingkaran menggunakan VB6 adalah sebagai berikut:

Option Explicit

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

Function CutCirCle(frm As Form, Left, Top, Fat, Tall)
    With frm
        .Width = (Fat + 10) * 15
        .Height = (Tall + 10) * 15
    End With
    SetWindowRgn frm.hWnd, CreateEllipticRgn(Left, Top, Fat, Tall), True
End Function

Contoh penggunaan kode VB6 di atas:

Private Sub Command1_Click()
    Call CutCirCle(Me, 0, 0, 600, 600)
End Sub

Private Sub Form_Resize()
    Command1.Left = ((610 * 15) / 2) - (Command1.Width / 2)
End Sub

Demikian kode VB6 untuk membuat form yang berbentuk lingkaran. Semoga bermanfaat.

READ MORE - VB6 Code - Membuat Form Yang Berbentuk Lingkaran

VB6 Code - Menyimpan Form Di Tengah Layar (screen)

Di bawah ini merupkan procedure VB6 untuk menyimpan/memindahkan form tepat di tengah layar.

Option Explicit

Private Sub CenterForm(frmIn As Object)

    Dim iTop As Integer, ileft As Integer

    If frmIn.WindowState <> 0 Then
        'prevent if form maximized or minimized
          'the form must in normal condition
          Exit Sub
    End If

    ileft = (Screen.Width - frmIn.Width) \ 2
    iTop = (Screen.Height - frmIn.Height) \ 2
    frmIn.Move ileft, iTop

End Sub

Cara penggunaan kode VB6 di atas:

Private Sub Form_Load()
    Form_Resize
End Sub

Private Sub Form_Resize()
    CenterForm Me
End Sub

READ MORE - VB6 Code - Menyimpan Form Di Tengah Layar (screen)

VB6 Code - Membuat Form Yang Berbentuk Elips

Bagaimanakah cara membuat form yang berbentuk elips menggunakan kode Vb6? tentu saja untuk keperluan ini kita harus memanggil beberapa fungsi API. Bagaimana kode lengkap dari VB6 tersebut \? simaklah di bawah ini:

Option Explicit

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

Contoh penggunaan fungsi API agar form berbentuk Elips

Private Sub Form_Click()
    Unload Me
End Sub

Private Sub Form_Load()
    SetWindowRgn hWnd, CreateEllipticRgn(0, 0, 299, 200), True
End Sub

Demikian kode VB6 untuk membuat form yang berbentuk lingkaran.

READ MORE - VB6 Code - Membuat Form Yang Berbentuk Elips