首页 >> 读书频道 >> 电脑 >> VB的座标系统
 
· 资源文件(.RES)的应
· 例3:change Ct
· 例2:Check其他的w
· 图形放大/修改後的存档
· 例1:取得目前所有的输入
· 自行绘图的存档/非Bit
· 在vb中叫出控制台Ite
· 使用快捷键所隐含的问题
· 透过Word97印表格
· 动态改变Data-awa
· 取得.Bas 中Func
· VB编程技巧几例
 
· 电视剧《刁蛮公主》下载和
· 美容养颜手册
· 加油金顺剧情分集介绍完整
· 红楼梦:120回全本[清
· 素质教育在美国
· 全唐诗卷四十六
· 韩剧《布拉格恋人》剧情介
· 夜航船[作者:明·张岱]
· 局外人[作者:韩·可爱淘
· 现场流行病学
· 源氏物语[日本:紫式部]
· 武林寓言故事
 
· (出租)中动商场部分及写
· (出租)中动动漫基地&#
· 喜剧学院
· 《善德女王》剧情介绍
· 魔女18号 剧情
· 丑女无敌剧情介绍
· 魔女幼熙剧情介绍
· 龙游天下剧情介绍
· 震撼世界的七日剧情介绍
· 静静的白桦林剧情介绍
· 心情日记—老公今天我想对
· 旗舰剧情介绍
欢迎来到月影社区!如果您觉得这里不错,请推荐给您的朋友们。月影社区:http://wf66.com/

VB的座标系统


查看有无更新版本

关键字:VB 2006-9-18

 

这里我们来看一下ScaleLeft/Top/Height/Width ScaleX ScaleY TextHeight TextWidth
的一些特性与关连。
所谓的ScaleLeft ScaleTop ScaleTop ScaleWidth指的是Window中的Client Area即可以
画图、放元件的区域,像Title区就不在Client Area的范围。如果我们设定ScaleMode
成不为0的数值,如设定ScaleMode = 3 (VBPixels)那麽就代表这区域的度量是以Pixels
为单位,而ScaleTop =ScaleLeft = 0,即原点在左上角。
VB提供了一个很好用的座标系统转换,即ScaleMode, ScaleLeft ScaleTop ScaleTop
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.Print "HaHa",这时会见到於Form左下方会出现HaHa,它的位置便是於座标
(10,10)之处,所以了,如果Form变大,Form1.Print "HaHa"所显示之位置也会自动更动
不像其他的ScaleMode(如vbPixel),会在固定的绝对单位处显示"HaHa"。然而,有时候
我们会想要以绝对单位来做一些事,例如:我们希望在左边算来第三个Pixels处来显示
东西,的确,数学好的人可以自己转换,而像我数学不好的人,可以用ScaleX/ScaleY
来做,像方才的例子,左边算来第三点(Pixels)相对应於新的座标的宽度便是

Form1.ScaleX(3,vbPixels, vbUser)。


再来一个有趣的问题,如果有人见过我的一篇文章,用API来任意角度旋转字型,那
篇文章中字型旋转之後印在Form上,如果我们转90度,而且於(50,50)处印字,会发
现它是从(50,50)处往萤幕上方写出字,如果我们想在座标(50,50)处当作字串的结束
之地,那该如何呢,我会计算出该字串的长度(例如:长度20),而後在(50,70)处印字
,那困难点变成如何得知该字串长度,第一个反应是.TextWidth,不过别忘了,
TextWidth它随着ScaleMode的更动而变,宽度x1者,如果垂直Print,而便假设其高
度也是x1是不对的(如:ScaleTop = 0, ScaleHeight = 10, ScaleLeft = 0, ScaleWidth
=20,而宽度=10的字串,垂直印的高度应是不会是10,若X Y轴单位不同时也不一定是5
(如果字大小不变的话)。
那我会使用Pixels来做二者的转换,Pixels一个点便是一个点,所以X,Y轴的单位是相同
的,当然,使用Twips也可以,只是如果中间有用上API,人家大多以Pixels为单位。
With Form1
  OldScaleLeft = .ScaleLeft
  OldScaleTop = .ScaleTop
  OldScaleWidth = .ScaleWidth
  OldScaleHeight = .ScaleHeight
  OldScaleMode = .ScaleMode
  .ScaleMode = vbPixels
  txtLen = .TextWidth(mystring) 'myString是待旋转的字串
  if OldScaleMode <> vbUser then
     .ScaleMode = oldScaleMode
  else
    .ScaleLeft = OldScaleLeft
    .ScaleTop = OldScaleTop
    .ScaleWidth = OldScaleWidth
    .ScaleHeight = OldScaleHeight
  End If
  txtHeight = .ScaleY(txtLen,vbPixels, vbUser)
End With
如此txtHeight便是字串於旋转後的高度啦!

VB的座标系统

[ 1 ]
VB的座标系统 num

打印本页 关闭

关于我们版权声明本站导航友情连结作品演示 TOP↑