Kod :
Pencereyi kapatmak için kapat düğmesini tıklıcaktır kullanıcı ama...
Formun unload prosedürüne girin, ve sadece şunu yazın
işte ;
Private Sub Form_Unload(Cancel As Integer)
cancel=1 'formu kapatma
End Sub
isterseniz değişik mesajlarla kullnıcıyla eğlenebilirsiniz örneğin ;
Private Sub Form_Unload(Cancel As Integer)
cancel=1
msgbox "Kapatamazsınız"
End Sub
Private Sub Form_Load()
app.taskvisible=false 'görev çubuğunda gösterme
End Sub
Pencereyi kapatmak için kapat düğmesini tıklıcaktır kullanıcı ama...
Formun unload prosedürüne girin, ve sadece şunu yazın
işte ;
Private Sub Form_Unload(Cancel As Integer)
cancel=1 'formu kapatma
End Sub
isterseniz değişik mesajlarla kullnıcıyla eğlenebilirsiniz örneğin ;
Private Sub Form_Unload(Cancel As Integer)
cancel=1
msgbox "Kapatamazsınız"
End Sub
Private Sub Form_Load()
app.taskvisible=false 'görev çubuğunda gösterme
End Sub