vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
 SEPA-Dateien erstellen inkl. IBAN-, BLZ-/Kontonummernprüfung  
 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: if then bedinung speichern 
Autor: Preisser
Datum: 19.09.10 14:22
Hallo,

das ist ja auch möglich mit CallByName, wie wb-soft es beschrieb. Du musst nur den Namen der Funktion als String übergeben. Eine andere Art wie Funktionszeiger in C oder Delegates in .NET gibt es in VB6 meines Wissens nicht (außer man macht es wie in Java: Ein Interface, das Methodenköpfe definiert, und Klassen, die diese Methoden dann implementieren, sodass man Instanzen dieser Klasse als Variable übergeben kann; allerdings ist das ziemlich umständlich unter VB6).

Allerdings frage ich mich, wieso es unter VB6 überhaupt notwendig sein sollte, eine Funktion/Sub als Variable zu übergeben? Hierfür gibt es sicher noch andere Wege, beispielsweise der Funktion eine Zahl zu übergeben, die bestimmt, was die Funktion machen soll, o.ä.


In deinem Beispiel könnte doch die Funktion, die die Berührung testet, einfach True oder False zurückgeben, und die aufrufende Prozedur ruft dann eine andere Funktion auf, falls True.

Bsp. 
Private Function TesteBeruehrung(berührung1 as Variant, berührung2 as Variant) _
  as Boolean
  Dim istBeruehrung as Boolean
  if (berührung1 berührt berührung2) then istBeruehrung = True '(Pseudocode)
  TesteBeruehrung = istBeruehrung 
End Function
Und dann eben in der aufrufenden Prozedur 
If TesteBeruehrung(a, b) Then xyz
If TesteBeruehrung(c, d) Then abc
'usw.


Beitrag wurde zuletzt am 19.09.10 um 15:18:48 editiert.
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
if then bedinung speichern1.093marvin_9416.09.10 18:26
Re: if then bedinung speichern755TBX16.09.10 20:11
Re: if then bedinung speichern760marvin_9416.09.10 20:19
Re: if then bedinung speichern829wb-soft16.09.10 20:59
Re: if then bedinung speichern732marvin_9417.09.10 12:28
Re: if then bedinung speichern724Preisser19.09.10 14:22
Re: if then bedinung speichern720marvin_9420.09.10 11:18

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