Hocam ellerinize sağlık, aynen istediğim buydu çok teşekkür ederim.
Form sadece ayrıntı bölümü için düzenlemişsiniz kodu zannedersem, diğer alanlar içinde uygulanabiilirmi acaba.
aşağıdaki kodu her formun Fare tuşuna basılırken olayına eklersem diğer formlarıda aynı şekilde kullanabilirim değilmi.
Emeğinize sağlık.
Merhaba
Hangi Formda kullanıcaksanız formun Kod Görünümde (ALT+F11) herhangi bir boş alana aşağıdaki kodu yapıştırın
Kod:
Sub moveform(frm As Form)
Dim ReturnVal As Long
ReleaseCapture
ReturnVal = SendMessage(frm.hWnd, WM_NCLBUTTONDOWN, HTCAPTION, 0)
If ReturnVal = 0 Then
End If
End Sub
Daha sonra hangi nesne yardımı ile formu taşıyacaksanız o nesnenin FARE TUŞUNA BASILIRKEN olayına aşağıdaki kodu yapıştırdığınız çalışacaktır.
Kod:
If Button = 1 Then moveform Me
Daha önceki yorumumda gönderdiğim linkin içerisinde ki örnekte de bu mevcuttu.
İyi çalışmalar dilerim.
Çok teşekkür ederim hocam,
Tekrar elinize emeğinize sağlık.
Konu çözülmüştür.
Nerede hata yapıyorum üstad bakmanız mümkün mü?
[img]
[/img]
Kırmızı yazıyla yazılmış alanda hata yapıyorsunuz orayı çekip atınız.