vba:tutorials:cassesplus
Differences
This shows you the differences between two versions of the page.
| Next revision | Previous revision | ||
|
vba:tutorials:cassesplus [05.04.2017 15:06:37] yaslaw created |
vba:tutorials:cassesplus [17.12.2019 16:41:06] (current) yaslaw [[VBA] Komplexere Anwendung von Klassenmodulen] |
||
|---|---|---|---|
| Line 1: | Line 1: | ||
| + | <const> | ||
| + | version=1.0.0 | ||
| + | vdate=05.04.2017 | ||
| + | fname=counter.cls | ||
| + | ns=%NAMESPACE% | ||
| + | fpath=/vba/tutorials | ||
| + | </const> | ||
| ====== [VBA] Komplexere Anwendung von Klassenmodulen ====== | ====== [VBA] Komplexere Anwendung von Klassenmodulen ====== | ||
| Für dieses Tutorial sind Grundkentnisse zum Thema "Objekte in VB" von erforderlich. | Für dieses Tutorial sind Grundkentnisse zum Thema "Objekte in VB" von erforderlich. | ||
| - | Ich habe für dieses Tutorial eine Klasse Counter geschrieben (vollständiger Code am Ende des Tutorials). Mit einem Objekt der Klasse Counter kann man den Start und die Schrittgrösse definieren und dann Schritt für Schritt weiterzählen. | + | Ich habe für dieses Tutorial eine Klasse "Counter" geschrieben (vollständiger Code am Ende des Tutorials). Sie dient hier als Besipiel. Mit einem Objekt der Klasse Counter kann man den Start und die Schrittgrösse definieren und dann Schritt für Schritt weiterzählen. |
| - | Ich habe aber einie Interessante Details eingebaut. | + | Ich habe aber einige Interessante Details eingebaut. |
| + | |||
| + | ==== Klasse Counter ==== | ||
| + | Der Counter hat für die klassiache Anwendung die folgenden Methoden: | ||
| + | ^ Methode/Property ^ Rückgabewert ^ Beschreibung ^ | ||
| + | | **initialize** | | Setzt die Startwerte | | ||
| + | | **toNext** | Long | Zählt eins hoch und gibt den Wert zurück | | ||
| + | | **toMax** | Long | Führt toNext bis zu maximal dem mitgegeben Wert | | ||
| + | | **reset** | | Alles auf die Startwerte zurücksetzen | | ||
| + | | **current** | Long | Den aktuellen Wert | | ||
| + | | **start** | Long | Startwert | | ||
| + | | **step** | Long | Schrittgrösse | | ||
| + | |||
| + | Spezielle Methoden/Property, auf die ich eingehen möschte | ||
| + | ^ Methode/Property ^ Rückgabewert ^ Beschreibung ^ | ||
| + | | **instance** | Counter | Eine neue Instanz der Klasse. Ist auch als Default definiert | | ||
| + | | **copyOf** | Counter | Eine neue Instanz der Klasse welche die Settings eines anderen Counters übernimmt | | ||
| + | | **NewEnum** | IUnknown | wird für die For Each.. Next Schleife verwendet | | ||
| Ich zeige mit verschiedenen Testscripts gewisse Funktionalitäten. Bei interessanten Sachen gehe ich dann noch auf den Code in der Klasse ein | Ich zeige mit verschiedenen Testscripts gewisse Funktionalitäten. Bei interessanten Sachen gehe ich dann noch auf den Code in der Klasse ein | ||
| + | |||
| + | ==Version %%version%% %%vdate%%== | ||
| + | |||
| + | <WRAP round download 50%> | ||
| + | ><fc #808080>//Das Modul hat versteckte Attribute. Damit diese aktiv übernommen werden reicht es nicht aus, den Code in ein neues Modul zu kopieren. Man muss das Modul aus der Datei nach VBA importieren.//</fc> | ||
| + | >{{popup>:vba:vba_importfile.png|Bild zum Import}} | ||
| + | |||
| + | {{%%fname%%|Download %%fname%% (V-%%version%%)}}</WRAP> | ||
| ===== Standard ===== | ===== Standard ===== | ||
| Line 210: | Line 242: | ||
| Counter().toNext 'Erstellt eine neue Instanz (instance()) und zählt diese um eines hoch</code> | Counter().toNext 'Erstellt eine neue Instanz (instance()) und zählt diese um eines hoch</code> | ||
| - | Der Vorteil der Singelton ist, dass sie von überall her die Werte behält. Auch wenn wie die Sigelton einem Objekt zugeordnet wird, so ist das Objekt mit der Singelton vweiterhin verknüpft. | + | Der Vorteil der Singelton ist, dass sie von überall her die Werte behält. Auch wenn wie die Singelton einem Objekt zugeordnet wird, so ist das Objekt mit der Singelton weiterhin verknüpft. |
| <code vb>'/** | <code vb>'/** | ||
| ' * Erster Test mit Singelton | ' * Erster Test mit Singelton | ||
| Line 251: | Line 283: | ||
| Auswirkungen des Objektes auf die referenzierte Sigelton | Auswirkungen des Objektes auf die referenzierte Sigelton | ||
| singleton 5 970 965 960 955 </code> | singleton 5 970 965 960 955 </code> | ||
| + | |||
| + | ===== Code von Counter ===== | ||
| + | <source '%%fpath%%/%%fname%%' vb> | ||
vba/tutorials/cassesplus.1491397597.txt.gz · Last modified: 05.04.2017 15:06:37 by yaslaw
Page Tools
Except where otherwise noted, content on this wiki is licensed under the following license: GNU Free Documentation License 1.3
