İyi Günler ;
Ben BorderStyle - None Yapınca Mouse İle Hareket Ettirilmiyor Nasıl bir Şey Onerirsiniz ?
Şimdiden Teşekkurler
mouse tiklaninca ilk koordinatlari al. Sonra mouse move olayinda mouse'un ilk (veya bi önceki) koordinatlarina bakarak pencerenin konumunu degistir
Alıntı yapılan: picusta - 24 Eylül 2010, 13:37:45
mouse tiklaninca ilk koordinatlari al. Sonra mouse move olayinda mouse'un ilk (veya bi önceki) koordinatlarina bakarak pencerenin konumunu degistir
Teşekkur Ederim ama ben Normal BoderStyle Fixed Single Gibi Mesela Picture Tıklayınca Hareket edicek ve istedigi yere goturucek
Aşağıdaki kodu deneyebilir misiniz ?
'API Tanımları
Private Declare Function ReleaseCapture Lib "user32" () As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA"(ByVal hwnd As Long, _
ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
'Sabitler
Private Const WM_NCLBUTTONDOWN = &HA1
Private Const HTCAPTION = 2
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = vbLeftButton Then
ReleaseCapture
SendMessage Me.hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0
End If
End Sub
Teşekkur ederim Bu oldu