vb改变字形的代码是什么_VB程序题：提供在窗体上显示的以汉字开头的字体名称，并显示该名称所对应得字体样式，程序运行效果如图E.10所示。龚沛曾 课后实验源码...

VB程序题：提供在窗体上显示的以汉字开头的字体名称，并显示该名称所对应得字体样式，程序运行效果如图E.10所示。 VB源代码 wb98.com

提示：

1. 界面设计：窗体有两个Label和两个列表ListBox分别用来显示字体名称和字体样式。

2. 屏幕对象Screen有一系列的属性，参见教材例5.10，其中Fonts是存放所有字体名的字符数组，FontCount是所有字体的个数。

3. 要显示汉字字体名称，参见教材例6.3的方法，汉字的机内码最高位为1，若利用Asc函数求其码值为小于0(数据以补码表示)，因此可用如下算法：

For i=0 To Screen.FontCount – 1

判断 若 Asc(left(Screen.Fonts(i),1))<0为汉字字体 则

在List1中显示字体名称

在List2设置该控件的字体，并显示特定的汉字

Next i

解题，在窗体画两个图片框，代码如下：

Private Sub Form_Click()

For i = 0 To Screen.FontCount - 1

If Asc(Left(Screen.Fonts(i), 1)) < 0 Then

Picture1.Print Screen.Fonts(i)

Picture2.FontName = Screen.Fonts(i)

Picture2.Print "中国同济大学"

End If

Next i

End Sub

运行程序，点击窗体，会看到显示结果。

Visual Basic程序设计教程(第3版) (龚沛曾等编)课后实验源码

来源：济亨网