正文
vb.net的scale的简单介绍
小程序:扫一扫查出行
【扫一扫了解最新限行尾号】
复制小程序
【扫一扫了解最新限行尾号】
复制小程序
VB绘图中Scale 方法怎么使用?
Scale 方法示例 本示例使用 Move 方法设立一个自定义座标系统vb.net的scale,使得一个条形图可以在窗体上画出。要检验此示例vb.net的scale,可将本例代码粘贴到一个窗体vb.net的scale的声明部分vb.net的scale,然后按 F5 键并单击该窗体。 Private Sub Form_Click () Dim I, OldFontSize ' 声明变量。 Width = 8640: Height = 5760 ' 按缇设置窗体大小。 Move 100,100 ' 移动窗体起点。 AutoRedraw = -1 ' 打开AutoRedraw。 OldFontSize = FontSize ' 保持旧vb.net的scale的字体大小。 BackColor = QBColor(7) ' 将背景设置为灰色。 Scale (0, 110)-(130, 0) ' 设定自定义座标系统。 For I = 100 To 10 Step -10 Line (0, I)-(2, I) ' 每隔 10 个单位划尺寸标记。 CurrentY = CurrentY + 1.5 ' 移动光标位置。 Print I ' Print scale mark value on left. Line (ScaleWidth - 2, I)-(ScaleWidth, I) CurrentY = CurrentY + 1.5 ' 移动光标位置。 CurrentX = ScaleWidth - 9 Print I ' 将尺寸标记值打印在右边。 Next I ' 画条形图。 Line (10, 0)-(20, 45), RGB(0, 0, 255), BF ' 第一个蓝色条。 Line (20, 0)-(30, 55), RGB(255, 0, 0), BF ' 第一个红色条。 Line (40, 0)-(50, 40), RGB(0, 0, 255), BF Line (50, 0)-(60, 25), RGB(255, 0, 0), BF Line (70, 0)-(80, 35), RGB(0, 0, 255), BF Line (80, 0)-(90, 60), RGB(255, 0, 0), BF Line (100, 0)-(110, 75), RGB(0, 0, 255), BF Line (110, 0)-(120, 90), RGB(255, 0, 0), BF CurrentX = 18: CurrentY = 100 ' 移动光标位置。 FontSize = 14 ' 放大标题尺寸。 Print "Widget Quarterly Sales" ' 打印标题。 FontSize = OldFontSize ' 还原字体大小。 CurrentX = 27: CurrentY = 93 ' 移动光标位置。 Print "Planned Vs. Actual" ' 打印子标题。 Line (29, 86)-(34, 88), RGB(0, 0, 255), BF ' 打印图例。 Line (43, 86)-(49, 88), RGB(255, 0, 0), BF End Sub
vb Scale问题
待编辑。
------
首先需要明确Scale方法:用以定义
Form、PictureBox
或
Printer
的坐标系统。不支持命名参数。
Scale要么不带参数,要么带两个参数,即(x1,y1)和(x2,y2),这两个参数之间必须使用“-”连接。
(x1,y1)表示Form的左上角坐标,(x2,y2)表示Form的右下角坐标。
Scale方法使用之后意味着Form的布局范围在以(x1,y1)和(x2,y2)作为对角点的矩形之内。
您的例程中,Form的坐标范围就在(-100,100)和(100,-100)决定的矩形之内。
Line方法画线的时候,第一句表示从(0,100)画到(0,-100),就意味着画了一条竖线。这条竖线正式在窗体中间。(此时Form的四个顶点的分别为
左上(-100,100)
左下(-100,-100)
右上(100,100)
右下(100,-100))
第二句同理可得。
vb的printer.scale 用来打印全屏或者当前控件显示内容,换成vb.net用什么方法能实现?
报表打印应该也能实现,但是vb.net的scale我觉得你这个用文本打印更简单,将数据输出到txt文件,结果用RichTextBox显示,但是需要简单的排版,调用打印机打印RichTextBox即可的
排版用tab()、space()、vbcrlf或PrintLine(1)换行,代码类似如下样式
PrintLine(1, TAB(60), "准考证" )
PrintLine(1)
PrintLine(1, "姓名:" xingming Space(3) "准考证号vb.net的scale:" cel(1) Space(3) cel(2) Space(3) cel(3))
但是TAB()排版比较规整
vb.net怎么自定义坐标系
scale(x1,y1)-(x2,y2)
你只要记住vb.net的scale,这里vb.net的scale的x1,y1是左上角的坐标,x2,y2是右下角的坐标,通过这两个点的坐标设定,就可以决定坐标原点的位置以及坐标轴的方向vb.net的scale了,比如
Scale (-300,200)-(300,-200)
以上是把坐标原点设在窗体中心,x轴长600,方向从左到右,y轴长400,方向从下向上。
Scale (800,0)-(0,600)
以上是把坐标原点设在窗体右上角,x轴长800,方向从右到左,y轴长600,方向从上向下。
下面说坐标轴和原点的标示法:
假定自定义坐标设为:
Scale (-300, 200)-(300, -200)
则
Line (-300, 0)-(300, 0) '画x轴
Line (0, 200)-(0, -200) '画y轴
CurrentX = 290
CurrentY = -5
Print "x" '标示x轴
CurrentX = 5
CurrentY = 200
Print "y" '标示y轴
CurrentX = 5
CurrentY = -5
Print "0" '标示原点
vb.net的scale的介绍就聊到这里吧,感谢你花时间阅读本站内容,更多关于、vb.net的scale的信息别忘了在本站进行查找喔。