VB程序学习代码记录20160801

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