04/06/2012, 10:06
Bazan öyle olur ki sınırsız parametre verebileceğimiz yordamlara ihtiyaç duyarız. İşte örneği:
Bunu şu şekilde kullanın
ParamArray olarak tanımladığınız parametreyi en sona yerleştirin. Aksi halde hata oluşur.
Kod:
Function FormatStr(ByVal MainStr As String, ParamArray StrList() As Variant) As String
'ParamArray en son parametrenin değişken uzunluklu bir dizi olmasını sağlıyor.
If UBound(StrList) < 0 Then Exit Function
Dim i As Integer
For i = 0 To UBound(StrList)
MainStr = Replace(MainStr, "%" & i + 1, StrList(i))
Next
FormatStr = MainStr
End FunctionKod:
MsgBox FormatStr("Burası %1. Şu an %2 ve hava %3.", "Türkiye", Now(), “çok güzel.”)