Question

vb 函数前面不填的话,默认是什么属性?

如这个过程：

Private Sub Command2_Click()
MsgBox "我是一个开朗的人"
End Sub

如何我只这么写
Sub Command2_Click()
MsgBox "我是一个开朗的人"
End Sub

那么前面默认会是什么？

Answer 1

同问
 VB函数的属性 2008-09-24 15:33 sdsxingyun | 分类：VB | 浏览1278次

我们如果在类模块里面设置一个属性，我们可以选择的就只有False/Ture
比如说:
dim conn as class1
conn.a(后来我还想要几个属性）
比如：
text1.font.bold
就是说，如果font是第一属性的话，我用什么方法可以得到第二属性bold
我们一般编的函数都只可以到第一属性。。求个例子：

谢谢。。。不知道说清楚了没有！

我来帮他解答 
提问者采纳2008-09-24 20:59

为类模块添加对象型属性，例如 Font 对象:

Private WithEvents mFont As StdFont '定义字体对象改变时触发的事件

Private Sub mFont_FontChanged(ByVal PropertyName As String)
'在运行程序使用代码更改属性时，调用本过程
   Call RefreshKj '调用你自己的控件界面刷新过程，用新的字体重绘控件
End Sub

Public Property Get Font() As StdFont
     Set Font = UserControl.Font
End Property
Public Property Set Font(vNewValue As StdFont)
   '当用户在属性窗口更改属性时，调用本过程
   
   Set UserControl.Font = vNewValue
   Call RefreshKj '调用你自己的控件界面刷新过程，用新的字体重绘控件
End Property

'为该对象的每个属性添加 ReadProperties 和  WriteProperties 语句
Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
   Font.Name = PropBag.ReadProperty("FontName", "宋体")
   Font.Size = PropBag.ReadProperty("FontSize", 9)
  '...还可以添加有关粗体等内容
End Sub

Private Sub UserControl_WriteProperties(PropBag As PropertyBag)
  PropBag.WriteProperty "FontName", Font.Name, "宋体"
  PropBag.WriteProperty "FontSize", Font.Size, 9
  '...还可以添加有关粗体等内容
End Sub

Private Sub RefreshKj()
   '刷新本控件，根据需要修改
   UserControl.Cls
   UserControl.Print "控件-My"
End Sub

Private Sub UserControl_Resize()
   Call RefreshKj
End Sub

Answer 2

是Private

Answer 3

我记得是公共类型