发新话题
打印

新手跪求。。。我想点击一个按钮,打开一个文件,该怎样写代码

复制内容到剪贴板
代码:
    Open "d:\1.txt" For Input As #1
    Dim a As String
    Do Until EOF(1)
        Line Input #1, a
        Text1.SelText = a & vbCrLf
    Loop

TOP

发新话题