Acces Penceresi Gizleme Problemi

1 2 3
10/02/2022, 19:26

lemoncher2

Örneği İncelermisin.
10/02/2022, 21:16

akdemir1

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.
10/02/2022, 22:12

lemoncher2

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.
11/02/2022, 08:23

akdemir1

Çok teşekkür ederim hocam,
Tekrar elinize emeğinize sağlık.
Konu çözülmüştür.
15/02/2022, 13:26

invitation

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.
1 2 3