VB程序学习代码记录20160801

input语句

Private Sub Command1_Click()
    With CommonDialog1
        .InitDir = App.Path
        .Filter = "文本文件|*.txt"
        .ShowOpen
    End With
    Open CommonDialog1.FileName For Binary As 1
    Text1.Text = Input(LOF(1), 1)
    Close 1
End Sub

Private Sub Command2_Click()
    Unload Me
End Sub