| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1003 人关注过本帖
标题:关于picture空间下的绘图。
取消只看楼主 加入收藏
V菜鸟V
Rank: 2
等 级:论坛游民
帖 子:97
专家分:10
注 册:2014-11-27
结帖率:100%
收藏
已结贴  问题点数:20 回复次数:13 
关于picture空间下的绘图。
首先要在picture 中绘制个圆和一条直线,问题是怎么让他俩的线宽度不一样?比如圆的线宽为4,一条固定长度的直线线的宽度为1.谢谢了。
搜索更多相关主题的帖子: 空间 
2015-01-05 23:29
V菜鸟V
Rank: 2
等 级:论坛游民
帖 子:97
专家分:10
注 册:2014-11-27
收藏
得分:0 
如图所示
图片附件: 游客没有浏览图片的权限,请 登录注册
2015-01-06 00:35
V菜鸟V
Rank: 2
等 级:论坛游民
帖 子:97
专家分:10
注 册:2014-11-27
收藏
得分:0 
谢谢了,期待您的指导,谢谢。
2015-01-06 00:36
V菜鸟V
Rank: 2
等 级:论坛游民
帖 子:97
专家分:10
注 册:2014-11-27
收藏
得分:0 
快来人呀,,,谁会呀,看看呀,,谢谢了。
2015-01-06 13:33
V菜鸟V
Rank: 2
等 级:论坛游民
帖 子:97
专家分:10
注 册:2014-11-27
收藏
得分:0 
回复 5楼 lianyicq
这样的话他图片区域内的线宽都是一样的了,我的意思你没看懂呀,,,,,不同的线宽
2015-01-06 14:22
V菜鸟V
Rank: 2
等 级:论坛游民
帖 子:97
专家分:10
注 册:2014-11-27
收藏
得分:0 
回复 5楼 lianyicq
线和圆都在picture 中画的期望不同的线宽的,,是这个意思的。
2015-01-06 14:23
V菜鸟V
Rank: 2
等 级:论坛游民
帖 子:97
专家分:10
注 册:2014-11-27
收藏
得分:0 
回复 8楼 lianyicq
圆会复制,直线怎么设置?
2015-01-06 14:34
V菜鸟V
Rank: 2
等 级:论坛游民
帖 子:97
专家分:10
注 册:2014-11-27
收藏
得分:0 
回复 10楼 lianyicq
我试了一下,不行,全部线宽都是1了。
2015-01-06 14:50
V菜鸟V
Rank: 2
等 级:论坛游民
帖 子:97
专家分:10
注 册:2014-11-27
收藏
得分:0 
回复 10楼 lianyicq
因为你规定了是picture的线宽从4变为了1,然而圆和直线都是在picture 下绘图的所以,没意义的。
2015-01-06 14:52
V菜鸟V
Rank: 2
等 级:论坛游民
帖 子:97
专家分:10
注 册:2014-11-27
收藏
得分:0 
程序代码:
Picture1.Line (0, 0)-(xa(k3), ya(k3)), Picture1.BackColor
Picture1.Line (xa(k3), ya(k3))-(xb(k3), yb(k3)), Picture1.BackColor
Picture1.Line (xb(k3), yb(k3))-(xc(k3), yc(k3)), Picture1.BackColor
Picture1.Line (xb(k3), yb(k3))-(xe(k3), ye(k3)), Picture1.BackColor
If k3 > 68 And k3 < 150 Then

 Picture1.Line (xe(k3) - 30, ye(k3))-(xe(k3) - 20, ye(k3) - 15 * Sqr(3)), Picture1.BackColor

 Picture1.Line (xe(k3), ye(k3))-(xe(k3) - 10, ye(k3) - 15 * Sqr(3)), Picture1.BackColor
Else

 Picture1.Line (xe(k3) - 30, ye(k3))-(xe(k3) - 15, ye(k3) - 15 * Sqr(3)), Picture1.BackColor

 Picture1.Line (xe(k3), ye(k3))-(xe(k3) - 15, ye(k3) - 15 * Sqr(3)), Picture1.BackColor
End If
Picture1.Line (xc(k3), yc(k3))-(xd, yd), Picture1.BackColor
If Command2.Caption = "显示轨迹" Then

 Picture1.DrawWidth = 1

 Picture1.Line (-100, -(137 + 15 * Sqr(3)))-(200, -(137 + 15 * Sqr(3))), Picture1.BackColor
End If


我只期望if 语句里面那条线为2
2015-01-06 15:04
快速回复:关于picture空间下的绘图。
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.018065 second(s), 9 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved