使用VB制作记事本程序
- 1、下载文档前请自行甄别文档内容的完整性,平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 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