vb中如何用代码控制字体大小

大部分空间都有fontsize属性，即字体大小，该属性可以复制，比如你原来用的是10大小的，在相应控件扩大了一定大小后

VB  代码如下：

dim yk as single,yg as single

dim bilig,bilik as single

sub form_load()

yk=form1width

yg=form1height

end sub

sub formresize事件

bilik=round(mewidth/yk,1)

bilig=round(meheight/yg,1)

command1height=command1heigtbilig

command1width=command1widthbilik

command1fontsize=command1fontsizebilik

end sub

与ShowFont方法相关的属性：

●Color选定的颜色。为使用此属性，必须先将Flags属性设置为cdlCFEffects。

●FontBold 是否选定“粗体”。

●FontItalic 是否选定“斜体”。

●FontStrikethru 是否选定删除线。

●FontUnderline 是否选定下划线。

●FontName 选定的字体名称。

●FontSize 选定的字体大小。

使用的语法是直接引用，比如我们要根据“字体对话框”返回的值设置文本框的字体，则直接采用语句：TextFont=CommonDialogFontnNameTop

原因很简单，你在你电脑上制作的时候选择的字体在其他电脑上没有，虽然你在安装包里面有了，但是，并没有把你放进去的字体放到其他的电脑上去。需要手动去植入到windows/font才可以正常显示。要么你自己选个常用的字体，要么你自己做一个程序自动把字体植入去目标系统windows/font下面。

Private Sub Form_Click()

CommonDialog1ShowFont

End Sub

Private Sub Form_Load()

Dim i As Integer, j As Integer, s1 As Variant

For i = 0 To ScreenFontCount - 1 '系统可用的显示字体数

Combo1AddItem ScreenFonts(i) '加入工具条上的字体名列表框中

Next i

s1 = Array(8, 9, 10, 11, 12, 14, 16, 18, 20, 22, 24, 26, 28, 36, 48, 72)

For j = 0 To 15

Combo2AddItem s1(j) '字号

Next j

End Sub

VB60换字体的程序代码是对对象的FontName 属性赋值： FontName 属性，返回或设置在控件中或在运行时画图或打印 *** 作中，显示文本所用的字体。 该属性的缺省值取决于系统，Visual Basic 中可用的字体取决于系统的配置、显示设备和打印设备。

以上就是关于vb中如何用代码控制字体大小全部的内容，包括:vb中如何用代码控制字体大小、VB程序中如何设置字体颜色、VB写的程序字体不显示等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！