Tidak terasa setelah hampir setahun bertugas di daerah pedalaman Papua tanpa listrik, tanpa sinyal HP n jauh dari keramain akhirnya sekarang bisa kembali lagi ke peradaban... he he he ....
Pada postingan kali ini saya akan sedikit berbagi kode sederhana di VB6. Kalau selama ini kebanyakan program yang dibuat di VB6 berbentuk persegi atau persegi panjang maka mungkin tidak ada salahnya kalau kita coba buat yang berbentuk bulat seperti program sederhana di bawah ini :
1. Buka VB6
2. Atur Border Style di Properties Form1 seperti ini :
3. Dalam contoh ini back color dari Form1 saya ubah menjadi warna hitam supaya mudah untuk terlihat nantinya:
Private Declare Function SetWindowRgn Lib "User32" (ByVal created As Long, ByVal by As Long, ByVal Rudy As Long) As Long
Private Declare Function SendMessage Lib "User32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Sub ReleaseCapture Lib "User32" ()
Const WM_NCLBUTTONDOWN = &HA1
Const HTCAPTION = 2
'kode untuk menggerakkan Form menggunakan Mouse
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim lngReturnValue As Long
If Button = 1 Then
Call ReleaseCapture
lngReturnValue = SendMessage(Form1.hWnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&)
End If
End Sub
'kode untuk membuat Form1 menjadi bulat
Private Sub Form_Load()
Dim Chelpot As Long
Dim Rudy As Long
Chelpot = CreateEllipticRgn(0, 0, 400, 400)
Rudy = SetWindowRgn(Me.hWnd, Chelpot, True)
End Sub
5. Tambah sebuah Module dan masukkan kode di bawah ini :
Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" _
(ByVal lpCommandString As String, ByVal lpReturnString As String, _
ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
6. Berikut tampilan program ketika dijalankan:
7. Selesai dan selamat mencoba ya ^_^ ... Anda Pasti BISA !!!
Demikian artikel tentang Buat Form Bulat di Visual Basic 6 ini dapat kami sampaikan, semoga artikel atau info tentang Buat Form Bulat di Visual Basic 6 ini, dapat bermanfaat. Jangan lupa dibagikan juga ya! Terima kasih banyak atas kunjungan nya.
