求助：找不到工程或库

qujing342

这是坛子里一位老师分享的，下载后解压后，打开运行时总提示：找不到工程或库
请家人们帮忙看看是哪里出了问题，并给予修正，谢谢！

quqiyuan

好几个没有呢，可能要安装VB才行看，我这里也是缺

qujing342

哪位大师帮忙看看，万分感谢！

ykcbf1100

在VBA界面，引用那里，把无效的引用前面勾去掉，再试试

qujing342

ykcbf1100 发表于 2024-10-17 20:33
在VBA界面，引用那里，把无效的引用前面勾去掉，再试试

，老师，这里有问题

qujing342

Private Sub UserForm_Initialize()
Dim IStyle As Long, Hwnd As Long
Dim arr, ii%, img As New ImageList, xr%, xnod$, mypath$, myfiles$, m%, i%, j%
    '******获取窗口句柄******
    If Val(Application.Version) < 9 Then
        Hwnd = FindWindow("ThunderXFrame", Me.Caption)
    Else
        Hwnd = FindWindow("ThunderDFrame", Me.Caption)
    End If
    '******去除窗体标题栏******
    IStyle = GetWindowLong(Hwnd, GWL_STYLE)
    IStyle = IStyle And Not WS_CAPTION
    SetWindowLong Hwnd, GWL_STYLE, IStyle
    DrawMenuBar Hwnd
    '******去除窗体四周的边框******
    IStyle = GetWindowLong(Hwnd, GWL_EXSTYLE) And Not WS_EX_DLGMODALFRAME
    SetWindowLong Hwnd, GWL_EXSTYLE, IStyle
On Error Resume Next
arr = Array("肉食品", "蔬菜", "蛋奶品", "粮食", "水产品", "食用油", "调料", "其他")

img.ListImages.Add , "kk", LoadPicture(ThisWorkbook.Path & "\lg.jpg") '添加KEY为KK的图片
m = 2
    mypath = ThisWorkbook.Path & "\菜品\"
     myfiles = Dir(mypath & "*.jpg")
      Do While myfiles <> ""
         img.ListImages.Add , """" & Mid(myfiles, 1, Len(myfiles) - 4) & """", LoadPicture(mypath & myfiles)
         m = m + 1
          myfiles = Dir
           Loop
m = 2
Set TreeView1.ImageList = img
TreeView1.Nodes.Clear
With Sheets("常用菜品信息")
  For i = 1 To 8
        xnod = .Cells(1, i)
         TreeView1.Nodes.Add , , xnod, xnod, "kk" '添加KEY为KK的图片
       xr = .Cells(100, i).End(xlUp).Row
        For j = 2 To xr
         
          TreeView1.Nodes.Add xnod, 4, .Cells(j, i), .Cells(j, i), """" & .Cells(j, i) & """" '利用KEY添加图片
          ' m = m + 1
           Next
            Next
             End With
End Sub

ykcbf1100

qujing342 发表于 2024-10-17 20:54
，老师，这里有问题

我看不懂。。。

天真无鞋

qujing342 发表于 2024-10-17 20:54
，老师，这里有问题

VBA介面，最上面一排，你看有一个引用，把那个引用点开看。