Selasa, 25 Mei 2010

Membuat Form Unik dengan Visual Basic 6.0

    Dengan visual basic kita tidak hanya dapat menggunakan form standart yang telah disediakan tapi dengan sedikit perhitungan matematis kita akan dapat menghasilkan bentuk form yang unik.Sebagai contoh disini kita akan membuat form unik berbentuk lingkaran.

Langkah-langkahnya sebagai berikut:

>> Telebih dahulu buka program Visual Basic 6.0 anda
>> Dan pilih standart project.
>> Kemudian anda sediakan sebuah module baru dan ketikan listing berikut. Atau    cukup di jendela code,dan anda ganti Public menjadi Private

Public Declare Function SetWindowRgn Lib "user32" (ByVal hWnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long


Public Declare Function CreateEllipticRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long

Note.Anda dapat menggunakan file API dari VB. Caranya baca di Menggunkan file API

>>> kemudian di jendela kode ketikan Listing ini

Private Sub Form_Load()
Dim atas As Long
Dim hasil As Long
Me.Width = 1000 * Screen.TwipsPerPixelX / 2
Me.Height = 1000 * Screen.TwipsPerPixelY / 2
atas = CreateEllipticRgn&(10, 50, 450, 470)
hasil = SetWindowRgn(Me.hWnd, atas, True)
End Sub

Private Sub Form_Paint()
Dim y As Long
Dim tinggi As Long
Dim lebar As Long
ScaleMode = vbPixels
tinggi = ScaleHeight
lebar = ScaleWidth
DrawStyle = vbInvisible
FillStyle = vbFSSolid
For y = 0 To tinggi
    FillColor = RGB(0, 0, 255 - (y * 255) \ tinggi)
    Line (-1, y - 1)-(lebar, y + 1), , B
    Next y
End Sub

Dan Form yang akan jadi seperti ini.
Gambar.1 Form Unik Buatan Sendiri

5 komentar:

  1. Terimakasih Kang Idenya sangat bagus.....11111

    BalasHapus
  2. pak minta sourcenya

    BalasHapus
  3. Kemana saya harus mengirimkan source code yang anda inginkan?
    nb.harus sabar soalnya sering lupa dan jarang internetan

    BalasHapus
  4. Bang bsa pke kata2 yang standar gak ngejelasinx, maklum bru blajar nih?

    BalasHapus
  5. bang bisa tidak kalau pake image buat jam analognya??? postingin dong contohnya kalau ada pake image

    BalasHapus

Need Your Comments, Please !!!