控件的属性问题★☆★

Question

enum tagXXX
   solid=0
   dash=1
   dot=2
end enum
dim xxx as tagXXX

Answer 1

enum tagXXX
  solid=0
  dash=1
  dot=2
end enum
dim xxx as tagXXX 

Answer 2

荔枝copy答案已经好几次了，为什么呢

Answer 3

枚举用法我知，但是在Active中如何使用呢？

Answer 4

用wizard添加一个day属性，再把下列代码copy到相应段覆盖原代码
Public Property Get Day() As Myday
    Day = m_day
End PropertyPublic Property Let Day(ByVal New_Day As Myday)
    m_day = New_Day
    PropertyChanged "Day"
End PropertyEnum Myday
Monday
Tuesday
Wednesday
Thursday
Friday
Saturday
Sunday
End Enum
Dim m_day As Myday