Mesaj Kutusu Fonksiyonları

MsgBox

  • Dönüş Tipi: Integer (Buton seçimi)
  • Parametreler:
  • - message (String): Mesaj
  • Açıklama: Mesaj kutusu gösterir

Örnek Kullanım:

Sub Makro1()
    Dim Sonuc
    Sonuc = Doc.MsgBox("İşlem tamamlandı mı?")
    If Sonuc = 1 Then
        Doc.MsgBox "Kullanıcı OK'a bastı"
    End If
End Sub

d7MsgBox

  • Dönüş Tipi: Integer (Buton seçimi)
  • Parametreler:
  • - title (String): Başlık
  • - message (String): Mesaj
  • - buttons (Integer): Buton tipi
  • Açıklama: d7 mesaj kutusu gösterir

Örnek Kullanım:

Sub Makro1()
    Dim Sonuc
    Sonuc = Doc.d7MsgBox("Bilgi", "Kayıt başarılı", 1)
    If Sonuc = 1 Then
        Doc.MsgBox "Kullanıcı onayladı"
    End If
End Sub

d7StdMsgBox

  • Dönüş Tipi: Integer (Buton seçimi)
  • Parametreler:
  • - iconType (Integer): İkon tipi
  • - title (String): Başlık
  • - message (String): Mesaj
  • - buttons (Integer): Buton tipi
  • Açıklama: Standart d7 mesaj kutusu gösterir

Örnek Kullanım:

Sub Makro1()
    Dim Sonuc
    Sonuc = Doc.d7StdMsgBox(1, "Bilgi", "İşlem tamamlandı", 1)
    If Sonuc = 1 Then
        Doc.MsgBox "Kullanıcı onayladı"
    End If
End Sub

d7MsgBox_NOGUIDefault

  • Dönüş Tipi: Integer (Buton seçimi)
  • Parametreler:
  • - title (String): Başlık
  • - message (String): Mesaj
  • - buttons (Integer): Buton tipi
  • - defaultButton (Integer): Varsayılan buton
  • Açıklama: GUI varsayılanı olmadan d7 mesaj kutusu gösterir

Örnek Kullanım:

Sub Makro1()
    Dim Sonuc
    Sonuc = Doc.d7MsgBox_NOGUIDefault("Bilgi", "İşlem tamamlandı", 1, 1)
    If Sonuc = 1 Then
        Doc.MsgBox "Kullanıcı onayladı"
    End If
End Sub

d7WrnBox

  • Dönüş Tipi: Integer (Buton seçimi)
  • Parametreler:
  • - title (String): Başlık
  • - message (String): Mesaj
  • - buttons (Integer): Buton tipi
  • - defaultButton (Integer): Varsayılan buton
  • Açıklama: Uyarı kutusu gösterir

Örnek Kullanım:

Sub Makro1()
    Dim Sonuc
    Sonuc = Doc.d7WrnBox("Uyarı", "Stok miktarı düşük!", 1, 1)
    If Sonuc = 1 Then
        Doc.MsgBox "Kullanıcı uyarıyı gördü"
    End If
End Sub

WrnBox

  • Dönüş Tipi: Integer (Buton seçimi)
  • Parametreler:
  • - message (String): Mesaj
  • Açıklama: Uyarı kutusu gösterir

Örnek Kullanım:

Sub Makro1()
    Dim Sonuc
    Sonuc = Doc.WrnBox("Stok miktarı düşük!")
    If Sonuc = 1 Then
        Doc.MsgBox "Kullanıcı uyarıyı onayladı"
    End If
End Sub

ErrBox

  • Dönüş Tipi: Integer (Buton seçimi)
  • Parametreler:
  • - message (String): Mesaj
  • Açıklama: Hata kutusu gösterir

Örnek Kullanım:

Sub Makro1()
    Dim Sonuc
    Sonuc = Doc.ErrBox("Kayıt işlemi başarısız!")
    If Sonuc = 1 Then
        Doc.MsgBox "Kullanıcı hatayı gördü"
    End If
End Sub

SysMsgBox

  • Dönüş Tipi: Integer (Buton seçimi)
  • Parametreler:
  • - message (String): Mesaj
  • Açıklama: Sistem mesaj kutusu gösterir

Örnek Kullanım:

Sub Makro1()
    Dim Sonuc
    Sonuc = Doc.SysMsgBox("Sistem mesajı")
    If Sonuc = 1 Then
        Doc.MsgBox "Kullanıcı onayladı"
    End If
End Sub

SysWrnBox

  • Dönüş Tipi: Integer (Buton seçimi)
  • Parametreler:
  • - message (String): Mesaj
  • Açıklama: Sistem uyarı kutusu gösterir

Örnek Kullanım:

Sub Makro1()
    Dim Sonuc
    Sonuc = Doc.SysWrnBox("Sistem uyarısı")
    If Sonuc = 1 Then
        Doc.MsgBox "Kullanıcı uyarıyı gördü"
    End If
End Sub

StdMsgBox_OK

  • Dönüş Tipi: Void
  • Parametreler: Yok
  • Açıklama: Standart OK mesaj kutusu gösterir

Örnek Kullanım:

Sub Makro1()
    Doc.StdMsgBox_OK
    Doc.MsgBox "Standart mesaj kutusu gösterildi"
End Sub

MsgBox_ParLog

  • Dönüş Tipi: Integer (Buton seçimi)
  • Parametreler:
  • - message (String): Mesaj
  • - logKey (String): Log anahtarı
  • Açıklama: Parametre log'lu mesaj kutusu gösterir

Örnek Kullanım:

Sub Makro1()
    Dim Sonuc
    Sonuc = Doc.MsgBox_ParLog("İşlem tamamlandı", "LOG_KEY_001")
    If Sonuc = 1 Then
        Doc.MsgBox "Mesaj log'a kaydedildi"
    End If
End Sub

FormatMessage0

  • Dönüş Tipi: Variant (String)
  • Parametreler:
  • - format (String): Format string'i
  • Açıklama: Formatlanmış mesaj oluşturur (0 parametre)

Örnek Kullanım:

Sub Makro1()
    Dim Mesaj
    Mesaj = Doc.FormatMessage0("İşlem tamamlandı")
    Doc.MsgBox Mesaj
End Sub

FormatMessage1

  • Dönüş Tipi: Variant (String)
  • Parametreler:
  • - format (String): Format string'i
  • - param1 (Variant): 1. parametre
  • Açıklama: Formatlanmış mesaj oluşturur (1 parametre)

Örnek Kullanım:

Sub Makro1()
    Dim Mesaj, StokKodu
    StokKodu = "STOK001"
    Mesaj = Doc.FormatMessage1("Stok kodu: {0}", StokKodu)
    Doc.MsgBox Mesaj
    ' Sonuç: "Stok kodu: STOK001"
End Sub

FormatMessage2

  • Dönüş Tipi: Variant (String)
  • Parametreler:
  • - format (String): Format string'i
  • - param1 (Variant): 1. parametre
  • - param2 (Variant): 2. parametre
  • Açıklama: Formatlanmış mesaj oluşturur (2 parametre)

Örnek Kullanım:

Sub Makro1()
    Dim Mesaj, StokKodu, Miktar
    StokKodu = "STOK001"
    Miktar = 100
    Mesaj = Doc.FormatMessage2("Stok: {0}, Miktar: {1}", StokKodu, Miktar)
    Doc.MsgBox Mesaj
    ' Sonuç: "Stok: STOK001, Miktar: 100"
End Sub

FormatMessage3

  • Dönüş Tipi: Variant (String)
  • Parametreler:
  • - format (String): Format string'i
  • - param1 (Variant): 1. parametre
  • - param2 (Variant): 2. parametre
  • - param3 (Variant): 3. parametre
  • Açıklama: Formatlanmış mesaj oluşturur (3 parametre)

Örnek Kullanım:

Sub Makro1()
    Dim Mesaj, StokKodu, Miktar, Fiyat
    StokKodu = "STOK001"
    Miktar = 100
    Fiyat = 25.50
    Mesaj = Doc.FormatMessage3("Stok: {0}, Miktar: {1}, Fiyat: {2}", StokKodu, Miktar, Fiyat)
    Doc.MsgBox Mesaj
End Sub

FormatMessage4

  • Dönüş Tipi: Variant (String)
  • Parametreler:
  • - format (String): Format string'i
  • - param1 (Variant): 1. parametre
  • - param2 (Variant): 2. parametre
  • - param3 (Variant): 3. parametre
  • - param4 (Variant): 4. parametre
  • Açıklama: Formatlanmış mesaj oluşturur (4 parametre)

Örnek Kullanım:

Sub Makro1()
    Dim Mesaj
    Mesaj = Doc.FormatMessage4("Stok: {0}, Miktar: {1}, Fiyat: {2}, Toplam: {3}", "STOK001", 100, 25.50, 2550)
    Doc.MsgBox Mesaj
End Sub

FormatMessage5

  • Dönüş Tipi: Variant (String)
  • Parametreler:
  • - format (String): Format string'i
  • - param1 (Variant): 1. parametre
  • - param2 (Variant): 2. parametre
  • - param3 (Variant): 3. parametre
  • - param4 (Variant): 4. parametre
  • - param5 (Variant): 5. parametre
  • Açıklama: Formatlanmış mesaj oluşturur (5 parametre)

Örnek Kullanım:

Sub Makro1()
    Dim Mesaj
    Mesaj = Doc.FormatMessage5("Stok: {0}, Miktar: {1}, Fiyat: {2}, Toplam: {3}, KDV: {4}", "STOK001", 100, 25.50, 2550, 459)
    Doc.MsgBox Mesaj
End Sub

FormatMessage6

  • Dönüş Tipi: Variant (String)
  • Parametreler:
  • - format (String): Format string'i
  • - param1 (Variant): 1. parametre
  • - param2 (Variant): 2. parametre
  • - param3 (Variant): 3. parametre
  • - param4 (Variant): 4. parametre
  • - param5 (Variant): 5. parametre
  • - param6 (Variant): 6. parametre
  • Açıklama: Formatlanmış mesaj oluşturur (6 parametre)

Örnek Kullanım:

Sub Makro1()
    Dim Mesaj
    Mesaj = Doc.FormatMessage6("Stok: {0}, Miktar: {1}, Fiyat: {2}, Toplam: {3}, KDV: {4}, Genel Toplam: {5}", "STOK001", 100, 25.50, 2550, 459, 3009)
    Doc.MsgBox Mesaj
End Sub

FormatMessage7

  • Dönüş Tipi: Variant (String)
  • Parametreler:
  • - format (String): Format string'i
  • - param1 (Variant): 1. parametre
  • - param2 (Variant): 2. parametre
  • - param3 (Variant): 3. parametre
  • - param4 (Variant): 4. parametre
  • - param5 (Variant): 5. parametre
  • - param6 (Variant): 6. parametre
  • - param7 (Variant): 7. parametre
  • Açıklama: Formatlanmış mesaj oluşturur (7 parametre)

Örnek Kullanım:

Sub Makro1()
    Dim Mesaj
    Mesaj = Doc.FormatMessage7("Stok: {0}, Miktar: {1}, Fiyat: {2}, Toplam: {3}, KDV: {4}, Genel Toplam: {5}, Tarih: {6}", "STOK001", 100, 25.50, 2550, 459, 3009, Doc.Today())
    Doc.MsgBox Mesaj
End Sub

FormatMessage8

  • Dönüş Tipi: Variant (String)
  • Parametreler:
  • - format (String): Format string'i
  • - param1 (Variant): 1. parametre
  • - param2 (Variant): 2. parametre
  • - param3 (Variant): 3. parametre
  • - param4 (Variant): 4. parametre
  • - param5 (Variant): 5. parametre
  • - param6 (Variant): 6. parametre
  • - param7 (Variant): 7. parametre
  • - param8 (Variant): 8. parametre
  • Açıklama: Formatlanmış mesaj oluşturur (8 parametre)

Örnek Kullanım:

Sub Makro1()
    Dim Mesaj
    Mesaj = Doc.FormatMessage8("Stok: {0}, Miktar: {1}, Fiyat: {2}, Toplam: {3}, KDV: {4}, Genel Toplam: {5}, Tarih: {6}, Saat: {7}", "STOK001", 100, 25.50, 2550, 459, 3009, Doc.Today(), Doc.STime(0))
    Doc.MsgBox Mesaj
End Sub

FormatMessage9

  • Dönüş Tipi: Variant (String)
  • Parametreler:
  • - format (String): Format string'i
  • - param1 (Variant): 1. parametre
  • - param2 (Variant): 2. parametre
  • - param3 (Variant): 3. parametre
  • - param4 (Variant): 4. parametre
  • - param5 (Variant): 5. parametre
  • - param6 (Variant): 6. parametre
  • - param7 (Variant): 7. parametre
  • - param8 (Variant): 8. parametre
  • - param9 (Variant): 9. parametre
  • Açıklama: Formatlanmış mesaj oluşturur (9 parametre)

Örnek Kullanım:

Sub Makro1()
    Dim Mesaj
    Mesaj = Doc.FormatMessage9("Stok: {0}, Miktar: {1}, Fiyat: {2}, Toplam: {3}, KDV: {4}, Genel Toplam: {5}, Tarih: {6}, Saat: {7}, Kullanıcı: {8}", "STOK001", 100, 25.50, 2550, 459, 3009, Doc.Today(), Doc.STime(0), Doc.Getd7UserName())
    Doc.MsgBox Mesaj
End Sub

FormatMessage10

  • Dönüş Tipi: Variant (String)
  • Parametreler:
  • - format (String): Format string'i
  • - param1 (Variant): 1. parametre
  • - param2 (Variant): 2. parametre
  • - param3 (Variant): 3. parametre
  • - param4 (Variant): 4. parametre
  • - param5 (Variant): 5. parametre
  • - param6 (Variant): 6. parametre
  • - param7 (Variant): 7. parametre
  • - param8 (Variant): 8. parametre
  • - param9 (Variant): 9. parametre
  • - param10 (Variant): 10. parametre
  • Açıklama: Formatlanmış mesaj oluşturur (10 parametre)

Örnek Kullanım:

Sub Makro1()
    Dim Mesaj
    Mesaj = Doc.FormatMessage10("Stok: {0}, Miktar: {1}, Fiyat: {2}, Toplam: {3}, KDV: {4}, Genel Toplam: {5}, Tarih: {6}, Saat: {7}, Kullanıcı: {8}, Firma: {9}", "STOK001", 100, 25.50, 2550, 459, 3009, Doc.Today(), Doc.STime(0), Doc.Getd7UserName(), Doc.Getd7FirmCode())
    Doc.MsgBox Mesaj
End Sub

---