Message 1 of 5
class initialize

Not applicable
06-10-2003
01:05 AM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
is this the wrong place to ask for user input?
the class worked till i moved the user input from the test sub that created
the class into the class initialize event
but not sure why?
'''''''start class
Private Sub Class_Initialize()
''''''''''' set direction '''''''''''''
'mWeldDir = "Left"
Dim vchoice As String
vchoice = "Left Right"
Dim doc As AcadDocument
Set doc = ThisDrawing
doc.Utility.InitializeUserInput 0, vchoice
Dim ans As String
ans = doc.Utility.Getkword("Enter weld direction")
'Debug.Print "Answser was: " & ans
mWeldDir = ans
the class worked till i moved the user input from the test sub that created
the class into the class initialize event
but not sure why?
'''''''start class
Private Sub Class_Initialize()
''''''''''' set direction '''''''''''''
'mWeldDir = "Left"
Dim vchoice As String
vchoice = "Left Right"
Dim doc As AcadDocument
Set doc = ThisDrawing
doc.Utility.InitializeUserInput 0, vchoice
Dim ans As String
ans = doc.Utility.Getkword("Enter weld direction")
'Debug.Print "Answser was: " & ans
mWeldDir = ans