VB程序学习代码记录20160801

最新推荐文章于 2024-08-21 22:29:09 发布

原创最新推荐文章于 2024-08-21 22:29:09 发布 · 362 阅读

0 ·

CC 4.0 BY-SA版权

学习专栏收录该内容

31 篇文章

订阅专栏

本文介绍了一个使用VBA编写的简单示例程序，该程序通过Command1按钮触发，利用CommonDialog组件选择文本文件并将其内容读取到Text1控件中显示。此外，Command2按钮用于关闭当前界面。

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