| | 首页 | 新闻 | 理论 | 校园 | 考试 | 公益 | 书苑 | 影视 | 图片 | 成长 | 留言 | 贵大 | 宣传部 | | ||||||||||||||||||
|
||||||||||||||||||
|
| 您现在的位置: 贵州大学思想政治教育网 >> 考试 >> 计算机等级考试 >> 经验交流 >> 正文 |
|
||||
| 用VB做一个记事本实在不很复杂[4] | ||||
作者:佚名 文章来源:希赛网 点击数: 更新时间:2008-9-27 ![]() |
||||
|
第二章 美化程序界面 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即可。 StatusBar1.Panels(1).Text = "目前状态:正在打开文件" & "《" &CommonDialog1.FileTitle & "》"
例二:让第三个窗格显示时间并让时间跟随系统时钟变化。 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 |
||||
| 文章录入:杨政成 责任编辑:邓茹婕 | ||||
| 【加入收藏】【打印此文】【关闭窗口】 | ||||
| 最新热点 | 最新推荐 | 相关文章 | ||
| 全国计算机等级考试二级复习… 等级考试书籍购买注意事项 实用宝典:英语四、六级常考… 教你一招:四级快速阅读的得… 纪念恢复高考30年图库 网友“湖南菜农”一家三口谈… 十年树木 百年树人 新课程高考:社会史进入历史… 刑法辅导笔记:数罪并罚制度 刑法辅导笔记:缓刑制度 |
| | 设为首页 | 加入收藏 | 联系站长 | 友情链接 | 版权申明 | | |||
|