| 首页 | 新闻 | 理论 | 校园 | 考试 | 公益 | 书苑 | 影视 | 图片 | 成长 | 留言 | 贵大 | 宣传部 | 
校园风采
您现在的位置: 贵州大学思想政治教育网 >> 考试 >> 计算机等级考试 >> 经验交流 >> 正文 用户登录 新用户注册
用VB做一个记事本实在不很复杂[4] 【文字:
用VB做一个记事本实在不很复杂[4]
作者:佚名    文章来源:希赛网    点击数:    更新时间:2008-9-27    

 

第二章 美化程序界面
  
  多数字处理软件都有工具栏和状态栏。工具栏和状态栏除了能美化我们的程序使其更具有专业性质外,还给用户带来操作上的便利。现在我们就来做一做这两样东西。
  
  一.工具栏
  (一)制作工具栏
  单击“工程”-“部件”,选中Microsoft Windows Common Control 6.0并确定。这时,我们要用到的控件就出现在左边的工具栏上了。
  要做工具栏,首先需要一个叫ImageList的控件来装载图像。在程序界面上添加它,然后右键单击此控件,左键单击“属性”,弹出“属性页”对话框的“图像”,再单击“插入图片”就可以一次性装载图片了(如不满意,以后还可以添加)。图片可在C:\Microsoft Visual Studio\Common\Graphics\Bitmaps\TlBr_W95下选择(这里假设你的VB安装在C盘下)。注意了:在插入图片时给每一张图片注明关键字,以便在引用图片时不至于混乱。如插入“新建”的图片,我们在“关键字”栏注明“New”。
  图片有了,接下来在程序界面添加工具栏(ToolBar)。添加后工具栏就出现在菜单下面,右键单击它,选择“属性”,在弹出的“属性页”对话框中的“通用”项作些设置,主要如下两项:
  1.“图像列表”:选择ImageList1
  2.“样式”:根据喜爱选择1-trbStandard或者2-trbFlat
  继续点击“属性页”的“按钮”选项,插入若干按钮。按钮有多种样式,请根据需要设置。这里请一定注意:每一个与用户操作有关的按钮都必须注明关键字、装载图片,如“新建”按钮,在“关键字”项注明“新建”,在“图像”项键入“New”(即ImageList1中的图片关键字),需要的话还可以在“工具提示文本”项填入适当的提示语。
  (二)编写工具栏的按钮代码
  工具栏按钮的代码编辑很简单,可以按照下面的格式去编写: 

 Private Sub ToolBar1_ButtonClick(ByVal Button As MSComctlLib.Button)
  On Error Resume Next '出错处理
  Select Case Button.Key '按关键字选择
  Case "新建"
  mnuNew_Click '等于菜单项“新建”被单击
  Case "打开" '等于菜单项“打开”被单击
  mnuOpen_Click
  '......(继续编写其它按钮的代码)
  End Select
  End Sub

  完成后试运行一下我们的程序,我们发现,有了工具栏之后,程序变得漂亮多了,只是有一个问题:打开一个较长的文档后,编辑框的下拉滚动条向上的箭头不见了。原因是:工具条占用一定的空间。解决方法:将“设置编辑框的位置和大小”中的RichTextBox1.Top = 20 和 RichTextBox1.Height = Me.ScaleHeight - 40分别改为RichTextBox1.Top = 380,RichTextBox1.Height = Me.ScaleHeight - 400即可。
  
  二.状态栏
  (一)制作状态栏
  状态栏的英文名字叫StatusBar,在窗体上添加它后会默认出现在窗体的最下方。用鼠标右键点击它,调出“属性页”对话框,单击“窗格”项,插入一些窗格,可以将各个窗格的“样式”设置为:
  0-sbrText 显示文本,需编写代码
  1-sbrCaps 显示大小写状态,无需编程
  2-sbrNum 显示NumLock键开关状态,无需编程
  3-sbrIns 显示Insert键状态,无需编程
  4-sbrScr1
  5-sbrTime 显示时间,不编程时时间不会随系统时钟变化
  6-sbrDate 显示日期,无需编程
  注意:加进状态栏后需将Form_Resze中的RichTextBox1.Height = Me.ScaleHeight - 400改为RichTextBox1.Height = Me.ScaleHeight - 600。
  (二)状态栏根据其“样式”属性决定用不用编写代码(如上文所述)。下面举些例子,读者可以认真揣摩,从而达到举一反三的效果。
  
  例一:用户选取了“新建”后,让第一个窗格显示:“目前状态:正在打开文件《……》”。请将下面代码写进“打开”菜单里面:

    StatusBar1.Panels(1).Text = "目前状态:正在打开文件" & "《" &CommonDialog1.FileTitle & "》"

  例二:让第三个窗格显示时间并让时间跟随系统时钟变化。
  首先,给程序加一个Timer控件,将其Interval属性设为1000。然后:
  在Form_Load过程加入:StatusBar1.Panels(1).Text = Time;然后给Timer控件编写代码:

  Private Sub Timer1_Timer()
  If StatusBar1.Panels(3).Text < >  CStr(Time) Then
  StatusBar1.Panels(3).Text = Time
  End If
  End Sub

  例三:当编辑框的文本发生变化时让第一个窗格显示:“正在编辑文档:文件名”。

  Private Sub RichTextBox1_Chang()
  StatusBar1.Panels(1).Text = "正在编辑文档:" & CommonDialog1.FileName
  End Sub

  辛苦了那么久,我们现在已经拥有一个象模象样的记事本了。这个记事本由于用了RichText控件,理论上它能打开和编辑任意大的文档,使用起来的确比Windows自带的记事本方便得多。当然,还有一些其它的功能需要添加和完善,这就靠你慢慢去完成了。

原文出处

文章录入:杨政成    责任编辑:邓茹婕 
  • 上一篇文章:

  • 下一篇文章:
  • 加入收藏】【打印此文】【关闭窗口
    最新热点 最新推荐 相关文章
    全国计算机等级考试二级复习…
    等级考试书籍购买注意事项
    实用宝典:英语四、六级常考…
    教你一招:四级快速阅读的得…
    纪念恢复高考30年图库
    网友“湖南菜农”一家三口谈…
    十年树木 百年树人
    新课程高考:社会史进入历史…
    刑法辅导笔记:数罪并罚制度
    刑法辅导笔记:缓刑制度