在Vb6中找不到编译错误方法或数据成员如何修复 [英] Compile Error Method Or Data Member Not Found In Vb6 How Can I Fix

问题描述

Dim countertitle As Integer
Dim title As String
Dim titledance As String

Private Sub Form_Load()
title = "MSUN-IDS Enrolment System"
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
picWall_Move
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Dim a As String
a = MsgBox("Are you sure you want to exit?", vbQuestion + vbYesNo, "HSES")
If a = vbYes Then
    Cancel = 0
    Unload Me
Else
    Cancel = 1
End If
End Sub

Private Sub picBox1_Click()
Dim registrar As Variant
registrar = Shell(App.Path & "\Registrar Module.exe", vbNormalFocus)
End Sub

Private Sub picBox1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
picBox1.Picture = imgBox1.ListImages(1).Picture
Label2.Caption = "Registrar Module"
End Sub
Private Sub picWall_Move()
        picBox1.Picture = imgBox0.ListImages(1).Picture
        picBox2.Picture = imgBox0.ListImages(2).Picture
        picBox3.Picture = imgBox0.ListImages(3).Picture
        Picture1.Picture = imgBox0.ListImages(3).Picture
        Picture2.Picture = imgBox0.ListImages(2).Picture
        Label2.Caption = ""
End Sub

Private Sub picBox2_Click()
Dim Cashier As Variant
Cashier = Shell(App.Path & "\Cashier Module.exe", vbNormalFocus)
End Sub

Private Sub picBox2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
picBox2.Picture = imgBox1.ListImages(2).Picture
Label2.Caption = "Cashier Module"
End Sub

Private Sub picBox3_Click()
Dim enrollment As Variant
enrollment = Shell(App.Path & "\Enrollment Module.exe", vbNormalFocus)
End Sub

Private Sub picBox3_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
picBox3.Picture = imgBox1.ListImages(3).Picture
Label2.Caption = "Enrollment Module"
End Sub

Private Sub Picture1_Click()
Dim Grader As Variant
Grader = Shell(App.Path & "\Grader Module.exe", vbNormalFocus)
End Sub

Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Picture1.Picture = imgBox1.ListImages(5).Picture
Label2.Caption = "Grader Module"
End Sub

Private Sub Picture2_Click()
Dim admin As Variant
admin = Shell(App.Path & "\Administrative Module.exe", vbNormalFocus)
End Sub

Private Sub Picture2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Picture2.Picture = imgBox1.ListImages(4).Picture
Label2.Caption = "Administrative Module"
Exit Sub
End Sub

Private Sub Timer1_Timer()
titledance = Left(title, countertitle)
Me.Caption = titledance
countertitle = countertitle + 1
If countertitle >= Len(title) + 3 Then
    countertitle = 1
    titledance = ""
End If
End Sub

在vb6中找不到编译错误方法或数据成员如何修复

Compile error method or data member not found in vb6 how can i fix

推荐答案

请提供行号



我认为你在另一个页面或mod中有错误与上述代码相关的内容......

请检查代码。

对于Shell功能，您可以查看以下链接。



http：// msdn。 microsoft.com/en-us/library/xe736fyk%28v=vs.90%29.aspx [ ^ ]

引用：

picBox1.Picture = imgBox0.ListImages（1）。图片这一行给出了错误

picBox1.Picture = imgBox0.ListImages(1).Picture this line is giving the error

据我所知 ListImages 没有图片属性。尝试删除.Picture

As far as know ListImages does not have a Picture property. Try removing the .Picture

这篇关于在Vb6中找不到编译错误方法或数据成员如何修复的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！