1,451
社区成员
发帖
与我相关
我的任务
分享
Dim a As OLE_COLOR
Private Sub Command1_Click()
Picture1.ForeColor = a
Picture1.CurrentX = 1500
Picture1.CurrentY = 500
Picture1.FontSize = 18
Picture1.Print "文字"
End Sub
Private Sub Form_Load()
Me.Show
Picture1.ForeColor = vbRed
a = Picture1.BackColor
Picture1.AutoRedraw = True
Picture1.Line (0, 500)-(2000, 2000)
Picture1.CurrentX = 1500
Picture1.CurrentY = 500
Picture1.FontSize = 18
Picture1.Print "文字"
End Sub