VB文本编辑器

Question

文本框初始状态不可用,点击编辑可用,并使文本获得焦点，，，等等。下面我的语句哪里错了，麻烦哪位大虾教一下，谢谢

Private Sub Command1_Click()
Text1.Enabled = True
Text1.SetFocus
End Sub

Private Sub Command2_Click()
CommonDialog1.ShowSave
Open CommonDialog1.FileName For Output As #1
Print #1, Text1, Text
Close #1
End Sub

Private Sub Command3_Click()
End
End Sub

Private Sub Text1_Change()
Text1.Enabled = False
End Sub

Answer 1

Private Sub Command2_Click()
CommonDialog1.Filter = "文本格式（*.txt）|*.txt"
CommonDialog1.FilterIndex = 0
CommonDialog1.ShowSave
Open CommonDialog1.FileName For Output As #1
Print #1, Text1, Text
Close #1
End Sub

你好像忘记设置文件格式了，我给你加上了，你试试。。希望采纳！！学无止境~有什么问题大家可以共同探讨~~