使用VB制作记事本程序

合集下载
相关主题
  1. 1、下载文档前请自行甄别文档内容的完整性,平台不提供额外的编辑、内容补充、找答案等附加服务。
  2. 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
  3. 3、如文档侵犯您的权益,请联系客服反馈,我们会尽快为您处理(人工客服工作时间:9:00-18:30)。

记事本界面如下图所示。

记事本主窗体frmNotepad实现代码如下:

Public s$, flag As Boolean

Dim st As String

Dim Char As Byte, PaFi1$, PaFi2$ '窗体的"通用"声明段中定义变量

Private Sub Form_Load()

Text1 = "关键字首字母自动转换成大写,其余字母转换成小写。用户自定义的变量、过程名,以第一次定义的为准,以后输入的自动向首次定义的形式转换。"

s = Text1

Timer1.Enabled = False

End Sub

Private Sub Text1_Change() '文本框内容发生变化就可以实现再次的查找flag = True

s = Text1.Text

End Sub

'主窗体右侧对字体、字型及大小的设置

Private Sub Option1_Click()

Text1.FontName = "黑体" '设置Text1的字体为黑体

End Sub

Private Sub Option2_Click()

Text1.FontName = "楷体_GB2312" '设置Text1的字体为楷体

End Sub

Private Sub Option3_Click()

Text1.FontSize = 8 '设置Text1的字体大小为8磅

End Sub

Private Sub Option4_Click()

Text1.FontSize = 20 '设置Text1的字体大小为20磅

End Sub

Private Sub Check1_Click()

Text1.FontBold = Not Text1.FontBold '设置Text1的字型是否为粗体End Sub

Private Sub Check2_Click()

Text1.FontItalic = Not Text1.FontItalic '设置Text1的字型是否为斜体End Sub

Private Sub Check3_Click()

Text1.FontStrikethru = Not Text1.FontStrikethru '设置Text1是否加删除线End Sub

Private Sub Check4_Click()

Text1.FontUnderline = Not Text1.FontUnderline '设置Text1是否为加下划线End Sub

Private Sub New_Click() '新建文件

On Error Resume Next

If Text1 <> "" Then

i = MsgBox("文件无标题的文字已经改变。" & vbCrLf & "想保存文件吗?", 3 + 48, "记事本")

If i = 6 Then

CommonDialog1.FileName = "*.Txt"

CommonDialog1.InitDir = "C:\Windows"

CommonDialog1.DefaultExt = "Txt"

CommonDialog1.Filter = "文本文件(*.Txt)|(*.Txt)|RTF文档(*.rtf)|*.rtf|

所有文件(*.*)|*.*"

CommonDialog1.CancelError = True

CommonDialog1.Action = 2

Open CommonDialog1.FileName For Output As #2

Print #2, Text1.Text

Close #2

Text1.Text = ""

MsgBox "文件保存成功!", 64, "提示"

ElseIf i = 7 Then

Text1.Text = ""

End If

Else

Text1 = ""

Me.Caption = "未命名"

End If

End Sub

Private Sub OpenSequenceFile_Click() '打开顺序文件

Dim Data '定义三个变量,用于存放读出的数据

CommonDialog1.ShowOpen '利用ShowOpen显示打开文件对话框

'CommonDialog1.Action = 1 设置Action属性显示打开文件对话框

Text1.Text = ""

Open CommonDialog1.FileName For Input As #1

'打开C:\成绩.txt文件进行读操作,文件号为1

Do While Not EOF(1) '判断1号文件是否结束,若不结束则继续

Line Input #1, Data '从1号文件中读出一个同学的数据(一行数据) Text1 = Text1 & Data & vbCrLf

Loop

Close #1 '关闭文件

End Sub

Private Sub SaveSequenceFile_Click() '保存顺序文件

On Error Resume Next

CommonDialog1.FileName = CommonDialog1.FileTitle '设置默认文件名

CommonDialog1.DefaultExt = "Txt" '设置默认扩展名

CommonDialog1.Action = 2 '或CommonDialog1.ShowSave打开"另存为"对话框 Open CommonDialog1.FileName For Output As #1 '打开1号文件供写入数据

Write #1, "学号", "姓名", "高数", "英语", "VB"

Write #1, "11301", "王松", 80, 50, 70

相关文档
最新文档