标题:[求助]菱形画图程序
只看楼主
yangjun
Rank: 1
等 级:新手上路
帖 子:42
专家分:0
注 册:2006-7-31
 问题点数:0 回复次数:4 
[求助]菱形画图程序
中怎样生成菱型图,同时又可以在里面添加文本控件
搜索更多相关主题的帖子: 菱形 画图 
2006-09-05 20:19
zmetero11
Rank: 1
等 级:新手上路
帖 子:123
专家分:0
注 册:2006-2-5
得分:0 
我认为可以通过设置菱形和文本控件的相对位置来实现,这样应该不难,虽然我以前是学VB的现在才开始学,但以前做过图形的题

黑色的羽翼笼罩与夜月中,守护...不变<-\^/
2006-09-06 22:28
yangjun
Rank: 1
等 级:新手上路
帖 子:42
专家分:0
注 册:2006-7-31
得分:0 

但是怎样把菱形图弄出来呢?

2006-09-08 11:22
wfscyl
Rank: 1
等 级:新手上路
帖 子:23
专家分:0
注 册:2006-10-3
得分:0 
用线段画不就可以了
2006-10-12 17:38
梓风
Rank: 2
等 级:新手上路
威 望:4
帖 子:181
专家分:0
注 册:2006-10-22
得分:0 

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
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")
End Sub


等待相逢
2006-10-24 15:01



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-88281-1-1.html




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

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