Skip to main content

AccessTr.neT


Sınırsız Parametreli İşlev(Fonksiyon) yazmak

Sınırsız Parametreli İşlev(Fonksiyon) yazmak

#1
Bazan öyle olur ki sınırsız parametre verebileceğimiz yordamlara ihtiyaç duyarız. İşte örneği:
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 Function

Bunu şu şekilde kullanın
Kod:
MsgBox FormatStr("Burası %1. Şu an %2 ve hava %3.", "Türkiye", Now(), “çok güzel.”)
ParamArray olarak tanımladığınız parametreyi en sona yerleştirin. Aksi halde hata oluşur.
@benbendedeilem
Son Düzenleme: 04/06/2012, 10:10, Düzenleyen: accessman.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da

Bu Konudaki Yorumlar
Sınırsız Parametreli İşlev(Fonksiyon) yazmak - Yazar: accessman - 04/06/2012, 10:06