精华内容
下载资源
问答
  • VB记事本程序(Notepad)

    2019-11-17 16:42:21
    VB做一个记事本实在不很复杂,我们完全可以通过向导来很方便地做出来。但本文只打算讨论用手动方法制作记事本
  • VB案例:简易记事本

    千次阅读 2018-02-28 11:04:38
    VB案例:简易记事本 一、运行效果 1、主界面 2、菜单系统 (1)文件菜单 (2)编辑菜单 (3)转换菜单 (4)帮助菜单 3、文件操作 (1)新建文件,输入文本,设置字体 (2)保存为富文本...
    展开全文
  • 本文针对于vb.net初学者,本文整理了来自网上关于vb记事本的设计和代码的实现。 一共需要这几个东西: 1、安装好visual studio 2019等版本 2、net framework4.5 安装教程:打开installer 创建完新...

    本文针对于vb.net初学者,本文整理了来自网上关于vb记事本的设计和代码的实现。

    一共需要这几个东西:

    1、安装好visual studio 2019等版本

    2、net framework4.5

    安装教程:打开installer

     

     

     

     

     创建完新项目,就要开始设计版面(form图片仅供参考,可添油加醋!)

     form4

     注form2和3是帮助和关于

     form1代码(有出入,请自行看懂后复制,以免出错!!!)

    Imports System.ComponentModel
    Public Class Form1
        Dim oldFont As Font = Nothing
        Dim oldColor As Color = Nothing
        Dim mstrWb As String
        Dim strFile As String
        Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long
        Private Declare Function GetMenu Lib "user32" (ByVal hwnd As Long) As Long
        Private Declare Function GetSubMenu Lib "user32" (ByVal hMenu As Long, ByVal nPos As Long) As Long
        Private Declare Function GetMenuItemID Lib "user32" (ByVal hMenu As Long, ByVal nPos As Long) As Long
        Private Declare Function SetMenuItemBitmaps Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long, ByVal hBitmapUnchecked As Long, ByVal hBitmapChecked As Long) As Long
    
        Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
            Me.Text = "记事本 - 无标题"
    
        End Sub
    
        Private Sub 退出ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 退出ToolStripMenuItem.Click
            Dim a As Integer
            If rtf.Text <> "" Then
                a = MsgBox("正文已修改,请问是否保存?", vbYesNoCancel + vbQuestion, "记事本")
                If a = vbYes Then
                    Dim path As String
                    SaveFileDialog1.Filter = "TXT Files (*.txt*)|*.txt|RTF Files(*.rtf)|*.rtf"
                    SaveFileDialog1.ShowDialog()
                    path = SaveFileDialog1.FileName
                    If path <> "" Then
                        IO.File.WriteAllText(path, rtf.Text)
                    End If
                Else
                    If a = vbNo Then
                        End
                    End If
                End If
            Else
                End
            End If
        End Sub
    
        Private Sub 新建ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 新建ToolStripMenuItem.Click
            Me.Text = "记事本 - 无标题"
        End Sub
        Private Sub 保存ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 保存ToolStripMenuItem.Click
            strFile = Mid$(Me.Text, 7, Len(Me.Text))
            If strFile = "无标题" Then
                Dim path As String
                SaveFileDialog1.Filter = "TXT Files (*.txt*)|*.txt|RTF Files(*.rtf)|*.rtf"
                SaveFileDialog1.ShowDialog()
                path = SaveFileDialog1.FileName
                If path <> "" Then
                    IO.File.WriteAllText(path, rtf.Text)
                End If
            End If
        End Sub
    
        Private Sub 复制ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 复制ToolStripMenuItem.Click
            Clipboard.SetText(Me.rtf.SelectedText)
        End Sub
    
        Private Sub 粘贴ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 粘贴ToolStripMenuItem.Click
            Me.rtf.SelectedText = Clipboard.GetText
        End Sub
    
        Private Sub 剪切ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 剪切ToolStripMenuItem.Click
            Clipboard.SetText(Me.rtf.SelectedText)
            Clipboard.SetText(Me.rtf.SelectedRtf)
            Me.rtf.SelectedText = vbNullString
        End Sub
    
        Private Sub 删除ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 删除ToolStripMenuItem.Click
            Me.rtf.SelectedText = ""
        End Sub
    
        Private Sub 全选ToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles 全选ToolStripMenuItem1.Click
    
            rtf.SelectionStart = 0
            rtf.SelectionLength = Len(rtf.Text)
        End Sub
    
    
    
        Private Sub 大写ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 大写ToolStripMenuItem.Click
            rtf.SelectedText = StrConv(rtf.SelectedText, vbUpperCase)
        End Sub
    
        Private Sub 小写ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 小写ToolStripMenuItem.Click
            rtf.SelectedText = StrConv(rtf.SelectedText, vbLowerCase)
        End Sub
    
        Private Sub 全角ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 全角ToolStripMenuItem.Click
            rtf.SelectedText = StrConv(rtf.SelectedText, vbWide)
        End Sub
    
        Private Sub 半角ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 半角ToolStripMenuItem.Click
            rtf.SelectedText = StrConv(rtf.SelectedText, vbNarrow)
        End Sub
    
        Private Sub 首字母大写ToolStripMenuItem_Click() Handles 首字母大写ToolStripMenuItem.Click
            rtf.SelectedText = StrConv(rtf.SelectedText, vbProperCase)
        End Sub
    
        Private Sub 帮助信息ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 帮助信息ToolStripMenuItem.Click
            Form2.Show()
        End Sub
    
        Private Sub 关于ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 关于ToolStripMenuItem.Click
            Form3.Show()
        End Sub
    
        Private Sub 笔记ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 笔记ToolStripMenuItem.Click
            With ColorDialog1
                .Color = rtf.BackColor
                .ShowDialog()
            End With
            rtf.BackColor = ColorDialog1.Color
        End Sub
    
        Private Sub 打印ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 打印ToolStripMenuItem.Click
            PrintDialog1.ShowDialog()
        End Sub
    
        Private Sub 打开ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 打开ToolStripMenuItem.Click
            Dim OPF As New OpenFileDialog
            OPF.Filter = "Text files (*.txt)|*.txt|Text files (*.txt)|*.txt"
            OPF.ShowDialog()
            Dim FName As String = OPF.FileName
            '读取
            If IO.File.Exists(FName) = True Then
                Dim fs As New IO.FileStream(FName, IO.FileMode.Open)
                Dim sr As New IO.StreamReader(fs)
                Dim Tems As String = sr.ReadLine
                Tems = sr.ReadToEnd
                rtf.Text = Tems
                sr.Close()
            End If
        End Sub
    
        Private Sub 另存为ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 另存为ToolStripMenuItem.Click
            Dim path As String
            SaveFileDialog1.Filter = "TXT Files (*.txt*)|*.txt|RTF Files(*.rtf)|*.rtf"
            SaveFileDialog1.ShowDialog()
            path = SaveFileDialog1.FileName
            If path <> "" Then
                IO.File.WriteAllText(path, rtf.Text)
            End If
        End Sub
    
    
        Private Sub Form1_Resize(sender As Object, e As EventArgs) Handles Me.Resize
            If Me.Height > 0 And Me.Width > 0 Then
                With rtf
                    .Top = 25
                    .Left = 0
                    .Width = Me.Width - 20
                    .Height = Me.Height - 65
                End With
            End If
        End Sub
    
        Private Sub Form1_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing
            Dim a As Integer
            If rtf.Text <> "" Then
                a = MsgBox("正文已修改,请问是否保存?", vbYesNoCancel + vbQuestion, "记事本")
                If a = vbYes Then
                    Dim path As String
                    SaveFileDialog1.Filter = "TXT Files (*.txt*)|*.txt|RTF Files(*.rtf)|*.rtf"
                    SaveFileDialog1.ShowDialog()
                    path = SaveFileDialog1.FileName
                    If path <> "" Then
                        IO.File.WriteAllText(path, rtf.Text)
                    End If
                End If
                If a = vbNo Then
                    End
                End If
                If a = vbCancel Then
                    e.Cancel = True
                End If
            End If
        End Sub
    
        Private Sub 字体ToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles 字体ToolStripMenuItem1.Click
            FontDialog1.ShowDialog()
            rtf.SelectionFont = FontDialog1.Font
        End Sub
    
        Private Sub 颜色ToolStripMen4uItem_Click(sender As Object, e As EventArgs) Handles 颜色ToolStripMenuItem.Click
            ColorDialog1.ShowDialog()
            rtf.SelectionColor = ColorDialog1.Color
        End Sub
    
        Private Sub 替换ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 替换ToolStripMenuItem.Click
            Form4.Show()
        End Sub
    
        Private Sub 日期时间ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 日期时间ToolStripMenuItem.Click
            Dim ML As Boolean = False
            If ML = False Then
                rtf.Text += Date.Now
            Else
                rtf.Text += Chr(13) & Chr(10) & Date.Now
            End If
        End Sub
    End Class
    

     form4代码(替换)

    Public Class Form4
        Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
            Me.Visible = False
        End Sub
    
        Private Sub strfind_Click(sender As Object, e As EventArgs)
    
        End Sub
    
        Private Sub allsel_Click(sender As Object, e As EventArgs) Handles allsel.Click
            Dim strFind As String '定义一个查找字符
            Dim intStart As Integer '定义找到位置
            Dim strReplace As String '定义替换的字符
            Dim intCont As Integer
            If f.Text = "" Then
                MsgBox("请先输入查找关键字...")
                Exit Sub
            Else
                strFind = f.Text
                strReplace = r.Text
                If strFind <> strReplace Then
                    Do While intStart >= 0
                        intStart = Form1.rtf.Find(strFind)
                        If intStart >= 0 Then
                            Form1.rtf.SelectionStart = intStart
                            Form1.rtf.SelectionLength = Len(strFind)
                            Form1.rtf.SelectedText = strReplace
                            'intStart = intStart + Len(strReplace)
                            intCont = intCont + 1
                        End If
                    Loop
                Else
                    MsgBox("无需替换!查找文字与替换文字相同")
                End If
            End If
    
            MsgBox("你共查找替换 " + CStr(intCont) + " 处")
            intStart = 0
        End Sub
    End Class

     

     

     先找到属性

    设置这几个属性

     

     

    针对于form2/3/4属性

    那form1就要有icon,只要在form1里设置

     我们还需要给应用程序本身添加一个ico图标

    如下操作

     单击属性

    设置图标即可

     接下来点击“启动”

     即可在项目文件夹bin文件夹下找到他

    唔,结束了,这个程序可能还有漏洞,欢迎大家私信提出,目前漏洞:保存文件和另存为的代码是一样的,保存文件的代码还不够完善,可以提出问题

     免费资料下载链接:


    我不知道下载链接怎么这么长,复制即可

     

    https://dl-download.csdn.net/down11/20210826/0d187b91c11c580600455815115a8e33.zip?Expires=1630060419&OSSAccessKeyId=STS.NV6nJYvh9ZX3b5U6rv7uJXpih&Signature=vx9VpxR07pMniy43pJn3Ap33hC8%3D&response-content-disposition=attachment%3Bfilename%3D%22%25E9%25AB%2598%25E4%25BB%25BFWindows%25E8%25AE%25B0%25E4%25BA%258B%25E6%259C%25AC.zip%22&Date=1630060419&security-token=CAISgwJ1q6Ft5B2yfSjIr5WDJfDtm7cY7ZrYYBPk0nIjO%2Fpmt7XCijz2IHxFf3FoCOEYv%2Fk1nWlU6%2FoTlqF%2FTIBDQUvNYZPQPXSEIUTzDbDasumZsJYw6vT8a1fxZjf%2F2MjNGaCbKPrWZvaqbX3diyZ32sGUXD6%2BXlujQ%2BDr6Zl8dYY4UxX6D1tBH8wEAgp5tI1gQhm3D%2Fu2NQPwiWf9FVdhvhEG6Vly8qOi2MaRmHG85R%2FYsrZJ%2FtuvecD%2FMJI3Z8kvC4uPsbYoJvab4kl58ANX8ap6tqtA9Arcs8uVa1sruEnXaLKMo4wxfVIjP%2FFmRvIVtprnieY9tuiWkJ%2Fs25qImF%2BBkY61GoABeeO%2BEe84cocqakeQMJEj7m5PewlQYZ8Rb%2BeNpycE7cm3%2BHf7qH7pfKu8J9CXC0XmzBPkxoNF4IHqQ2XwbwXogkv68N3AFr4ca375%2Fe3YeaoXxYBWykziUE%2BdTgOBVnUJfP2Y5BEjMPC1uJPyKQ1Ih2WGl5boZ6u%2B7ACtWXvxNvc%3D
    

    展开全文
  • VB做的记事本源码

    2007-08-17 02:45:33
    除了新建打开保存,还可以设置字体并改变颜色
  • 关于用VB记事本程序

    千次阅读 2007-11-21 23:47:00
    内容:讨论如何在用VB编写的记事中实现自动将日志添加到文档尾部、判断保存还是另存为、确认文件是否需要保存等功能。Windows自带的记事本即Notepad有一些功能还是颇具吸引力的,比如自动在特定的文档尾部加入计算机...
     
    内容:讨论如何在用VB编写的记事中实现自动将日志添加到文档尾部、判断
      
       保存
      还是另存为、确认文件是否需要保存等功能。

    Windows自带的 记事本 即Notepad有一些功能还是颇具吸引力的,比如自动在特定的文档尾部加入计算机时钟的 时间 和日期,截取已经打开或者保存了的纯文档名[见记事本的 标题 栏]以及搜索等,给用户带来许多方便。本文就TextBox控件讨论如何实现这些功能。

    一、将日志添加到文档

    在Windows中,如果文档的第一行最左边有".LOG"字样,那么每次用记事本打开此文时,记事本会自动在文档尾部加入时间日期。
    ".LOG"共占四个字节,又置于文档第一行顶格处,因此可以用VB的Left函数来读取这个字符串,如有,则用CStr函数来自动添加时间和日期。
    我们可以在打开文件的程序加入以下 代码

    DimaAsString
    a=Left(Text1.Text,4)'取得头4个字节
    Ifa=".LOG"Then'若有则:
    Text1.SelStart=Len(Text1.Text)'光标移到文件尾
    Text1.SelText=vbCrLf&CStr(Now)'加入换行和时间
    Else'若无,退出过程
    ExitSub
    EndIf

    这样,我们用VB编写的记事本就和Windows的Notepad一样具有自动将日志添加到文档的功能了。

    二、截取FileName中的纯文档名

    如若我们用Notepad打开文件D:/VBFILE/NEW/Textbox控件用法举例.txt,Notepad的标题栏的Caption变为:TextBox控件用法举例-记事本。这个,我们用VB来完成还是比较容易的。

    为了方便在程序的各处使用,我们不妨编写一个截取字符串的函数:

    '截取纯文栏名函数
    FunctionGetFileTitle(OldStrAsString)AsString

    OnErrorResumeNext
    DimnAsInteger,mAsInteger'声明字符串变量
    DimiAsString,rAsString
    DimpAsInteger
    i="/"'要查找的指定字符
    Forn=1ToLen(OldStr)'用Len函数计算已知字符串的字节数
    m=InStrRev(OldStr,i,-1)'"/"所在的位置(其中的-1是默认的)
    Nextn'找下去!

    '截取最后一个"/"后面的字符串
    r=Right(OldStr,Len(OldStr)-m)'获取Title
    p=InStrRev(r,".",-1)'"."所在位置
    GetFileTitle=Left(r,p-1)'去掉后缀

    EndFunction

    现在我们来调用这个函数以获取纯文档名:

    DimMyStrAsString,ResultAsString
    MyStr="d:/games/6do/oldtucom/heart/Story001.TXT"
    Result=GetFileTitle(MyStr)
    Me.Caption=Result&"-记事本"

    执行之,则窗体的标题变为:Story001-记事本,与NotePad的效果无异!

    三、判断保存还是另存为

    通常,我们通过使用CommonDialog控件来保存文件,不过,VB的公共对话框提供的ShowSave其实只是SaveAs,如不作处理则在运行程序中每次保存文件都会跳出另存为对话框,为避免这种不便,我们可以声明一个窗体级或 模块 级的文件名变量[类型:String],并在每一次相关操作中给此变量赋值且保存于 内存 之中,然后在保存文件时给予识别,如变量不为空则直接保存文件,否则调出另存为对话框,让用户输入文件名。
    试看:

    DimSaveFileNameAsString'窗体或模块级变量

    '在打开文件事件加入:
    SaveFileName=CommonDialog1.FileName

    '保存文件
    IfSaveFileName<>""Then
    OpenSaveFileNameForInputAs#1
    Print#1,Text1.Text
    Close#1
    Else
    '此处写上用公共对话框保存文件的代码
    EndIf

    这样,我们的记事本变得象Notepad一样聪明了:那令人讨厌的另存为对话框不会总是弹出来了!

    四、从“我的电脑”拖动文件并打开

    当从“我的电脑”拖动文件到Notepad编辑界面,文件格式正确的话则自动打开。在VB中,我们可以这样处理:

    1.在Form_Load事件中加入:

    Text1.OLEDropMode=1'令Text1成为可接受文件拖放的OLE容器

    2.采用OLE技术实现拖放并打开功能:

    '当文件拖到文本框
    PrivateSubText1_OLEDragOver(dataAsDataObject,effectAsLong,_
    ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle,_
    StateAsInteger)
    Ifdata.GetFormat(vbCFFiles)Then'如是文件则显示可放下图标
    effect=vbDropEffectCopyAndeffect
    Else'否则显示不可放下图标
    effect=vbDropEffectNone
    EndIf
    EndSub

    '当文件被放下
    PrivateSubText1_OLEDragDrop(dataAsDataObject,effectAsLong,_
    ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)

    DimsFileName$AsString'放下的文件名变量
    '检查放下的东西是不是文件名
    Ifdata.GetFormat(vbCFFiles)=TrueThen'如是则sFileName=data.Files(1)'只读取第一个文件信息
    OnErrorResumeNext'出错处理:不予理睬
    '在TextBox中打开文件
    OpensFileNameForInputAs#1
    IfmnuComb(0).CheckedThenText1.Text=Text1.Text&StrConv(InputB$_
    (LOF(1),1),vbUnicode):MyLen=Len(Text1.Text)
    IfmnuComb(1).CheckedThenText1.Text=StrConv(InputB$(LOF(1),1),_
    vbUnicode):MyLen=Len(Text1.Text)
    Close#1
    EndIf
    EndSub

    注意:可要记得写出错处理代码,否则……你知道的。

    五、确认文件是否需要保存

    从当前状态退出程序或转移到其它状态如新建文件、打开文件等,如若当前文件已经改变而用户又没有保存,应该提醒用户要不要保存已做的改变。这一点Notepad是有的,在VB中该怎么办呢?
    我们可以声明一个布尔变量,用来记录文本框是否有了改变,并利用TextBox控件的Change事件来监视文本框的状态,若有变化,则改变变量值。

    1.模块或窗体级声明:

    DimAskAsBoolean

    2.在Form_Load中:

    Ask=False'初值

    3.在Text1_Change中加入:

    Ask=True

    4.退出程序或转移到新的状态时:

    IfAsk=Truethen
    DimFlagAsInteger,MsgStrAsString
    MsgStr="文件已经改变,是否要存盘?"'提示语
    Flag=MsgBox(MsgStr,vbYesNoCancel,"提示")'给予提示
    IfFlag=vbYesThenSaveIt'选择了确定则保存之:这里假定已有了一个保存文件的子过程SaveIt
    IfFlag=vbCancelThenExitSub
    IfFlag=vbNoThenCancel=False
    EndIf
    '......这里写上其它主要处理事件代码
    Ask=False'操作结束令其为假,以免老提示

    六、搜索功能

    Notepad提供了查找和继续查找字符串的功能。VB中,控件TextBox并不象RichTextBox控件那样提供了Find方法。这样我们只好求助于VB的一些内部函数了。以下是笔者自行编写的一个专用于TextBox控件中查找字符串的函数,函数中用上了VB的InStr等内部函数,这里就不多作解释了。

    '查找字符串函数[可置于模块或窗体级中]
    FunctionFindMyStr(MyNameAsTextBox,SearchStrAsString)AsInteger
    DimWhere'获取需要查找的字符串变量
    DimStartAsInteger
    MyName.SetFocus'文本框获得焦点,以显示所找到的内容
    Start=MyName.SelStart MyName.SelLength 1
    Where=InStr(Start,MyName.Text,SearchStr)'在文本中查找字符串
    IfWhereThen
    '若找到则设置选定的起始位置并使找到的字符串高亮
    'FindStr=Where-1
    MyName.SelStart=Where-1
    MyName.SelLength=Len(SearchStr)
    '否则给出提示
    Else:MsgBox"未找到所要查找的字符串。",vbInformation,"提示"
    EndIf
    EndFunction

    有了这个函数,我们可以这样查找和继续查找字符串:

    1.在窗体级声明:

    DimSearchAsString'声明要查找的变量

    2.第一次查找:

    DimsFindAsString
    '若光标不在开头处则令其回到开头
    IfText1.SelStart<>0ThenText1.SelStart=0
    Search=InputBox("请输入要查找的字词:")
    sFind=FindMyStr(Text1,Search)

    3.继续查找[就简单了]:

    DimsFindAsString
    sFind=FindMyStr(Text1,Search)

    这样,搜索功能就基本具备了,如再提供向上查找功能,则更令人满意。

    以上是笔者在学习、探索中的一些体会,在PWin98、VB中文企业版6.0下调试成功。如有不妥当之处,敬请各位高手斧正!->

     

    展开全文
  • VB编写记事本

    千次阅读 2008-07-31 00:07:46
    (一) 用VB编写记事本 ================================= 用VB做一个记事本实在不很复杂,我们完全可以通过向导来很方便地做出来。但本文只打算讨 论用手动方法制作记事本,旨在向VB初学者展示:学VB原来是如此...

    =================================
    (一)   用VB编写记事本
    =================================
    用VB做一个记事本实在不很复杂,我们完全可以通过向导来很方便地做出来。但本文只打算讨

    论用手动方法制作记事本,旨在向VB初学者展示:学VB原来是如此容易!
    通过阅读、研究本文并按本文所述进行尝试,初学者将学到很多东西,如怎样使用RichText控件

    来打开和保存文件,怎样制作菜单、工具栏和状态栏以及如何对其编写代码等。

    第一章 让我们的记事本马上运行

    急于求成是初学者共有的心愿。那好,请按如下三个步骤做,我们的愿望立即就可以实现!

    步骤一:绘制界面。
    新建一个标准EXE工程,将其Caption属性改为“超级记事本”,点击Icon属性给它找个合适的

    Icon图标。单击菜单“工程”-“部件”,在弹出的“部件”对话框里找到Microsoft RichText

    Box 6.0和公共对话框Microsoft Common Dialog 6.0并选中它们,单击“确定”按钮。这时左

    边的工具栏上出现了我们刚才新添的两个控件了。在窗体上绘制RichText Box和Commn Dialog

    ,其中RichText Box的大小和位置可不用理睬,我们将在代码中处理它,当然,有必要把它的

    ScrollBar属性设为2-rtfVertical,这样在打开和编辑文件时垂直滚动条才可用。

    步骤二:编辑菜单。
    按Ctrl+E调出菜单编辑器,我们来做如下几个菜单:
    一.文件菜单:
    文件(第一层) mnuFile
    新建(第二层) mnuNew
    打开(第二层) mnuOpen
    保存(第二层) mnuSave
    - (第二层) mnuFileSep (分隔线)
    退出(第二层) mnuExit
    二.编辑菜单:
    编辑(第一层) mnuEdit
    复制(第二层) mnuCopy
    剪切(第二层) mnuCut
    粘贴(第二层) mnuPaste
    - (第二层) mnuEditSep (分隔线)
    全选(第二层) mnuSelecAll
    三.搜索菜单:
    搜索(第一层) mnuSearch
    查找(第二层) mnuFind
    查找下一个(第二层) mnuFindOn
    四.帮助菜单:
    帮助(第一层) mnuHelp
    使用说明(第二层) mnuUsage
    关于(第二层) mnuAbout
    (注:各菜单项的快捷键请自行设置)

    好了,其它的菜单项以后再根据需要添加。现在进入:
    =======================================
    步骤三:编写代码。

    '声明查找变量
    Dim sFind As String
    '声明文件类型
    Dim FileType, FiType As String

    '初始化程序
    Private Sub Form_Load()
    '设置程序启动时的大小
    Me.Height = 6000
    Me.Width = 9000
    End Sub

    '设置编辑框的位置和大小
    Private Sub Form_Resize()
    On Error Resume Next '出错处理
    RichTextBox1.Top=20
    RichTextBox1.Left=20
    RichTextBox1.Height = ScaleHeight-40
    RichTextBox1.Width = ScaleWidth-40
    End Sub

    '新建文件
    Private Sub mnuNew_Click()
    RichTextBox1.Text = "" '清空文本框
    FileName = "未命名"
    Me.Caption = FileName
    End Sub


    '打开文件
    Private Sub mnuOpen_Click()
    CommonDialog1.Filter = "文本文档(*.txt)|*.txt|RTF文档(*.rtf)|*.rtf|所有文件(*.*)

    |*.*"
    CommonDialog1.ShowOpen
    RichTextBox1.Text = "" '清空文本框
    FileName = CommonDialog1.FileName
    RichTextBox1.LoadFile FileName
    Me.Caption = "超级记事本:" & FileName
    End Sub

    '保存文件
    Private Sub mnuSave_Click()
    CommonDialog1.Filter = "文本文档(*.txt)|*.txt|RTF文档(*.rtf)|*.rtf|所有文件(*.*)

    |*.*"
    CommonDialog1.ShowSave
    FileType = CommonDialog1.FileTitle
    FiType = LCase(Right(FileType, 3))
    FileName = CommonDialog1.FileName
    Select Case FiType
    Case "txt"
    RichTextBox1.SaveFile FileName, rtfText
    Case "rtf"
    RichTextBox1.SaveFile FileName, rtfRTF
    Case "*.*"
    RichTextBox1.SaveFile FileName
    End Select
    Me.Caption = "超级记事本:" & FileName
    End Sub

    '退出
    Private Sub mnuExit_Click()
    End
    End Sub

    '复制
    Private Sub mnuCopy_Click()
    Clipboard.Clear
    Clipboard.SetText RichTextBox1.SelText
    End Sub

    '剪切
    Private Sub mnuCut_Click()
    Clipboard.Clear
    Clipboard.SetText RichTextBox1.SelText
    RichTextBox1.SelText = ""
    End Sub

    '全选
    Private Sub mnuSelectAll_Click()
    RichTextBox1.SelStart = 0
    RichTextBox1.SelLength = Len(RichTextBox1.Text)
    End Sub

    '粘贴
    Private Sub mnuPaste_Click()
    RichTextBox1.SelText = Clipboard.GetText
    End Sub

    '查找
    Private Sub mnuFind_Click()
    sFind = InputBox("请输入要查找的字、词:", "查找内容", sFind)
    RichTextBox1.Find sFind
    End Sub

    '继续查找
    Private Sub mnuFindOn_Click()
    RichTextBox1.SelStart = RichTextBox1.SelStart + RichTextBox1.SelLength + 1
    RichTextBox1.Find sFind, , Len(RichTextBox1)
    End Sub

    '使用说明
    Private Sub mnuReadme_Click()
    On Error GoTo handler
    RichTextBox1.LoadFile "Readme.txt", rtfText '请写好Readme.txt文件并存入程序所在文件

    夹中
    Me.Caption = "超级记事本:" & "使用说明"
    Exit Sub
    handler:
    MsgBox "使用说明文档可能已经被移除,请与作者联系。", vbOKOnly, " 错误信息"
    End Sub

    '关于
    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”,回到桌面运行我

    们的记事本看看,是不是颇有成就感?
    当然,这样的记事本还比较粗糙,我们还需要做些工作,请看下一章。
    ========================================================
    第二章 美化程序界面

    多数字处理软件都有工具栏和状态栏。工具栏和状态栏除了能美化我们的程序使其更具有专业

    性质外,还给用户带来操作上的便利。现在我们就来做一做这两样东西。

    一.工具栏
    (一)制作工具栏
    单击“工程”-“部件”,选中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自带的记事本方便得多。当

    然,还有一些其它的功能需要添加和完善,这就靠你慢慢去完成了。
    ============================================
    (二)  用VB实现象Windows记事本的一些功能
    ============================================
    内容:讨论如何在用VB编写的记事中实现自动将日志添加到文档尾部、判断保存还是另存为、

    确认文件是否需要保存等功能。
    Windows自带的记事本即Notepad有一些功能还是颇具吸引力的,比如自动在特定的文档尾部加

    入计算机时钟的时间和日期,截取已经打开或者保存了的纯文档名[见记事本的标题栏]以及搜

    索等,给用户带来许多方便。本文就TextBox控件讨论如何实现这些功能。

    一、将日志添加到文档

    在Windows中,如果文档的第一行最左边有".LOG"字样,那么每次用记事本打开此文时,记事本

    会自动在文档尾部加入时间日期。
    ".LOG"共占四个字节,又置于文档第一行顶格处,因此可以用VB的Left函数来读取这个字符串

    ,如有,则用CStr函数来自动添加时间和日期。
    我们可以在打开文件的程序加入以下代码:

    DimaAsString
    a=Left(Text1.Text,4)'取得头4个字节
    Ifa=".LOG"Then'若有则:
    Text1.SelStart=Len(Text1.Text)'光标移到文件尾
    Text1.SelText=vbCrLf&CStr(Now)'加入换行和时间
    Else'若无,退出过程
    ExitSub
    EndIf

    这样,我们用VB编写的记事本就和Windows的Notepad一样具有自动将日志添加到文档的功能了

    二、截取FileName中的纯文档名

    如若我们用Notepad打开文件D:\VBFILE\NEW\Textbox控件用法举例.txt,Notepad的标题栏的

    Caption变为:TextBox控件用法举例-记事本。这个,我们用VB来完成还是比较容易的。

    为了方便在程序的各处使用,我们不妨编写一个截取字符串的函数:

    '截取纯文栏名函数
    FunctionGetFileTitle(OldStrAsString)AsString

    OnErrorResumeNext
    DimnAsInteger,mAsInteger'声明字符串变量
    DimiAsString,rAsString
    DimpAsInteger
    i="\"'要查找的指定字符
    Forn=1ToLen(OldStr)'用Len函数计算已知字符串的字节数
    m=InStrRev(OldStr,i,-1)'"\"所在的位置(其中的-1是默认的)
    Nextn'找下去!

    '截取最后一个"\"后面的字符串
    r=Right(OldStr,Len(OldStr)-m)'获取Title
    p=InStrRev(r,".",-1)'"."所在位置
    GetFileTitle=Left(r,p-1)'去掉后缀

    EndFunction

    现在我们来调用这个函数以获取纯文档名:

    DimMyStrAsString,ResultAsString
    MyStr="d:\games\6do\oldtucom\heart\Story001.TXT"
    Result=GetFileTitle(MyStr)
    Me.Caption=Result&"-记事本"

    执行之,则窗体的标题变为:Story001-记事本,与NotePad的效果无异!

    三、判断保存还是另存为

    通常,我们通过使用CommonDialog控件来保存文件,不过,VB的公共对话框提供的ShowSave其

    实只是SaveAs,如不作处理则在运行程序中每次保存文件都会跳出另存为对话框,为避免这种

    不便,我们可以声明一个窗体级或模块级的文件名变量[类型:String],并在每一次相关操作

    中给此变量赋值且保存于内存之中,然后在保存文件时给予识别,如变量不为空则直接保存文

    件,否则调出另存为对话框,让用户输入文件名。
    试看:

    DimSaveFileNameAsString'窗体或模块级变量

    '在打开文件事件加入:
    SaveFileName=CommonDialog1.FileName

    '保存文件
    IfSaveFileName<>""Then
    OpenSaveFileNameForInputAs#1
    Print#1,Text1.Text
    Close#1
    Else
    '此处写上用公共对话框保存文件的代码
    EndIf

    这样,我们的记事本变得象Notepad一样聪明了:那令人讨厌的另存为对话框不会总是弹出来了

    四、从“我的电脑”拖动文件并打开

    当从“我的电脑”拖动文件到Notepad编辑界面,文件格式正确的话则自动打开。在VB中,我们

    可以这样处理:

    1.在Form_Load事件中加入:

    Text1.OLEDropMode=1'令Text1成为可接受文件拖放的OLE容器

    2.采用OLE技术实现拖放并打开功能:

    '当文件拖到文本框
    PrivateSubText1_OLEDragOver(dataAsDataObject,effectAsLong,_
    ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle,_
    StateAsInteger)
    Ifdata.GetFormat(vbCFFiles)Then'如是文件则显示可放下图标
    effect=vbDropEffectCopyAndeffect
    Else'否则显示不可放下图标
    effect=vbDropEffectNone
    EndIf
    EndSub

    '当文件被放下
    PrivateSubText1_OLEDragDrop(dataAsDataObject,effectAsLong,_
    ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)

    DimsFileName$AsString'放下的文件名变量
    '检查放下的东西是不是文件名
    Ifdata.GetFormat(vbCFFiles)=TrueThen'如是则sFileName=data.Files(1)'只读取第一个文件

    信息
    OnErrorResumeNext'出错处理:不予理睬
    '在TextBox中打开文件
    OpensFileNameForInputAs#1
    IfmnuComb(0).CheckedThenText1.Text=Text1.Text&StrConv(InputB$_
    (LOF(1),1),vbUnicode):MyLen=Len(Text1.Text)
    IfmnuComb(1).CheckedThenText1.Text=StrConv(InputB$(LOF(1),1),_
    vbUnicode):MyLen=Len(Text1.Text)
    Close#1
    EndIf
    EndSub

    注意:可要记得写出错处理代码,否则……你知道的。

    五、确认文件是否需要保存

    从当前状态退出程序或转移到其它状态如新建文件、打开文件等,如若当前文件已经改变而用

    户又没有保存,应该提醒用户要不要保存已做的改变。这一点Notepad是有的,在VB中该怎么办

    呢?
    我们可以声明一个布尔变量,用来记录文本框是否有了改变,并利用TextBox控件的Change事件

    来监视文本框的状态,若有变化,则改变变量值。

    1.模块或窗体级声明:

    DimAskAsBoolean

    2.在Form_Load中:

    Ask=False'初值

    3.在Text1_Change中加入:

    Ask=True

    4.退出程序或转移到新的状态时:

    IfAsk=Truethen
    DimFlagAsInteger,MsgStrAsString
    MsgStr="文件已经改变,是否要存盘?"'提示语
    Flag=MsgBox(MsgStr,vbYesNoCancel,"提示")'给予提示
    IfFlag=vbYesThenSaveIt'选择了确定则保存之:这里假定已有了一个保存文件的子过程SaveIt
    IfFlag=vbCancelThenExitSub
    IfFlag=vbNoThenCancel=False
    EndIf
    '......这里写上其它主要处理事件代码
    Ask=False'操作结束令其为假,以免老提示

    六、搜索功能

    Notepad提供了查找和继续查找字符串的功能。VB中,控件TextBox并不象RichTextBox控件那样

    提供了Find方法。这样我们只好求助于VB的一些内部函数了。以下是笔者自行编写的一个专用

    于TextBox控件中查找字符串的函数,函数中用上了VB的InStr等内部函数,这里就不多作解释

    了。

    '查找字符串函数[可置于模块或窗体级中]
    FunctionFindMyStr(MyNameAsTextBox,SearchStrAsString)AsInteger
    DimWhere'获取需要查找的字符串变量
    DimStartAsInteger
    MyName.SetFocus'文本框获得焦点,以显示所找到的内容
    Start=MyName.SelStart MyName.SelLength 1
    Where=InStr(Start,MyName.Text,SearchStr)'在文本中查找字符串
    IfWhereThen
    '若找到则设置选定的起始位置并使找到的字符串高亮
    'FindStr=Where-1
    MyName.SelStart=Where-1
    MyName.SelLength=Len(SearchStr)
    '否则给出提示
    Else:MsgBox"未找到所要查找的字符串。",vbInformation,"提示"
    EndIf
    EndFunction

    有了这个函数,我们可以这样查找和继续查找字符串:

    1.在窗体级声明:

    DimSearchAsString'声明要查找的变量

    2.第一次查找:

    DimsFindAsString
    '若光标不在开头处则令其回到开头
    IfText1.SelStart<>0ThenText1.SelStart=0
    Search=InputBox("请输入要查找的字词:")
    sFind=FindMyStr(Text1,Search)

    3.继续查找[就简单了]:

    DimsFindAsString
    sFind=FindMyStr(Text1,Search)

    这样,搜索功能就基本具备了,如再提供向上查找功能,则更令人满意。

    以上是笔者在学习、探索中的一些体会,在Win98、VB中文企业版6.0下调试成功。如有不妥当

    之处,敬请各位高手斧正!


     

    展开全文
  • VB制作简易记事本

    2013-12-28 10:26:06
    这是我在公司作为实习生学习VB时自己做的一个用VB模仿记事本做的简单的记事本程序,实现了新建、保存、退出、字体、快捷键、帮助等功能,提供给大家参考学习!
  • 相信大家学VB如果连记事本这东西都不知道话就很郁闷了,CG今天接到Kivi的任务,做一个能看懂代码的记事本程序作为VB作业上交,据说还要上台讲,这老师真够难为人的,反正CG是有段时间没有见到了,源代码附上,如果...
  • 怎么用记事本运行程序

    千次阅读 2021-05-20 18:51:17
    快速导读:Q1:怎么让一个记事本写的C++程序运行出来?C++属于编译型语言,不可以像Javascript,Html等语言可以用记事来编写运行.只可以用记事本来编写源代码并且必须保存成C++文件(以.cpp为后缀),并且记事本还有个...
  • Java局域网通信——飞鸽传书源代码 28个目标文件 内容索引:JAVA源码,媒体网络,飞鸽传书 Java局域网通信——飞鸽传书源代码,大家都知道VB版、VC版还有Delphi版的飞鸽传书软件,但是Java版的确实不多,因此这个Java...
  • vb程序(用vb编写简单小程序实例)

    千次阅读 2021-08-01 03:13:52
    如何用VB6.0版编写一个变色的程序?在窗体添加一个标签,一个计时器控件,Private Sub Form_Load() Timer1.Enabled = True Timer1.Interval = 1000 Label1.Caption = "字体随机变色" End Sub Private Sub .用VB...
  • 漂亮的记事本程序

    2008-07-19 14:48:37
    VB写的很简单的一个记事本程序。 只是弄的很漂亮而已。 这个程序和WINDOWS自带的只差一个替换功能。 希望有人能将它完善,然后e-mail给我。 <br>比一般别人写的的记事本多一一些人性化功能 1.可以...
  • VB做的一个记事本程序,实现Windows自带的记事本的部分功能外,并且还可以任意更改字体的字体类型、大小、颜色,并在状态栏中显示时间。 记事本具有文件的新建、打开、保存功能;文字的复制、粘贴、删除功能;字体...
  • VB.NET完成一个功能增强的记事本 分类: DotNet 2011-07-02 16:05 153人阅读 评论(0)收藏 举报 想必大家都听说过Notepad2,Notepad++一类的记事本增强软件,想自己也写一个吗? 今天教大家用用VB.NET...
  • vbs表白代码+整人代码,抖音vbscript表白代码

    万次阅读 多人点赞 2018-09-30 00:47:38
    在电脑上新建一个txt文件 步骤二:将以下代码复制过去(中文可以改) const title = “爱情测试” const yourname = “嫦娥” const question = “你最喜欢的人是谁?请在下面的方框中输入他(她)的名字。” const ...
  •  Private Sub 新建_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 新建.Click  TextBox1.Text = ""  End Sub  Private Sub 打开_Click(ByVal sender As System.Object, ...
  • vb6,个人记事本,程序界面设计

    千次阅读 2008-05-17 11:12:00
    程序界面设计本节通过一个“个人记事本程序,来学习VB的菜单、对话框和工具栏标准的使用。程序运行界面及设计视图见图9-01,9-02。 图9-01 “个人记事本程序
  • VB写一个可插入图片的文字处理程序,类似于记事本,但比记事本强大,可识别文字格式,比如链接形式,还允许插入图片内容,该程序的设计主要以参考word等著名的文字处理软件的成功经验和使用等方面的技术。...
  • VB记事本

    2007-01-12 14:42:00
    通过阅读、研究本文并按本文所述进行尝试,初学者将学到很多东西,如... 第一章 让我们的记事本马上运行  急于求成是初学者共有的心愿。那好,请按如下三个步骤做,我们的愿望立即就可以实现!...
  • 分享两个用于告白的VB脚本程序

    千次阅读 2020-01-27 15:31:47
    新建记事本文件txt,复制如下代码到文件中,然后命个名以vbs为后缀,双击打开就可以运行了。 第一个: msgbox"我有一件事想跟你说" msgbox"自从我遇见你,我便对你难以忘怀了!" msgbox"我喜欢你" msgbox"希望...
  • 制作VB安装程序问答(一)制作安装程序往往是程序设计的最后一步,同时也是重要的一步,因为运行安装程序往往是用户的第一个操作。有不少读者询问这方面的问题,《答疑解惑》将分两期介绍一些制作Visual Basic安装程序...
  • 本文目录1. 前言2. 记事本功能需求3. 部分关键代码解析及程序截图3.1...在学习安卓开发这门课程中期,学会了安卓开发的基本知识,比如,UI组件的应用,Intent的应用等等,同时期中作业为编写一个记事本程序,基于goo...
  • C#基础教程-c#实例教程,适合初学者

    万次阅读 多人点赞 2016-08-22 11:13:24
    本章介绍C#语言的基础知识,希望具有C语言的读者能够基本掌握C#语言,并以此为基础,能够进一步学习用C#语言编写window应用程序和Web应用程序。当然仅靠一章的内容就完全掌握C#语言是不可能的,如需进一步学习C#语言...
  • 然后copy回记事本里就好了1、打开软件Visual C++6.0,新建一个C源程序,书写C语言程序。2、首先定义两个字符型变量,代码:char c1,c2;从键盘中输入一个大写字母,代码:c1=getchar();。3、大写字母与小写字母的...
  • JAVA上百实例源码以及开源项目

    千次下载 热门讨论 2016-01-03 17:37:40
     Java局域网通信——飞鸽传书源代码,大家都知道VB版、VC版还有Delphi版的飞鸽传书软件,但是Java版的确实不多,因此这个Java文件传输实例不可错过,Java网络编程技能的提升很有帮助。 Java聊天程序,包括服务端和...
  • VB6简单的记事本程序,高手见笑了!

    千次阅读 2006-11-17 23:23:00
    最近自己写了一个简单的记事本程序,自己第一次完整写的程序.程序中有很多Bug,程序代码沉余很大.写了很多重复的代码. 但是基本的记事本功能实现了.准备重新更新代码,希望至少在代码结构上能有所提高.Private Sub ...
  • 文摘: 文件中特定字符串的寻找与替换是一种...针对这一问题,笔者用Visual Basic 5.0编制了一个小程序,使用它可以快速地完成在多个文件中查找与替换的任务。 正文: 众所周知,文本文件中特定字符串的寻找与...
  • 而且还要暂停VB程序的执行,等待外部程序执行完毕后,在继续执行VB程序,执行Windows下的记事本程序并使当前程序等待直到记事本程序关闭再执行下面的语句,如果不需要等待,将Run语句中的第三个参数从True改为False就...
  • vb.net开发的时候偶尔会遇到需要修改项目(包括项目所在文件夹)名称的问题。 笔者以 “image处理”这个项目为例,谈谈如何修改项目名称: 保存目录为:image处理 现在需要将项目修改为 图像处理。 打开...

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 2,000
精华内容 800
关键字:

vb新建记事本程序