vb窗体left、top、width、height,scaleleft、scaletop、scalewidth、scaleheith区别。

 

在做机房收费系统时,想要在在加载主界面时就同时加载多文档界面窗体,并且和一个子窗体,子窗体看似是嵌套到多文档窗体的效果。这里用到了窗体的几个属性,由于基础不好就复习了。

理解:

在vb中的窗体内部(出去窗体边框及标题栏的区域)有一个类似画布的东西,它始终是占满整个窗体区域的,它有一个坐标系统,默认的是原点就是窗体的左上角,坐标是0,0,然后水平的是X轴垂直的是Y轴,但是这个坐标的单位默认是堤,也可以修改成其他类型的单位,要修改度量单位的话就设定窗体的ScaleMode属性。eg:像scaleMode=3

这个坐标系统是用来确定要在什么位置上通过print等方法来作图的,以及确定在这个容器中的什么位置上放置控件。以及窗体宽和高的比例情况。

 

scale类属性的作用

这些scale类型属性主要是用来设定画布坐标系的数值跟窗体的高宽数值比例情况的。

scaleLeft和scaleTop这两个属性用来设定这个坐标系的原点位置,系统默认的scaleLeft和scaleTop是0,也就是说原点窗体的左上角系统坐标只有大于0的那一块坐标,这样的好处是可以很直观地使用坐标系统。参照点都是从0且从窗体的左上角开始的。如果把连个值设定为大于0 的话,以和数学坐标系区别。

scaleMode用于设定坐标的度量单位。

width,height作用。这两个属性是用来设定窗体的宽和高,他们的单位始终是缇。会直接影响画布的大小机坐标的比例情况,要动态的设置窗体的大小也只能通过这两个属性来设定。

这些属性的关系:默认的情况下,窗体的宽和高跟窗体上的画布的宽相同。画布和窗体的关系是1:1的关系。如果把窗体的scaleheight和scalewidth属性修改为原来的1/2,这样画布和窗体的比例就是1:2的关系。要用原来数值的一半来表示窗体的宽那么只能是一个缇来代表窗体的两个缇画出的圆就是原来的两倍了。

 

缇和像素的关系:

我们可以通过vb的系统对象screen的twipperpixersX及twipPerPixersXshu属性来返回当前分辨率下每一像素所占的缇。默认是15。屏幕也是个画布,同时也像窗体一样有高和宽,要是15的前提下是scalewidth和width比例是1:1的关系。scaleHeigth和Heigth也是1:1的关系。

 

总结:窗体上有个画布它的坐标系默认跟窗体的一样,但可以通过scale类属性可以修改。也就是scale属性减少则图像变大。反比。

 

scaleleft和scaletop、scalewidth、scaleheight属性是用来创建自定义刻度(设定刻度’获取有关坐标系当前的刻度的详细信息)

scaleleft、scaletop用于设置左上角的水平坐标和垂直坐标(不直接改变窗体的大小和位置,知识将原点的位置作相应的改变);用户自定义的左上角的。

scalewidth、scaleheith属性是根据绘图区的当前宽度和高度来定义单位(表示对象可用空间的大小)。用户自定义的对象内部的。

Left和Top是对象左上角在容器中的坐标。

width和height是对象的物理宽、高度。

left=100:top=50:width=1000:height=800
ScaleLeft=60:ScaleTop=160:ScaleWidth=360:ScaleHeight=660   left和top是相对于屏幕的。width和heigth是窗体物理的宽高。而scale

是用户自定义的。

 

  • 3
    点赞
  • 4
    收藏
    觉得还不错? 一键收藏
  • 2
    评论
由于使用了一些新的函数,本程序必须在Windows2000下运行。 Option Explicit Public Declare Function GetObjectAPI Lib "gdi32" Alias "GetObjectA" (ByVal hObject As Long, ByVal nCount As Long, lpObject As Any) As Long Public Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long Public Declare Function SetWindowRgn Lib "user32" (ByVal hwnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long Public Declare Function CreateRectRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long Public Declare Function CombineRgn Lib "gdi32" (ByVal hDestRgn As Long, ByVal hSrcRgn1 As Long, ByVal hSrcRgn2 As Long, ByVal nCombineMode As Long) As Long Public Const RGN_OR = 2 Public Declare Function GetBitmapBits Lib "gdi32" (ByVal hBitmap As Long, ByVal dwCount As Long, lpBits As Any) As Long Public Declare Function SetBitmapBits Lib "gdi32" (ByVal hBitmap As Long, ByVal dwCount As Long, lpBits As Any) As Long Public Type BITMAP bmType As Long bmWidth As Long bmHeight As Long bmWidthBytes As Long bmPlanes As Integer bmBitsPixel As Integer bmBits As Long End Type Public Const BITMAP_SIZE = 24 '=Len(BITMAP) Dim bmByte() As Byte Public Declare Function ReleaseCapture Lib "user32" () As Long Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long Public Const HTCAPTION = 2 Public Const WM_NCLBUTTONDOWN = &HA1; Public Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long Public Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long Public Const WS_EX_LAYERED = &H80000; Public Const GWL_EXSTYLE = (-20) Public Const LWA_ALPHA = &H2; Public Const LWA_COLORKEY = &H1; Public Sub SetAutoRgn(hForm As Form, Optional transColor As Byte = vbNull) Dim X As Long, Y As Long Dim Rgn1 As Long, Rgn2 As Long Dim SPos As Long, EPos As Long Dim bm As BITMAP Dim hbm As Long Dim Wid As Long, Hgt As Long Dim xoff As Long, yoff As Long '获取窗体背景图片尺寸 hbm = hForm.Picture GetObjectAPI hbm, Len(bm), bm Wid = bm.bmWidth Hgt = bm.bmHeight With hForm .ScaleMode = vbPixels xoff = (.ScaleX(.Width, vbTwips, vbPixels) - .ScaleWidth) / 2 yoff = .ScaleY(.Height, vbTwips, vbPixels) - .ScaleHeight - xoff '改变窗体尺寸 .Width = (Wid + xoff * 2) * Screen.TwipsPerPixelX .Height = (Hgt + xoff + yoff) * Screen.TwipsPerPixelY End With ReDim bmByte(1 To Wid, 1 To Hgt) GetBitmapBits hbm, Wid * Hgt, bmByte(1, 1) '获取图像数组 '如果没有传入transColor参数,则用第一个像素作为透明色 If transColor = vbNull Then transColor = bmByte(1, 1) Rgn1 = CreateRectRgn(0, 0, 0, 0) For Y = 1 To Hgt '逐行扫描 X = 0 Do X = X + 1 While (bmByte(X, Y) = transColor) And (X < Wid) X = X + 1 '跳过是透明色的点 Wend SPos = X While (bmByte(X, Y) <> transColor) And (X < Wid) X = X + 1 '跳过不是透明色的点 Wend EPos = X - 1 '这一段是合并区域 If SPos <= EPos Then Rgn2 = CreateRectRgn(SPos - 1 + xoff, Y - 1 + yoff, EPos + xoff, Y + yoff) CombineRgn Rgn1, Rgn1, Rgn2, RGN_OR DeleteObject Rgn2 End If Loop Until X >= Wid Next Y SetWindowRgn hForm.hwnd, Rgn1, True '设定窗体形状区域 DeleteObject Rgn1 End Sub Option Explicit Private Sub Form_DblClick() Unload Me End Sub Private Sub Form_Load() 'Me.Show Dim t As Single Dim rtn As Long rtn = GetWindowLong(hwnd, GWL_EXSTYLE) rtn = rtn Or WS_EX_LAYERED SetWindowLong hwnd, GWL_EXSTYLE, rtn SetLayeredWindowAttributes hwnd, 0, 192, LWA_ALPHA '半透明 'SetLayeredWindowAttributes hwnd, &H0;, 0, LWA_COLORKEY '去除透明色 t = Timer If Me.Picture <> 0 Then Call SetAutoRgn(Me) ', 0) End If 'MsgBox "运行时间:" & Timer - t & "秒", vbInformation End Sub Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = vbLeftButton Then ReleaseCapture SendMessage Me.hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0& End If End Sub
评论 2
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值