Question

VB 打印 调用PaintPicture打印picturebox中的内容请教大家。

我picturebox中画的图形曲线是黑底白字的。但是我想用打印机打印出来的图形曲线是白底黑字的。毕竟黑色太废墨。请问有没有好的方法做到。我试了很久，单独是无功而返~~
谢谢大家

Answer 1

这尺肢个还不简单啊？
你再用一陵茄世个picturebox控件，采用再显示一次，然后打印。这个纳橘工作，你完全可以后台去完成的。不需再显示一次的。

Answer 2

把picturebox改成白底黑字

追问

我的曲线是实时显示的。曲线停止更新时，你把picturebox改成白底黑字有用吗？

追答

首先，picturebox的背景色（BackColor）设置为白色
其次，曲线的色彩（ForeColor）设置为黑色

Answer 3

Private Sub Command1_Click() '反色
Picture2.Cls
Dim w, h As Long
Dim pcolor As Long
Dim r, g, b As Long
For w = 0 To Picture1.ScaleWidth - 1
For h = 0 To Picture1.ScaleHeight - 1
pcolor = Picture1.Point(w, h)
r = pcolor Mod 65536 Mod 256
g = (pcolor Mod 65536) \ 256
b = pcolor \ 65536
Picture2.PSet (w, h), RGB(255 - r, 255 - g, 255 - b)
Next h
Next w
End Sub

追问

你这方法先清下图像，那我picturebox上原来画的曲线到哪去了呢？我打印主要是看曲线的，不可能再重画一次吧？

追答

清的是第二个，是一个新添加的，如果你的窗体原来有，需要修改一下代码。