【文件属性】:
文件名称:VB在窗体上显示坐标系.rar
文件大小:2KB
文件格式:RAR
更新时间:2022-07-30 03:08:31
VB源码-其它源码
VB在窗体上显示坐标系,
Private Sub Command1_Click()
Cls '清除窗体
Form1.ForeColor = RGB(255, 0, 0) '设置颜色
Form1.FontBold = True '加粗
Line (0, 0)-(3000, 0) '水平方向画直线
Line (0, 0)-(0, 2500) '垂直方向上画直线
CurrentX = 0 '设置坐标
CurrentY = 0
Print "原点" '在新坐标位置上输出
CurrentX = 2800 '设置新坐标
CurrentY = 100
Print "X轴正向" '在坐标位置上输出
CurrentX = 100 '设置新坐标
CurrentY = 2400
Print "Y轴正向" '在新坐标位置上输出
End Sub
【文件预览】:
srcfans.com
----coordinate()
--------Form1.frm(1KB)
--------MSSCCPRJ.SCC(332B)
--------E299.vbw(50B)
--------E299.vbp(617B)