用VB编写记事本

• Private Sub mnuAbout_Click()
  MsgBox "超级记事本 Ver1.0 版权所有(C) 2001 土人",vbOKOnly,"关于"
  End Sub
  
  '设置弹出式菜单（即在编辑框中单击鼠标右键时弹出的动态菜单）
  Private Sub RichTextBox1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  If Button = 2 Then
  PopupMenu mnuEdit, vbPopupMenuLeftAlign
  Else
  Exit Sub
  End If
  End Sub
  
  '防止在切换输入法时字体自变(感谢王必成先生提供此方案)
  Private Sub RichTextBox1_KeyUp(KeyCode As Integer, Shift As Integer)
  If KeyCode = vbKeySpace Then
  RichTextBox1.SelFontName = CommonDialog1.FontName
  End If
  End Sub
  
  至此，我们的记事本可以编译使用了。点击菜单“文件”-“生成XXX.EXE”，回到桌面运行我们的记事本看看，是不是颇有成就感？
  当然，这样的记事本还比较粗糙,我们还需要做些工作，请看下一章。
  
  
  
  QQ病毒 腾讯QQ空间代码专题 PPT教程专题 ADSL应用面面俱到 Fireworks教程专题 计算机和网络技术基础知识 校园网专题 网吧技术专题

  
  第二章 美化程序界面
  
  多数字处理软件都有工具栏和状态栏。工具栏和状态栏除了能美化我们的程序使其更具有专业性质外，还给用户带来操作上的便利。现在我们就来做一做这两样东西。
  
  一.工具栏
  (一)制作工具栏
  单击“工程”-“部件”，选中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 "打开" '等于菜单项“打开”被单击
  

• 上一页 [1] [2] [3] [4] 下一页 
• 复制本页网址和标题，发送给你QQ/Msn的好友一起分享
  
  
• 用VB编写记事本 相关文章：
• ·用VB跟我学做记事本（很简单哟）
• ·用VB编写记事本
• ·用Java编写的记事本程序（1）
• ·鼠标右键新建记事本消失
• ·玩你没商量 小小记事本整美眉QQ
• ·直接双击就用记事本打开未知文件
• ·为什么我下的Vista有2G大,却是一个记事本?
• ·记事便条随心贴——Atnotes
• ·可别小看它！记事本暗藏技巧四则看
• ·用java启动记事本程序，并输入内容
• 用VB编写记事本 相关软件
• ·BDV Notepad[BDV记事本] V5.1 汉化版
• ·藏爱记事

上一篇:用VB打造自己的SQL连接器

下一篇:用VB设计VCD播放器的方法与技巧

• 特别声明：本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作
• 者.文章版权归文章原始作者所有.对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转
• 载的文章有版权问题请联系编辑人员,我们尽快予以更正. 转载请注明来源：http://www.hackhome.com

精品推荐

热点TOP10

特别推荐