在VB6.0中,有label 、command 标签,怎么设置使其上面的文字大小随着控件大小的调整而改变。

在VB6.0中,有label 、command 标签,怎么设置使其上面的文字大小随着控件大小的调整而改变。,第1张

在运行状态下,设置控件的 Font中的Name 及Size 属性就可以设置其字体名称及大小
如:
Command1FontName="宋体"
Command1FontSize="30"

LabelFontName = "楷体_GB2312"
Label1FontSize = "30"

我想,你是想自己设计一个控件,然后给控件添加 Font 对象属性
以下代码全部在控件模块中:
Private WithEvents mFont As StdFont '定义字体对象改变时触发的事件
Private Sub mFont_FontChanged(ByVal PropertyName As String)
'在运行程序使用代码更改属性时,调用本过程
'Call 刷新本控件 '调用你自己的控件界面过程,用新的字体重绘控件
End Sub
Public Property Get Font() As StdFont
Set Font = UserControlFont
End Property
Public Property Set Font(vNewValue As StdFont)
'当用户在属性窗口更改属性时,调用本过程
Set UserControlFont = vNewValue
'Call 刷新本控件 '调用你自己的控件界面过程,用新的字体重绘控件
End Property
'为该对象的每个属性添加 ReadProperties 和 WriteProperties 语句
Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
FontName = PropBagReadProperty("FontName", "宋体")
FontSize = PropBagReadProperty("FontSize", 9)
'还可以添加有关粗体等内容
End Sub
Private Sub UserControl_WriteProperties(PropBag As PropertyBag)
PropBagWriteProperty "FontName", FontName, "宋体"
PropBagWriteProperty "FontSize", FontSize, 9
'还可以添加有关粗体等内容
End Sub


欢迎分享,转载请注明来源:内存溢出

原文地址: http://outofmemory.cn/yw/12995118.html

(0)
打赏 微信扫一扫 微信扫一扫 支付宝扫一扫 支付宝扫一扫
上一篇 2023-05-29
下一篇 2023-05-29

发表评论

登录后才能评论

评论列表(0条)

保存