VB菜鸟求助，文本框内容写入Newfile.txt文件(急急急！！！！！）

Question

设计“新建”子菜单，把文本框内容写进NewFile.txt文件。若文本框内容为空，弹出错误信息框.这段代码如何编写？？？？？？？？？？急

Answer 1

Option ExplicitPrivate Sub Command1_Click()
    Dim intFileNum As Integer
    If Text1.Text = "" Then
        MsgBox "没有写入内容！", vbOKOnly + vbExclamation
    Else
        intFileNum = FreeFile(0)
        Open App.Path & "\NewFile.txt" For Output As #intFileNum
        Print #intFileNum, Text1.Text
        Close #intFileNum
    End If
End Sub

Answer 2

这个，楼上说的很好了！Open App.Path & "\NewFile.txt" For Output As #intFileNum
Print #intFileNum, Text1.Text
Close #intFileNum

Answer 3

我是用VB设计一个菜单，有一个Textbox，“新建“菜单把文本框内容写进NewFile.txt文件。若文本框内容为空，弹出错误信息框.
直接按照你的代码是不行的就修改了一下。Private Sub New_Click()
    Text1.Text = ""
    FileName = "未命名"
    Me.Caption = FileName
    If Text1.Text = "" Then
        MsgBox "请在文本框输入内容再建文档！", , "新建文档"
    End If
End Sub
我原来的是这样。还是有点纠结。

Answer 4

Option ExplicitPrivate Sub New_Click()
    Dim FileName As String
    Dim intFileNumber As Integer
    Text1.Text = ""
    FileName = "未命名"
    Me.Caption = FileName
    If Text1.Text = "" Then
        MsgBox "请在文本框输入内容再建文档！", , "新建文档"
    Else
        intFileNum = FreeFile(0)
        Open App.Path & "\NewFile.txt" For Output As #intFileNum
        Print #intFileNum, Text1.Text
        Close #intFileNum
    End If
End Sub

Answer 5

Text1.Text = ""
一上来就强制将文本框清除了。

Answer 6

Private Sub New_Click()
    Dim FileName As String
    Dim intFileNum As Integer
    Text1.Text = ""
    FileName = "未命名"
    Me.Caption = FileName
    If Text1.Text = "" Then
        MsgBox "请在文本框输入内容再建文档！", , "新建文档"
    Else
        intFileNum = FreeFile(0)
        Open App.Path & "\NewFile.txt" For Output As #intFileNum
        Print #intFileNum, Text1.Text
        Close #intFileNum
    End If
End Sub
我按照这个代码结果还是无论文本框有没有内容都会弹出警告。。你的代码显示变量未定义。intFileNum

Answer 7

我要崩溃了....
Private Sub New_Click()
  Dim FileName As String
  Dim intFileNum As Integer
  Text1.Text = "我要崩溃了..."
  FileName = "未命名"
  Me.Caption = FileName
  If Text1.Text = "" Then
  MsgBox "请在文本框输入内容再建文档！", , "新建文档"
  Else
  intFileNum = FreeFile(0)
  Open App.Path & "\NewFile.txt" For Output As #intFileNum
  Print #intFileNum, Text1.Text
  Close #intFileNum
  End If
End Sub

Answer 8

饿，发现问题，搞定了。谢谢你！！！！！！！修改后的代码如下：
Private Sub New_Click()
    FileName = "未命名"
    Me.Caption = FileName
    Dim intFileNum As Integer
    If Text1.Text = "" Then
        MsgBox "请在文本框输入内容再建文档！", , "新建文档"
    Else
      intFileNum = FreeFile(0)
        Open App.Path & "\NewFile.txt" For Output As #intFileNum
        Print #intFileNum, Text1.Text
        Close #intFileNum
    End If
End Sub