Op deze website gebruiken we cookies om content en advertenties te personaliseren, om functies voor social media te bieden en om ons websiteverkeer te analyseren. Ook delen we informatie over uw gebruik van onze site met onze partners voor social media, adverteren en analyse. Deze partners kunnen deze gegevens combineren met andere informatie die u aan ze heeft verstrekt of die ze hebben verzameld op basis van uw gebruik van hun services. Meer informatie.

Akkoord

Vraag & Antwoord

Programmeren

[vb6]Yathzee bouwen probleem

schot*
2 antwoorden
  • Ik ben op dit moment voor school yathzee aan het bouwen maar het wil nog niet helemaal goed gaan. Ik heb tot nu toe de volgende code:

    Private Sub cmdGooien_Click()
    Dim i As Long

    Dim bolDice(4), bolRolled, bolRegret As Boolean
    Dim functionrand As Byte
    Dim een As Integer
    Dim twee As Integer
    Dim drie As Integer
    Dim vier As Integer
    Dim vijf As Integer
    Dim zes As Integer

    Randomize
    Do Until Response = vbNo
    i = Int((6 * Rnd) + 1) 'Random nummer tussen 1 en 6 genereren
    MsgBox i
    Response = MsgBox("Rol Again?", vbYesNo)
    Loop

    Set Picture = LoadPicture("1.BMP")
    Set Picture1.Picture = LoadPicture("1.BMP")

    End Sub

    Ik heb echter een probleem met het volgende gedeelde van de code:

    Method or data member not found (Error 461) (ik heb geprobeerd met de MSDN helpfiles het op te lossen maar dit is me helaas niet gelukt).


    De fout zit in deze zin van de code:

    Set Picture1.Picture = LoadPicture("1.BMP"). Het .picture mag kenenlijk niet maar ik weet niet welke ik nu moet gebruiken. Iemand een idee???
  • Jouw code gebruikt beide keren Set:
    [code:1:c62478c3d3]
    Set Picture = LoadPicture("1.BMP")
    Set Picture1.Picture = LoadPicture("1.BMP")
    [/code:1:c62478c3d3]

    Set gebruik je als je een variabele naar een specifiek object wilt laten verwijzen. Tijdens de declaratie (met bijv. Dim) van je variabele declareer je de variabele maar laat je deze nog niet naar het daadwerkelijke object verwijzen. Dit doe je later met Set.

    Helaas staat er een fout in de MSDN help (want ik zag dat je het voorbeeld hebt overgenomen), want Set moet je in dit geval niet gebruiken.

    Verander je code als volgt:
    [code:1:c62478c3d3]
    Picture1.Picture = LoadPicture("1.BMP")
    [/code:1:c62478c3d3]

    Veel succes!

Beantwoord deze vraag

Dit is een gearchiveerde pagina. Antwoorden is niet meer mogelijk.