全部

请教下在image控件中显示图片的问题

IDtoID 2008-09-03 11:24:17



'如何做才能通过图片的(长 与 宽)和(图片的像素)来显示图片呢?(就是打开时能像windows的图片和传真查看器一样,



'根据图片的(长 与 宽)和(图片的像素)来显示图片).

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Private Sub Form_Resize()'这样做在显示时只是作了适应大小的调整.....

Picture1.Top = 100

Picture1.Left = 100

Picture1.Width = Me.ScaleWidth - Picture1.Left - 100

Picture1.Height = Me.ScaleHeight - Picture1.Top - 100

End Sub

    

Private Sub Picture1_Resize()

Image1.Top = 0

Image1.Left = 0

Image1.Width = Picture1.Width

Image1.Height = Picture1.Height

Image1.Stretch = True

End Sub

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~



'以下代码是来自下载的源码. 但看不懂是什么意思.               (请教各位,如果要实现这样的效果该如何该呢?谢谢各位!)

Public Sub LoadPreview(FileName As String)

    Dim ximg As cIMAGE

    Dim PicRatio, xRatio As Single

    

    Set ximg = New cIMAGE

    

    With PicPreview

        PicRatio = .Width / .Height

        ximg.Load FileName

        xRatio = ximg.ImageWidth / ximg.ImageHeight

        If ximg.ImageHeight < ximg.ImageWidth Then

            ximg.ReSize .Width * 15 / 16, 0, False

        Else

            ximg.ReSize 0, .Height * 15 / 16, False

        End If

        ImgPreview.Visible = False

        ImgPreview.Left = (.ScaleWidth - ximg.ImageWidth) / 2

        ImgPreview.Top = (.ScaleHeight - ximg.ImageHeight) / 2

        ImgPreview.Width = ximg.ImageWidth

        ImgPreview.Height = ximg.ImageHeight

        ImgPreview.Picture = ximg.Picture

        ImgPreview.Visible = True

        .Tag = FileName

    End With

    Set ximg = Nothing

    

    Exit Sub

    Resume Next

End Sub

...全文

121 点赞收藏 5

写回复

5 条回复

切换为时间正序

当前发帖距今超过3年，不再开放新的回复

发表回复

IDtoID 2008-09-03

可以了,太谢谢vflove兄..!

回复赞

fvflove 2008-09-03

你将 bakPic 的自动改变大小设为True 你看一下.是不是OK的.

回复赞

IDtoID 2008-09-03

谢谢fvflove兄..

如何才能实现根据图片的"尺寸和像素"来显示呢...

以上方法如果打开一张高度为800 宽度为600 的图片,那显示出来的效果是"以适应调整大小".

回复赞

fvflove 2008-09-03



'增加一个按扭.Command1 

'一个CommonDialog1

'一个Picture ; Name =  bakPic  Visible=False

'一个Picture ; Name = Picture1 ,在此图面框中再增加一个 Image1   







Option Explicit



Private Sub Command1_Click()

  CommonDialog1.ShowOpen

  bakPic.Picture = LoadPicture(CommonDialog1.FileName)

  

  Dim wScale As Double

  Dim hScale As Double

  

  wScale = Picture1.Width / bakPic.Width

  hScale = Picture1.Height / bakPic.Height

  

  

  If wScale > hScale Then

     Image1.Width = bakPic.Width * hScale

     Image1.Height = bakPic.Height * hScale

  Else

    Image1.Width = bakPic.Width * wScale

    Image1.Height = bakPic.Height * wScale

  End If

  

  

  Image1.Left = (Picture1.Width - Image1.Width) / 2

  Image1.Top = (Picture1.Height - Image1.Height) / 2

  Image1.Stretch = True

  

  Set Image1.Picture = bakPic.Picture

  

End Sub