VB中的Scale它不是函數(shù),所以找不到vb中的所謂Scale函數(shù);
成都創(chuàng)新互聯(lián)公司是一家專注于做網(wǎng)站、成都網(wǎng)站設(shè)計(jì)與策劃設(shè)計(jì),邵陽網(wǎng)站建設(shè)哪家好?成都創(chuàng)新互聯(lián)公司做網(wǎng)站,專注于網(wǎng)站建設(shè)10余年,網(wǎng)設(shè)計(jì)領(lǐng)域的專業(yè)建站公司;建站業(yè)務(wù)涵蓋:邵陽等地區(qū)。邵陽做網(wǎng)站價(jià)格咨詢:18982081108
VB中的Scale是某個(gè)相關(guān)“對象的方法”,下面詳述vb中Scale的用法:
Scale 方法
用以定義 Form、PictureBox 或 Printer 的坐標(biāo)系統(tǒng)。不支持命名參數(shù)。
語法
object.Scale (x1, y1) - (x2, y2)
Scale 方法的語法包含下列部分:
部分 描述
object 可選的。一個(gè)對象表達(dá)式,其值為“應(yīng)用于”列表中的一個(gè)對象。如果省略 object,則帶有焦點(diǎn)的 Form 對象缺省為 object。
x1, y1 可選的。均為單精度值,指示定義 object 左上角的水平(x-軸)和垂直(y-軸)坐標(biāo)。這些值必須用括號括起。如果省略,則第二組坐標(biāo)也必須省略。
x2, y2 可選的。均為單精度值,指示定義 object 右下角的水平和垂直坐標(biāo)。這些值必須用括號括起。如果省略,則第一組坐標(biāo)也必須省略。
說明
Scale 方法使您能夠?qū)⒆鴺?biāo)系統(tǒng)重置到所選擇的任意刻度。Scale 對運(yùn)行時(shí)的圖形語句以及控件位置的坐標(biāo)系統(tǒng)都有影響。
如果使用不帶參數(shù)的 Scale(兩組坐標(biāo)都省略),坐標(biāo)系統(tǒng)將重置為緹。
這個(gè)可以自定義坐標(biāo)系統(tǒng),你看看下邊的代碼:
Private Sub Form_Load()
Me.AutoRedraw = True
End Sub
Private Sub Form_Resize()
Me.Scale (-100, -100)-(100, 100)
Me.Circle (0, 0), 15, RGB(255, 0, 0)
Me.Circle (30, 30), 15, RGB(0, 0, 255)
Me.Scale (100, 100)-(-100, -100)
Me.Circle (30, 30), 15, RGB(255, 0, 255)
Me.Circle (60, 60), 15, RGB(0, 128, 0)
End Sub
Dim g As Graphics = PictureBox1.CreateGraphics
g.TranslateTransform(2, 2) ‘定義原點(diǎn)坐標(biāo)
g.ScaleTransform(1, -1) ’X軸不變,反轉(zhuǎn)Y軸
以PictureBox1中(2,2)點(diǎn)為新的原點(diǎn)(0,0)
向右為X軸正方向 向上為Y軸正方向
scale(x1,y1)-(x2,y2)
你只要記住,這里的x1,y1是左上角的坐標(biāo),x2,y2是右下角的坐標(biāo),通過這兩個(gè)點(diǎn)的坐標(biāo)設(shè)定,就可以決定坐標(biāo)原點(diǎn)的位置以及坐標(biāo)軸的方向了,比如
Scale (-300,200)-(300,-200)
以上是把坐標(biāo)原點(diǎn)設(shè)在窗體中心,x軸長600,方向從左到右,y軸長400,方向從下向上。
Scale (800,0)-(0,600)
以上是把坐標(biāo)原點(diǎn)設(shè)在窗體右上角,x軸長800,方向從右到左,y軸長600,方向從上向下。
下面說坐標(biāo)軸和原點(diǎn)的標(biāo)示法:
假定自定義坐標(biāo)設(shè)為:
Scale (-300, 200)-(300, -200)
則
Line (-300, 0)-(300, 0) '畫x軸
Line (0, 200)-(0, -200) '畫y軸
CurrentX = 290
CurrentY = -5
Print "x" '標(biāo)示x軸
CurrentX = 5
CurrentY = 200
Print "y" '標(biāo)示y軸
CurrentX = 5
CurrentY = -5
Print "0" '標(biāo)示原點(diǎn)
'窗體有個(gè)屬性ClientSize?是除去邊框及標(biāo)題欄部分的為工作區(qū)
'你要的應(yīng)該就是這個(gè)了。
'設(shè)置窗體工作區(qū)的大小?例為400*300
Me.ClientSize?=?New?Size(400,300)