vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
Mails senden, abrufen und decodieren - ganz easy ;-)  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Visual-Basic Einsteiger
Re: Problem mit Funktion 
Autor: ModeratorDieter (Moderator)
Datum: 28.10.02 14:06

Hi Wisel,

nun ja, besonder elegant programmiert ist das ganze nicht, da Du weder den genauenFunktionsrückgabewert deklariert hast, noch den Parameter. In diesem Fall nimmt VB immer Variant, was erstens länger dauert und zweites mehr Speicher braucht.

Ich würde das ganze so machen:

Wenn Du die Funktion Aufruf auch aus anderen Forms heraus aufrufen musst, dann sollte die Funktion in einem Modul deklariert werden - und zwar als Public. Brauchst Du die Funktion nur innerhalb einer einzigen Form, kannst Du sie getrost als Private in den Allgemein-Teil der Form setzen.

Ich gehe mal davon aus, dass Du die Funktion in mehreren Forms brauchst - also in einem Modul deklarierst:
Private Sub Aufruf(ByVal nZahl As Long) As Long
  Aufruf = nZahl * 3
End Sub
In der Form selbst erfolgt der Aufruf der Funktion dann wie folgt:
Private Sub Command1_Click()
  Dim nErgebnis As Long
 
  nErgebnis = Aufruf(Val(Text1.Text))
  MsgBox CStr(nErgebnis)
End Sub
Dieser Code verarbeitet jetzt jedoch nur Ganzzahlen im Bereich von -2.147.483.648 bis 2.147.483.647.

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de

alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Problem mit Funktion80Wisel28.10.02 13:20
Re: Problem mit Funktion305ModeratorDieter28.10.02 13:42
Re: Problem mit Funktion45Wisel28.10.02 13:52
Re: Problem mit Funktion292ModeratorDieter28.10.02 14:06

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
 
   

Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel