| 编程中国 | 业界新闻 | 技术文章 | 视频教程 | 下载频道 | 程序源码 | 个人空间 | 编程论坛
全能ASP/PHP/ASP.NET主机,支持月付专业 MSSQL 数据库空间,支持月付专业 MySQL 数据库空间,支持月付赛孚耐:软件保护加密专家
身份认证令牌USB KEY   
共有 235 人关注过本帖
标题:为什么使用API绘图时,移动picture框到任务栏以下再回来,屏幕上就会出现纹理
收藏  订阅  推荐  打印 
gdb0308
Rank: 1
等级:新手上路
帖子:1
积分:110
注册:2007-9-8
为什么使用API绘图时,移动picture框到任务栏以下再回来,屏幕上就会出现纹理

为什么使用API绘图时,移动picture框到任务栏以下再回来,屏幕上就会出现纹理
这里的映射模式设置的是twips
Dim k As POINTAPI
k.x = 1440
k.y = -1440
Dim j As POINTAPI
j.x = 304
j.y = 500
SetMapMode Me.Picture1.hdc, 6
'LPtoDP Me.Picture1.hdc, k, 1
'LPtoDP Me.Picture1.hdc, j, 1
MoveToEx Me.Picture1.hdc, 5, 5, k
Dim pen As Long
pen = CreatePen(0, 1, RGB(255, 0, 255))
Dim oldpen As Long
oldpen = SelectObject(Me.Picture1.hdc, pen)
LineTo Me.Picture1.hdc, j.x, j.y
SelectObject Me.Picture1.hdc, oldpen
DeleteObject pen
ReleaseDC Me.hwnd, Me.Picture1.hdc
搜索更多相关主题的帖子: API  picture  纹理  屏幕  任务  
2008-10-9 12:26
关于我们 | 广告合作 | 编程中国 | 清除Cookies | Archiver | WAP | TOP

编程中国 版权所有,并保留所有权利。鲁ICP备08000592号
Powered by Discuz, Processed in 0.054178 second(s), 9 queries.
Copyright©2004-2008, BCCN.NET, All Rights Reserved