开一个大数组就搞定了。反正现在电脑内存足够大。
解决方案 »
- VB编程时数据表的建立
- 我很想仔细研究下这个代码 谁来跟我一起研究?
- 问一个很笨又困扰我很久的问题 字符串转变量的问题
- 恳请帮忙:怎样才能在"非零元素位置"框中显示非零元素?(见内容)
- win2k/NT/XP 里有没有这个路径:(Windows\)System\Iosubsys ? 该怎么判断是否为win98操作操作系统?并将一个*.dll或其它文件复制在此路径
- SOS!SOS!SOS!!SOS! 高手请进 SQL Server 存储过程返回结果集
- 单击按纽打开另外一台电脑上的文件
- 高手门,如何截获DATAGRID控件的错误检查,并取消这种错误检查?请提供详细说明!
- 高手请进!关于编写windows进程问题?
- 哪有把Word、HTML或者excel转换成TXT文件的函数。
- vb6中的乱码
- 急,怎样用VB编程实现注册控件
Private Declare Function CreateCompatibleDC Lib "gdi32" (ByVal hdc As Long) As Long
Private Declare Function SelectObject Lib "gdi32" (ByVal hdc As Long, ByVal hObject As Long) As Long
Private Declare Function BitBlt Lib "gdi32" (ByVal hdestdc As Long, ByVal X As Long, ByVal Y As Long, ByVal nwidth As Long, ByVal nheight As Long, ByVal hsrcdc As Long, ByVal xsrc As Long, ByVal ysrc As Long, ByVal dwRop As Long) As Long
Private Declare Function CreateCompatibleBitmap Lib "gdi32" (ByVal hdc As Long, ByVal nwidth As Long, ByVal nheight As Long) As Long
Private Declare Function DeleteDC Lib "gdi32" (ByVal hdc As Long) As Long
Private Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Declare Function CreateSolidBrush Lib "gdi32" (ByVal crColor As Long) As Long
Private Declare Function FrameRect Lib "user32" (ByVal hdc As Long, lpRect As rect, ByVal hBrush As Long) As Long
Private Declare Function CreateBitmap Lib "gdi32" (ByVal nwidth As Long, ByVal nheight As Long, ByVal nPlanes As Long, ByVal nBitCount As Long, lpBits As Any) As Long
Private Declare Function SetBkColor Lib "gdi32" (ByVal hdc As Long, ByVal crColor As Long) As Long
Const srcand = &H8800C6
Const srccopy = &HCC0020
Const srcinvert = &H660046