如何在程序中使用Windows的画图工具来编写一个位图

这种办法比较笨的，你看着办吧，是这样实现的，因为你已经可以扫描得到一个HBITMAP句柄，你可以用

SetClipboardData(CF_BITMAP,hbmp)

来把这个HBITMAP复制到剪切版上，然后你打开画图工具，按一下Ctrl+V粘贴上去就行了；或者用ShellExecute启用画图工具，然后用FindWindow查找画图工具的窗口句柄，然后向这个用SendMessage发送Ctrl+V消息（其实就是模拟人工按Ctrl+V *** 作）

====================================

PDF吗……倒是不知道……

socket 是有缓冲区大小的，并不是你用buffer=new unsigned char[70000]就可以指定的。

你需要反复读取SOCKET直到数据接收完整，再开始下面的处理。

'如果只是变颜色的话，不需要位图就可以，

'在窗体上添加一个按钮，添加一个shape控件，点中这个shape复制->粘贴

'd出窗口点是，然后继续粘贴，一共放5个，然后把下面的代码加进去，就有你的效果了，不需要位图

'不明白的百度HI我一下

Private Sub Command1_Click()

Dim n As Integer

n = Val(InputBox("输入一个数字"))

Dim i As Integer

For i = 0 To Shape1.UBound

If i <>n - 1 Then

Shape1(i).FillStyle = 0

Shape1(i).FillColor = vbWhite

Else

Shape1(i).FillStyle = 0

Shape1(i).FillColor = vbRed

End If

Next i

End Sub

---