设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

12下一页
返回列表 发新帖
查看: 14982|回复: 10
打印 上一主题 下一主题

[Access本身] 文本框控件文字只能水平居中,不可以垂直居中??

[复制链接]
跳转到指定楼层
1#
发表于 2009-5-4 11:40:59 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
如题:

文本框控件,设置文件对齐方式为居中,但是只能水平居中,不可以垂直居中??
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享分享 分享淘帖 订阅订阅
2#
发表于 2009-5-4 11:56:35 | 只看该作者
是没有
3#
 楼主| 发表于 2009-5-4 12:13:35 | 只看该作者
没有办法解决??
4#
发表于 2009-5-4 12:49:33 | 只看该作者
文本上边距
5#
 楼主| 发表于 2009-5-4 13:07:17 | 只看该作者
文本上边距?不是这个吧,这个是用来对齐窗体的
6#
发表于 2009-5-4 14:15:23 | 只看该作者
是没有可以设置的属性,只能通过设置文本上边距来实现:
text1.TopMargin=(text1.Height-255)/2     '宋体9号字体的高度是255缇
7#
 楼主| 发表于 2009-5-4 14:49:52 | 只看该作者
谢谢,这段代码段用在哪里啊??

是用在窗体_load 事件里吗??  还是在哪里,如果用有好多个文本,那么没每个文本都要写上这句啊??
有什么更好的方法不?
8#
发表于 2009-5-4 15:24:28 | 只看该作者
谢谢,这段代码段用在哪里啊??

是用在窗体_load 事件里吗??  还是在哪里,如果用有好多个文本,那么没每个文本都要写上这句啊??
有什么更好的方法不?
access_boy_li 发表于 2009-5-4 14:49


随便用在什么地方都行,如果你只是想在要窗体打开后就一直显示成上下居中的话,就可以在窗体的Open事件或者Load事件中使用
至于多个文本可以使用循环
Private Sub Form_Load()
    Dim ctl As Control
    For Each ctl In Me
        If ctl.Tag="文本居中" Then ctl.TopMargin=(ctl.Height-255)/2  
    Next
End Sub
9#
 楼主| 发表于 2009-5-4 15:49:40 | 只看该作者
谢谢.
10#
发表于 2009-5-4 18:21:16 | 只看该作者
这样好像也不准确,如果文本框里有两行字的话,又不居中了.
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2024-9-20 23:28 , Processed in 0.101461 second(s), 34 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表