| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1035 人关注过本帖
标题:傻瓜问题,怎么使想要输到图片框的字居中显示?
取消只看楼主 加入收藏
SnowFalling
Rank: 1
等 级:新手上路
帖 子:4
专家分:0
注 册:2007-6-25
收藏
 问题点数:0 回复次数:0 
傻瓜问题,怎么使想要输到图片框的字居中显示?

学习编程遇到点小问题,请教下各位大侠,小弟写了如下程序想让要输入的“你好”居中显示,结果字却显示在图片框右下角的位置,经过多次尝试,发现如果把picture1.fontsize=48这一行去掉就居中了,可是怎么能让字保持48号大小又居中显示呀?
Private Sub Form_Click()
Dim txth As Integer, txtw As Integer
Picture1.FontSize = 48
Picture1.ForeColor = RGB(255, 0, 0)
txth = TextHeight("你好")
txtw = TextWidth("你好")
Picture1.Print "你好"
Picture1.CurrentX = (Picture1.ScaleWidth - txtw) / 2
Picture1.CurrentY = (Picture1.ScaleHeight - txth) / 2
Picture1.Print "你好"
End Sub

搜索更多相关主题的帖子: 傻瓜 
2007-07-03 19:10
快速回复:傻瓜问题,怎么使想要输到图片框的字居中显示?
数据加载中...
 
   



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

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