VB中ScaleWidth与Width区别及应用举例

VERSION 5.00 Begin VB.Form Form1 BackColor = &H80000000& Caption = "椭圆窗体" ClientHeight = 3330 ClientLeft = 60 ClientTop = 345 ClientWidth = 4860 FillColor = &H00FF0000& BeginProperty Font Name = "宋体" Size = 12 Charset = 134 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00FF0000& Icon = "Form1.frx":0000 LinkTopic = "Form1" Picture = "Form1.frx":000C ScaleHeight = 3330 ScaleWidth = 4860 StartUpPosition = 2 '屏幕中心 End Attribute VB_Name = "Form1" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True 'Download by http://www.codefans.net Attribute VB_Exposed = False 'CODE Manger By BcodeXRose Private Declare Function CreateEllipticRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal x2 As Long, ByVal y2 As Long) As Long Private Declare Function SetWindowRgn Lib "user32" (ByVal hWnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long '################################################################## '## 过程名称：Form_Load '## 参数： 无 '################################################################## Private Sub Form_Load() Dim rwnd, x2, y2 x2 = ScaleX(Me.Width, vbTwips, vbPixels) y2 = ScaleY(Me.Height, vbTwips, vbPixels) SetWindowRgn Me.hWnd, CreateEllipticRgn(0, 20, x2, y2), True End Sub

VERSION 5.00 Begin VB.Form Form1 Caption = "清空回收站" ClientHeight = 2595 ClientLeft = 60 ClientTop = 345 ClientWidth = 4680 Icon = "Form1.frx":0000 LinkTopic = "Form1" ScaleHeight = 2595 ScaleWidth = 4680 StartUpPosition = 1 '所有者中心 Begin VB.CommandButton Command1 Caption = "清空回收站" Height = 810 Left = 1020 Style = 1 'Graphical TabIndex = 1 Top = 840 Width = 1200 End Begin VB.CommandButton Command2 Caption = "退出" Height = 810 Left = 2385 TabIndex = 0 Top = 840 Width = 1200 End End Attribute VB_Name = "Form1" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False '函数声明 Private Declare Function SHEmptyRecycleBin Lib "shell32.dll" Alias "SHEmptyRecycleBinA" _ (ByVal hwnd As Long, ByVal pszRootPath As String, ByVal dwFlags As Long) As Long Private Declare Function SHUpdateRecycleBinIcon Lib "shell32.dll" () As Long Private Const SHERB_NOCONFIRMATION = &H1; Private Const SHERB_NOPROGRESSUI = &H2; Private Const SHERB_NOSOUND = &H4; Private Sub Form_Load() '为按钮加载图标 Command1.Picture = LoadPicture(App.Path & "\full.ico") End Sub Private Sub Command1_Click() Dim myval As Long ' 清空回收站 myval = SHEmptyRecycleBin(Form1.hwnd, "", SHERB_NOPROGRESSUI) If myval <> 0 Then myval = SHUpdateRecycleBinIcon() End If '为按钮加载图标 Command1.Picture = LoadPicture(App.Path & "\empty.ico") MsgBox "回收站已被清空！", vbInformation, "【提示信息】" End Sub Private Sub Command2_Click() End End Sub

VB 6.0 使用Line方法画网格线，文字下面的网格背景线，是基于VB中的Line方法绘制出来的，学习一下简单的VB绘图技巧，核心代码： 　　Private Sub Form_Load() 　　Show 　　Scale (0, 0)-(10, 10) '自定义坐标系 　　BackColor = RGB(255, 255, 255) '设置窗体背景色 　　For i = 1 To 9 　　 Line (0, i)-(10, i), QBColor(1) '画出九条横线 　　 Line (i, 0)-(i, 10), QBColor(1) '画出九条竖线 　　Next i 　　FontSize = 28 '设置属性 　　foreclor = QBColor(2) 　　m = "开源爱好者" 　　Form1.CurrentX = Form1.ScaleWidth / 2 - TextWidth(m) / 2 '水平居中 　　Form1.CurrentY = Form1.ScaleHeight / 2 - TextHeight(m) / 2 '垂直居中 　　Print m '在窗体中央输出文字 　　End Sub 　　绘制的网格线效果请参见下图所示。

VB 绘制规则的圆形线条图案，根据用户输入的数据，生成嵌套的圆形图案： 　Const pi = 3.1415926 '常量声明 　Private Sub Text1_KeyPress(KeyAscii As Integer) 　Dim r, x, y, a, b As Single 　If KeyAscii = 13 ...

基于VB的文字动画特效代码Private Sub TextEffect( _ ByVal sText As String, _ ByVal lX As Long, ByVal lY As Long, _ Optional ByVal bLoop As Boolean = False, _ Optional ByVal lStartSpacing As Long = ...