vb.net图片居中,vb中如何将图片设置居中

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

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

成都创新互联一直在为企业提供服务,多年的磨炼,使我们在创意设计,全网营销推广到技术研发拥有了开发经验。我们擅长倾听企业需求,挖掘用户对产品需求服务价值,为企业制作有用的创意设计体验。核心团队拥有超过十多年以上行业经验,涵盖创意,策化,开发等专业领域,公司涉及领域有基础互联网服务雅安服务器托管手机APP定制开发、手机移动建站、网页设计、网络整合营销。

不过可以用 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

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

求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 Pos(4) As Double

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

Dim Obj As Control

Dim ScaleX As Double, ScaleY As Double

ScaleX = FormName.ScaleWidth / FormOldWidth

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

ScaleY = FormName.ScaleHeight / FormOldHeight

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

On Error Resume Next

For Each Obj In FormName

StartPos = 1

For i = 0 To 4

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

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, _

Pos(2) * ScaleX, Pos(3) * ScaleY

Next i

Next Obj

On Error GoTo 0

End Sub

Private Sub Form_Load()

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

End Sub

Private Sub Form_Resize()

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

End Sub

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

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


当前题目:vb.net图片居中,vb中如何将图片设置居中
当前URL:http://bzwzjz.com/article/hchodo.html

其他资讯

Copyright © 2007-2020 广东宝晨空调科技有限公司 All Rights Reserved 粤ICP备2022107769号
友情链接: 上市集团网站建设 网站建设公司 成都网站建设 企业网站建设公司 成都企业网站建设 企业网站设计 重庆网站建设 企业网站设计 企业网站建设 四川成都网站建设 成都模版网站建设 营销型网站建设 自适应网站设计 成都网站建设公司 梓潼网站设计 阿坝网站设计 盐亭网站设计 网站建设公司 网站设计 成都网站建设 温江网站设计 营销网站建设