Runtime error '521' Can't open clipboard

Jeg er indtil videre kommet frem til hvordan jeg laver min popup besked men ved ikke lige hvad mere jeg skal gøre ved den? eller om den egnentlig er rigtig nok?

        strMsg = MsgBox("Clipboard er optaget! Prøv igen?", _
        vbRetryCancel + vbInformation, "Clipboard optaget")

Men hvis der er andre måder at løse problemet på end den der "error-trap" så er jeg åben for forslag :)

Du bruger dette i toppen:

On Error Resume Next

Derefter kan du bruge:

If Err.Number = 521 then
        strMsg = MsgBox("Clipboard er optaget! Prøv igen?", _
        vbRetryCancel + vbInformation, "Clipboard optaget")
End if

PS "i toppen" = i toppen af sub/function hvorfra du vil "error-trap'pe".

mener du at jeg i "toppen" indsætter:

On Error Resume Next

If Err.Number = 521 then
        strMsg = MsgBox("Clipboard er optaget! Prøv igen?", _
        vbRetryCancel + vbInformation, "Clipboard optaget")
End if

eller hvor mener du jeg skal indsætte:
If Err.Number = 521 then
        strMsg = MsgBox("Clipboard er optaget! Prøv igen?", _
        vbRetryCancel + vbInformation, "Clipboard optaget")
End if
?

"On Error Resume Next" fortæller programmet, at den skal fortsætte ("Resume Next"), selvom der er fejl. Det skal bare stå i toppen af dine subs/functions.

Du kan også få den til at hoppe ned, til en speciel "Error Handler"-rutine:

On Error GoTo MinErrorHandler

' din almindelige kode her
' din almindelige kode her
' din almindelige kode her
' din almindelige kode her
' din almindelige kode her

exit sub ' eller exit function
MinErrorHandler:

If Err.Number = 521 then
' skriv noget og hop ud af sub/function
End if


--

Du kan også gøre sådan her:

On Error Resume next


' din almindelige kode her
' din almindelige kode her

If Err.Number = 521 then

' der er opstået en fejl, med koden 521,
' hvilket betyder at den IKKE skal udføre din kode

else

' udfør din kode

end if

Hvad bruger du til at sætte billedet i clipboard?

Clipboard.SetData?

Eksempel:

On Error Resume Next

SaetData:
Clipboard.SetData <billedet her>


If Err.Number = 521 then

  strMsg = MsgBox("Clipboard er optaget! Prøv igen?", _
  vbRetryCancel + vbInformation, "Clipboard optaget")

  if strMsg = EnBestemtVærdi then Goto SaetData

End if

Linien "if strMsg = EnBestemtVærdi then Goto SaetData" tester værdien af strMsg, dvs, hvilken knap (Ja/Nej/OK/Cancel) der er trykket.. hvis den er Ja/OK, hopper den over til SaetData-label/etikette, og udfør ClipBoard-koden igen..

Jeg mener at "Ja" er kode 7.. ellers er det kode 6.. kan ikke lige huske det..
Og husker ikke lige om "then Goto SaetData"-delen er korrekt.

min kode er lidt lang.. da den looper gennenm flere smiley tegn:
-----------------------------------------------------------------------------
    For i = 0 To imgIcon.Count - 1
        CharCombo = Split(imgIcon(i).Tag, " ")
                                                   
        For iCC = 0 To UBound(CharCombo)

            lImagePos = InStr(lStartMessage, txtIn.Text, CharCombo(iCC))


            While lImagePos > 0
                txtIn.SelStart = lImagePos - 1
                txtIn.SelLength = Len(CharCombo(iCC))
                txtIn.SelText = ""
               
                Clipboard.Clear
                Clipboard.SetData imgIcon(i).Picture
                SendMessage txtIn.hWnd, WM_PASTE, 0, 0
               
                lImagePos = InStr(lImagePos, txtIn.Text, CharCombo(iCC))
            Wend
        Next iCC
    Next i
-----------------------------------------------------------------------------

Jeg har fået indsat det første det der on error resume next osv. Men den popper ikke op med en retry boks.
Tilgengæld laver den den fejl at hvis jeg skrive fra 1 vindue hele tiden så viser den kun hver anden smiley i det vindue ejg skriver fra.. hvor den viser alle smileys i den som modtager.. hvis du forstår?

hmm jeg tror at jeg mangler i den der "If error = 521", er at hvis der blvier svaret retry så skal den køre den der image ting igen

hm.. måske hvis jeg sætter det der ovenstående kode ind i en sub for sig og kalder den.. og så kalder den gen hvis der er problemer..

Jeg går ud fra, at fejlen opstår i denne linie: Clipboard.SetData imgIcon(i).Picture
Hvis ja, skal du ha' din IF sætningen lige efter..

men hvordan mon man skal indsætte lablen/etikketen lige før...? :-)

..lyder som en ide :-)

heh.. har lige et spørgsmål.. Hvordan sætter jeg den den kode ind i en sub? og hvordan kalder jeg den?

Skal den hedde f.eks.:

Function ReplaceImages()
eller
Sub ReplaceImages()
eller hvordan?

Og hvordan kalder jeg den?
bare ved at indsætte? Call ReplaceImages ?
Grunden til jeg spørger er fordi at jeg ikke helt kan få den til at lave smileys nu :(

skriver lige noget kode..

Prøv det her (det er IKKE testet!):

' din kode her... indtil:


                        While lImagePos > 0
                txtIn.SelStart = lImagePos - 1
                txtIn.SelLength = Len(CharCombo(iCC))
                txtIn.SelText = ""
               
                Clipboard.Clear
                Clipboard.SetData imgIcon(i).Picture
                if Err.Number = 512 then RepImg imgIcon(i).Picture
                SendMessage txtIn.hWnd, WM_PASTE, 0, 0
               
                lImagePos = InStr(lImagePos, txtIn.Text, CharCombo(iCC))
            Wend

' resten af din kode her..

' ny function:

Function RepImg(img)

SaetData:
' Hvis Err.Number hele tiden er 512, vil den blive ved med at loope..
' Jeg ved ikke om man kan "nulstille" Err.Number, men her er et forsøg:
Err.Number = 0 ' hvis dette giver fejl, kommenter/fjern linien.

strMsg = MsgBox("Clipboard er optaget! Prøv igen?", vbRetryCancel + vbInformation, "Clipboard optaget")
' 4 = retry, 2 = cancel
if strMsg = 4 then Clipboard.SetData img
if Err.Msg = 512 then GoTo SaetData

End Function

Oops! Jeg skrev 512 i stede for 521! :-)
Ret det inden du tester :-)

hmm jeg er ikke helt med.. :(
er der ikke en eller anden måde hvor man kan poste hele sin kode?

eh? Hvad er det du ikke forstår?

Det eneste "nye" er:

                Clipboard.SetData imgIcon(i).Picture
                if Err.Number = 521 then RepImg imgIcon(i).Picture

og en funktion

Hvilken del forstår du ikke?

hmm.. Du må undskylde at jeg ikke lige har svaret så hurtigt her til sidst.. har roddet en del med det.. og nu har jeg fået det til at virke..
:) Fik lidt hjælp udefra.. men læg lige et svar for noget en del af det du skrev kunne jeg bruge :)

Så smider jeg bare et svar :-)