Msgbox Hakkında bilgiler

arkadalar bu konuda msgbox hakkında bilgi verecegim hemen konuya geçelim

Örnek : Bi program yazdık programa girereken dedikki adınızı yazın

ve adınızı yazdıgınızda size Hoşgeldiniz : "Texte ne yazılırsa artık" yazmasını istiyoruz
o zzamn formumuza bi textbox bir timer ekleyelim birde buton => timer enabled false interval 100 olsun , butonun captionu ileri oalrak degiştirelim
ve msj adında degişken tanımlıcaz :
Not : eger degişken tanımlıyorsanız Form Load bölümüne tanınlarsanız Tüm form için olur ama kullanıcalk nesneye tanımlarsanız sadece o nesnede kullanılır örnekte göründügü gibi.
Code:
Private Sub Command1_Click()
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
Dim msj
msj = MsgBox("Hoşgelnidiniz:" + (Text1.Text), vbQuestion, "Kasner")
Timer1.Enabled = False
End Sub

ewet şimdide msgbox bize ewet hayır diye bi soru sormasını istersek
Örnek: Form 2 ye gidicez ama msgbox la sorucaz verilen cevaba göregidicez nasıl yapcagız dersek.

Forma 1 adet buton ekleyin ismini (caption) Menüye geç olsun birde Form2 açalım;
Code ;
Private Sub Command1_Click()
Dim msj
msj = MsgBox("Menüye Geçilsinmi", vbYesNo, "Kasner")
If msj = vbYes Then
Form2.Show
ElseIf msj = vbNo Then
End
End If
End Sub

şimdi ise örnek olarak bi hatırlatıcı yapalım ;
Bunun için : 1 adet checkbox 2 adet textbox 1 adet label 2 adet timer (enabled true int "0")
şimdi label1.captionu nu silip yerine 00:00:00 yapalım çünkü saat yapıcaz
sonra timer2 e label1.caption = time yazalım timer2 enabled true int : 1000 yapalım
text1 in textinede 00:00:00 yazalım text2 textini silelim

şimdi code geçelim
code:
Private Sub Check1_Click()
If Check1.Value = "1" Then
Timer1.Interval = "1000"
End If
End Sub

Private Sub Timer1_Timer()
Dim msj
If Text1.Text = Label1.Caption Then
msj = MsgBox("Hatırlatıcı:" + (Text2.Text), vbQuestion, "Kasner")

End If
End Sub

Private Sub Timer2_Timer()
Label1.Caption = Time
End Sub





Bu konuda burda biter .. Bi hatamız olduysa affola . İşinize yaradıysa Bi ' Teşekkür yeter
Not : Ne kadar Bunu Bunu Böle yapın dediysemde codelerini yazdım olamsa codeleri kopyala yapiştır yap yeter

Konu //Kilit.

yok yaw denedim öle yazınca oluyomu die