启动速度我想是没有办法再加速了!因为启动时必须从数据库中加载数据,
下面那段代码应该不能再优化了吧?Private Sub LoadDeclares()
Dim lngRecordsetCount As Long
Dim l As Long
    Set adoDelcares = New Recordset
    adoDelcares.Open "select * from declares order by name", db, adOpenForwardOnly, adLockReadOnly
    With adoDelcares
        .MoveLast
        .MoveFirst
        lngRecordsetCount = .RecordCount
        For l = 1 To lngRecordsetCount
            list1(0).AddItem .Fields("Name").Value
            .MoveNext
        Next
    End With
    list1(0).listIndex = 0
End Sub

解决方案 »

  1.   

    select * from declares order by name
           ^_____________________________這里不要用*
      

  2.   

    select * from declares order by name
           ^_____________________________這里不要用*
      

  3.   

    select * from declares order by name
           ^_____________________________這里不要用*
      

  4.   

    捕捉鼠标键按下,松开,移动事件的API函数有吗???是哪个?
      

  5.   

    能不要调ActiveX控件么?我习惯用VB5,但是不装VB6,控件的版本就不对……
      

  6.   

    to: Richard2001(Richard)
       用 hook 
    to: wjq(b_wind) 
       2.0 版没有用ActiveX控件
      

  7.   

    2.0用了吧,TreeView控件。
    建议:启动调数据时把ListBox之类要接受数据的控件设为不可见,似乎还可以快些另外,声明中的错字还有啊,我差了半天错终于找到:Declare被打成了Delcare
    EnableWindow 函数就是,还有两个,我记不清了。
      

  8.   

    大家帮帮忙看看下面的问题,我很笨http://www.csdn.net/expert/topic/159/159651.shtm 
      

  9.   

    ODBC API的SQLTable函数能返回指定数据源的表结构吗?
    请详解,如:参数含义如何调用?
    谢过!
      

  10.   

    对不起,我对 ADBC API 尚少研究,建议使用 ADO.
      

  11.   

    list1(0).AddItem .Fields("Name").Value
    改成 
    list1(0).AddItem .Fields(1).Value会快一点,我下载过一个程序,有过测试,用数字会快一些.
      

  12.   

    强烈建议y1g1y1(袁飞☆曾经沧海难为水,除却VB不是云☆)
    用vb5.0再来一个 6.0要那个什么库啊
      

  13.   

    visual stadio
             ^---------------拼错了哦!
    还有你自己作过输入法吗,能否给我一份资料我先谢了!
      

  14.   

    给你几个建议:
    连接本地的access数据库最快的方法是DAO哦!
    还有你用ACCESS自己的工具把yfwinapi.mdb压缩一下,可以压掉100多k哦!
      

  15.   

    superjs(真剑神):
     谢谢你的宝贵意见!
      

  16.   

    Excuse me,sir!
    你的数据库里没有包含comctl32.dll这个库!:)
    I need it,but...
      

  17.   

    请装一个 VB6 或者到别人的机上拷贝一个,然后用 Regsvr32.exe 注册即可。
      

  18.   

    我指的不是这个文件而是comctl32.dll的函数接口的用法!谢谢
      

  19.   

    TO y1g1y1(袁飞☆曾经沧海难为水,除却VB不是云☆):你的WIN32API 超级工具(2.0)窗体鼠标把它向下拉大以看见两个方框.
      

  20.   

    知道啦,有用的。我应该把边框设为 Fixed Single 就好了!不过,不影响使用,暂不修改。
      

  21.   

    To: y1g1y1(袁飞☆曾经沧海难为水,除却VB不是云☆) 
    我有一个API函数的文件,可惜是一个库文件,里面包含comctl32.dll,还有大量在VB自带API浏览器中没有的常数定义。
      

  22.   

    to: huangguanshu发给我看看?
      

  23.   

    to:huangguanshu()
    你的API函数的文件能发给我吗?我急着用它,谢谢!
      

  24.   

    启动速度的问题:
      T2说的* 和只提取必要的字段用sql实现时间是几乎没有分别的。其实时间的99.9%是花在List的填充上。可以用以下方法来改进:
    1.打开记录集后用Buffer=rs.getrows()来保存所有记录,然后只填充200条到List中去,保存一个当前位置的指针。当用户拉动滚动条时再填充,一直维护当前位置的指针(微软的一些软件就是这样。)
    2.类似1,只是不将数据保存在Buffer中,而是每次从当前位置去读取相应条(200)的纪录。这样系统资源占用的少些,但速度会有一点下降。
      

  25.   

    to:jokesmith(胜利电波) 
    好建议!下一版我会尝试这样做。
      

  26.   

    为什么我重装的VB6.0没有API View 向导工具呢?
    那位大侠知道是怎么回事,请多多指教,兄弟不胜感激
      

  27.   

    安装时没有选择安装“工具”。不过,我这个工具可以完全代替VB 自带的 API 浏览器
      

  28.   

    将你的 VB 安装盘上如下目录的几个文件拷贝到你的硬盘上即可。\COMMON\TOOLS\WINAPI
      

  29.   

    to: TBBT(打倒日本鬼子)
    你可以去小站看看嘛!
    http://ygyuan.go.163.com/
    http://ygyuan.3322.net/
      

  30.   

    to:huangguanshu()
    谢谢你的API的库文件,可是他还不全!缺少comctl32.dll的大多函数声明!
    eg:
    MenuHelp
    ShowHideMenuctl
    GetEffectiveClientRect
    DrawStatusTextA
    CreatToolbar
    CreateMappedBitmap
    MakeDragList
    ……