title image


Smiley Das funktioniert mit CallByName...
Beispiel: In eine Textbox kann eine Zahl zwischen 1 und 3 eingegeben werden und es wird die entsprechende Funktion aufgerufen und innerhalb der Funktion mit dieser Zahl gerechnet:



Option Explicit



Private Sub Command1_Click()

Dim res As Integer

res = CallByName(Me, "hallo" & Text1.Text, VbMethod, Text1.Text)

MsgBox res

End Sub



Public Function hallo1(wert As Integer) As Integer

hallo1 = 1 * wert

End Function

Public Function hallo2(wert As Integer) As Integer

hallo2 = 2 * wert

End Function

Public Function hallo3(wert As Integer) As Integer

hallo3 = 3 * wert

End Function

Gruß aus Ostfriesland. Möge Tux mit Dir sein!

ff


Proggst du schon .net oder quälst du dich noch mit VB6?



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: