Pengen tampilan controls anda menjadi flat?? tanpa bantuan ActiveX ataupun komponen tambahan...
emmmmm.... mudah koq sya buatkan Aplikasi Sederhana untuk tampilan Flat pada Controls anda seperti TextBox, CommanButton dll..!!! Aplikasi Ini Saya buat Pure dengan Vb 6.0
Langsung aja dech nih Code nya :
1. buka Vb loe...........
2. tambahkan 1 textbox,2 listbox,2 picturebox,1 commandbutton
Copy Code Di bawah ini
'Declaration
Option Explicit
Const GWL_EXSTYLE = (-20)Const WS_EX_CLIENTEDGE = &H200
Const WS_EX_STATICEDGE = &H20000
Const SWP_FRAMECHANGED = &H20
Const SWP_NOZORDER = &H4
Const SWP_NOSIZE = &H1Const SWP_NOMOVE = &H2
Const SWP_NOACTIVATE = &H10Const SWP_SHOWWINDOW = &H40
Private Declare Sub 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)
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
Public Sub FlatStyle(ByVal HWND As Long)
Dim oStyle As Long oStyle = GetWindowLong(HWND, GWL_EXSTYLE) oStyle = oStyle And Not WS_EX_CLIENTEDGE Or WS_EX_STATICEDGE
SetWindowLong HWND, GWL_EXSTYLE, oStyle SetWindowPos HWND, 0, 0, 0, 0, 0, SWP_NOACTIVATE Or SWP_NOZORDER Or _ SWP_FRAMECHANGED Or SWP_NOSIZE Or SWP_NOMOVE
End Sub
Private Sub Form_Load()
'Sediakan beberapa objek spt (Picture1,List1,Text1,Command1, dll...)
'Panggil fungsi seperti ini dengan parameter HWND setiap objek FlatStyle Command1.HWND
'apabila ingin otomatis untuk semua objek di form
'bisa pake fungsi berikut:
On Error Resume Next
Dim cc As Control
For Each cc In Me.Controls
FlatStyle cc.HWND Next
End Sub
Setelah dijalankan maka hasilnya seperti ini :
Silahkan download disini untuk lebih lengkapnya http://www.mediafire.com/?dxzybj9znyj