1,451
社区成员
发帖
与我相关
我的任务
分享
Option Explicit
Private Sub Command1_Click()
Printer.PaintPicture Picture1.Image, 100, 100
Printer.EndDoc
End Sub
Private Sub Form_Load()
Picture1.AutoRedraw = True
Picture1.ScaleMode = vbPixels
Picture1.BackColor = vbWhite
Picture1.ForeColor = vbBlack
Picture1.Print "Hello"
Picture1.Line (0, 0)-(Picture1.ScaleWidth - 1, Picture1.ScaleHeight - 1), , B
End Sub