1个回答
展开全部
Private Sub Form_Click()
w = Picture1.Width / 2: h = Picture1.Height / 2
Picture1.Scale (-w, h)-(w, -h)
Picture1.Line (-w, 0)-(w, 0), vbBlue
Picture1.Line (w, 0)-(w - 100, 100), vbBlue
Picture1.Line (w, 0)-(w - 100, -100), vbBlue
Picture1.Line (0, -h)-(0, h), vbBlue
Picture1.Line (0, h)-(100, h - 100), vbBlue
Picture1.Line (0, h)-(-100, h - 100), vbBlue
Picture1.PSet (0, 0), vbRed
End Sub
w = Picture1.Width / 2: h = Picture1.Height / 2
Picture1.Scale (-w, h)-(w, -h)
Picture1.Line (-w, 0)-(w, 0), vbBlue
Picture1.Line (w, 0)-(w - 100, 100), vbBlue
Picture1.Line (w, 0)-(w - 100, -100), vbBlue
Picture1.Line (0, -h)-(0, h), vbBlue
Picture1.Line (0, h)-(100, h - 100), vbBlue
Picture1.Line (0, h)-(-100, h - 100), vbBlue
Picture1.PSet (0, 0), vbRed
End Sub
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
ZESTRON
2024-09-04 广告
2024-09-04 广告
在Dr. O.K. Wack Chemie GmbH,我们高度重视ZESTRON的表界面分析技术。该技术通过深入研究材料表面与界面的性质,为提升产品质量与可靠性提供了有力支持。ZESTRON的表界面分析不仅涵盖了相变化、化学反应、吸附与解吸...
点击进入详情页
本回答由ZESTRON提供
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询