|
本帖最后由 cgsilicone 于 2016-5-18 21:34 编辑
API其实很简单的,采用API按以下三步,简单修改就可以实现动态显示缩略图:
1、先新建立一个没有记录选择器、导航按钮、滚动条的窗体(特别注意,必需完全按以上要求建新窗体),然后将Image控件改为子窗体控件(新建窗体为子窗体),子窗体控件名为“子窗体”。
2、然后在模块程序中加入三句代码:
Public Declare Function 获取DC Lib "user32" Alias "GetDC" (ByVal 窗体句柄 As Long) As Long
Public Declare Function 释放DC Lib "user32" Alias "ReleaseDC" (ByVal 窗体句柄 As Long, ByVal 设备场景句柄 As Long) As Long
Public Declare Function 寻找窗体 Lib "user32" Alias "FindWindowExA" (ByVal 窗体句柄 As Long, ByVal 起始窗体句柄 As Long, ByVal 窗体类名 As String, ByVal 窗体名称 As String) As Long
同时修改代码: PBox As Object,为 hDC as long,PBox.hDC 为hDC。
3、将窗体Click()中代码修改为如下代码:
Dim 窗体句柄 As Long
Dim 绘图场景DC As Long
窗体句柄 = 0
窗体句柄 = 寻找窗体(Me.子窗体.Form.hWnd, 窗体句柄, vbNullString, vbNullString)
窗体句柄 = 寻找窗体(Me.子窗体.Form.hWnd, 窗体句柄, vbNullString, vbNullString)
绘图场景DC = 获取DC(窗体句柄)
ShowTNImg 绘图场景DC, "文件名", 100, 200 ' 根据实际修改文件名
释放DC Me.hWnd, 绘图场景DC
|
|