Question

VB编程 记事本

请问高手，用VB编写的记事本里的打开，保存和另存为，这样的命令，代码该怎么写？用到什么控件？

Answer 1

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|所有文件(*.*)|*.*"
Me.CommonDialog1.ShowOpen
Open Me.CommonDialog1.FileName For Input As #1
Text1.Text = StrConv(InputB$(LOF(1), 1), vbUnicode)
Close #1
End Sub

Private Sub Save_Click()
On Error Resume Next
Me.CommonDialog1.Filter = "文档文件(*.txt)|*.txt|所有文件(*.*)|*.*"
Me.CommonDialog1.ShowSave
Open Me.CommonDialog1.FileName For Output As #1
Print #1, Text1.Text
Close #1
End Sub
这么晚了，只能随便写一个，若有问题，你自己先解决吧！

Answer 2

在里面添加控件（再窗体左上方）然后编写相应代码就可以了

Answer 3

以前回答过的，你搜索一下知道就有了。