cool web a perfektni rs- Doporucuji

Tuesday, April 10, 2007

Volitelné parametry procedury

Protože dejme tomu předpokládáte, že většinou budete v daném projektu losovat číslice, (tj. hodnoty 0
až 9), můžete si metodu zobecnit tak, že z původních povinných parametrů uděláte volitelné. Dělá se to tak,
že před parametry (musí to být poslední parametry vpravo) přidáte klíčové slovo Optional a uvedete výchozí
hodnoty. Funkce pak bude vypadat takto:
Public Function VygenerovatPrirozeneCislo _
(Optional ByVal DolniMez As Integer = 0, _
Optional ByVal HorniMez As Integer = 9) As String
VygenerovatPrirozeneCislo = _
CStr(Int((HorniMez - DolniMez + 1) * Rnd + DolniMez))
End Function
Volání se v našem případě zjednoduší na tvar:
lblCislo1.Text = VygenerovatPrirozeneCislo()
VB6. Dříve bylo uvádění výchozích hodnot nepovinné. Nepředání některého z volitelných parametrů
se testovalo funkcí IsMissing. Protože jsou nyní výchozí hodnoty povinné, je tato
funkce přebytečná a nepodporuje se.

Labels: