一、如何在VB中实现label中的文字垂直方向居中
Private Sub Form_Load() Label1.Caption = "123456789123456789" Call SetLbl(Label1)End SubSub SetLbl(lbl As Label) Dim vTemp$ Label1.AutoSize = True Label1.Alignment = 2 For i = 1 To Len(lbl.Caption) vTemp = vTemp & Mid$(lbl.Caption, i, 1) & vbCrLf Next lbl.Caption = vTemplbl.top = 0'(Screen.height - lbl.height)/2lbl.left = (Screen.width - lbl.width)/2End Sub用SetLbl这个子过程=====================================后面加上lbl.top = 0'(Screen.height - lbl.height)/2lbl.left = (Screen.width - lbl.width)/2。
二、在vb中如何将标签控件中的字体改为垂直居中
在VB中可
设置Label控件的Alignment为2
调整字号大小到显示单个字,或者收小Label控件的宽度(Width)
代码方法(不推荐,只能用于一个标签):Private Function Vertical_Horizontal(ByVal nStr As String) As String
Dim MyStr As String, i As Integer
Static Vert As Boolean
For i = 1 To Len(nStr)
If i < Len(nStr) Then
MyStr = MyStr + Mid$(nStr, i, 1) & vbCrLf
Else
MyStr = MyStr + Mid$(nStr, i, 1)
End If
Next
Vertical_Horizontal = MyStr
Vert = True
End Function
Private Sub Form_Load()
Label1.AutoSize = True
Label1.Caption = "VB如何让标签里的文字竖排"
Label1.Caption = Vertical_Horizontal(Label1.Caption)
End Sub使用标签控件的WordWrap属性设置True,调整字号大小以适应控件宽度。
设置Label控件的Alignment为2。
WordWrap 属性,返回或设置一个值,该值用来指示一个 AutoSize 属性设置为 True 的 Label
控件,是否要进行水平或垂直展开以适合其 Caption 属性中指定的文本的要求。
三、VB中label控件中的文字怎么“垂直居中“呀
在Vb中如text和label控件是没有垂直居中功能的,但是可以变通就是给文字加空行。
'加一个 Text1 一个 Command1 : Dim aa As String, i As Integer, jj As Integer, maxline As Integer, LineCnt As Long Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long Const EM_GETLINECOUNT = &HBA Private Sub Form_Load() '窗体与Command1居中 Me.Move (Screen.Width - Me.Width) \ 2, (Screen.Height - Me.Height) \ 2 Command1.Move (Me.Width - Command1.Width) \ 2, Text1.Height + Text1.Top + 200 Command1.Caption = "居中显示" Text1.Alignment = 2 'TextBox 水平居中显示 aa = "Attn:楼主" aa = aa & Chr(13) & Chr(10) aa = aa & "呵呵你的问题都好奇怪,但也让我学了不少!" aa = aa & Chr(13) & Chr(10) aa = aa & "我也想不出其它的好方法" aa = aa & Chr(13) & Chr(10) aa = aa & "你认为这样行吗?" Text1.Text = aa End Sub Private Sub Command1_Click() LineCnt = TextBoxLineCnt(Text1) '每增加一行加上180,当然是以默认的字体大小而言 maxline = Text1.Height \ 180 '计算textbox能装下几行 jj = (maxline - LineCnt) \ 2 '垂直居中,(textbox总行数-Text1的总行数)整除2 For i = 1 To jj '装上几行空白 Text1.Text = Chr(13) & Chr(10) & Text1.Text Next i MsgBox "总共有" & CStr(LineCnt) & "行文字,看看垂直居中了吗?" End Sub Public Function TextBoxLineCnt(ctl As TextBox) As Long '计算总行数的函数 TextBoxLineCnt = SendMessage(ctl.hwnd, EM_GETLINECOUNT, 0, 0) End Function。
四、VB的text内的文字如何上下左右都居中啊
在Vb中如text和label控件是没有垂直居中功能的。
但是可以变通就是给文字加空行。下面的是从百度贴吧上面引用来的:但是他并没有说明要将text的mutiline属性设置为true,否则是不行的。
'加一个 Text1 一个 Command1Dim aa As String, i As Integer, jj As Integer, maxline As Integer, LineCnt As LongPrivate Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As LongConst EM_GETLINECOUNT = &HBAPrivate Sub Form_Load() '窗体与Command1居中 Me.Move (Screen.Width - Me.Width) \ 2, (Screen.Height - Me.Height) \ 2 Command1.Move (Me.Width - Command1.Width) \ 2, Text1.Height + Text1.Top + 200 Command1.Caption = "居中显示" Text1.Alignment = 2 'TextBox 水平居中显示 aa = "Attn:楼主" aa = aa & Chr(13) & Chr(10) aa = aa & "呵呵你的问题都好奇怪,但也让我学了不少!" aa = aa & Chr(13) & Chr(10) aa = aa & "我也想不出其它的好方法" aa = aa & Chr(13) & Chr(10) aa = aa & "你认为这样行吗?" Text1.Text = aaEnd SubPrivate Sub Command1_Click() LineCnt = TextBoxLineCnt(Text1) '每增加一行加上180,当然是以默认的字体大小而言 maxline = Text1.Height \ 180 '计算textbox能装下几行 jj = (maxline - LineCnt) \ 2 '垂直居中,(textbox总行数-Text1的总行数)整除2 For i = 1 To jj '装上几行空白 Text1.Text = Chr(13) & Chr(10) & Text1.Text Next i MsgBox "总共有" & CStr(LineCnt) & "行文字,看看垂直居中了吗?"End SubPublic Function TextBoxLineCnt(ctl As TextBox) As Long '计算总行数的函数 TextBoxLineCnt = SendMessage(ctl.hwnd, EM_GETLINECOUNT, 0, 0)End Function。
五、如何在VB中实现label中的文字垂直方向居中
Private Sub Form_Load()
Label1.Caption = "123456789123456789"
Call SetLbl(Label1)
End Sub
Sub SetLbl(lbl As Label)
Dim vTemp$
Label1.AutoSize = True
Label1.Alignment = 2
For i = 1 To Len(lbl.Caption)
vTemp = vTemp & Mid$(lbl.Caption, i, 1) & vbCrLf
Next
lbl.Caption = vTemp
lbl.top = 0'(Screen.height - lbl.height)/2
lbl.left = (Screen.width - lbl.width)/2
End Sub
用SetLbl这个子过程
=====================================
后面加上
lbl.top = 0'(Screen.height - lbl.height)/2
lbl.left = (Screen.width - lbl.width)/2
六、vb操作word,怎么让其中的table居中
修改spring security的源代码,主要是修改InvocationSecurityMetadataSourceService和UserDetailsService两个类。
前者是将配置文件或数据库中存储的资源(url)提取出来加工成为url和权限列表的Map供Security使用,后者提取用户名和权限组成一个完整的(UserDetails)User对象,该对象可以提供用户的详细信息供AuthentationManager进行认证与授权使用。
该方法理论上可行,但是比较暴力,也没有时间实现,未验证,以后再研究。
转载请注明出处51数据库 » vbword垂直居中