求助请教2问题--每个问题50分--

3q2008Com 2005-10-08 05:17:40

1 . 怎么实现Winrar 里面显示文件图标的效果

你用WINRAR查看系统图标她会显示系统默认的图标,我想做个ListView 实现该功能.

2. 求教高手指点一下,小弟迷惑中
比如我用select * from table 里面有100W条记录,我的记录集调用他在本地, 库在服务器,他的运行方式是, 我请求... 数据库查出 100W条记录(值到查询完) 传回我本地...
请求指点一些怎么能让查询时客户端响应的快些 , 我知道不用* 用指定字段, 还有其他办法吗?我的库时ACCESS的大约有 15个人在用 (ACCESS版本无法使用SqlServer), 请问有什么好的办法可以提高数据查询响应的速度.

...全文

170 14 打赏收藏转发到动态举报

写回复

用AI写文章

14 条回复

切换为时间正序

请发表友善的回复…

发表回复

3q2008Com 2005-10-11

打赏
举报

类似ASP里面的分页吗?

CatchWind 2005-10-11

打赏
举报

ACCESS可以使用ADO來進行分頁.

RecordSet 有個PageSize(每頁的記錄數)屬性, 再結合其PageCount(總頁數), AbsolutePage(指前顯示第幾頁)等屬性即可.

网上有很多例子的

CatchWind 2005-10-10

打赏
举报

那給你個簡單的:
以下內容直接保存為Form1.frm即可
VERSION 5.00
Begin VB.Form Form1
Caption = "Form1"
ClientHeight = 3195
ClientLeft = 60
ClientTop = 345
ClientWidth = 4680
LinkTopic = "Form1"
ScaleHeight = 3195
ScaleWidth = 4680
StartUpPosition = 3 '系統預設值
Begin VB.TextBox Text1
Height = 435
Left = 1200
TabIndex = 3
Text = ".doc"
Top = 600
Width = 1815
End
Begin VB.PictureBox pic16
AutoSize = -1 'True
BorderStyle = 0 '沒有框線
Height = 240
Left = 360
ScaleHeight = 240
ScaleWidth = 240
TabIndex = 2
Top = 1200
Width = 240
End
Begin VB.PictureBox pic32
BorderStyle = 0 '沒有框線
Height = 480
Left = 1500
ScaleHeight = 32
ScaleMode = 3 '像素
ScaleWidth = 32
TabIndex = 1
Top = 1320
Width = 480
End
Begin VB.CommandButton Command1
Caption = "Command1"
Height = 495
Left = 1920
TabIndex = 0
Top = 2160
Width = 1335
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Declare Function SHGetFileInfo Lib "shell32.dll" Alias "SHGetFileInfoA" (ByVal pszPath As String, ByVal dwFileAttributes As Long, psfi As SHFILEINFO, ByVal cbFileInfo As Long, ByVal uFlags As Long) As Long
Private Declare Function DrawIconEx Lib "user32" (ByVal hdc As Long, ByVal xLeft As Long, ByVal yTop As Long, ByVal hIcon As Long, ByVal cxWidth As Long, ByVal cyWidth As Long, ByVal istepIfAniCur As Long, ByVal hbrFlickerFreeDraw As Long, ByVal diFlags As Long) As Long

Private Type SHFILEINFO
hIcon As Long ' out: icon
iIcon As Long ' out: icon index
dwAttributes As Long ' out: SFGAO_ flags
szDisplayName As String * 256 ' out: display name (or path)
szTypeName As String * 80 ' out: type name
End Type

Private Const SHGFI_ICON = &H100 ' get icon
Private Const SHGFI_LARGEICON = &H0 'Large icon
Private Const SHGFI_SMALLICON = &H1 'Small icon

Private Const FILE_ATTRIBUTE_NORMAL = &H80
Private Const SHGFI_USEFILEATTRIBUTES = &H10 ' use passed dwFileAttribute

Private Const DI_NORMAL = &H3

Dim ShInfo As SHFILEINFO

Private Sub Command1_Click()
GetIcon Text1.Text
End Sub

Private Function GetIcon(FileName As String) As Long
Dim r As Long

Set pic32.Picture = LoadPicture("")
Set pic16.Picture = LoadPicture("")

'小圖標
r = SHGetFileInfo(FileName, FILE_ATTRIBUTE_NORMAL, ShInfo, Len(ShInfo), SHGFI_USEFILEATTRIBUTES Or SHGFI_ICON Or SHGFI_SMALLICON)
DrawIconEx pic16.hdc, 0, 0, ShInfo.hIcon, 16, 16, 0, 0, DI_NORMAL

'大圖標
r = SHGetFileInfo(FileName, FILE_ATTRIBUTE_NORMAL, ShInfo, Len(ShInfo), SHGFI_USEFILEATTRIBUTES Or SHGFI_ICON)
DrawIconEx pic32.hdc, 0, 0, ShInfo.hIcon, 32, 32, 0, 0, DI_NORMAL

Set pic32.Picture = pic32.Image
Set pic16.Picture = pic16.Image
End Function

Private Sub Form_Load()
pic32.AutoRedraw = True
pic16.AutoRedraw = True
End Sub

3q2008Com 2005-10-10