vb.net图片居中

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

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

不过可以用 PictureBox 控件做到

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

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

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

求VB中使PictureBox控件图像居中的方法

试试这个......

Option Explicit

Private FormOldWidth As Long

\'保存窗体的原始宽度

Private FormOldHeight As Long

\'保存窗体的原始高度

\'在调用ResizeForm前先调用本函数

Public Sub ResizeInit(FormName As Form)

Dim Obj As Control

FormOldWidth = FormName.ScaleWidth

FormOldHeight = FormName.ScaleHeight

On Error Resume Next

For Each Obj In FormName

Obj.Tag = Obj.Left " " Obj.Top " " _

Obj.Width " " Obj.Height " "

Next Obj

On Error GoTo 0

End Sub

\'按比例改变表单内各元件的大小,在调用ReSizeForm前先调用ReSizeInit函数

Public Sub ResizeForm(FormName As Form)

Dim i As Long, TempPos As Long, StartPos As Long

Dim ScaleX As Double, ScaleY As Double

ScaleX = FormName.ScaleWidth / FormOldWidth

\'保存窗体宽度缩放比例

ScaleY = FormName.ScaleHeight / FormOldHeight

\'保存窗体高度缩放比例

StartPos = 1

\'读取控件的原始位置与大小

TempPos = InStr(StartPos, Obj.Tag, " ", vbTextCompare)

If TempPos 0 Then

Pos(i) = Mid(Obj.Tag, StartPos, TempPos - StartPos)

StartPos = TempPos + 1

Else

Pos(i) = 0

End If

\'根据控件的原始位置及窗体改变大小的比例对控件重新定位与改变大小

Obj.Move Pos(0) * ScaleX, Pos(1) * ScaleY, _

Next i

Private Sub Form_Load()

Call ResizeInit(Me) \'在程序装入时必须加入

Private Sub Form_Resize()

Call ResizeForm(Me) \'确保窗体改变时控件随之改变

vb图片在窗口中居中该怎么编程

从vb操作界面右下角可以看到一个"窗体布局"窗口,可以吧模拟窗口中的窗体拖到中间,就可以了.

以上就是土嘎嘎小编为大家整理的vb.net图片居中相关主题介绍,如果您觉得小编更新的文章只要能对粉丝们有用,就是我们最大的鼓励和动力,不要忘记讲本站分享给您身边的朋友哦！！