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.

Paylaşım Makrosu