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
帮我改改 我总觉得有问题 Type ID number As Single score As Integer name As String * 6 End Type Dim personl As ID, i% Private Sub Command1_Click() i = 0 &nbs ......
我在类中有一个函数 Public Function DownloadAdditionalSite(SiteName As siteconfig, Directory As String, ymd As String) As Boolean siteconfig是我自定义类型的数据，为什么会提示“只有在公共对象模块中� ......
