VB+动态菜单+转义字符（回车，TAB，换行等）

版权声明：本文为博主原创文章，未经博主允许不得转载。 https://blog.csdn.net/oneclarence/article/details/88643472

VB学习记录：动态菜单项

书籍：《Visual Basic程序设计基础与实训教程》

                     

成员	常数	等效	说明
CrLf	vbCrLf	Chr(13) + Chr(10)	回车/换行组合符。
Cr	vbCr	Chr(13)	回车符。
Lf	vbLf	Chr(10)	换行符。
NewLine	vbNewLine	Chr(13) + Chr(10)	换行符。
NullChar	vbNullChar	Chr(0)	值为 0 的字符。
n/a	vbNullString	值为 0 的字符串	与零长度字符串 ("") 不同；用于调用外部过程。
n/a	vbObjectError	-2147221504	错误号。用户定义的错误号应当大于该值。例如：Err.Raise(Number) = vbObjectError + 1000
Tab	vbTab	Chr(9)	Tab 字符。
Back	vbBack	Chr(8)	退格字符。
FormFeed	vbFormFeed	Chr(12)	在 Microsoft Windows 中无用。
VerticalTab	vbVerticalTab	Chr(11)	在 Microsoft Windows 中无用。

'Option Explicit

Dim Index As Integer
Dim i As Integer


Private Sub mnuExit_Click()
    End
End Sub

Private Sub mnuFileClear_Click()
    For i = 1 To Index
       Unload mnuFileName(i)
    Next i
    Index = 0
    mnuLine2.Visible = False
    mnuFileClear.Visible = False
End Sub

Private Sub mnuFileOpen_Click()
    C1$ = Chr$(13) + Chr$(10) '回车换行
    With CommonDialog1
        .DialogTitle = "打开文件"
        .InitDir = App.Path
        .Filter = "AllFile(*.*)|*.*|窗体文件(*.frm)|*.frm|工程文件(*.vbp)|*.vbp"
        .FilterIndex = 2
        .Flags = 1
        .Action = 1 '打开文件对话框
    End With
    If CommonDialog1.FileName = "" Then
        MsgBox "用户取消了打开文件的操作"
    Else
        Text1.Text = "你打开的文件是：" + C1$ + CommonDialog1.FileName
        Index = Index + 1
        mnuLine2.Visible = True
        If Index > 4 Then
            mnuFileName(Index - 4).Visible = False
        End If
        Load mnuFileName(Index)
        mnuFileName(Index).Caption = CommonDialog1.FileName
        mnuFileName(Index).Visible = True
    End If
    If Index > 0 Then
        mnuFileClear.Visible = True
    Else
        mnuFileClear.Visible = False
    End If
End Sub

未完待续.....