7,763
社区成员
发帖
与我相关
我的任务
分享
Private Sub Form_DblClick()
Dim s As String
CommonDialog1.ShowOpen
Open CommonDialog1.FileName For Input As #1
Line Input #1, s
Text1.Text = s
Close #1
End Sub
Private Declare Function SetCurrentDirectory Lib "kernel32" Alias "SetCurrentDirectoryA" (ByVal lpPathName As String)
Private Sub Form_DblClick()
Dim s As String
CommonDialog1.ShowOpen
Open CommonDialog1.FileName For Input As #1
Line Input #1, s
Text1.Text = s
Close #1
SetCurrentDirectory App.Path
End Sub