我正在使用此代码为用户更改用户表单上的图像。
Private Sub image_logo_Click()
Dim filetoOpen
filetoOpen = Application.GetOpenFilename("Image Files (*.jpg;*.gif), *.jpg;*.gif")
If filetoOpen <> False Then
image_logo.Picture = LoadPicture(filetoOpen)
Form.Repaint
End Sub
它工作正常,但由于某种原因,当我去VBA编辑器时,图像恢复到旧图像。任何想法为什么会这样?