如何讓放進(jìn)框內(nèi)的圖片隨框大小而變

有一個(gè)圖片框,可以隨進(jìn)放進(jìn)新圖片,替換舊圖圖片,但問題是放進(jìn)的新圖片無法隨原框的大小,而放不滿一個(gè)框或比框大.

那位能將下面的代碼改一下,要求不論原圖多大,放進(jìn)此框后,都要隨此框大小相應(yīng)放大或縮小:

原代碼如下:

提示:在窗體上有二個(gè)按鈕(放進(jìn)圖片和保存圖片),另要引進(jìn)一個(gè)CommonDialog控件.

Dim OpenFileName As String

Private Reg

Private Sub Command1_Click()

On Error Resume Next

CommonDialog1.DialogTitle = "放進(jìn)新圖片"

CommonDialog1.Filter = "所有支持的格式" + _

"(*.bmp;*.jpg;*.gif;*.pcx;*.ico)|" + _

"*.bmp;*.jpg;*.gif;*.pcx;*.ico)"

CommonDialog1.ShowOpen

If CommonDialog1.FileName <> "" Then

If Err <> 32755 Then

OpenFileName = CommonDialog1.FileName

Picture1.Picture = LoadPicture(OpenFileName)

End If

End If

End Sub

Private Sub Command2_Click()

Call Reg.RegWrite("HKLM\SOFTWARE\PIC\Lj", OpenFileName, "REG_SZ") '保存新圖片

End Sub

Private Sub Form_Load()

On Error Resume Next

Set Reg = New IWshShell_Class

If Reg.RegRead("HKLM\SOFTWARE\PIC\Lj") = "" Then

Exit Sub

End If

Picture1.Picture = LoadPicture(Reg.RegRead("HKLM\SOFTWARE\PIC\Lj"))

CommonDialog1.CancelError = True

End Sub

5on3rLhw.rar

(6.9 KB)

如何讓放進(jìn)框內(nèi)的圖片隨框大小而變

總結(jié)

以上是生活随笔為你收集整理的vb中怎么使图片适应框的大小_如何让放进框内的图片随框大小而变的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。