THT DUYURU


THT Yardım Merkezi THT Yardım Merkezi bölümünden; teknoloji ve bilişim ile ilgili her konu için yardım isteyebilirsiniz.

Seçenekler

Visual Basic Emin misin Butonu ekleme

mutik95 - ait Kullanıcı Resmi (Avatar)
Yeni Üye
Üyelik tarihi:
10/2012
Mesajlar:
6
Konular:
6
Teşekkür (Etti):
0
Teşekkür (Aldı):
0
Ticaret:
(0) %
4
462
22-11-2012 17:34
#1
arkadaşlar bir program yazdım Çıkış butonuna tıkladığımda Emin misin evet deyince Çıksın Hayır Dediğinde Geri Dönsün Bunu Nasıl Yaparım
furkanakmann - ait Kullanıcı Resmi (Avatar)
Hesap Askıya Alındı
Üyelik tarihi:
07/2012
Nereden:
Cehennem
Mesajlar:
538
Konular:
55
Teşekkür (Etti):
109
Teşekkür (Aldı):
210
Ticaret:
(0) %
22-11-2012 17:44
#2
Kod:
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
Tesekür Butonuna Bassan Yeter Bnm Icın Bıde Konunun Yerı Yanlıs
S C B - ait Kullanıcı Resmi (Avatar)
Hesap Askıya Alındı
Üyelik tarihi:
09/2012
Nereden:
İstanbul
Yaş:
23
Mesajlar:
1.370
Konular:
98
Teşekkür (Etti):
0
Teşekkür (Aldı):
500
Ticaret:
(0) %
22-11-2012 18:42
#3
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
CETQ - ait Kullanıcı Resmi (Avatar)
Uzman Üye
Üyelik tarihi:
02/2011
Mesajlar:
1.297
Konular:
165
Teşekkür (Etti):
164
Teşekkür (Aldı):
656
Ticaret:
(0) %
22-11-2012 20:41
#4
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
Konu CETQ tarafından (22-11-2012 20:44 Saat 20:44 ) değiştirilmiştir.
ahmet2356532 - ait Kullanıcı Resmi (Avatar)
Katılımcı Üye
Üyelik tarihi:
11/2009
Nereden:
Konya
Mesajlar:
492
Konular:
38
Teşekkür (Etti):
65
Teşekkür (Aldı):
60
Ticaret:
(0) %
22-11-2012 21:41
#5
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
--------------------- [CENTER][COLOR=Lime]Çevrem genis diyenlere küçük bir not;

10 tane 10 kurus da 1 lira eder,

2 tane 50 kuruş da..

Bookmarks


« Önceki Konu | Sonraki Konu »
Seçenekler