为何我窗体中的image控件不能显示图片

monmon888

为何在工作表中添加的image控件双击后可以显示图片，但把控件放在窗体中，当image的autosize属性为false时图片无法显示，当image的autosize属性为true时图片可以显示，但不能调节图片的大小和位置

Private Sub Image1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    Dim dlg As FileDialog
    Dim selectedImagePath As String

    Set dlg = Application.FileDialog(msoFileDialogFilePicker)

    dlg.InitialFileName = ThisWorkbook.Path & "\巡检图片文件夹\"

    With dlg
        .Title = "选择图片"
        .AllowMultiSelect = False
        .Filters.Clear
        .Filters.Add "图片文件", "*.jpg; *.jpeg; *.png; *.bmp"

        If .Show = -1 Then
            selectedImagePath = .SelectedItems(1)
            Me.Image1.Picture = LoadPicture(selectedImagePath)
        End If
    End With

    Set dlg = Nothing
End Sub

monmon888

各路大神们帮 忙看看啊，死活都显示不出来，没折了

monmon888

折腾了两天，最后发现双击Image控件运行程序，在autosize＝false时，就是没法显示出图片。也不知道是什么道理。最后多放一个buttom，把代码放入click事件中执行就完全没问题了。真是奇怪。哪位大神给解释一下。

02761752696

monmon888 发表于 2023-6-7 21:56
折腾了两天，最后发现双击Image控件运行程序，在autosize＝false时，就是没法显示出图片。也不知道是什么道 ...

换个加载方式看看，比如 按钮加载，不要用Image1双击

解0人

试试代码最后加一句：
Me.Repaint

大灰狼1976

加个repaint
Me.Image1.Picture = LoadPicture(selectedImagePath)
Repaint