在窗体上放一个Picture, 一个TextBox 放一个Command
private sub Command1_Click()
Picture1.Print Text1.Text
End Sub
private sub Command1_Click()
Picture1.Print Text1.Text
End Sub
解决方案 »
- 找千千静听的歌词秀界面的鼠标样式
- 本人利用vb开发了一个控件,可是在web中调用的时候,网页显示的速度比较慢,有怎么办法解决吗?
- !高分!ado联接access显示、打开图片(在线等) 200分
- 把一个大的二进制文件读到一个buffer里面可以这样写吗?为什么读到中间就会出现overflow?
- 求VBA资料
- 如何去掉字符中的双引号
- 关于VB 对ini文件操作存在的怪问题?高手请进!
- 操作远程sql2000数据库问题
- 怎样让我的程序具有生成EXE文件的功能?
- 两个小问题,高手帮忙啊
- 急!!高分求助!水晶报表(CrystalReport)中排序问题!
- 一个奇怪的关于对象焦点的得失的问题?????????????大家看看拉!!!!!!!!
Picture1.currentx=(picture1.Width - picture1.TextWidth(text1.text))/2
Picture1.currenty=(picture1.height - picture1.Textheight(text1.text))/2
pictrue1.print text1.text
picture1.AutoRedraw = FALSE