Visual Basic Emin misin Butonu ekleme
- Konuyu başlatan mutik95
- Başlangıç tarihi
Kod:
[COLOR="Lime"][B]Private Sub Command1_Click()
m = MsgBox("çıkmak istediğinizden emin misiniz?", 36, "Çıkış")
If m = 6 Then
End
Else
Form1.Show
End If
End Sub[/B][/COLOR]Tesekür Butonuna Bassan Yeter Bnm Icın Bıde Konunun Yerı Yanlıs
Yada Ayrı Form Açarsın onunla yaparsın
Aynı Hata Olayı Gibi Eklersin Ancak Commandlara Unload Me Yada Form1.Show yaparsın eğer
Form2Den form1 e komut ver timerede unload me komutun ver value false olsun evet olayına basınca ilk baş Unload Me Sonraki kodda Form1.Timer1.Enabled = True Yap Biraz karışık oldu ama algoritma diyoruz buna
Aynı Hata Olayı Gibi Eklersin Ancak Commandlara Unload Me Yada Form1.Show yaparsın eğer
Form2Den form1 e komut ver timerede unload me komutun ver value false olsun evet olayına basınca ilk baş Unload Me Sonraki kodda Form1.Timer1.Enabled = True Yap Biraz karışık oldu ama algoritma diyoruz buna
Private Sub Command1_Click()
Dim cvp
cvp = MsgBox("Çıkış yapılsın mı?", vbQuestion + vbYesNo, "Çıkış")
If cvp = vbYes Then
End 'End bütün formları kapatır, Sadece acık olan formu kapatmak istersen Unload me yaz
End If
End Sub
'hayır a basıldı mı işlem yapmaz işlem yaptırmak istersen End altına ;
else
Form2.Show
'gibi yapabilirsin
Dim cvp
cvp = MsgBox("Çıkış yapılsın mı?", vbQuestion + vbYesNo, "Çıkış")
If cvp = vbYes Then
End 'End bütün formları kapatır, Sadece acık olan formu kapatmak istersen Unload me yaz
End If
End Sub
'hayır a basıldı mı işlem yapmaz işlem yaptırmak istersen End altına ;
else
Form2.Show
'gibi yapabilirsin
Son düzenleme:
Butona Felan Gerekyok Kardesim Forum Kodlama Bolumunde Sol Ustten Formu Sec Sagdanda QERYQuit Gibi Bir Olay Var Onu Sec Gelen 2 Kodlama Arasına
Dim cvp
cvp = MsgBox("Çıkış yapılsın mı?", vbQuestion + vbYesNo, "Çıkış")
If cvp = vbYes Then
End 'End bütün formları kapatır, Sadece acık olan formu kapatmak istersen Unload me yaz
End If
bunu yapıstırabılırsın hem butonla ugrasmassın formun kendı kapama dugmesınde bastıgında bu olay meydana gelır kolay gelsin
Dim cvp
cvp = MsgBox("Çıkış yapılsın mı?", vbQuestion + vbYesNo, "Çıkış")
If cvp = vbYes Then
End 'End bütün formları kapatır, Sadece acık olan formu kapatmak istersen Unload me yaz
End If
bunu yapıstırabılırsın hem butonla ugrasmassın formun kendı kapama dugmesınde bastıgında bu olay meydana gelır kolay gelsin
