当前位置:首页 » 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版) (龚沛曾等编)课后实验源码


 

打赏 支付宝打赏 微信打赏

来源:济亨网

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

    << 上一篇 下一篇 >>

    湘公网安备 43011102000514号 - 湘ICP备08100508号