Question

vb 怎么新建RichTextBox1

Answer 1

方法一：
commondialog控件一个-------comopen
richtextbox一个,作为文本框
两个菜单:
文件,下有新建,打开,保存,字体,退出,打印.
编辑,下有查找,查找下一个
Option Explicit
Public sFind As String

Private Sub Form_Resize()
'如果窗体不处于最小化RichTextBox1状态，改变RichTextBox1大小以适应窗体大小变化
If Form1.WindowState <> 1 Then
RichTextBox1.Width = Form1.Width - 135
If Form1.Height < 1200 Then
Form1.Height = 1200
End If
RichTextBox1.Height = Form1.Height - 675
End If
End Sub

'当“退出”菜单项被点击时
Private Sub mnuExit_Click()
Unload Me
End Sub

'当“查找”菜单项被点击时
Private Sub mnuFind_Click()
sFind = InputBox("Find what?", , sFind)
RichTextBox1.Find sFind
End Sub

'当“字体”菜单项被点击时
Private Sub mnuFont_Click()
CmdOpen.Flags = cdlCFBoth + cdlCFEffects
CmdOpen.ShowFont
'将RichTextBox1的属性根据“字体”对话框的变化作相应设置
'----------------------------------------
'要改变 RichTextBox 控件中的字体特性，可以使用
'SelFontName、SelFontSize 和 SelFontColor 属性。
'----------------------------------------
With RichTextBox1
.SelFontName = CmdOpen.FontName
.SelFontSize = CmdOpen.FontSize
.SelBold = CmdOpen.FontBold
.SelItalic = CmdOpen.FontItalic
.SelStrikeThru = CmdOpen.FontStrikethru
.SelUnderline = CmdOpen.FontUnderline
End With
End Sub

'当“新建”菜单项被点击时，设置为空
Private Sub mnuNew_Click()
RichTextBox1.Text = ""
End Sub

'当“查找下一个”菜单项被点击时
Private Sub mnuNext_Click()
' SelStart属性－返回或设置所选择的文本的起始点；
' 如果没有文本被选中，则指出插入点的位置。
RichTextBox1.SelStart = RichTextBox1.SelStart + RichTextBox1.SelLength + 1
RichTextBox1.Find sFind, , Len(RichTextBox1)
End Sub

'当“打开”菜单项被点击时
Private Sub mnuOpen_Click()
CmdOpen.ShowOpen
RichTextBox1.LoadFile (CmdOpen.FileName)
End Sub

'当“打印”菜单项被点击时
Private Sub mnuPrint_Click()
CmdOpen.Flags = cdlPDReturnDC + cdlPDNoPageNums
If RichTextBox1.SelLength = 0 Then
CmdOpen.Flags = CmdOpen.Flags + cdlPDAllPages
Else
CmdOpen.Flags = CmdOpen.Flags + cdlPDSelection
End If
CmdOpen.ShowPrinter
'将 RichTextBox 控件中格式化文本发送给设备进行打印。
RichTextBox1.SelPrint CmdOpen.hDC
End Sub

'当“保存”菜单项被点击时
Private Sub mnuSave_Click()
CmdOpen.ShowSave
'RichTextBox的SaveFile方法，保存文本
RichTextBox1.SaveFile (CmdOpen.FileName)
End Sub

方法二：
VB6.0中,新建文件的时候选择"VB应用程序向导"可以建立一个文本处理的程序.包括了记事本的所有功能.里面的代码和技巧还是值得一学.祝愿你学有所成.

Answer 2

VB?
引入 Microsoft Rich TextBox Control控件，在编辑环境放置RichTextBox。