Option Explicit Dim i&, AppDisk$ Private Sub Form_Load() AppDisk = IIf(Right(App.Path, 1) = "\", App.Path, App.Path & "\") For i = 1 To 6 Combo1.AddItem CStr(i) Next i End Sub
Private Sub Combo1_Click() Image1.Picture = LoadPicture(AppDisk & "Pintu" & Combo1.Text & ".gif") End Sub
我在类中有一个函数 Public Function DownloadAdditionalSite(SiteName As siteconfig, Directory As String, ymd As String) As Boolean siteconfig是我自定义类型的数据，为什么会提示“只有在公共对象模块中� ......
报这个错: compile Error sub or function not defined 和我引用这个库函数有关系吗？ Private Declare Function GetPrivateProfileString Lib "kernel32" Alias _ "GetPrivatePr ......
