Soru Mesaj Kutusunda Soru İşareti Resmi

[betoncu]

Soru işareti resimli Evet,Hayır,İptal seçenekli mesaj kutusu oluşturmak istiyorum.
Nasıl bir kod uygularız?

Açıklama dosyası ektedir.

 

[betoncu]

Arkadaşlar bir sorum daha olacak yine mesaj kutu ile ilgili. O nedenle ayrı bir konu açmadım.

Aşağıdaki kodu uyguladığımızda mesaj kutusu ile gelen düğmelerin sırası İptal, Hayır, Evet olarak düzenleniyor.

Mesaj kutusundaki bu sıralamayı Evet, Hayır, İptal olacak şekilde değiştirebilirmiyiz?

Sub Mesajin_Var()

Dim Cevap As VbMsgBoxResult

Cevap = MsgBox("Mesaja Devam Edilsin mi ? ", _
vbYesNoCancel + vbMsgBoxRtlReading, "MsgBox Hakkında")

Select Case Cevap

Case Is = vbYes
MsgBox "Evet Butonuna Basıldı", vbInformation, "Bilgi !"

Case Is = vbNo
MsgBox "Hayır Butonuna Basıldı", vbInformation, "Bilgi !"

Case Is = vbCancel
MsgBox "İptal Butonuna Basıldı", vbInformation, "Bilgi !"

End Select

End Sub

 

[halit3]

Bu kod işinizi görürmü

Sub Mesajin_Var()
a = MsgBox("Merhaba 16", vbYesNoCancel + vbQuestion, "uyarı")
If a = vbYes Then
MsgBox "evet"
End If
If a = vbNo Then
MsgBox "hayır"
End If
If a = vbCancel Then
MsgBox "iptal"
End If
End Sub

 

[betoncu]

Halit bey çok teşekkür ederim. Bu kod işimi gördü..