VB简易记事本实现代码

    事件实现代码:

    复制代码 代码如下:

    Private Sub mQuit_Click()
    Text1.Text = “”
    End
    End Sub

    Private Sub mNew_Click()
    Text1.Text = “”
    Form1.Caption = “未命名”
    End Sub
    Private Sub mopen_Click()
    CommonDialog1.ShowOpen
    Frame = CommonDialog1.FileName
    If fname <> “” Then
    Form1.Caption = fname
    Text1.Text = “”
    Open fname For Input As #1
    b = “”
    Do Until EOF(1)
    Line Input #1, nextline
    b = b & nextline & Chr(13) & Chr(10)
    Loop
    Close #1
    Text1.Text = b
    End If
    End Sub
    Private Sub mSave_Click()
    If Form1.Caption = “未命名” Or Form1.Caption = “” Then
    CommonDialog1.ShowSave
    fname = CommonDialog1.FileName
    Else
    fname = Form1.Caption
    End If
    If fname <> “” Then
    Form1.Caption = fname
    Open fname For Output As #1
    Print #1, Text1.Text
    Close #1
    End If
    End Sub
    Private Sub mNewSave_Click()
    CommonDialog1.ShowSave
    If fname <> “” Then
    Form1.Caption = fname
    Open fname For Output As #1
    Print #1, Text1.Text
    Close #1
    End If
    End Sub


    需要用CommonDialog控件!
    属性代码:

    复制代码 代码如下:

    Begin VB.Menu mFile
    Caption = “文件”
    Begin VB.Menu mNew
    Caption = “新建”
    End
    Begin VB.Menu mOpen
    Caption = “打开”
    End
    Begin VB.Menu mSave
    Caption = “保存”
    End
    Begin VB.Menu mNewSave
    Caption = “另存为”
    End
    Begin VB.Menu mQuit
    Caption = “退出”
    Shortcut = ^E
    End
    End

发表评论

发表评论