V神童教程第二章第六节——综合示例二

时间:2009-07-09 02:40:45   来源:第二电脑网  作者:第二电脑网

  第二电脑网导读:行定制。 二、程序界面: 程序界面 一个文本框(TxtContent),显示“Learning Visual Basic”字样;三个单选按钮:按钮一(OptArial)让文本字体变为 Arial 类型;按钮二(OptModern)让文本字体变为 Modern 类型;按钮三(OptRoman)让文本字体变为 Times New Roman 类型;三个复选按钮:按钮一(ChkBold),让文本字体变为黑体;...
  正文:

在前面两节中,我们学习了命令按钮(CommandButton)、单选按钮(OptionButton)、复选按钮(CheckBox)的使用,本节将就前两节的知识做个总结。

一、程序目的:
通过选项按钮的选择,对所选文本进行定制。

二、程序界面:
程序界面
一个文本框(TxtContent),显示“Learning Visual Basic”字样;三个单选按钮:按钮一(OptArial)让文本字体变为 Arial 类型;按钮二(OptModern)让文本字体变为 Modern 类型;按钮三(OptRoman)让文本字体变为 Times New Roman 类型;三个复选按钮:按钮一(ChkBold),让文本字体变为黑体;按钮二(ChkItalic),让文本字体变为斜体字;按钮三(ChkUnderline),给文本增加下划线。另外,还有一个退出按钮(CmdQuit),作用在于退出程序。

三、属性设置:
根据图一进行属性设置。

四、书写程序:

OptArial 按钮:
Private Sub OptArial_Click()
  TxtContent.FontName = "Arial"
End Sub

OptModern 按钮:
Private Sub OptModern_Click()
  TxtContent.FontName = "Modern"
End Sub

OptRoman 按钮:
Private Sub OptRoman_Click()
  TxtContent.FontName = "Times New Roman"
End Sub

ChkBold 按钮:
Private Sub ChkBold_Click()
 If ChkBold.Value = 1 Then
  TxtContent.FontBold = True
 Else
  TxtContent.FontBold = False
End Sub

ChkItalic 按钮:
Private Sub ChkItalic_Click()
 If ChkItalic.Value = 1 Then
  TxtContent.FontItalic = True
 Else
  TxtContent.FontItalic = False
End Sub

ChkUnderline 按钮:
Private Sub ChkUnderline_Click()
 If ChkUnderline.Value = 1 Then
  TxtContent.FontUnderline = True
 Else
  TxtContent.FontUnderline = False
End Sub

CmdQuit 按钮:
Private Sub CmdQuit_Click()
 End
End Sub

五、分组控件(Frame)的学习:
从前面学到的知识我们知道,单选按钮只能多选一,那么,下面这种分组选项的选择又该如何制作呢?
在图二中,既可以选择性别,又可以选择年级,它们是通过选项框分组控件(Frame)得以实现的。

简单地说,选项框控件是将不同的选项分类,在某一类里只能多选一,但多个类别的交叉使用,可以完成比较复杂的多项选择。

不仅仅如此,我们还可以将单选按钮、多选按钮分组,不同组内的操作不会影响其他组的操作。
分组控件的制作方法:
先在窗体上绘制合适大小的框架,然后点选单选控件或多选控件,最后将鼠标移到框架内并拖拉出选项按钮。

注意:请不要使用双击选择按钮控件然后将其拖动到分组框内的办法,否则,分组会失败。


来源:http://www.002pc.com/master/College/Language/VB/9968.html

收藏到:

关于《V神童教程第二章第六节——综合示例二》文章的评论

共有 0 位网友发表了评论 此处只显示部分留言 点击查看完整评论页面

随机文章

    SQL Error: select * from ***_ecms_article where classid='91' and checked=1 order by rand() limit 10

顶出来的热门

    SQL Error: select * from ***_ecms_article where classid='91' and checked=1 order by diggtop desc,id desc limit 10
站内搜索: 高级搜索

热门搜索: Windows style 系统 tr IP QQ CPU 安装 function 注册 if td