---

Hallo Forum!

Wenn ich in VBA ein Programm schreibe, dann kann ich ein neues Modul einfügen, und in diesem Programmcode erzeugen.

Ich kann aber auch den Code in das Klassenmodul ThisDrawing eintragen.

Wann mache ich es wie? und warum?
Welchen Vorteil bzw. Nachteil haben diese Varianten?

mfg didi

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Didi,

grundsätzlich ist VBA auch Objekt orientiert. Beim AutoCAD VBA ist schon immer ein Standard Objekt "thisdrawing" angelegt. In diesem Objekt (Klassenmodul) werden die Eigenschaften und vor allem die Events für diese Klasse verwaltet. Für komplexere Aufgaben sollte man auch von der Möglichkeit gebrauch machen eigene Klassen anzulegen.
Für globale Standardaufgaben z.B. Funktionen für irgendeine Umwandlung sollten die "normalen" Module verwendet werden.
Ich habe die Module ein bisschen organisiert:
z.B.
Modul Global mit Deklarationen von Variablen, Konstanten und API aufrufen.
Modul Funktionen mit Typwandlung, Berechnungsfunktionen etc.
Modul ACAD mit eigenen Funktionen zum erzeugen diverser Entitys
Modul Registry mit Funktionen zum bearbeiten der WIndows Registry

Zu letzten Punkt ein Beispiel:

Code:

---

Option Explicit

Public Const HKEY_CURRENT_USER = &H80000001
Public Const HKEY_LOCAL_MACHINE = &H80000002

' intern
Const KEY_QUERY_VALUE = &H1
Const KEY_SET_VALUE = &H2
Const KEY_CREATE_SUB_KEY = &H4
Const KEY_ENUMERATE_SUB_KEYS = &H8
Const KEY_NOTIFY = &H10
Const KEY_CREATE_LINK = &H20
Const KEY_READ = KEY_QUERY_VALUE Or KEY_ENUMERATE_SUB_KEYS Or KEY_NOTIFY
Const KEY_WRITE = KEY_SET_VALUE Or KEY_CREATE_SUB_KEY
Const KEY_EXECUTE = KEY_READ
Const KEY_ALL_ACCESS = KEY_QUERY_VALUE Or KEY_SET_VALUE Or KEY_CREATE_SUB_KEY Or KEY_ENUMERATE_SUB_KEYS Or KEY_NOTIFY Or KEY_CREATE_LINK
Const ERROR_SUCCESS = 0&

Const REG_NONE = 0      ' No value type
Const REG_SZ = 1        ' Unicode nul terminated string
Const REG_EXPAND_SZ = 2 ' Unicode nul terminated string (with environment variable references)
Const REG_BINARY = 3    ' Free form binary
Const REG_DWORD = 4    ' 32-bit number
Const REG_DWORD_LITTLE_ENDIAN = 4 ' 32-bit number (same as REG_DWORD)
Const REG_DWORD_BIG_ENDIAN = 5    ' 32-bit number
Const REG_LINK = 6                ' Symbolic Link (unicode)
Const REG_MULTI_SZ = 7            ' Multiple Unicode strings

Const REG_OPTION_NON_VOLATILE = &H0
Const REG_CREATED_NEW_KEY = &H1

Declare Function RegOpenKeyEx Lib "advapi32.dll" Alias "RegOpenKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal ulOptions As Long, ByVal samDesired As Long, phkResult As Long) As Long
Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
Declare Function RegQueryValueEx Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, lpData As Any, lpcbData As Any) As Long
Declare Function RegCreateKeyEx Lib "advapi32.dll" Alias "RegCreateKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal Reserved As Long, ByVal lpClass As String, ByVal dwOptions As Long, ByVal samDesired As Long, ByVal lpSecurityAttributes As Any, phkResult As Long, lpdwDisposition As Long) As Long
Declare Function RegFlushKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
Declare Function RegSetValueEx_String Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, ByVal lpData As String, ByVal cbData As Long) As Long
Declare Function RegSetValueEx_DWord Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpData As Long, ByVal cbData As Long) As Long
Declare Function RegDeleteKey Lib "advapi32.dll" Alias "RegDeleteKeyA" (ByVal hKey As Long, ByVal lpSubKey As String) As Long
Declare Function RegDeleteValue Lib "advapi32.dll" Alias "RegDeleteValueA" (ByVal hKey As Long, ByVal lpValueName As String) As Long

' Prüft auf das Vorhandensein eines Schlüssels.
' Diese Funktion sollten Sie aufrufen bevor Sie einen neuen Eintrag hinzufügen

Function ExistKey(Root&, schlüssel$) As Boolean
' Root ist entweder HKEY_CURRENT_USER oder HKEY_LOCAL_MACHINE
Dim lResult&, keyhandle&

    lResult = RegOpenKeyEx(Root, schlüssel, 0, KEY_READ, keyhandle)
    If lResult = ERROR_SUCCESS Then RegCloseKey keyhandle
    ExistKey = (lResult = ERROR_SUCCESS)
End Function

....

---

Stelli

------------------
Warum lisp'eln wenn's auch anders geht.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP