🚀 go-pugleaf

Beste,

Ik ben een VB programma aan het schrijven dat dienst moet doen als een
arbeidsinteresse test voor mensen met een handicap.
De gebruiker krijgt 50 maal 3 verschillende foto's te zien waaruit hij er
telkens ��n uitkiest.  Elke foto behoort tot een werkgebied en in functie
van de keuze wordt er naar Excel een quotering geschreven in het betreffende
werkgebied.  Dit wegschrijven vraagt enkele seconden.  Dit heeft tot gevolg
dat de gebruiker even moet wachten.  Op zich geen probleem als de gebruiker
maar geduld heeft.  Als dit niet het geval is en hij / zij klikt opnieuw
voor de volgende reeks van 3 foto's zichtbaar is, dan klikt hij / zij een
foto aan die nog niet zichtbaar geweest is.  Dit kan natuurlijk een vals
beeld geven over de interesse van de gebruiker.

Wie kan mij helpen om dit probleem op te lossen?
Zelf had ik gedacht aan het inactief maken van de klikmogelijkheid van de
muis,  maar hoe doe ik dat?

Alvast bedankt.

Fons
ter info
Private Sub ImgA_Click()

    If txtVordering.Text = 201 Then
        ImgA.Visible = False
        Exit Sub
    End If

    If txtWaardeScore.Text = Empty Then
        Exit Sub
    Else
        ImgA.Visible = False
       'klikken bevriezen, maar hoe?
       Control.Enabled = False

        varPathScore = "c:\AiTest.Int\AiTscore\AiTScore.xls"
        Set xl_Toep = CreateObject("Excel.Application")
        Set xl_Map = xl_Toep.Workbooks.Open("c:\AiTest.Int\AiTscore\" &
lblKandidaatnaam.Caption)
        Set xl_BladA = xl_Map.Sheets("Vordering")
        Set xl_BladB = xl_Map.Sheets("Score")

        xl_BladB.Range(txtLokScoreA.Text).Value = txtWaardeScore.Text
        xl_BladA.Range(txtLokKeuzeA.Text).Value = txtLokKeuzeA.Text
        txtWaardeScore.Text = Empty
        'Bewaar
        xl_Map.Save
        'sluit Excel
        xl_Map.Close
        xl_Toep.Quit
        Call cmdNext_Click
        Control.Enabled = True
    End If

End Sub