MsgBox ile ikinci mesaj?

redpower
27-08-2005, 17:17   |  #1  
OP Taze Üye
Teşekkür Sayısı: 0
2 mesaj
Kayıt Tarihi:Kayıt: Ağu 2005

Merhaba arkadaşlar,

Amatör olarak visual basic ile uğraşıyorum.
Takıldığım bazı yerler var burada yardım edebileceğinizi düşündüm.
Sorunum;

Örmeğin forma bir command button yerleştirdik ve:

Private Sub Command1_Click()
MsgBox "Birinci Mesaj", vbCritical, "Önemli"
End Sub

Kodunu girdik. Forum açıldığında butona tıkladığımız zaman bir hata mesajı veriyor. Ona "ok" dedikten sonra o hata mesajı kapanıyor. Benim istediğim butona ikinci kez tıkladığımızda farklı bir mesaj çıkması.

Yardımlarınız için teşekkürler...

b_u_r_a_k
29-08-2005, 22:33   |  #2  
Yıllanmış Üye
Teşekkür Sayısı: 0
266 mesaj
Kayıt Tarihi:Kayıt: Oca 2005

sana basit bi algoritmayla yardım edebilirm baska yollarıda vardır ama aklıma bu geldi simdi.bi control koyarsın mesela.basic dilini cok fazla bilmedigim icin yazdıgım kod diger dillere kayabilir:)
dim control as integer
control=0

Private Sub Command1_Click()
if control=0 then
MsgBox "Birinci Mesaj", vbCritical, "Önemli"
control=1
else
MsgBox"2. mesaj"
control=0
end if
End Sub

kodum tam anlamıyla calısmayabilir ama umarım mantıgını anlatabilmisimdir.bu kod calısırsa bi birinci mesajı bi 2. mesajı verir.bu tür algoritmayla istegin kadar mesaj verdirebilrisn.

eraser28
31-08-2006, 10:16   |  #3  
Taze Üye
Teşekkür Sayısı: 0
1 mesaj
Kayıt Tarihi:Kayıt: Ağu 2006

Private Sub Command1_Click()
MsgBox "Birinci Mesaj", vbCritical, "Önemli"
If reply = ok Then
MsgBox ("istediğin mesajı yaz")
End If
End Sub
'sadece bu kadar

erayera
30-03-2007, 08:45   |  #4  
Yeni Üye
Teşekkür Sayısı: 0
23 mesaj
Kayıt Tarihi:Kayıt: Mar 2007
eraser28
Private Sub Command1_Click()
MsgBox "Birinci Mesaj", vbCritical, "Önemli"
If reply = ok Then
MsgBox ("istediğin mesajı yaz")
End If
End Sub
'sadece bu
Yukarıdaki kod çalışmaz, çalışsa da istediğin şe değil zaten.. İstediğini aşağıdaki kodla yapabilirsin, ben 7 tane hata mesajı belirttim, çoğaltabilirsin..
_________________________


Dim Sira As Integer
Dim mesaj As String


Private Sub Command1_Click()

Sira = Sira + 1

Select Case Sira
    Case 1: mesaj = "hata mesajın 1"
    Case 2: mesaj = "hata mesajın 2"
    Case 3: mesaj = "hata mesajın 3"
    Case 4: mesaj = "hata mesajın 4"
    Case 5: mesaj = "hata mesajın 5"
    Case 6: mesaj = "hata mesajın 6"
    Case 7: mesaj = "hata mesajın 7"
End Select

MsgBox (mesaj), vbCritical

End Sub

Private Sub Form_Load()
Sira = 0
End Sub