diaviewde msgbox kullanımı

[serdar1899]

merhabalar

Diaview scadada kullanıcıya bir mesaj göstertip evet hayır cevabı almak istiyorum bunu Hmıcmd.msgbox ile yapabiliyorum ancak dönüş değerini yani kullanıcı evet yada hayıra bastı değerini alamıyorum

dim result
result= hmıcmd.msgbox "........"

yaptığımda hata alıyorum bunu nasıl çözebilirim

[Turhan]

Merhaba,

Komut satırının örnekte verilen response değişkenini kullanabilirsiniz.

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