vb 制作的动态电子贺卡为何只能在窗体的14地方出现随机色点

你的坐标系统错了（你的现在是以中心点为坐标原点，所以会出现只有四分之一随机彩点，下面的定义左下角为原点就是全窗口了，因为你的没有断行，以及几个变量没有定义所以只好简化为下面的希望你能理解）

正确的如下

Private Sub Form_Click()

Dim x1 As Integer, y1 As Integer, i As Integer

FontSize = 24

Scale (0, 456)-(456, 0)

'ClsPrint "新年快乐"

For i = 1 To 80

DrawWidth = 6

x1 = 456 Rnd

y1 = 456 Rnd

PSet (x1, y1), QBColor(Rnd 15)

Next i

End Sub

调试通过，注释了ClsPrint "新年快乐"因为不知道你的过程

先用API函数模拟按alt+printScreen键，截取当前窗口到剪贴版中。然后用：

SavePicture ClipboardGetData, "c:\testbmp" '从剪贴版中把保存到文件

理论上用sendKeys也可以模拟按键，但有时不好使，建议用API可靠些。