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 * * ------------------------------------------------------------------------------ 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