d7WrnBox
d7WrnBox
Tanım
Ekranda bir mesaj vermeye yarayan, kullanıcının belirli sürede bir tuşa basmasını bekleyen ve süre dolunca otomatik kapanan mesaj kutusudur. Bekleme süresi bitince otomatik kapanan mesaj kutularında, geri dönülen değer sistem tarafından atanır.
Kullanım Şekli
Değişken = Document.d7WrnBox(Mesaj, Başlık, Stil, BeklemeSüresi)
Ana Nesne
Document (Doc) nesnesinin elemanıdır. Bir doküman nesnesi ile kullanılmak zorundadır.
Parametreler
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.
•Otomatik bekleme süresi sadece içinde Cancel (İptal) tuş değeri olan seçimlerde çalışır. Yani tuş stili 1, 3 ve 5 değerlerinde çalışır. Bekleme süresi bitiminde ise IDCANCEL (vbCANCEL, 2) değeri geri döndürülür. Ayrıca sadece OK (Tamam) tuşunun olduğu mesaj kutularında da çalışır ve IDOK (vbOK, 1) değeri geri döndürülür.
Örnek
Yukarıdaki örnek, aralarında bir satır boşluk verilen bir mesajı, uyarı simgesi ile OK ve Cancel tuşlarını kullanarak mesaj kutusunu oluşturmuştur. Ayrıca birinci tuş olan OK (Tamam) tuşu varsayılan olarak seçili yapılmıştır. Ön yüzü olan programlarda; aşağıdaki resimdeki gibi bir mesaj kutusu görülecekti.
Eğer ki kullanıcı Bekleme Süresi olan 5 saniye içinde bir seçim yapmadıysa, mesaj kutusu otomatik olarak kapanacak ve geri dönüş değeri olarak da IDCANCEL (vbCancel, 2) değeri atanacaktı. 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
Copyright © <2017> by <Birleşik Yazılım>. All Rights Reserved.