vb制作记事本代码（vb代码怎么记）

今天给各位分享vb制作记事本代码的知识，其中也会对vb代码怎么记进行解释，如果能碰巧解决你现在面临的问题，别忘了关注本站，现在开始吧！

本文目录一览：

• 1、VB制作记事本菜单的自动换行代码
• 2、VB语言编写的记事本
• 3、VB制作记事本的字体代码

VB制作记事本菜单的自动换行代码

新建两个TEXTBOX

TEXT2.Visible设置为false

自动换行代码如下：

Private

Sub

zidonghuanhang_Click()

If

zidonghuanhang.Checked

=

True

Then

zidonghuanhang.Checked

=

False

'取消选定自动换行

'Text1.ScrollBars

=

3

'水平、垂直滚动条

Text2.Visible

=

True

'text2不可见且不可用

Text2.Text

=

Text1.Text

Else

'否则

zidonghuanhang.Checked

=

True

'设定自动换行

'Text1.ScrollBars

=

2

'只有垂直滚动条

Text2.Visible

=

False

'text2可见也可用

End

If

'结束循环

VB语言编写的记事本

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

VB制作记事本的字体代码

CommonDialog1.Flags

=

cdlCFBoth

Or

cdlCFEffects

'cdlCFBoth

对话框列出可用的打印机和屏幕字体.

cdlCFEffects

对话框允许删除线，下划线，以及颜色效果。

CommonDialog1.ShowFont

'显示“字体”对话框

Text1.font.Name

=

CommonDialog1.FontName

'设置字体

Text1.font.Size

=

CommonDialog1.FontSize

'设置字号

Text1.font.Bold

=

CommonDialog1.FontBold

'设置是否以粗体显示

Text1.font.Italic

=

CommonDialog1.FontItalic

'设置是否以斜体显示

Text1.FontStrikethru

=

CommonDialog1.FontStrikethru

'设置是否显示删除线

Text1.FontUnderline

=

CommonDialog1.FontUnderline

'设置是否显示下划线

Text1.ForeColor

=

CommonDialog1.Color

'设置字的颜色

Text2.font.Name

=

CommonDialog1.FontName

'设置字体

Text2.font.Size

=

CommonDialog1.FontSize

'设置字号

Text2.font.Bold

=

CommonDialog1.FontBold

'设置是否以粗体显示

Text2.font.Italic

=

CommonDialog1.FontItalic

'设置是否以斜体显示

Text2.FontStrikethru

=

CommonDialog1.FontStrikethru

'设置是否显示删除线

Text2.FontUnderline

=

CommonDialog1.FontUnderline

'设置是否显示下划线

Text2.ForeColor

=

CommonDialog1.Color

'设置字的颜色

关于vb制作记事本代码和vb代码怎么记的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。