BorderStyle - None Yardım

[ßy_Sky]

İyi Günler ;

Ben BorderStyle - None Yapınca Mouse İle Hareket Ettirilmiyor Nasıl bir Şey Onerirsiniz ?

Şimdiden Teşekkurler

[picusta]

mouse tiklaninca ilk koordinatlari al. Sonra mouse move olayinda mouse'un ilk (veya bi önceki) koordinatlarina bakarak pencerenin konumunu degistir

[ßy_Sky]

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

[NecroCapo]

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

[ßy_Sky]

Teşekkur ederim Bu oldu