VB.NET中label显示的文字怎么居中?

如题所述

    Label 控件不可以水平,上下居中

    不过可以用 PictureBox 控件做到

    拖动一个 PictureBox 控件到工程,并命名为 picTextShow,把 AutoDraw 设为 True,加上以下代码就可以实现:

    Option Explicit Private Sub Form_Load() picTextShow.CurrentX=(picTextShow.ScaleWidth-picTextShow.TextWidth("要显示的文本"))/2 picTextShow.CurrentY=(picTextShow.ScaleHeight-picTextShow.TextHeight("要显示的文本"))

    picTextShow.Print "要显示的文本" End Sub

    这样文本就可以在图片框中间显示了。

温馨提示:内容为网友见解,仅供参考
第1个回答  2013-03-19
设置Label的TextAlign的属性为MiddleCenter追问

试了 还是一样

追答

这个要看你的Label的整体长度,你要设置两点之间的中间,那么Label的长度就是两点之间的距离,这样你明白吗?

第2个回答  2013-03-19
属性TextAlign
TextAlign=MiddleCenter追问

一样还是靠右边

追答

你加一个按钮,将这个属性设置放在里面,试一下。
如目的达到,说明你页面启动时有语句会改变这项设置。

另说几个其他的方法,看看是否可以达到同样效果:
1。照你的说法文字偏右,那么就在尾部加上空格
2。看一下你的autosize属性,可以设置为false,此时你的label将不会自动调整边界尺寸

第3个回答  2013-03-22

AutoSize=false

TextAlign=MiddleCenter

本回答被提问者采纳

vb中label中的caption内容如何转行啊
1、回车 2、换行 如果您使用的是VB.NET,还可以使用vbCrLf替换chr(13) & chr(10)

vb.net当中Label控件赋值后如何右对齐
是autosize是true的缘故吧,改为false就可以了。我2008没问题,如实在不行,格式一下字符串,使其右对齐,前端补空格。label1.Text = Microsoft.VisualBasic.Strings.RSet("abc", 12)label1.Text =String.Format("{0,12}","abc") '这个像是默认右对齐 ...

VB.net动态建立label,怎么使label自动换行??
提供一点思路仅供参考:在界面画一个label,设置为可以自动换行,隐藏,然后有label需要动态加载就拷贝这个界面上画的label的属性。

在VB中怎么怎么设置label自动换行
(1)在设计时,如果显示内容比较长,调整Label大小,显示的内容随着Label的大小,自动调整并换行,如下图所示 (2)运行时,使用vbCrlf 也可以实现Label换行 Option ExplicitPrivate Sub Form_Load() Label1.BackColor = &H80FFFF Label1.WordWrap = False Label1.Caption = "第1行" + vb...

vb.net label 换行
在要换行的地方断开字符串,用& Environment.NewLine &连接两个字符串即可。

有关VB中lable控件的autosize属性的问题?
vbnet Dim str As String = "这是一个较长的文本,将用于测试Label控件的AutoSize属性。"Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load Dim label1 As New Label label1.AutoSize = True label1.Text = str Me.Controls.Add(label1)End Sub 在这个示例中...

vb程序中单击按钮,字体变大或变小三个单位怎样设置?
VB.NET中某些控件的字体属性是只读的,所以只可以使用NEW方法\\x0d\\x0a(例子: Label1.Font = New Font("宋体", 9))\\x0d\\x0a如果是VB6.0中可以直接使用Lable1.Font.Size=Lable1.Font.Size + 3\\x0d\\x0a(这里使用的例子是Lable控件,如果你使用的是Command控件直接改一下就好)

VB.NET如何锁定label.text的值不变
Public Class Form1 Private Sub Timer1_Tick()‘判断label的text值是否改变了 If Label1.Text = "label的text值" Then Else Label1.Text = "label的text值"End If End Sub Private Sub Form1_Load()Label1.Text = "label的text值"’给Label1.Text赋新值 Timer1.Interval = "你定义的时间...

vb.net中如何实现将label背景变透明,但字体显示出来
1、将窗口的TransparencyKey属性设置成某一种颜色(在显示时,这种颜色会显示为透明),如:Me.TransparencyKey = System.Drawing.Color.Red(可在属性窗口中指定或通过代码设置)2、将Label的BackColor属性设置为与窗口的TransparencyKey属性相同的颜色,如:Me.label1.BackColor = System.Drawing.Color.Red(...

VB.NET Label旋转及淡入
VB.net可以做,,绘制的不是图片,还是控件,这就有点难了。建议你还是先把文字画到一张图片上,然后再对图片旋转,淡入淡出都好做。我可以帮你,但暂时没有时间。如果你会vb,那么你自己看Help Library学下其中的函数怎么用就行了。

相似回答