| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 531 人关注过本帖
标题:这样为何画不出图
只看楼主 加入收藏
swpihchj
Rank: 1
等 级:新手上路
帖 子:32
专家分:0
注 册:2006-3-31
收藏
 问题点数:0 回复次数:5 
这样为何画不出图

Dim myPen As New Pen(Color.Black, 5)
Dim g As Graphics = Me.CreateGraphics
g.DrawEllipse(myPen, 20, 30, 10, 50)

2006-10-06 23:22
chenjin145
Rank: 1
等 级:禁止访问
帖 子:3922
专家分:0
注 册:2006-7-12
收藏
得分:0 
沒錯

[url=javascript:alert(1);] [div]fdgfdgfdg\" on\"[/div] [/url]
2006-10-07 16:13
feeling
Rank: 4
来 自:福建厦门
等 级:贵宾
威 望:10
帖 子:105
专家分:0
注 册:2006-3-29
收藏
得分:0 
放到重载过程中:
Protected Overrides Sub OnPaint(ByVal e As System.Windows.Forms.PaintEventArgs)

End Sub

互相学习! 不要放弃!时刻相信自己! 信心,是我们撑起世界的\'武器\'! 只怕你不肯学,而不怕自己学不会!
2006-10-07 21:14
蓝の魂
Rank: 1
等 级:新手上路
帖 子:18
专家分:0
注 册:2006-9-22
收藏
得分:0 

你一定是将这些代码放在Load哪里!!

2006-10-10 19:30
梓风
Rank: 2
等 级:新手上路
威 望:4
帖 子:181
专家分:0
注 册:2006-10-22
收藏
得分:0 

Dim g As Graphics
Dim objBitmap As New Bitmap(100, 100)
Dim stringFont As New Font("宋体", 13, FontStyle.Bold)
Dim r As New Rectangle(50, 50, 20, 20)

Dim stringTitle As New Font("Times New Roman", 14, FontStyle.Bold)
'Dim stringFont As New Font("Times New Roman", 10, FontStyle.Bold)
Dim stringFormat As New StringFormat
Dim b As New SolidBrush(Color.Black)
Dim rTitle As RectangleF

g = Graphics.FromImage(objBitmap)
Dim p As New Pen(Color.Black, 1)
g.DrawLine(p, 0, 50, 50, 0)
g.DrawLine(p, 50, 0, 100, 50)
g.DrawLine(p, 100, 50, 50, 100)
g.DrawLine(p, 50, 100, 0, 50)
g.DrawString("测试", stringTitle, b, rTitle, StringFormat)
objBitmap.Save("aa.jpg")


等待相逢
2006-10-24 15:53
pkken
Rank: 1
等 级:新手上路
帖 子:45
专家分:0
注 册:2006-10-26
收藏
得分:0 
   用语言画图啊````我还没学到这里啊````看来要理解还真难```
2006-10-30 23:54
快速回复:这样为何画不出图
数据加载中...
 
   



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

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