房天下

Fang.com
房天下 > 房天下问答 > 业主生活 > 其他

  • 为什么显示文件内容这么慢啊.哪位老大帮我看看

    附上代码Open FileName For Binary As #1 Len = Len(filedata1(0))For I = 0 To 255Get #1, , filedata1(I)Next IClose #1For k = 0 To 255For a = 1 To 16Text1.Text = Text1.Text & filedata1(k).DataArray(a) & " "DoEventsNextText1.Text = Text1.Text + Chr(13) + Chr(10)Next k

    提问者：网落雨点

    发布于2010-12-07

共1个回答
  • BOSS007 丨Lv 4
    Dim strData As String Open FileName For Binary As #1 Len = Len(filedata1(0)) For I = 0 To 255 Get #1, , filedata1(I) Next I Close #1 For k = 0 To 255 For a = 1 To 16 strData = strData & filedata1(k).DataArray(a) & " " DoEvents Next strData = strData + Chr(13) + Chr(10) Next k Text1.Text = strData
    +1 2010-12-07 举报
热门人气推荐
推荐楼盘小区二手房商圈租房热门知识房产圈 相关推荐房产百科
免责声明：问答内容均来源于互联网用户，房天下对其内容不负责任，如有版权或其他问题可以联系房天下进行删除。