在窗体的Image1控件上鼠标点击一下后，就不随TextBox1的值改变，而加载对应的图片

Magic尹尹

以下这段代码，可以根据窗体中的文本框TextBox1值的改变，而加载对应的图片，但不知道为什么，只要在窗体的Image1控件上鼠标点击一下后，就不随TextBox1的值改变，而加载对应的图片了，请各位指点一下，这是什么原因？

Private Sub TextBox1_Change()
On Error Resume Next
Image1.Picture = Nothing
Image1.Picture = LoadPicture(ThisWorkbook.Path & "\zp\" & TextBox1.Text & ".jpg")
Image1.PictureSizeMode = fmPictureSizeModeZoom
End Sub

aman1516

1. Public b As Boolean
   
2. 
   
3. Private Sub Image1_Click()
   
4. If b = False Then b = True
   
5. End Sub
   
6. 
   
7. Private Sub TextBox1_Change()
   
8. On Error Resume Next
   
9. If b = False Then
   
10.     Image1.Picture = Nothing
    
11.     Image1.Picture = LoadPicture(ThisWorkbook.Path & "\zp" & TextBox1.Text & ".jpg")
    
12.     Image1.PictureSizeMode = fmPictureSizeModeZoom
    
13. End If
    
14. End Sub
    
15. 
    
16. Sub resetb()
    
17. If b = True Then b = False
    
18. End Sub

复制代码

Magic尹尹

aman1516 发表于 2018-8-10 23:10

你好，我的问题是发现在窗体的Image1控件上鼠标点击一下后，就不随TextBox1的值改变而加载对应的图片，这是程序上的一个漏洞，不知道是什么原因，而不是要程序实现这个漏洞呀！怎么克服这个漏洞呢？即鼠标即使点了Image1控件，只要TextBox1的值改变，照样还是可以加载对应的图片呢？