教你認識VB的座標系統

2019-11-18 17:40:52

字體：大中小

來源：轉載

供稿：網友

這里我們來看一下ScaleLeft/Top/Height/WidthScaleXScaleYTextHeightTextWidth
的一些特性與關連。
所謂的ScaleLeftScaleTopScaleTopScaleWidth指的是Window中的ClientArea即可以
畫圖、放元件的區域，像Title區就不在ClientArea的范圍。如果我們設定ScaleMode
成不為0的數值，如設定ScaleMode=3(VBPixels)那麼就代表這區域的度量是以Pixels
為單位，而ScaleTop=ScaleLeft=0，即原點在左上角。
VB提供了一個很好用的座標系統轉換，即ScaleMode,ScaleLeftScaleTopScaleTop
ScaleWidth。我個人不喜歡VB內定的ScaleMode=VbTwips，我愛ScaleMode=VBPixels
原因是Window系統的度量單位是使用Pixels而不是Twips。
如果我們想在一個畫面上畫上座標，那麼如何才能不管Window的大小，而只管我們所
關注的座標呢？假設我們想做一個座標，原點在Form的左下角(0,0)而右上角座標是
(100,100)，那我們只要對Form如此設
ScaleTop=100
ScaleWidth=100
ScaleLeft=0
ScaleHeight=-100，那就成了，這時候，如果我們去查一下Form的MouseDown的
X,Y值，會發現它的值已變成落在0-100之間了。(此時的ScaleMode=自動變Vbuser)
更有趣的是用來計算字串高、寬的TextHeight/TextWidth也變成以座標0-100的方式來
表現了。例如說，
.CurrentX=10
.CurrentY=10
Form1.ifOldScaleMode<>vbUserthen
.ScaleMode=oldScaleMode
else
.ScaleLeft=OldScaleLeft
.ScaleTop=OldScaleTop
.ScaleWidth=OldScaleWidth
.ScaleHeight=OldScaleHeight
EndIf
txtHeight=.ScaleY(txtLen,vbPixels,vbUser)
EndWith
如此txtHeight便是字串於旋轉後的高度啦！->