首页
社区
课程
招聘
[旧帖] 用VB6.0如何在Text1文本框中画椭圆、圆、矩形呢? 0.00雪花
发表于: 2010-11-11 18:54 4855

[旧帖] 用VB6.0如何在Text1文本框中画椭圆、圆、矩形呢? 0.00雪花

2010-11-11 18:54
4855
用VB6.0如何在Text1文本框中画椭圆、圆、矩形呢?

[注意]传递专业知识、拓宽行业人脉——看雪讲师团队等你加入!

收藏
免费 0
支持
分享
最新回复 (7)
雪    币: 91
活跃值: (57)
能力值: ( LV3,RANK:30 )
在线值:
发帖
回帖
粉丝
2
VC里面相当简单,VB估计也简单.不会VB....
路过....
2010-11-11 19:38
0
雪    币: 1
活跃值: (10)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
3
text1文本框里不能椭圆、圆、矩形,要实现想要的效果,你可以试试把椭圆、圆、矩形画在窗体上,文本框放在对应位置,设置属性样式来实现。
2010-11-11 21:03
0
雪    币: 517
活跃值: (35)
能力值: ( LV6,RANK:90 )
在线值:
发帖
回帖
粉丝
4
VB 富文本或许支持,没试过。
2010-11-11 21:46
0
雪    币: 196
活跃值: (43)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
5
VC里控件扩展应该可以,vb不太清楚。
2010-11-12 09:01
0
雪    币: 91
活跃值: (57)
能力值: ( LV3,RANK:30 )
在线值:
发帖
回帖
粉丝
6
首先得到句柄,然后得到绘图设备
最后直接调用代码绘图就可以,不超过2行代码。
代码太简单不好意思发程序了,就下面的
        CWnd *cwnd = (CWnd *)GetDlgItem(IDC_EDIT1);
        cwnd->GetWindowDC()->Ellipse(20,20,70,70);
2010-11-12 22:13
0
雪    币: 212
活跃值: (10)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
7
在窗体上拖个文本框和一个按钮
声明API,然后就是如下代码
Private Sub Command1_Click()
Dim hdc As Long
Dim bn As Long
hdc = GetDC(Text1.hwnd)
bn = Ellipse(hdc, 25, 25, 50, 50)
End Sub
2010-11-12 22:38
0
雪    币: 26
活跃值: (25)
能力值: ( LV3,RANK:20 )
在线值:
发帖
回帖
粉丝
8
在Command1按钮上面画个圆怎么弄?
2010-11-13 10:14
0
游客
登录 | 注册 方可回帖
返回
//