易截截图软件、单文件、免安装、纯绿色、仅160KB

VB写得一个记事本

今天用编程语言Visual Basic(VB)写出自己的记事本!记得自从上次的一个VB打造简单计算器后就再也没有写一些小程序了!今天呢,写一个简单的记事本程序吧!
       工具:一台计算机(电脑)。(配置不做什么要求,现在的机器应该没有配置很低的吧!只要能运行Visual Basic 6.0就行!)
         
VB开发平台:Microsoft Visual Basic 6.0
    首先,打开Microsoft Visual Basic 6.0 建一个标准的EXE工程!在这个记事本编写过程中需要主要的5个控件,它们分别是:RichTextBox、  CommonDialog、Toolbar、  StatusBar、  Timer、 ImageList 。 在程序没有开始编写之前把这些控件,由部件中加出来!
            好了,现在开始了!我们首先,先把菜单建立好,便于以后写代码!工具——菜单编辑器 。建立一下菜单选项;顶层菜单:文件(F,名称:munfile)、编辑(E,名称:munedit)、格式(O,名称:munmat)、查看(V,名称:munlook)、颜色(B,名称:muncolor)、系统选项(名称:munsystem)、帮助(H,名称:munhelp)。然后建立子菜单:
    文件(F,名称:munfile)的子菜单有:新建(CTRL+N,名称:munnew)、打开(CTRL+O,名称:munopen)、保存(CTRL+S,名称:mun)、另存为(CTRL+L,名称:munlingc)、退出(CTRL+E,名称:munexit)
    编辑(E,名称:munedit)的子菜单有:剪切(CTRL+X,名称:munjianq)、复制(CTRL+C,名称:muncopy)、粘贴(CTRL+V,名称:numzhant)、删除(del,名称:mundelete)、全选(CTRL+A,名称:munxall)、日期(CTRL+P,名称:munnows)、查找(CTRL+F,名称:munfound)、查找下一个(,名称:munfindnext)
    格式(O,名称:munmat)的子菜单有:字体(CTRL+I,名称:munfont)
    查看(V,名称:munlook)的子菜单有:文本长度(CTRL+G名称:munlenzhb)、状态栏(名称:munzhuangt)
    颜色(B,名称:muncolor)的子菜单有:字体颜色(CTRL+Q,名称:munfontcolor)、背景颜色(CTRL+D,名称:munblackcolor)
    系统选项(名称:munsystem)的子菜单有:注销(名称:munlog)、重启(名称:munreboot)、关机(名称:munshut)、取消关机指令(名称:muncancelshut)


相关文档:

重拾VB之三,二进制文件篇

重拾VB之三,二进制文件篇
PMP 关劲松
     鬼使神差,09年12月入职的公司仍使用VB开发软件,虽然并非专职开发,但也不得不在事隔4年之后,重新使用VB。
读取、修改二进制文件仍是大部分编程语言的基本开发技能。可以提高处理文件效率,主要应用在通信、交换数据等方面。
'open   filena ......

在VB的类模块中使用定时器

    长久以来,由于不能直接获得VB类成员函数指针,因为无法在VB的类模块中直接使用定时器控件或定时器API,基于俺编写的获得类成员函数指针的函数,俺编写了这个带定时器功能的类,希望给朋友们一些启发。
    一、新建一个类,类名称为clsTimer,类代码如下:
Option Explicit
'* ** ......

纯VB真正实现稳定的NT服务

'* ************************************************************** *
'* 程序名称:modNtSrv
'* 程序功能:实现NT服务
'* 作者:lyserver
'* 联系方式:http://blog.csdn.net/lyserver
'* ************************************************************** *
Option Explicit
' ......

VB命名规则及代码规范

VBA
命名规则及代码规范
 
马维峰
(maweifeng@263.net
)
 
1.      
VBA
命名规则
一个好的命名规则可以提高程序的可读性,减少错误发生的概率,命名规则不是一定的,不同的人有不同的规则和习惯,但在编程过程中,对于个人或工作组,一定要遵守相同的命名规则。
1.1. ......

VB过滤中文字符串源码

添加
两个TEXT(multiline=true)
一个按钮
Private Function isChinese(ByVal asciiv) As Boolean
a = AscW(asciiv)
If Len(Hex$(a)) > 2 Then
isChinese = True
Else
isChinese = False
End If
End Function
Private Sub Command1_Click()
text2.text="" '先清空text2
For i = 1 To Len(Text1.Text)
DoEve ......
© 2009 ej38.com All Rights Reserved. 关于E健网联系我们 | 站点地图 | 赣ICP备09004571号