有关窗体内的照片显示

哈喽哈哈1

1. 此项代码运行时，每次点击CommandButton2按键时，为什么上一次的查询照片还停留在image中，需要再次点击查询时，才可以能查到准确信息？有没有那我老师帮忙进行纠错一下。<img src="https://clubstatic.excelhome.net/image/smiley/default/sad.gif" border="0" smilieid="2" alt="">

复制代码

1. Private Sub CommandButton2_Click()
   
2.     Dim folderPath As String, fileName As String, photoPath As String
   
3.     Dim searchValue As String
   
4.     ' 获取用户输入的搜索值
   
5.     searchValue = Trim(UserForm1.TextBox46.Text)
   
6.     ' 检查搜索值是否为空
   
7.     If searchValue = "" Then
   
8.         MsgBox "请输入搜索值！", vbExclamation
   
9.         Exit Sub
   
10.     End If
    
11.     ' 设置文件夹路径
    
12.     folderPath = ThisWorkbook.Path & "\照片"
    
13.     ' 搜索图片
    
14.     fileName = Dir(folderPath & "" & searchValue & "*.JPG")
    
15.     ' 检查是否找到文件
    
16.     If fileName <> "" Then
    
17.         photoPath = folderPath & "" & fileName
    
18.         ' 如果UserForm3已经打开，则先卸载再重新加载
    
19.         If UserForm3.Visible Then
    
20.             Unload UserForm3
    
21.             UserForm3.Image1.Picture = Nothing ' 清除上次的图片信息
    
22.         End If
    
23.         UserForm3.Show vbModal ' 弹出UserForm3
    
24.         UserForm3.Image1.Picture = LoadPicture(photoPath) ' 显示新图片
    
25.     Else
    
26.         MsgBox "没有找到与" & searchValue & "匹配的照片文件！"
    
27.     End If
    
28. End Sub

复制代码

大灰狼1976

set UserForm3.Image1.Picture = LoadPicture(photoPath)
试试

哈喽哈哈1

大灰狼1976 发表于 2024-9-23 16:04
set UserForm3.Image1.Picture = LoadPicture(photoPath)
试试

试过了还是不行

大灰狼1976

那你把这两句对调一下位置试试
        UserForm3.Show vbModal ' 弹出UserForm3
        UserForm3.Image1.Picture = LoadPicture(photoPath) ' 显示新图片

xjl565135022

fileName = Dir(folderPath & "" & searchValue & "*.JPG")
photoPath = folderPath & "" & fileName
这两个路径中的""不应该是"\"吗
还是说"照片"不是文件夹，而是文件名的一部分...

大灰狼1976

xjl565135022 发表于 2024-9-24 17:03
fileName = Dir(folderPath & "" & searchValue & "*.JPG")
photoPath = folderPath & "" & fileName
这 ...

这个现象应该是贴代码时反斜杠被论坛吃掉，一直有这个问题

哈喽哈哈1

xjl565135022 发表于 2024-9-24 17:03
fileName = Dir(folderPath & "" & searchValue & "*.JPG")
photoPath = folderPath & "" & fileName
这 ...

已经解决，谢谢

大灰狼1976

哈喽哈哈1 发表于 2024-9-26 07:28
已经解决，谢谢

你不说一下怎么解决的吗，万一别人也有相同的问题可以作个参考。

哈喽哈哈1

1. Private Sub CommandButton1_Click()
   
2. 
   
3.     Dim rng48 As Range, rng46 As Range
   
4.    
   
5.     Dim i As Integer
   
6.    
   
7.     Dim searchValue48 As String, searchValue46 As String
   
8.    
   
9.     Dim folderPath As String, fileName As String, photoPath As String
   
10. 
    
11.     ' 获取TextBox48和TextBox46的值
    
12.    
    
13.     searchValue48 = Trim(UserForm1.TextBox48.Text)
    
14.    
    
15.     searchValue46 = Trim(UserForm1.TextBox46.Text)
    
16. 
    
17.     ' 检查搜索值是否为空
    
18.    
    
19.     If searchValue48 = "" Or searchValue46 = "" Or ComboBox1 = "" Then
    
20.    
    
21.         MsgBox "请输入搜索值！", vbExclamation
    
22.         
    
23.         Exit Sub
    
24.     End If
    
25. 
    
26.     ' 查找TextBox48对应的信息并填充到TextBox中
    
27.    
    
28.     Set rng48 = Sheet2.Range("A:A").Find(searchValue48, LookIn:=xlValues, LookAt:=xlWhole)
    
29.    
    
30.     If rng48 Is Nothing Then
    
31.    
    
32.         MsgBox "你搜索的工艺不存在（新工艺编号）", vbInformation
    
33.         
    
34.         Exit Sub
    
35.         
    
36.     End If
    
37. 
    
38.     ' 填充数据到文本框
    
39.     For i = 1 To 44
    
40.    
    
41.         Me.Controls("TextBox" & i).Text = rng48.Offset(0, i).Value
    
42.         Me.Controls("TextBox" & i).BackColor = vbButtonFace ' 重置背景色
    
43.         Me.Controls("TextBox" & i).ForeColor = vbBlue ' 重置前景色
    
44.         
    
45.     Next i
    
46. 
    
47.     ' 查找TextBox46对应的信息并对比
    
48.    
    
49.     Set rng46 = Sheet2.Range("A:A").Find(searchValue46, LookIn:=xlValues, LookAt:=xlWhole)
    
50.     If rng46 Is Nothing Then
    
51.    
    
52.         MsgBox "你搜索的工艺不存在（现有工艺编号）", vbInformation
    
53.         
    
54.         Exit Sub
    
55.         
    
56.     End If
    
57. 
    
58.     ' 对比TextBox48和TextBox46的信息，并设置背景色
    
59.     For i = 1 To 43
    
60.    
    
61.         If rng46.Offset(0, i).Value <> rng48.Offset(0, i).Value Then
    
62.         
    
63.             Me.Controls("TextBox" & i).ForeColor = vbRed
    
64.             
    
65.         End If
    
66.     Next i
    
67. 
    
68.     ' 加载图片
    
69.     folderPath = ThisWorkbook.Path & "\照片"
    
70.    
    
71.     fileName = Dir(folderPath & "" & searchValue48 & ".JPG")
    
72.    
    
73.     If fileName <> "" Then
    
74.    
    
75.         photoPath = folderPath & "" & fileName
    
76.         
    
77.         UserForm1.Image1.Picture = LoadPicture(photoPath)
    
78.         
    
79.         UserForm1.Image1.PictureSizeMode = fmPictureSizeModeStretch
    
80.         
    
81.     Else
    
82.         UserForm1.Image1.Picture = Nothing
    
83.     End If
    
84. End Sub

复制代码

大灰狼1976

重写了啊，明白了