VB编程 记事本

来源：百度知道 编辑：UC知道 时间：2024/05/24 12:38:23
请问高手，用VB编写的记事本里的打开，保存和另存为，这样的命令，代码该怎么写？用到什么控件？

Me.CommonDialog1.ShowColor
Text1.Backcolor = Me.CommonDialog1.Color
End Sub

Private Sub Exit_Click()
Unload Me
End Sub

Private Sub Font_Click()
CommonDialog1.CancelError = True
On Error GoTo ErrHandler
CommonDialog1.Flags = cdlCFBoth Or cdlCFEffects
CommonDialog1.ShowFont
Text1.Font.Name = CommonDialog1.FontName
Text1.Font.Size = CommonDialog1.FontSize
Text1.Font.Bold = CommonDialog1.FontBold
Text1.Font.Italic = CommonDialog1.FontItalic
Text1.Font.Underline = CommonDialog1.FontUnderline
Text1.FontStrikethru = CommonDialog1.FontStrikethru
Text1.ForeColor = CommonDialog1.Color
Exit Sub
ErrHandler:
Exit Sub
End Sub

Private Sub Form_Resize()
Text1.Height = Form1.ScaleHeight
Text1.Width = Form1.ScaleWidth
End Sub

Private Sub Open_Click()
Text1.Text = ""
Me.CommonDialog1.Filter = "文档文件(*.txt)|*.txt|所有文件(*.