VB API 之第十一课绘制矩形

先来介绍几个画矩形的函数：

DrawFocusRect()：画一个焦点矩形；
Rectangle()：用当前选定的画笔描绘矩形，并用当前选定的画刷填充；
DrawEdge()：用指定的样式描绘一个矩形的边框；
RoundRect()：用当前选定的画笔画一个圆角矩形，并用当前选定的画刷填充。

今天用的是DrawFocusRect()函数，函数原型如下

Private Declare Function DrawFocusRect Lib "user32" Alias "DrawFocusRect"
(
ByVal hDC As Long,
lpRect As RECT
) As Long

hDc: Long //设备的句柄

lpRect: RECT结构，绘制矩形的坐标。

返回值为0，表示失败，不为0，则成功

示例：绘制矩形

Option Explicit
Private Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
'类型声明
Private Declare Function DrawFocusRect Lib "user32" (ByVal hdc As Long, lpRect As RECT) As Long
Dim Flag As Boolean
Dim Start As Boolean
Dim Pos As RECT
Dim tempPos As RECT
Private Sub Command1_Click()
Flag = True
'开始绘图
End Sub
Private Sub Command2_Click()
Flag = False
Picture1.Cls
'结束绘图
End Sub
Private Sub Form_Load()
Flag = False
Start = False
'禁止绘图
Me.ScaleMode = 3
Me.Picture1.ScaleMode = 3
'设置对象坐标的度量单位为像素
End Sub
Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Flag Then
Start = True
Pos.Left = X
Pos.Top = Y
Else
Start = False
End If
End Sub
Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Start Then
DrawFocusRect Me.Picture1.hdc, Pos
'擦除原有焦点矩形
Pos.Right = X
Pos.Bottom = Y
DrawFocusRect Me.Picture1.hdc, Pos
'绘制新的焦点矩形
End If
End Sub
Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Start Then
DrawFocusRect Me.Picture1.hdc, Pos
'擦除原有焦点矩形
Pos.Right = X
Pos.Bottom = Y
DrawFocusRect Me.Picture1.hdc, Pos
'绘制新的焦点矩形
Start = False
End If
End Sub

转载于:https://www.cnblogs.com/delphi2014/p/4035271.html

VB API 之第十一课绘制矩形相关推荐

canvas基础-绘制矩形（1）
1.canvas基础知识 canvas元素是HTML5中新增的一个重要的元素,专门用来绘制图形,不过canvas本身不具备画图的能力,在页面中放置了canvas元素,就相当于在页面中放置了一块矩形的& ...
NeHe OpenGL教程第二十一课：线的游戏
转自[翻译]NeHe OpenGL 教程前言声明,此 NeHe OpenGL教程系列文章由51博客yarin翻译(2010-08-19),本博客为转载并稍加整理与修改.对NeHe的OpenGL管线 ...
html5绘制矩形动画,HTML5下绘制矩形教程
绘制矩形上一节,我们使用lineto()方法绘制一个封闭的矩形.其实,canvas的api提供了rect()方法可以绘制矩形.rect()方法是路径方法,它会把指定的矩形添加到当前路径的子路径中.它 ...
HTML5 Canvas中绘制矩形
绘制矩形上一节,我们使用lineTo()方法绘制一个封闭的矩形.其实,canvas的API提供了rect()方法可以绘制矩形.rect()方法是路径方法,它会把指定的矩形添加到当前路径的子路径中.它 ...
实践数据湖iceberg 第二十一课 flink1.13.5 + iceberg0.131 CDC(测试成功INSERT,变更操作失败)
系列文章目录实践数据湖iceberg 第一课入门实践数据湖iceberg 第二课 iceberg基于hadoop的底层数据格式实践数据湖iceberg 第三课在sqlclient中,以sql ...
html5绘制矩形动画,HTML5 Canvas中绘制矩形实例
本文翻译自Steve Fulton & Jeff Fulton HTML5 Canvas, Chapter 2, "The Basic Rectangle Shape". ...
H5canvas(绘制矩形，绘制圆形，绘制线段，绘制文字，绘制曲线)
Canvas简介 canvas 最早由Apple引入WebKit,用于Mac OS X 的 Dashboard,后来又在Safari和Google Chrome被实现. 基于 Gecko 1.8的浏览 ...
Java第十一课——多线程实现飞机大战
Java第十一课--多线程实现飞机大战一.补充讲解一下线程在第九课的基础上补充两点: 1.启动线程使用start()方法而不直接使用rin()方法,因为线程是一直重复执行的,调用run方法只会执行 ...
OpenCv——5鼠标绘制矩形
1.目的:鼠标绘制矩形 2.关键API介绍:setMouseCallback,为指定窗口设定鼠标回调函数 rectangle矩形绘制 3.main函数 Rect rect_angle = Rect(0 ...

VB API 之第十一课绘制矩形

VB API 之第十一课绘制矩形相关推荐

最新文章

热门文章

VB API 之 第十一课 绘制矩形

VB API 之 第十一课 绘制矩形相关推荐

最新文章

热门文章

VB API 之第十一课绘制矩形

VB API 之第十一课绘制矩形相关推荐