应用API函数在用户窗体中画圆代码与示例
时 间:2011-09-08 00:00:00
作 者:十段 ID:563 城市:上海
摘 要:应用API函数在用户窗体中画圆代码与示例
正 文:
Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long
Private Declare Function CreatePen Lib "gdi32" (ByVal nPenStyle As Long, ByVal nWidth As Long, ByVal crColor As Long) As Long
Private Declare Function CreateSolidBrush Lib "gdi32" (ByVal crColor As Long) As Long '
Private Declare Function SelectObject Lib "gdi32" (ByVal hdc As Long, ByVal hObject As Long) As Long
Private Declare Function Ellipse Lib "gdi32" (ByVal hdc As Long, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
Sub MyCircle(obj As Object, pX As Long, pY As Long, pR As Long, lcColor As Long, lcFill As Long)
'obj 指定圆所在的对象
'pX 圆心在对象体上X轴
'pY 圆心在对象体上Y轴
'pR 圆的半径
'lcColor 圆的轮廓颜色
'lcFill 圆的填充色
Dim hdc As Long, hpen As Long, hcolor As Long
hdc = GetDC(FindWindow(vbNullString, obj.Caption))
hpen = CreatePen(0, 1, lcColor)
hcolor = CreateSolidBrush(lcFill)
SelectObject hdc, hpen
SelectObject hdc, hcolor
Ellipse hdc, pX - pR, pY - pR, pX + pR, pY + pR
DeleteObject hpen
DeleteObject hcolor
End Sub
Private Sub CommandButton1_Click()
MyCircle UserForm1, 100, 100, 50, vbRed, vbBlue
End Sub
附件:
点击下载此附件 (56.02 KB)
Access软件网官方交流QQ群 (群号:54525238) Access源码网店
常见问答:
技术分类:
源码示例
- 【源码QQ群号19834647...(12.17)
- 【Access源码示例】一组按...(07.16)
- Access选定Excel区域...(07.02)
- 【Access滑调控件示例】数...(07.01)
- 【Access日期区间段查询示...(06.27)
- 【Access日期区间段查询示...(06.24)
- 【Access日期区间段查询示...(06.21)
- 【Access日期区间段查询示...(06.18)
- 【Access日期时间区间段查...(06.17)
- 【Access Dlookup...(06.15)
![](images/weixin.jpg)
学习心得
最新文章
- Access快速开发平台--编辑修...(07.26)
- SqlServer修改表结构时提示...(07.24)
- Access快速开发平台--通用查...(07.22)
- Access快速开发平台--Acc...(07.18)
- 避免文件已运行时再次打开运行(07.17)
- 【Access源码示例】一组按钮点...(07.16)
- Access通过len函数查询数据...(07.15)
- 一次检查多个字段是否重复(07.15)
- Access报表添加分页符导致强制...(07.13)
- 《生产工序管理系统》基于Acces...(07.11)