Originally Posted by
solidus
kak dcs_god aku lagi senang bikin prog di vb 6 enterprise, ak dah ketemuin coding cara buat bikin baground transparant (ga kelihatan bukan samar) dan hanya image yang aku masukin aja yang kelihatan jadi kan lebih keren, tapi setelah itu image(prog hasilnya) ga bisa di drag karena title barnya dah ga kelihatan(samar) jadi.......! tahu coding biar bisa image nya atau shape di dalam progq bisa di drag and drop.....! bls ya.....!
maksudnya biar moveable gitu ya???
klo buat moveable gini caranya :
pada general declaration :
Code:
Private Declare Sub ReleaseCapture Lib "user32" ()
Private Const WM_NCLBUTTONDOWN = &HA1
Private Const HTCAPTION = 2
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
pada image_mousemove
Code:
If Button = 1 Then
ReleaseCapture
SendMessage Me.hWnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&
End If
nah gitu aja ,,, klo gk jalan bilank ya
Share This Thread