窗体上已有名称分别为Drivel、Dirl、Filel的驱动器列表框、目录列表框和文件列表框,且有1个名称为Textl的文本框。以下程序的功能是:将指定位置中扩展名为“.txt”的文件显示在Filel中,如果双击FileI中的某个文件,则在Textl中显示

admin2011-04-29  47

问题 窗体上已有名称分别为Drivel、Dirl、Filel的驱动器列表框、目录列表框和文件列表框,且有1个名称为Textl的文本框。以下程序的功能是:将指定位置中扩展名为“.txt”的文件显示在Filel中,如果双击FileI中的某个文件,则在Textl中显示该文件的内容。请填空。
    Private Sub Form_Load()
    Filel.Pattern=   
    End Sub
    Private Sub Drivel_Change()
    Dirl.Path=Drivel.Drive
    End Sub
    Private Sub Dirl_Change()
    Filel.Path—Dirl.Path
    End Sub
        Private Sub Filel_DblCliek()    ‘
    Dim s As String姜1
    If Right(Filel.Path,1)=“\”Then
    f_name!=Filel,Path+Filel.FileName
    Else  
    f_name=Filel.Path+“\”+File1.FileName
    End 1f
    Open f_name   As#1  
    Textl.Text=“”
    Do while    
    s=Input(1,#1)
    Textl.Text=Textl.Text+s
   Loop  
    Close-#1
   End Sub

选项

答案*.txt For Input NOT EOF(1)

解析
转载请注明原文地址:https://kaotiyun.com/show/5nhp777K
0

最新回复(0)