Question

VB怎么样把一些设定的文字输出到文本框？

我想用 单击command后可以在text输出我本来设置好的文章 文章是很长的那种 要详细说说代码！ 可以不可以利用资源编辑器呢？

Answer 1

你还是做一个编辑器，将你要写的输进去就可以，当然你也可以打开text文档。步骤给你。自己做
步骤一：绘制界面。

代码。

注释：声明查找变量

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

Answer 2

直接将字符串给TEXT赋值就行了啊，如果长的话开MULTILINE属性与ScrollBars
属性就可以了