如何设置activex控件的属性为几种可选值.txt

来自「VB技巧问答10000例 VB技巧问答10000例」· 文本 代码 · 共 12 行

先 定 义 一 个 枚 举 类 型 ， 如 ： 
     Public Enum Stooge 
     Larry 
     Curly 
     Moe 
     End Enum 
    然 后 定 义 属 性 类 型 为 该 枚 举 类 型 就 可 以 了 。 如 ： 
     Property Let Name(Effect As Stooge) 
     
     End Property 
<END>