回复：这是deepseek自动生成的一段代码 半透明水印

望各位继续予以完善。

up

文本后面有个小框，是因为文本长度不对。你可以在Len()上加减一下试试（你还可能会遇到中文不好显示的问题）。
设置字号不好用，是因为DeepSeek改的是PicSource的字号，而不是hdctemp的字号。
要正确改字号，需要用CreatFont API。这样还得加好多代码。
我的建议是不用TextOut，而是另建一个可见或者不可见的Picture控件来作为水印的图片，就像惊鸿做的那样。好处是代码比现在少不少，坏处是想去掉水印的背景好像很难。不过看你的效果，好像也没这个要求。

行，不费这个劲了。不弄了。
看来deepseek完全代替人类编程暂时还实现不了。呵呵。

单核 每秒 30帧往上
还可以多核心 共同 图片分区绘图拼图
要用这个 思路
BitBlt Form4.Picture1.hdc, 0, 0, picw, pich, hdcSource, mnq.x2, mnq.y2, vbSrcCopy
GetBitmapBits Form4.Picture1.Image, UBound(PicBits1), PicBits1(1)
GetBitmapBits 得到像素值 p1 p2
For i = 0 To UBound(PicBits1) \ BytesPerPixel - 1 Step 扫描线
B1 = PicBits1(i * BytesPerPixel + 1)
G1 = PicBits1(i * BytesPerPixel + 2)
R1 = PicBits1(i * BytesPerPixel + 3)
B2 = PicBits2(i * BytesPerPixel + 1)
G2 = PicBits2(i * BytesPerPixel + 2)
R2 = PicBits2(i * BytesPerPixel + 3)
‘’‘’‘’‘’‘’‘’‘’‘’自己设置混合方式
R3 = (R1 * quzhong + R2 * (1 - quzhong))
G3 = (G1 * quzhong + G2 * (1 - quzhong))
B3 = (B1 * quzhong + B2 * (1 - quzhong))
SetBitmapBits Form4.Picture2.Image, UBound(PicBits2), PicBits2(1)
'
SetBitmapBits 重绘