Vba excel ошибка 361

• 
• VBForums
• Visual Basic
• Visual Basic 6 and Earlier
• VB6 Run Time Error 361 Can’t Load or unload this object

1. May 13th, 2020, 01:40 PM

   #1

   

   Thread Starter

   
   New Member
   

   

   ---

   VB6 Run Time Error 361 Can’t Load or unload this object
   

   Hey guys, Im in process of making memory game, I followed video instructions but I can get it to work Im getting an error

   Code:

   Run Time Error 361 Can't Load or unload this object

   and it points to

   Code:

   Load btnChoice(intNextNumber)

   And here is my code

   Code:

   Option Explicit
   
   'Variable to Check Playing Turn
       Private boolFirstChoice As Boolean
   
   'Variable For Previous Index Chosen
       Private intFirstChoice As Integer
   
   'Variable For Comparing Choices
       Private astrChoice(1 To 2) As String
   
   'Variable For Keeping Pictures Visable
       Private aboolVisablePositions(1 To 8) As Boolean
   
   'Note: Take Note Of The Properties On The Button And Image Boxes
   
   Private Sub Form_Load()
   
   'Declare
       Dim intNextNumber As Integer 'Loop
   
   
   'Load 8 Buttins And 8 Image Boxes
       For intNextNumber = 1 To 8
           Load btnChoice(intNextNumber)
           Load imgPicture(intNextNumber)
       Next
   
   'Move The Buttons And Image Boxes
       Call MoveControls(btnChoice)
       Call MoveControls(imgPicture)
   
   'Make All Buttons Visable
       For intNextNumber = 1 To 8
       btnChoice(intNextNumber).Visable = True
       Next
   
   'Set The Randomize Generator
       Randomize
   
   'Declare Temporary
       Dim aintRandomNumber(1 To 8) As Integer
   
   'Get Random Numbers
       Call GetRandomNumbers(aintRandomNumber)
   
   'Load The Pictures
   
       For intNextNumber = 1 To 8
           Select Case aintRandomNumber(intNextNumber)
               Case 1, 2 'Santa
                   imgPicture(intNextNumber).Picture = _
                       LoadPicture(App.Path & "Santa.jpg")
                   'Set Tag
                    imgPicture(intNextNumber).Tag = "Santa"
               Case 3, 4 'Gifts
                   imgPicture(intNextNumber).Picture = _
                       LoadPicture(App.Path & "Gifts.jpg")
                   'Set Tag
                    imgPicture(intNextNumber).Tag = "Gifts"
               Case 5, 6 'Rudolph
                   imgPicture(intNextNumber).Picture = _
                       LoadPicture(App.Path & "Rudolph.jpg")
                   'Set Tag
                    imgPicture(intNextNumber).Tag = "Rudoplph"
               Case 7, 8 'ChristmasTree
                   imgPicture(intNextNumber).Picture = _
                       LoadPicture(App.Path & "ChristmasTree.jpg")
                   'Set Tag
                    imgPicture(intNextNumber).Tag = "ChristmasTree"
            End Select
       Next
   
   End Sub
                    
   
   Private Sub MoveControls(objControl As Object)
   
   'Move Controls
       objControl(1).Move 8, 8
       objControl(2).Move 168, 8
       objControl(3).Move 328, 8
       objControl(4).Move 488, 8
       objControl(5).Move 8, 160
       objControl(6).Move 168, 160
       objControl(7).Move 328, 160
       objControl(8).Move 488, 160
   
   End Sub
   
   Private Sub GetRandomNumbers(aintRandomNumber() As Integer)
   
   ' Pick A Random Nuber 1 Trough 8
       aintRandomNumber(1) = CInt((Rnd * 7) + 1)
   
   'Pick A Different Number
       Do Until aintRandomNumber(2) <> aintRandomNumber(1) _
       And aintRandomNumber(2) <> 0
           aintRandomNumber(2) = CInt((Rnd * 7) + 1)
       Loop
   
   'Pick A Different Number
       Do Until aintRandomNumber(3) <> aintRandomNumber(2) _
       And aintRandomNumber(3) <> aintRandomNumber(1) _
       And aintRandomNumber(3) <> 0
       aintRandomNumber(3) = CInt((Rnd * 7) + 1)
   
   'Pick A Different Number
       Do Until aintRandomNumber(4) <> aintRandomNumber(3) _
       And aintRandomNumber(4) <> aintRandomNumber(2) _
       And aintRandomNumber(4) <> aintRandomNumber(1) _
       And aintRandomNumber(4) <> 0
           aintRandomNumber(4) = CInt((Rnd * 7) + 1)
       Loop
   
   'Pick A Different Number
       Do Until aintRandomNumber(5) <> aintRandomNumber(4) _
       And aintRandomNumber(5) <> aintRandomNumber(3) _
       And aintRandomNumber(5) <> aintRandomNumber(2) _
       And aintRandomNumber(5) <> aintRandomNumber(1) _
       And aintRandomNumber(5) <> 0
           aintRandomNumber(5) = CInt((Rnd * 7) + 1)
       Loop
   
   'Pick A Different Number
       Do Until aintRandomNumber(6) <> aintRandomNumber(5) _
       And aintRandomNumber(6) <> aintRandomNumber(4) _
       And aintRandomNumber(6) <> aintRandomNumber(3) _
       And aintRandomNumber(6) <> aintRandomNumber(2) _
       And aintRandomNumber(6) <> aintRandomNumber(1) _
       And aintRandomNumber(6) <> 0
           aintRandomNumber(6) = CInt((Rnd * 7) + 1)
       Loop
   
   'Pick A Different Number
       Do Until aintRandomNumber(7) <> aintRandomNumber(6) _
       And aintRandomNumber(7) <> aintRandomNumber(5) _
       And aintRandomNumber(7) <> aintRandomNumber(4) _
       And aintRandomNumber(7) <> aintRandomNumber(3) _
       And aintRandomNumber(7) <> aintRandomNumber(2) _
       And aintRandomNumber(7) <> aintRandomNumber(1) _
       And aintRandomNumber(7) <> 0
           aintRandomNumber(7) = CInt((Rnd * 7) + 1)
       Loop
   
   'Pick A Different Number
       Do Until aintRandomNumber(8) <> aintRandomNumber(7) _
       And aintRandomNumber(8) <> aintRandomNumber(6) _
       And aintRandomNumber(8) <> aintRandomNumber(5) _
       And aintRandomNumber(8) <> aintRandomNumber(4) _
       And aintRandomNumber(8) <> aintRandomNumber(3) _
       And aintRandomNumber(8) <> aintRandomNumber(2) _
       And aintRandomNumber(8) <> aintRandomNumber(1) _
       And aintRandomNumber(8) <> 0
           aintRandomNumber(8) = CInt((Rnd * 7) + 1)
       Loop
   
   End Sub
   
   Private Sub btnChoice_Click(Index As Integer)
   
   'Check Turn
       If boolFirstChoice = False Then
           astrChoices(1) = imgPicture(Index).Tag
           intFirstChoice = Index
           boolFirstChoice = True
       Else
           astrChoices(2) = imgPicture(Index).Tag
           boolFirstChoice = False
       End If
   
   'Visable Image Behind Button
       btnChoice(Index).Vasable = False
       imgPixture(Index).Visable = True
   
   'Replay  For Second Choice
   
       If boolFirstChoice = False Then
           'MsgBox The Player
           If astrChoice(1) = astrChoice(2) Then
           aboolVisablePositions(intFirstChoice) = True
           aboolVisablePositions(Index) = True
               MsgBox "Matched"
           Else
               MsgBox "Not matched"
           End If
           'Undo Choice
           Call UndoChoice
       End If
   
   'If All Positions Are Visable Exit Program
       If AllPostionsVisable = True Then
           MsgBox "Game done"
           End
       End If
   End Sub
   
   Private Sub UndoChoice()
   
   'Declare
       Dim intNextNumber As Integer
   
   'Show All Buttons
       For intNextNumber = 1 To 8
           If btnChoice(intNextNumber).Visable = False _
           And aboolVisablePostions(intNextNumber) = False Then
               btnChoice(intNextNumber).Visable = True
               imgPixture(intNextNumber).Visable = False
           End If
       Next
   
   End Sub
   
   Private Function AllPositionsVisable() As Boolean
   
   'Declare
       Dim intNextNumber As Integer
   'Check All positions
       For intNextNumber = 1 To 8
           If aboolVisablePosition(intNextNumber) = False Then
               AllPositionsVisable = False
               Exit Function
           End If
       Next
   'Return
       AllPositionsVisable = True
   End Function
   
   
   'Declare
       Dim intNextNumber As Integer
   Replay
   'Check All positions
       For intNextNumber = 1 To 8
           If aboolVisablePostions(intNextNumber) = False Then
               AllPositionsVisable = False
               Exit Function
           End If
       Next
   'Return Function
       AllPositionsVisable = True
   
   End Function
   
   Private Sub Form_Unload(Cancel As Integer)
   
   'Empty Form Memory
       Set frmMemoryGame = Nothing
   End Sub

   ---

2. May 13th, 2020, 03:07 PM

   #2

   Re: VB6 Run Time Error 361 Can’t Load or unload this object
   

   Didn’t download your project. Ensure btnChoice & imgPicture are indexed. In their property sheets, set Index property to zero.

   This is not the correct place for posting general VB questions. A moderator will likely move this thread.

   Welcome to the forums

   ---

3. May 13th, 2020, 03:35 PM

   #3

   

   Thread Starter

   
   New Member
   

   

   ---

   Re: VB6 Run Time Error 361 Can’t Load or unload this object
   

   Originally Posted by LaVolpe
   

   Didn’t download your project. Ensure btnChoice & imgPicture are indexed. In their property sheets, set Index property to zero.

   This is not the correct place for posting general VB questions. A moderator will likely move this thread.

   Welcome to the forums

   Im not developer can you show me how to index them, I tried to put them = to 0 but its not that

   ---

4. May 13th, 2020, 04:48 PM

   #4

   Re: VB6 Run Time Error 361 Can’t Load or unload this object
   

   In design view. Click on the control. In the property sheet where you set your button’s caption (right hand-side), you will see an «Index» property. Click in its textbox on that property sheet and type in the value 0.

   If you are still having problems, then do this…
   1. Right click on your command button, select Copy
   2. Right click on your form, select Paste
   3. When prompted to create an Indexed array, say yes (can’t recall exactly what the message says)
   4. Delete the copy and your original one will now have an Index of zero
   5. Repeat steps for the image control

   ---

5. May 13th, 2020, 04:59 PM

   #5

   

   Thread Starter

   
   New Member
   

   

   ---

   Re: VB6 Run Time Error 361 Can’t Load or unload this object
   

   Metod or data member not found

   Code:

   btnChoice(intNextNumber).Visable = True

   ---

6. May 13th, 2020, 05:05 PM

   #6

   Re: VB6 Run Time Error 361 Can’t Load or unload this object
   

   It’s a typo, you can just make up property names

   ---

7. May 13th, 2020, 05:09 PM

   #7

   

   Thread Starter

   
   New Member
   

   

   ---

   Re: VB6 Run Time Error 361 Can’t Load or unload this object
   

   I dont understand where did I make typo

   ---

8. May 13th, 2020, 05:12 PM

   #8

   Re: VB6 Run Time Error 361 Can’t Load or unload this object
   

   ---

9. May 13th, 2020, 05:24 PM

   #9

   

   Thread Starter

   
   New Member
   

   

   ---

   Re: VB6 Run Time Error 361 Can’t Load or unload this object
   

   Tnx wqweto, now I have

   Code:

   Compile error: Do without Loop

   and I have indicated

   ---

10. May 13th, 2020, 05:25 PM

    #10

    

    Thread Starter

    
    New Member
    

    

    ---

    Re: VB6 Run Time Error 361 Can’t Load or unload this object
    

    Thanks for helping me out guys

    ---

11. May 13th, 2020, 05:28 PM

    #11

    Re: VB6 Run Time Error 361 Can’t Load or unload this object
    

    As the error indicates, you have a Do statement without a corresponding Loop statement. If you look through your code it shouldn’t be too hard to find.

    ---

12. May 13th, 2020, 05:37 PM

    #12

    

    Thread Starter

    
    New Member
    

    

    ---

    Re: VB6 Run Time Error 361 Can’t Load or unload this object
    

    Aha great tnx, now I have

    Code:

    Only comment may appear after End Sub, End Function, or End Property

    ---

13. May 13th, 2020, 05:38 PM

    #13

    

    Thread Starter

    
    New Member
    

    

    ---

    Re: VB6 Run Time Error 361 Can’t Load or unload this object
    

    It shows

    Code:

        If boolFirstChoice = False Then

    indicated

    and here is snippet

    Code:

        Loop
    
    End Sub
    
    
    'Check Turn
        If boolFirstChoice = False Then
            astrChoices(1) = imgPicture(Index).Tag
            intFirstChoice = Index
            boolFirstChoice = True

    ---

14. May 13th, 2020, 05:40 PM

    #14

    Re: VB6 Run Time Error 361 Can’t Load or unload this object
    

    Yes, and just like the previous error message, what you are being told is a very descriptive and straightforward explanation of what the problem is.

    Good luck.

    ---

15. May 13th, 2020, 05:42 PM

    #15

    

    Thread Starter

    
    New Member
    

    

    ---

    Re: VB6 Run Time Error 361 Can’t Load or unload this object
    

    Originally Posted by OptionBase1
    

    Yes, and just like the previous error message, what you are being told is a very descriptive and straightforward explanation of what the problem is.

    Good luck.

    but comment is behind End Sub

    ---

16. May 13th, 2020, 05:47 PM

    #16

    Re: VB6 Run Time Error 361 Can’t Load or unload this object
    

    «Only comment may appear after End Sub, End Function, or End Property» means that comments are *ok* after End Sub. Only these are ok. If statements are not ok.

    cheers,
    </wqw>

    ---

17. May 13th, 2020, 06:04 PM

    #17

    Re: VB6 Run Time Error 361 Can’t Load or unload this object
    

    Originally Posted by Vido
    

    but comment is behind End Sub

    A sub example looks like this

    Code:

    Private Sub SubName(parameters if any)
     ... code
    End Sub

    A function example looks like this

    Code:

    Private Function FunctionName(parameters if any) As Long
     ... code
    End Function

    Only executable code can go between the start/end of the method
    Between the end of one method and the start of another method, only comments may appear. If a line is not a comment, it’s executable.

    You said you are not a developer, however you are creating a game. Consider yourself a developer. You need to learn some basics. People here will help, but I doubt many are going to continue to give you copy & paste code without you understanding a bit first.

    ---

18. May 14th, 2020, 06:25 AM

    #18

    

    Thread Starter

    
    New Member
    

    

    ---

    Re: VB6 Run Time Error 361 Can’t Load or unload this object
    

    Hey all
    I checked my code once again but it does not work basicly when I click button I get

    Code:

    Compile error
    Variable not defined

    and this code marked

    Code:

        If AllPostionsVisible = True Then

    ---

19. May 14th, 2020, 06:47 AM

    #19

    Re: VB6 Run Time Error 361 Can’t Load or unload this object
    

    Check the spelling of AllPostionsVisible

    ---

20. May 14th, 2020, 07:07 AM

    #20

    

    Thread Starter

    
    New Member
    

    

    ---

    Re: VB6 Run Time Error 361 Can’t Load or unload this object
    

    Ah typo again tnx, now I’m getting

    Code:

    Run Time Error 360
    Object Already Loaded

    And marked code is

    Code:

    Load imgPicture(intNextNumber)

    ---

21. May 14th, 2020, 11:20 AM

    #21

    Re: VB6 Run Time Error 361 Can’t Load or unload this object
    

    When the error occurs, hover over the variable. VB will display the value in a tool tip. The error is self-explanatory however.

    If you are dynamically loading controls and also dynamically unloading them, then you have an error in your logic somewhere which is leaving one or more loaded. If you are are resetting the gameboard, you need to unload the controls that you have dynamically loaded before you can re-load them again — else an error like that happens.

    Tip: When VB errors occur, google it, like: «Object Already Loaded error 360 MSDN». One of the first hits, should be a link where Microsoft explains what their errors mean.

    ---

22. May 14th, 2020, 02:38 PM

    #22

    

    Thread Starter

    
    New Member
    

    

    ---

    Re: VB6 Run Time Error 361 Can’t Load or unload this object
    

    Thank you all guys you have great community here

    ---

• 
• VBForums
• Visual Basic
• Visual Basic 6 and Earlier
• VB6 Run Time Error 361 Can’t Load or unload this object

Posting Permissions