vb.net圖片居中,vb中如何將圖片設(shè)置居中

VB.NET中l(wèi)abel顯示的文字怎么居中？

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

成都創(chuàng)新互聯(lián)一直在為企業(yè)提供服務(wù)，多年的磨煉，使我們?cè)趧?chuàng)意設(shè)計(jì)，全網(wǎng)營(yíng)銷推廣到技術(shù)研發(fā)擁有了開(kāi)發(fā)經(jīng)驗(yàn)。我們擅長(zhǎng)傾聽(tīng)企業(yè)需求，挖掘用戶對(duì)產(chǎn)品需求服務(wù)價(jià)值，為企業(yè)制作有用的創(chuàng)意設(shè)計(jì)體驗(yàn)。核心團(tuán)隊(duì)擁有超過(guò)十多年以上行業(yè)經(jīng)驗(yàn)，涵蓋創(chuàng)意，策化，開(kāi)發(fā)等專業(yè)領(lǐng)域，公司涉及領(lǐng)域有基礎(chǔ)互聯(lián)網(wǎng)服務(wù)雅安服務(wù)器托管、手機(jī)APP定制開(kāi)發(fā)、手機(jī)移動(dòng)建站、網(wǎng)頁(yè)設(shè)計(jì)、網(wǎng)絡(luò)整合營(yíng)銷。

不過(guò)可以用 PictureBox 控件做到

拖動(dòng)一個(gè) PictureBox 控件到工程，并命名為 picTextShow，把 AutoDraw 設(shè)為 True，加上以下代碼就可以實(shí)現(xiàn)：

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控件圖像居中的方法

試試這個(gè)……

Option Explicit

Private FormOldWidth As Long

\'保存窗體的原始寬度

Private FormOldHeight As Long

\'保存窗體的原始高度

\'在調(diào)用ResizeForm前先調(diào)用本函數(shù)

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

\'按比例改變表單內(nèi)各元件的大小，在調(diào)用ReSizeForm前先調(diào)用ReSizeInit函數(shù)

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

\'根據(jù)控件的原始位置及窗體改變大小的比例對(duì)控件重新定位與改變大小

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) \'在程序裝入時(shí)必須加入

End Sub

Private Sub Form_Resize()

Call ResizeForm(Me) \'確保窗體改變時(shí)控件隨之改變

End Sub

vb圖片在窗口中居中該怎么編程

從vb操作界面右下角可以看到一個(gè)“窗體布局”窗口，可以吧模擬窗口中的窗體拖到中間，就可以了。

新聞標(biāo)題：vb.net圖片居中,vb中如何將圖片設(shè)置居中
文章鏈接：http://www.muchs.cn/article10/hchodo.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供小程序開(kāi)發(fā)、網(wǎng)站策劃、營(yíng)銷型網(wǎng)站建設(shè)、微信小程序、網(wǎng)站導(dǎo)航、網(wǎng)站設(shè)計(jì)

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請(qǐng)盡快告知，我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng)，如需處理請(qǐng)聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來(lái)源： 創(chuàng)新互聯(lián)