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版) (龚沛曾等编)课后实验源码

打赏 支付宝打赏 微信打赏

来源：济亨网

本文链接：http://wb98.com/post/87.html