VB Picture不能显示全部图片怎么办？

最新推荐文章于 2022-09-15 18:31:53 发布

原创最新推荐文章于 2022-09-15 18:31:53 发布 · 6.7k 阅读

5 ·

CC 4.0 BY-SA版权

vb6疑问集专栏收录该内容

14 篇文章

订阅专栏

本文介绍了解决界面固定后图片无法完全显示的问题。提供了两种方法：一是通过调整image的stretch属性使图片填充整个picture区域；二是保持图片原始尺寸并通过移动image来查看完整图片，避免失真。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

界面固定后，picture不能显示全部图片，怎么办？

两个方法：

1、在picture中再加入一个image,调整大小与picture一样，将image的stretch的属性设置为真.

这样图片在image的强制下，正好与picture一样大。

2、同样在picture中加入image，但把stretch设置为假。即原样图。移动image可以在picture中看到原样。

这样图像不会失真。

看下第二个方法：

Option Explicit
Dim oldX As Long
Dim oldY As Long

Private Sub Form_Load()
    Image1.Picture = LoadPicture("D:\1.jpg")
End Sub

Private Sub Image1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

    If Button = vbKeyLButton Then
        oldX = X
        oldY = Y
        Me.MousePointer = 2
    End If
End Sub

Private Sub Image1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

    If Button = vbKeyLButton Then
        Image1.Left = Image1.Left + (X - oldX)
        Image1.Top = Image1.Top + (Y - oldY)
    End If
End Sub

Private Sub Image1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)

    If Button = vbKeyLButton Then
        Me.MousePointer = 0
    End If
End Sub