VB.net 2010 视频教程 VB.net 2010 视频教程 python基础视频教程
SQL Server 2008 视频教程 c#入门经典教程 Visual Basic从门到精通视频教程
当前位置:
首页 > 编程开发 > vb >
  • vb教程之用VB绘制矩形虚线框

在WIN95的桌面上,我们按下鼠标的左键并且拖动它,就可以看见一个可大可小的矩形虚线框,通过它我们同时能够选定几个图标。在VB编程中,我们有时候需要在表单或图片框中选择特定的范围,那么就可以通过调用WIN95中的API 过程来实现。 

  DrawFocusRect过程的功能就是在指定的矩形周围绘制虚框,我们先在标准模块的声明部分声明一个自定义的矩形结构: 

   Type RECT 

  Left As Long 

  Top As Long 

  Right As Long 

  Bottom As Long 

   End Type 

  然后再声明这个过程: 

  Declare Function DrawFocusRect Lib "User32" Alias _ 

  "DrawFocusRect" (ByVal hdc As Long, _ 

  lpRect As RECT) As Long 

  最后,在程序中调用这个过程就行了。这个过程有两个特点:1. 在调用的时候,图片框的坐标的度量单位为像素,即 Picture1.ScaleMode = 3;2. 这个函数用XOR(异或)画图,即第二次以同样的参数调用它,就会将第一次画的虚线框擦掉。下面是一个简单的例子,我们将在一个表单上的图片框中实现这个功能: 

  首先,在表单的公共声明部分声明三个变量:Dim MouseRect As RECT,Dim x1,y1 As Integer。(其中x1,y1 用来记录鼠标按下时的坐标值) 

   Private Sub Form_Load () 

  MouseRect.Left = 0 '初始化虚线框 

  MouseRect.Top = 0 

  MouseRect.Right = 0 

  MouseRect.Bottom = 0 

   End Sub 

  然后,编写Picture.MouseDown, Picture.MouseMove子程序。 

  Private Sub Picture1_ MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) 

   If Button And 1 Then '按下的是鼠标左键 

   Picture1.ScaleMode = 3 

   DrawFocusRect Picture1.hdc, MouseRec '清除上次画的虚线框t 

   MouseRect.Left = X 

   MouseRect.Top = Y 

   MouseRect.Right = X 

   MouseRect.Bottom = Y 

   X1=X 

   Y1=Y 

   End If 

  End Sub 

  Private Sub Picture1_ MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) 

   Picture1.ScaleMode = 3 

   If Button And 1 Then 

   DrawFocusRect Picture1.hdc, MouseRect '清除上次画的虚线框 

   If X > x1 Then 

   MouseRect.Left = x1 

   MouseRect.Right = X 

   Else 

   MouseRect.Left = X 

   MouseRect.Right = x1 

   End If 

   If Y > y1 Then 

   MouseRect.Top = y1 

   MouseRect.Bottom = Y 

   Else 

   MouseRect.Top = Y 

   MouseRect.Bottom = y1 

   End If 

   DrawFocusRect Picture1.hdc, MouseRect 

  '画虚线框 

   End IfEnd Sub 

  我们还可以设定x2, y2作为公共变量,在Picture.MouseUP子程序中记录矩形框另一个角的位置,这样就能够对选中的范围进行各种操作了。 

  此程序在586机器,Visual Basic 5.0环境下通过。 

   (上海 裘键)

本栏文章均来自于互联网,版权归原作者和各发布网站所有,本站收集这些文章仅供学习参考之用。任何人都不能将这些文章用于商业或者其他目的。


相关教程