Mouse İle Açık Formu Kapatmak

(06/11/2024, 15:46)hmuratg yazdı: Merhaba, arkadaşlar formu kapat tuşu haricinde mouse ile çift tık veya tek tık ile kapatılabilirmi? Tşk.

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
' Sol tıklama (1 = sol buton) ile formu kapat
If Button = 1 Then
DoCmd.Close
End If
End Sub

(06/11/2024, 16:16)C*e*l*o*y*c*e yazdı:

(06/11/2024, 15:46)hmuratg yazdı: Merhaba, arkadaşlar formu kapat tuşu haricinde mouse ile çift tık veya tek tık ile kapatılabilirmi? Tşk.

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    ' Sol tıklama (1 = sol buton) ile formu kapat
    If Button = 1 Then
        DoCmd.Close
    End If
End Sub

Çok teşekkür ederim.

(06/11/2024, 16:16)C*e*l*o*y*c*e yazdı:

(06/11/2024, 15:46)hmuratg yazdı: Merhaba, arkadaşlar formu kapat tuşu haricinde mouse ile çift tık veya tek tık ile kapatılabilirmi? Tşk.

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    ' Sol tıklama (1 = sol buton) ile formu kapat
    If Button = 1 Then
        DoCmd.Close
    End If
End Sub

Merhaba  C*e*l*o*y*c*e bey, kodu denedim ama çalışmadı nerde hata yapıyor olabilirim.

Private Sub Form_DblClick(Cancel As Integer)
' Çift tıklama ile formu kapat
DoCmd.Close
End Sub

(06/11/2024, 16:38)C*e*l*o*y*c*e yazdı: Private Sub Form_DblClick(Cancel As Integer)
    ' Çift tıklama ile formu kapat
    DoCmd.Close
End Sub

Teşekkürler oldu..