7,763
社区成员
发帖
与我相关
我的任务
分享图片框中如何在图片上添加文字,求救!!!!!!
我想在图片控件的图片上增加文字,在form_load中加如如下代码:为什么图片上没有文字显示呢?
Set picBack.Picture = LoadPicture(App.Path & "\cover.jpg")
picBack.Move 0, 0, frmmain.ScaleWidth, frmmain.ScaleHeight
picBack.AutoRedraw = True
picBack.FontName = "宋体"
picBack.FontSize = 60
picBack.CurrentX = 1000
picBack.CurrentY = 1000
picBack.Print "欢迎使用"
Set picBack.Picture = LoadPicture(App.Path & "\cover.jpg")
picBack.Move 0, 0, frmmain.ScaleWidth, frmmain.ScaleHeight
picBack.AutoRedraw = True
picBack.FontName = "宋体"
picBack.FontSize = 60
picBack.CurrentX = 1000
picBack.CurrentY = 1000
picBack.Print "欢迎使用"
...全文
请发表友善的回复…
发表回复
yyxa82326 2006-11-01
- 打赏
- 举报
用标签怎么做啊,我不知道怎么设置标签的透明性啊?
guyehanxinlei 2006-11-01
- 打赏
- 举报
用一个标签挺好的
yyxa82326 2006-11-01
- 打赏
- 举报
那设置成什么范围才合适啊?555555555
我是一菜鸟,什么都不会!希望各位大哥多指点!
我是一菜鸟,什么都不会!希望各位大哥多指点!
韧恒 2006-11-01
- 打赏
- 举报
frmmain.ScaleMode = vbPixels
picBack.ScaleMode = vbPixels
是将它们的坐标单位转为像素，如果是这样，那么你的1000肯定是太大了。
picBack.ScaleMode = vbPixels
是将它们的坐标单位转为像素，如果是这样，那么你的1000肯定是太大了。
韧恒 2006-11-01
- 打赏
- 举报
楼上分析的有道理。
设置为
picBack.CurrentX = 0
picBack.CurrentY = 0 试试就知道了。
设置为
picBack.CurrentX = 0
picBack.CurrentY = 0 试试就知道了。
yyxa82326 2006-11-01
- 打赏
- 举报
frmmain.ScaleMode = vbPixels
picBack.ScaleMode = vbPixels
vbPixels这个参数是什么意思啊.我不知道
picBack.ScaleMode = vbPixels
vbPixels这个参数是什么意思啊.我不知道
zzyong00 2006-11-01
- 打赏
- 举报
没有问题啊
是不是
picBack.CurrentX = 1000
picBack.CurrentY = 1000
太大，超出 可视范围了？看看scalemode
是不是
picBack.CurrentX = 1000
picBack.CurrentY = 1000
太大，超出 可视范围了？看看scalemode
honght 2006-11-01
- 打赏
- 举报
建议图片上面加个Label或者用photo直接画到图片上
