Delta Türkiye - Online Teknik Destek

Kod: Tümünü seç

Dim Msg, Style, Title, Help, Ctxt, Response, MyString

Msg = "Motor çalışacaktır. Devam etmek istiyormusunuz?"

Style = vbYesNo	+	vbDefaultButton1

Title = "Delta Turkiye" 


'MsgBox
response = MsgBox(Msg, Style, Title)


'MsgBox durum karşılaştırma
Select	Case	response
	
	Case	1	
	Var.string0	=	"OK butonuna basıldı."

	Case	2
	Var.string0	=	"Cancel butonuna basıldı."
	
	Case	3
	Var.string0	=	"Abort butonuna basıldı."
		
	Case	4
	Var.string0	=	"Retry butonuna basıldı."
	
	Case	5
	Var.string0	=	"Ignore butonuna basıldı."
	
	Case	6
	Var.string0	=	"Yes butonuna basıldı."
	
	
	Case	7
	Var.string0	=	"No butonuna basıldı."
	
	
	
end Select