如何将图片框中的图片插入到表格组件中

weiba963

请问如何将图片框中的图片通过数据源插入到表格组件中，如下图显示的红框中的图片显示到蓝框中，并打印预览出来，有懂的朋友帮帮忙，下面贴上源码


test.rar (1.61 MB, 下载次数: 3)

2021-3-20 16:05 上传

点击文件名下载附件

寒潮

20190918-表格打印预览.e (28.63 KB, 下载次数: 6)

2021-3-20 19:08 上传

点击文件名下载附件

阿顺

要先建个空图片组

  

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
图片	字节集
图片组	字节集

图片 ＝ HTTP读文件 (“”)
图片组 ＝ 建空图片组 (120, 120)
加入图片 (图片组, 图片, )
图片框1.图片 ＝ 图片
超级列表框1.图片组 ＝ 图片组
超级列表框1.插入表项 (0, “图片”, 0, , , )

i支持库列表	支持库注释
internet	互联网支持库
iext2	扩展界面支持库二
iext	扩展界面支持库一

.版本 2<br /> .支持库 internet<br /> .支持库 iext2<br /> .支持库 iext<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 图片, 字节集<br /> .局部变量 图片组, 字节集<br /> <br /> 图片 ＝ HTTP读文件 (“”)<br /> 图片组 ＝ 建空图片组 (120, 120)<br /> 加入图片 (图片组, 图片, )<br /> 图片框1.图片 ＝ 图片<br /> 超级列表框1.图片组 ＝ 图片组<br /> 超级列表框1.插入表项 (0, “图片”, 0, , , )

weiba963

阿顺 发表于 2021-3-20 16:28
要先建个空图片组
[e=0].版本 2
.支持库 internet

我是用的数据源和表格组件

rectdbszy

超级列表框可以，表格还真不知道方法

weiba963

rectdbszy 发表于 2021-3-20 16:41
超级列表框可以，表格还真不知道方法

但是我要做成图片中那种样式的。超级列表框又满足不了。哎

rectdbszy

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
Dmmmmooo	整数型
hBkBitmap	整数型
搞对象	对象

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

Dmmmmooo ＝ SetWindowLongA (取窗口句柄 (), #GWL_WNDPROC, 到数值 (&NewProc_Main))
Dmmmmooo ＝ SetWindowLongA (编辑框1.取窗口句柄 (), #GWL_WNDPROC, 到数值 (&NewProc_Edit))

子程序名	返回值类型	公开	备 注
NewProc_Main	整数型
参数名	类 型	参考	可空	数组	备 注
hWnd	整数型
Msg	整数型
wParam	整数型
lParam	整数型

判断 (Msg ＝ #WM_CTLCOLOREDIT )
判断 (lParam ＝ 编辑框1.取窗口句柄 ())
SetTextColor (wParam, #品红 )
SetBkMode (wParam, #TRANSPARENT )
返回 (GetStockObject ( #NULL_BRUSH ))



判断 (Msg ＝ #WM_COMMAND )
判断 (lParam ＝ 编辑框1.取窗口句柄 ())
判断 (右移 (wParam, 16) ＝ #EN_VSCROLL )
InvalidateRect (lParam, 0, 真)
判断 (右移 (wParam, 16) ＝ #EN_HSCROLL )
InvalidateRect (lParam, 0, 真)
判断 (右移 (wParam, 16) ＝ #EN_CHANGE )
InvalidateRect (lParam, 0, 真)








返回 (CallWindowProcA (Dmmmmooo, hWnd, Msg, wParam, lParam))

子程序名	返回值类型	公开	备 注
NewProc_Edit	整数型
参数名	类 型	参考	可空	数组	备 注
hWnd	整数型
Msg	整数型
wParam	整数型
lParam	整数型

变量名	类 型	静态	数组	备 注
hMemDC_BkPicture	整数型
hOldBitmap	整数型
rect	矩形数据
hBrush	整数型
hOldBrush	整数型
hTempMemBitmap	整数型
hScrDC	整数型
hOldTempMemBitmap	整数型
hMemDC_BkColor	整数型
lParam	整数型

判断 (Msg ＝ #WM_ERASEBKGND )
如果真 (hBkBitmap ＝ 0)
如果真 (搞对象.创建图片对象 ( #图片1 ))
hBkBitmap ＝ 搞对象.读数值属性 (“handle”, )

GetClientRect (hWnd, rect)
hScrDC ＝ GetDC (0)
hMemDC_BkColor ＝ CreateCompatibleDC (hScrDC)
hTempMemBitmap ＝ CreateCompatibleBitmap (hScrDC, rect.右边, rect.底边)
hOldTempMemBitmap ＝ SelectObject (hMemDC_BkColor, hTempMemBitmap)
hBrush ＝ CreateSolidBrush ( #白色 )
hOldBrush ＝ SelectObject (hMemDC_BkColor, hBrush)
FillRect (hMemDC_BkColor, rect, hBrush)
SelectObject (hMemDC_BkColor, hOldBrush)
DeleteObject (hBrush)
hMemDC_BkPicture ＝ CreateCompatibleDC (hScrDC)
hOldBitmap ＝ SelectObject (hMemDC_BkPicture, hBkBitmap)
BitBlt (hMemDC_BkColor, rect.左边, rect.顶边, rect.右边, rect.底边, hMemDC_BkPicture, 0, 0, #SRCCOPY )
BitBlt (wParam, rect.左边, rect.顶边, rect.右边, rect.底边, hMemDC_BkColor, 0, 0, #SRCCOPY )
SelectObject (hMemDC_BkPicture, hOldBitmap)
DeleteDC (hMemDC_BkPicture)
SelectObject (hMemDC_BkColor, hOldTempMemBitmap)
DeleteObject (hTempMemBitmap)
DeleteDC (hMemDC_BkColor)
ReleaseDC (0, hScrDC)
InvalidateRect (hWnd, 0, 假)
判断 (Msg ＝ #WM_VSCROLL )
InvalidateRect (hWnd, 0, 真)
判断 (Msg ＝ #WM_HSCROLL )
InvalidateRect (hWnd, 0, 真)
判断 (Msg ＝ #WM_DESTROY )
如果真 (取反 (搞对象.是否为空 ()))
搞对象.清除 ()



返回 (CallWindowProcA (Dmmmmooo, hWnd, Msg, wParam, lParam))

i支持库列表	支持库注释
eAPI	应用接口支持库

.版本 2<br /> .支持库 eAPI<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 Dmmmmooo, 整数型<br /> .程序集变量 hBkBitmap, 整数型<br /> .程序集变量 搞对象, 对象<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> Dmmmmooo ＝ SetWindowLongA (取窗口句柄 (), #GWL_WNDPROC, 到数值 (&NewProc_Main))<br /> Dmmmmooo ＝ SetWindowLongA (编辑框1.取窗口句柄 (), #GWL_WNDPROC, 到数值 (&NewProc_Edit))<br /> <br /> .子程序 NewProc_Main, 整数型<br /> .参数 hWnd, 整数型<br /> .参数 Msg, 整数型<br /> .参数 wParam, 整数型<br /> .参数 lParam, 整数型<br /> <br /> .判断开始 (Msg ＝ #WM_CTLCOLOREDIT)<br />     .判断开始 (lParam ＝ 编辑框1.取窗口句柄 ())<br />         SetTextColor (wParam, #品红)<br />         SetBkMode (wParam, #TRANSPARENT)<br />         返回 (GetStockObject (#NULL_BRUSH))<br />     .默认<br /> <br />     .判断结束<br /> <br /> .判断 (Msg ＝ #WM_COMMAND)<br />     .判断开始 (lParam ＝ 编辑框1.取窗口句柄 ())<br />         .判断开始 (右移 (wParam, 16) ＝ #EN_VSCROLL)<br />             InvalidateRect (lParam, 0, 真)<br />         .判断 (右移 (wParam, 16) ＝ #EN_HSCROLL)<br />             InvalidateRect (lParam, 0, 真)<br />         .判断 (右移 (wParam, 16) ＝ #EN_CHANGE)<br />             InvalidateRect (lParam, 0, 真)<br />         .默认<br /> <br />         .判断结束<br /> <br />     .默认<br /> <br />     .判断结束<br /> <br /> .默认<br /> <br /> .判断结束<br /> 返回 (CallWindowProcA (Dmmmmooo, hWnd, Msg, wParam, lParam))<br /> <br /> .子程序 NewProc_Edit, 整数型<br /> .参数 hWnd, 整数型<br /> .参数 Msg, 整数型<br /> .参数 wParam, 整数型<br /> .参数 lParam, 整数型<br /> .局部变量 hMemDC_BkPicture, 整数型<br /> .局部变量 hOldBitmap, 整数型<br /> .局部变量 rect, 矩形数据<br /> .局部变量 hBrush, 整数型<br /> .局部变量 hOldBrush, 整数型<br /> .局部变量 hTempMemBitmap, 整数型<br /> .局部变量 hScrDC, 整数型<br /> .局部变量 hOldTempMemBitmap, 整数型<br /> .局部变量 hMemDC_BkColor, 整数型<br /> .局部变量 lParam, 整数型<br /> <br /> .判断开始 (Msg ＝ #WM_ERASEBKGND)<br />     .如果真 (hBkBitmap ＝ 0)<br />         .如果真 (搞对象.创建图片对象 (#图片1))<br />             hBkBitmap ＝ 搞对象.读数值属性 (“handle”, )<br />         .如果真结束<br /> <br />     .如果真结束<br />     GetClientRect (hWnd, rect)<br />     hScrDC ＝ GetDC (0)<br />     hMemDC_BkColor ＝ CreateCompatibleDC (hScrDC)<br />     hTempMemBitmap ＝ CreateCompatibleBitmap (hScrDC, rect.右边, rect.底边)<br />     hOldTempMemBitmap ＝ SelectObject (hMemDC_BkColor, hTempMemBitmap)<br />     hBrush ＝ CreateSolidBrush (#白色)<br />     hOldBrush ＝ SelectObject (hMemDC_BkColor, hBrush)<br />     FillRect (hMemDC_BkColor, rect, hBrush)<br />     SelectObject (hMemDC_BkColor, hOldBrush)<br />     DeleteObject (hBrush)<br />     hMemDC_BkPicture ＝ CreateCompatibleDC (hScrDC)<br />     hOldBitmap ＝ SelectObject (hMemDC_BkPicture, hBkBitmap)<br />     BitBlt (hMemDC_BkColor, rect.左边, rect.顶边, rect.右边, rect.底边, hMemDC_BkPicture, 0, 0, #SRCCOPY)<br />     BitBlt (wParam, rect.左边, rect.顶边, rect.右边, rect.底边, hMemDC_BkColor, 0, 0, #SRCCOPY)<br />     SelectObject (hMemDC_BkPicture, hOldBitmap)<br />     DeleteDC (hMemDC_BkPicture)<br />     SelectObject (hMemDC_BkColor, hOldTempMemBitmap)<br />     DeleteObject (hTempMemBitmap)<br />     DeleteDC (hMemDC_BkColor)<br />     ReleaseDC (0, hScrDC)<br />     InvalidateRect (hWnd, 0, 假)<br /> .判断 (Msg ＝ #WM_VSCROLL)<br />     InvalidateRect (hWnd, 0, 真)<br /> .判断 (Msg ＝ #WM_HSCROLL)<br />     InvalidateRect (hWnd, 0, 真)<br /> .判断 (Msg ＝ #WM_DESTROY)<br />     .如果真 (取反 (搞对象.是否为空 ()))<br />         搞对象.清除 ()<br />     .如果真结束<br /> <br /> .默认<br /> <br /> .判断结束<br /> 返回 (CallWindowProcA (Dmmmmooo, hWnd, Msg, wParam, lParam))

rectdbszy

weiba963 发表于 2021-3-20 16:57
但是我要做成图片中那种样式的。超级列表框又满足不了。哎

一会我发一个编辑框加入图片的例子，你看改一改能不能行，我没试过。如行的话，你得发一个给我参考一下

rectdbszy

  

DLL命令名	返回值类型	公开	备 注
SetWindowLongA	整数型
DLL库文件名:
在DLL库中对应命令名:
SetWindowLongA
参数名	类 型	传址	数组	备 注
hWnd	整数型
nIndex	整数型
dwNewLong	整数型

DLL命令名	返回值类型	公开	备 注
SetTextColor	整数型
DLL库文件名:
在DLL库中对应命令名:
SetTextColor
参数名	类 型	传址	数组	备 注
hdc	整数型
crColor	整数型

DLL命令名	返回值类型	公开	备 注
SetBkMode	整数型
DLL库文件名:
在DLL库中对应命令名:
SetBkMode
参数名	类 型	传址	数组	备 注
hdc	整数型
iBkMode	整数型

DLL命令名	返回值类型	公开	备 注
GetStockObject	整数型
DLL库文件名:
在DLL库中对应命令名:
GetStockObject
参数名	类 型	传址	数组	备 注
fnObject	整数型

DLL命令名	返回值类型	公开	备 注
InvalidateRect	逻辑型
DLL库文件名:
在DLL库中对应命令名:
InvalidateRect
参数名	类 型	传址	数组	备 注
hWnd	整数型
lpRect	整数型
bErase	逻辑型

DLL命令名	返回值类型	公开	备 注
CallWindowProcA	整数型
DLL库文件名:
在DLL库中对应命令名:
CallWindowProcA
参数名	类 型	传址	数组	备 注
lpPrevWndFunc	整数型
hWnd	整数型
Msg	整数型
wParam	整数型
lParam	整数型

DLL命令名	返回值类型	公开	备 注
GetClientRect	逻辑型
DLL库文件名:
在DLL库中对应命令名:
GetClientRect
参数名	类 型	传址	数组	备 注
hWnd	整数型
lpRect	矩形数据

DLL命令名	返回值类型	公开	备 注
GetDC	整数型
DLL库文件名:
在DLL库中对应命令名:
GetDC
参数名	类 型	传址	数组	备 注
hWnd	整数型

DLL命令名	返回值类型	公开	备 注
ReleaseDC	整数型
DLL库文件名:
在DLL库中对应命令名:
ReleaseDC
参数名	类 型	传址	数组	备 注
hWnd	整数型
hDC	整数型

DLL命令名	返回值类型	公开	备 注
CreateCompatibleDC	整数型
DLL库文件名:
在DLL库中对应命令名:
CreateCompatibleDC
参数名	类 型	传址	数组	备 注
hdc	整数型

DLL命令名	返回值类型	公开	备 注
CreateCompatibleBitmap	整数型
DLL库文件名:
在DLL库中对应命令名:
CreateCompatibleBitmap
参数名	类 型	传址	数组	备 注
hdc
nWidth
nHeight

DLL命令名	返回值类型	公开	备 注
SelectObject	整数型
DLL库文件名:
在DLL库中对应命令名:
SelectObject
参数名	类 型	传址	数组	备 注
hdc	整数型
hgdiobj	整数型

DLL命令名	返回值类型	公开	备 注
CreateSolidBrush	整数型
DLL库文件名:
在DLL库中对应命令名:
CreateSolidBrush
参数名	类 型	传址	数组	备 注
crColor	整数型

DLL命令名	返回值类型	公开	备 注
GetDesktopWindow	整数型
DLL库文件名:
user32
在DLL库中对应命令名:
GetDesktopWindow
参数名	类 型	传址	数组	备 注

DLL命令名	返回值类型	公开	备 注
FillRect	整数型
DLL库文件名:
在DLL库中对应命令名:
FillRect
参数名	类 型	传址	数组	备 注
hDC	整数型
lprc	矩形数据
hbr	整数型

DLL命令名	返回值类型	公开	备 注
DeleteObject	逻辑型
DLL库文件名:
在DLL库中对应命令名:
DeleteObject
参数名	类 型	传址	数组	备 注
hObject	整数型

DLL命令名	返回值类型	公开	备 注
BitBlt	逻辑型
DLL库文件名:
在DLL库中对应命令名:
BitBlt
参数名	类 型	传址	数组	备 注
hdcDest	整数型
nXDest	整数型
nYDest	整数型
nWidth	整数型
nHeight	整数型
hdcSrc	整数型
nXSrc	整数型
nYSrc	整数型
dwRop	整数型

DLL命令名	返回值类型	公开	备 注
DeleteDC	逻辑型
DLL库文件名:
在DLL库中对应命令名:
DeleteDC
参数名	类 型	传址	数组	备 注
hdc	整数型

i支持库列表	支持库注释
eAPI	应用接口支持库

.版本 2<br /> .支持库 eAPI<br /> <br /> .DLL命令 SetWindowLongA, 整数型<br />     .参数 hWnd, 整数型<br />     .参数 nIndex, 整数型<br />     .参数 dwNewLong, 整数型<br /> <br /> .DLL命令 SetTextColor, 整数型<br />     .参数 hdc, 整数型<br />     .参数 crColor, 整数型<br /> <br /> .DLL命令 SetBkMode, 整数型<br />     .参数 hdc, 整数型<br />     .参数 iBkMode, 整数型<br /> <br /> .DLL命令 GetStockObject, 整数型<br />     .参数 fnObject, 整数型<br /> <br /> .DLL命令 InvalidateRect, 逻辑型<br />     .参数 hWnd, 整数型<br />     .参数 lpRect, 整数型<br />     .参数 bErase, 逻辑型<br /> <br /> .DLL命令 CallWindowProcA, 整数型<br />     .参数 lpPrevWndFunc, 整数型<br />     .参数 hWnd, 整数型<br />     .参数 Msg, 整数型<br />     .参数 wParam, 整数型<br />     .参数 lParam, 整数型<br /> <br /> .DLL命令 GetClientRect, 逻辑型<br />     .参数 hWnd, 整数型<br />     .参数 lpRect, 矩形数据<br /> <br /> .DLL命令 GetDC, 整数型<br />     .参数 hWnd, 整数型<br /> <br /> .DLL命令 ReleaseDC, 整数型<br />     .参数 hWnd, 整数型<br />     .参数 hDC, 整数型<br /> <br /> .DLL命令 CreateCompatibleDC, 整数型<br />     .参数 hdc, 整数型<br /> <br /> .DLL命令 CreateCompatibleBitmap, 整数型, , "CreateCompatibleBitmap"<br />     .参数 hdc<br />     .参数 nWidth<br />     .参数 nHeight<br /> <br /> .DLL命令 SelectObject, 整数型<br />     .参数 hdc, 整数型<br />     .参数 hgdiobj, 整数型<br /> <br /> .DLL命令 CreateSolidBrush, 整数型<br />     .参数 crColor, 整数型<br /> <br /> .DLL命令 GetDesktopWindow, 整数型, "user32", "GetDesktopWindow"<br /> <br /> .DLL命令 FillRect, 整数型<br />     .参数 hDC, 整数型<br />     .参数 lprc, 矩形数据<br />     .参数 hbr, 整数型<br /> <br /> .DLL命令 DeleteObject, 逻辑型<br />     .参数 hObject, 整数型<br /> <br /> .DLL命令 BitBlt, 逻辑型<br />     .参数 hdcDest, 整数型<br />     .参数 nXDest, 整数型<br />     .参数 nYDest, 整数型<br />     .参数 nWidth, 整数型<br />     .参数 nHeight, 整数型<br />     .参数 hdcSrc, 整数型<br />     .参数 nXSrc, 整数型<br />     .参数 nYSrc, 整数型<br />     .参数 dwRop, 整数型<br /> <br /> .DLL命令 DeleteDC, 逻辑型<br />     .参数 hdc, 整数型

rectdbszy

weiba963 发表于 2021-3-20 16:57
但是我要做成图片中那种样式的。超级列表框又满足不了。哎

因为我不知道我电脑有没毒，所以不能发DOME，只好在代码区发出来，看一会通过了你就能看到，上次我发了个例子，人家说有毒，害禁言7天，过了我就不发了，只在代码区发。