还是用vb做记事本的问题

Question

当想新建一个文档的时候，我想让它判断text1中是否有字符，如果有就弹出msgbox提示保存“是”“否”或“取消！　这该怎么做呢，我实在做不出来

Answer 1

 if vba.lenb( vba.trim$( text1.text))=0 then
   msgbox "没有数据"
 else
   msgbox "已有数据，是否保存？", vbyesno
 end if

Answer 2

Option ExplicitPrivate Sub mnuNew_Click()
   '建立一个新的文件
  Dim strmsg As String
  
  If Text1.Text <> "" Then
     
     strmsg = MsgBox("是否保存改文件?", vbQuestion + vbYesNoCancel, "NotePad")
     '选择取消
     If strmsg = vbCancel Then Exit Sub
     '选择保存
     If strmsg = vbYes Then
        Call SaveFile
     End If
     '选择不保存
     If strmsg = vbNo Then
        Unload Me
     End If
  End If
  
End SubPublic Sub SaveFile()
    Dim fs As New FileSystemObject
    Dim txtFile As TextStream
    
    On Error Resume Next
    
    With CommonDialog1
        .Filter = "文本文件(*.txt)|*.txt"
        .DialogTitle = "保存"
        .FilterIndex = 0
        .ShowSave
   End With
  
   Set txtFile = fs.CreateTextFile(CommonDialog1.FileName, True)
       txtFile.Write Text1.Text
       txtFile.Close
       
  '建立新的记事本,txt进行清空处理
    Text1.Text = ""
End Sub
这是个简单的示范，你可以在上面加上自己的代码进行改写