|| 您现在的位置: 天下无挂网 >> 外挂文章 >> 程序编程技术 >> 外挂文章正文
:: 用户登录 ::

 
:: 专 题 栏 目 ::
:: 最新热门 ::
  • 没有热门外挂文章
  • :: 相关文章 ::
  • 实现键盘控制对象的“即

  • VB操作.ini文件的方法

  • VB的座标系统
    作者:不详 文章来源:不详 点击数: 更新时间:2005-8-21

    这里我们来看一下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便是字串於旋转後的高度啦!

    --------------------------------------------------------

    外挂文章录入:admin    责任编辑:admin 
  • 上一篇外挂文章:

  • 下一篇外挂文章:
  • 【字体: 】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口

    点击申请点击申请点击申请点击申请点击申请点击申请
    点击申请点击申请点击申请点击申请点击申请点击申请点击申请

    版权所有 Copyright? 2004-2008 天下无挂科技网 网站维护:GHOST
    网站域名:http://www.watxwg.com
    客服邮箱:txwgwa@163.com
    客服电话:13810978321
    客服 Q Q:12439470