最新更新 sitemap 网站制作设计本站搜索
网页设计
国外网站 韩国网站 个人主页 手提袋设计 CSS 网页特效 平面设计 网站设计 Flash CMS技巧 服装网站 php教程 photoshop 画册 服务器选用 数据库 Office
虚拟主机 域名注册 云主机 网页设计 客服QQ:8208442
当前位置:首页 > 编程开发 > VB开发

VB 神童教程:综合示例二

日期:08-31    来源:中国设计秀    作者:cnwebshow.com

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

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

二、程序界面:w8d中国设计秀
程序界面如图一:w8d中国设计秀

 w8d中国设计秀

 w8d中国设计秀

w8d中国设计秀
图一w8d中国设计秀

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

三、属性设置:w8d中国设计秀
根据图一进行属性设置。w8d中国设计秀

四、书写程序:w8d中国设计秀

OptArial 按钮:w8d中国设计秀
Private Sub OptArial_Click()w8d中国设计秀
  TxtContent.FontName = "Arial"w8d中国设计秀
End Sub
w8d中国设计秀

OptModern 按钮:w8d中国设计秀
Private Sub OptModern_Click()w8d中国设计秀
  TxtContent.FontName = "Modern"w8d中国设计秀
End Sub
w8d中国设计秀

OptRoman 按钮:w8d中国设计秀
Private Sub OptRoman_Click()w8d中国设计秀
  TxtContent.FontName = "Times New Roman"w8d中国设计秀
End Sub
w8d中国设计秀

ChkBold 按钮:w8d中国设计秀
Private Sub ChkBold_Click()w8d中国设计秀
 If ChkBold.Value = 1 Thenw8d中国设计秀
  TxtContent.FontBold = Truew8d中国设计秀
 Elsew8d中国设计秀
  TxtContent.FontBold = Falsew8d中国设计秀
End Sub
w8d中国设计秀

ChkItalic 按钮:w8d中国设计秀
Private Sub ChkItalic_Click()w8d中国设计秀
 If ChkItalic.Value = 1 Thenw8d中国设计秀
  TxtContent.FontItalic = Truew8d中国设计秀
 Elsew8d中国设计秀
  TxtContent.FontItalic = Falsew8d中国设计秀
End Sub
w8d中国设计秀

ChkUnderline 按钮:w8d中国设计秀
Private Sub ChkUnderline_Click()w8d中国设计秀
 If ChkUnderline.Value = 1 Thenw8d中国设计秀
  TxtContent.FontUnderline = Truew8d中国设计秀
 Elsew8d中国设计秀
  TxtContent.FontUnderline = Falsew8d中国设计秀
End Sub
w8d中国设计秀

CmdQuit 按钮:w8d中国设计秀
Private Sub CmdQuit_Click()w8d中国设计秀
 Endw8d中国设计秀
End Sub
w8d中国设计秀

w8d中国设计秀

五、分组控件(Frame)的学习:w8d中国设计秀
从前面学到的知识我们知道,单选按钮只能多选一,那么,下面这种分组选项的选择又该如何制作呢?

本文引用地址:/bc/article_60408.html
网站地图 | 关于我们 | 联系我们 | 网站建设 | 广告服务 | 版权声明 | 免责声明