d7MsgBox Fonksiyonu

Tanım

Ekranda bir mesaj vermeye yarayan, kullanıcının bir tuşa basmasını bekleyen ve basılan tuşa göre bir tam sayı döndüren fonksiyondur.

Kullanım Şekli

Değişken = Document.d7MsgBox(Mesaj, Başlık, Stil)

Ana Nesne

Document (Doc) nesnesinin elemanıdır. Bir doküman nesnesi ile kullanılmak zorundadır.

Parametreler

Parametre	Açıklama
Mesaj	Ekranda gösterilmek istenilen mesajdır. Uzun mesajlarda satırbaşı yapılmak isteniyorsa; carriage return karakteri (Chr(13)) veya linefeed karakteri (Chr(10)) istenilen kadar kullanılabilir. Kullanılması zorunlu bir parametredir.
Başlık	Ekranda çıkan mesaj kutusu nun başlığıdır.
Stil	Mesaj kutusunda çıkması istenen tuşların, hangi tuşun varsayılan olarak seçili olacağı ve hangi simgenin kullanılacağını belirtmek için kullanılır. Tuş seçenek değeri, varsayılan tuş değeri ve simge değeri matematiksel toplanarak bir tamsayı olarak girilebilir. Ayrıca tamsayı değeri yerine, sistemde tanımlı olan dinamo sabit ad veya vbscript sabit adları da kullanılabilir. Eğer aşağıda anlatılan değerlerin dışında, yanlış değer atanırsa fonksiyon çalışmaz ve mesaj kutusu ekranda görünmez.

Stil parametresinin tuş seçenekleri aşağıdadır.

Dinamo ERP Sabit Ad	vbscript Sabit Ad	Değer	Açıklama
MB_OK	vbOKOnly	0	OK (Tamam) tuşu gösterilir
MB_OKCANCEL	vbOKCancel	1	OK (Tamam) ve Cancel (İptal) tuşları gösterilir
MB_ABORTRETRYIGNORE	vbAbortRetryIgnore	2	Abort (Durdur), Retry(Yeniden Dene) ve Ingore (Göz Ardı Et) tuşları gösterilir
MB_YESNOCANCEL	vbYesNoCancel	3	Yes (Evet), No (Hayır) ve Cancel (İptal) tuşları gösterilir
MB_YESNO	vbYesNo	4	Yes (Evet) ve No (Hayır) tuşları gösterilir
MB_RETRYCANCEL	vbRetryCancel	5	Retry(Yeniden Dene) ve Cancel (İptal) tuşları gösterilir

Stil parametresinin simge seçenekleri aşağıdadır. Simgeler mesaj kutusunun solunda çıkar.

Dinamo ERP Sabit Ad	vbscript Sabit Ad	Değer	Açıklama
MB_ICONERROR, MB_ICONHAND, MB_ICONSTOP	vbCritical	16	simgesi gösterilir.
MB_ICONQUESTION	vbQuestion	32	simgesi gösterilir.
MB_ICONEXCLAMATION, MB_ICONWARNING	vbExclamation	48	simgesi gösterilir.
MB_ICONINFORMATION, MB_ICONASTERISK	vbInformation	64	simgesi gösterilir.

Stil parametresinin varsayılan tuş seçenekleri aşağıdadır. Varsayılan tuş kullanıldığında kullanıcı, fare kullanmadan, klavyesinde Enter veya Carriage Return tuşuna bastığında, varsayılan seçeneği seçmiş olur.

Dinamo ERP Sabit Ad	vbscript Sabit Ad	Değer	Açıklama
MB_DEFBUTTON1	vbDefaultButton1	0	Birinci tuş varsayılandır.
MB_DEFBUTTON2	vbDefaultButton2	256	İkinci tuş varsayılandır.
MB_DEFBUTTON3	vbDefaultButton3	512	Üçüncü tuş varsayılandır.
MB_DEFBUTTON4	vbDefaultButton4	768	Dördüncü tuş varsayılandır.

Geri Dönen Değerler

Eğer mesaj kutusu şeklinde kullanılıyorsa, sadece tek bir tam sayı geri dönüş değeri vardır. Aşağıdaki tabloda hangi tamsayı değeri dönüldüğü gösterilmiştir. Geri dönülen tamsayı değeri yerine, sabit adlarda kullanılabilir.

Dinamo ERP Sabit Ad	vbscript Sabit Ad	Değer	Açıklama
IDOK	vbOK	1	OK (Tamam) tuşunun seçildiğini belirten değer.
IDCANCEL	vbCancel	2	Cancel (İptal) tuşunun seçildiğini belirten değer.
IDABORT	vbAbort	3	Abort (Durdur) tuşunun seçildiğini belirten değer.
IDRETRY	vbRetry	4	Retry(Yeniden Dene) tuşunun seçildiğini belirten değer.
IDIGNORE	vbIgnore	5	Ingore (Göz Ardı Et) tuşunun seçildiğini belirten değer.
IDYES	vbYes	6	Yes (Evet) tuşunun seçildiğini belirten değer.
IDNO	vbNo	7	No (Hayır) tuşunun seçildiğini belirten değer.

Hatırlatmalar

•Tuş açıklamaları (İngilizce, Türkçe vb. ), işletim sisteminin kurulum diline göre değişebilir.

•İçinde Cancel (İptal) tuşu olan mesaj kutularında klavyedeki ESC (Escape) tuşuna basıldığında da sistem Cancel tuşu seçilmiş gibi davranır ve 2 (IDCANCEL, vbCancel) değeri geri dönülür. Ayrıca sadece OK (Tamam) tuşunun olduğu mesaj kutularında da ESC (Escape) tuşuna basıldığında 1 (IDOK, vbOK) değeri geri dönülür.

Örnek

Sub Makro1()

Mesaj = "Uyarı! İşlemlerde hata bulundu." & chr(13) & chr(13) & "Devam etmek ister misiniz?"

Baslik = "Hatalı Bilgi"

Stil = MB_YESNO + MB_ICONWARNING + MB_DEFBUTTON2

GeriDonusDegeri = doc.d7MsgBox(Mesaj,Baslik,Stil)

If GeriDonusDegeri = IDYES then

Sonuc = "İşleme hatalı devam edildi."

Else

Sonuc = "İşlem durduruldu"

End If

End Sub

Yukarıdaki örnek, aralarında bir satır boşluk verilen bir mesajı, uyarı simgesi ile Yes ve No tuşlarını kullanarak mesaj kutusunu oluşturmuştur. Ayrıca ikinci tuş olan No (Hayır) tuşu varsayılan olarak seçili yapılmıştır. Aşağıdaki resimde mesaj kutusu görülmektedir.

Satırlar arası boşluk için chr(13) & chr(13) karakterleri kullanılmıştır. Ayrıca Stil değişkenini aşağıdaki şekillerde de kullanılabilirdik. Bu durumlarda da sonuç tamamen aynı olacaktı.

Stil = vbYesNo + vbExclamation + vbDefaultButton2

Stil = 4 + 48 + 256

“if geridonusdegeri = IDYES then” program cümlesindeki IDYES yerine vbYes veya 6 değerleri de kullanılabilinirdi.

Birleşik Yazılım