Picproje Elektronik Sitesi

PROGRAMLAMA DİLLERİ => Visual Basic => Konuyu başlatan: ßy_Sky - 24 Eylül 2010, 08:31:23

Başlık: BorderStyle - None Yardım
Gönderen: ßy_Sky - 24 Eylül 2010, 08:31:23
İyi Günler ;

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

Şimdiden Teşekkurler
Başlık: Ynt: BorderStyle - None Yardım
Gönderen: 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
Başlık: Ynt: BorderStyle - None Yardım
Gönderen: ßy_Sky - 25 Eylül 2010, 17:33:01
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
Başlık: Ynt: BorderStyle - None Yardım
Gönderen: NecroCapo - 25 Eylül 2010, 19:30:41
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
Başlık: Ynt: BorderStyle - None Yardım
Gönderen: ßy_Sky - 30 Eylül 2010, 17:05:02
Teşekkur ederim Bu oldu