Norarg wrote: > Hi, > > I have a problem with the clipboard, > using ubuntu 9.10, gambas 2.13 > > following code works ONE time: > > PUBLIC SUB CLIP_B_Click() > DIM S AS String > DIM I AS Integer > DIM TR AS Result > TR = M.ReadRecord(OPVDM!tabelle, OPVDM!TBID, OPVDM!TBIDWert) > IF TR.Count = 0 THEN > Message.Info("Daten nicht gefunden", "Ok") > RETURN > ENDIF > Clipboard.Clear > S = "Datenausgabe " & OPVDM!betreff & CRLF > S = S & String(75, "_") & CRLF > S = S & Left("Feld" & String(25, " "), 25) & Left("Wert" & String(40, > " "), 40) & "Datentyp" & CRLF > S = S & String(75, "_") & CRLF > OPVDF.MoveFirst > TR.MoveFirst > FOR I = 1 TO OPVDF.Count > S = S & Left(OPVDF!feldbezeichnung & String(25, " "), 25) > S = S & Left(TR[OPVDF!feldname] & String(50, " "), 40) > S = S & OPVDF!feldtyp & CRLF > OPVDF.MoveNext > NEXT > S = S & String(75, "_") & CRLF > Clipboard.Copy(S) > END > > I am sure there is no data-problem, the print of S is ok. > The second time I call this procedure, I get a message in the direct-window: > > *QClipboard: cannot transfer data, no data available > * > I hope someone can help me with this. Oh, I also tried the following, to > get sure nothing is wrong with the string (removed all data): > > PUBLIC SUB CLIP_B_Click() > DIM S AS String > Clipboard.Clear > S = "Datenausgabe " & CRLF > S = S & String(75, "_") & CRLF > S = S & Left("Feld" & String(25, " "), 25) & Left("Wert" & String(40, > " "), 40) & "Datentyp" & CRLF > S = S & String(75, "_") & CRLF > S = S & String(75, "_") & CRLF > Clipboard.Copy(S) > END > > CRLF ist just CHR(10) > > Same error. > > Thanks in advance >
Just put a WAIT after Clipboard.Clear and it will be ok. Clipboard.Clear WAIT Regards Les Hardy ------------------------------------------------------------------------------ Return on Information: Google Enterprise Search pays you back Get the facts. http://p.sf.net/sfu/google-dev2dev _______________________________________________ Gambas-user mailing list Gambas-user@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/gambas-user