图片上作图 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 图片上作图

共有2361人关注过本帖树形打印复制链接主题：图片上作图

machle

小大 1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：358 积分：4035 威望：0 精华：0 注册：2014/7/29 23:42:00

图片上作图

Post By：2015/8/8 17:11:00 [只看该作者]

想实现这样一种功能，在窗口中放一张图片，再在图片上面某些坐标点处画点，然后把这些点连线，可以覆盖那张图片上的某些内容。

请问该怎么实现，谢谢！

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：110574 积分：562760 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2015/8/8 17:22:00 [只看该作者]

参考GDI画图

http://www.foxtable.com/help/index.html?n=1482.htm

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=72591&replyID=&skin=1

[此贴子已经被作者于2015/8/8 17:22:24编辑过]

machle

小大 3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：358 积分：4035 威望：0 精华：0 注册：2014/7/29 23:42:00

回复：（有点蓝）参考GDI画图http://www.foxtable.com... 发帖心情

Post By：2015/8/8 18:38:00 [只看该作者]

非常感谢，我试试！

machle

小大 4楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：358 积分：4035 威望：0 精华：0 注册：2014/7/29 23:42:00

回复：（machle）回复：（有点蓝）参考GDI画图http://... 发帖心情

Post By：2015/8/8 18:43:00 [只看该作者]

导入的图片怎么缩放啊？格式怎么弄？像素太大，和paint比例不对。

Dim p As WinForm.Painter = e.Form.Controls("Painter1")
Dim g As Graphics = p.Graphics
g.DrawImage(getImage("logo.jpg"),10,10)
p.Repaint()

大红袍

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/8/9 11:12:00 [只看该作者]

Dim p As WinForm.Painter = e.Form.Controls("Painter1")
Dim g As Graphics = p.Graphics
Dim img = getImage("d:\test.jpg")
If img.width > img.height Then
    Dim w As Integer = p.width
    Dim h As Integer = (p.width / img.width) * img.height
    g.DrawImage(img,0,0,w,h)
Else
    Dim w As Integer = (p.height / img.height) * img.width
    Dim h As Integer = p.height
    g.DrawImage(img,0,0,w,h)
End If
p.Repaint

下一主题 >> << 上一主题

主题：图片上作图