:ciao:
Come dicevo non è particolarmente difficile, per esempio potresti creare un nuovo progetto qt.gui intitolato GuardaCodice, poi in Progetto > Proprietà > Componenti aggiungi gb.form.editor.
Nella Fmain.form disegni TextEditor1 e scrivi questo codice:
Public Sub Form_Open()
TextEditor1.Highlight = "gambas"
End
Quindi dai Progetto > Crea eseguibile, salva e chiudi.
Apri un progetto che abbia un po di codice vario e lo copi (Ctrl+C) poi apri GuardaCodice.gambas e ci incolli (Ctrl+V) il codice copiato.
Volendo lo si potrebbe fare un po più complicato... ;D
Scherzi scemi a parte se si conoscesse il codice che c'è dietro questo widget saremmo a cavallo e potremmo utilizzarlo per copiare su Libre Office.
Comunque già così se aggiungiamo la stampa su pdf...
:ciao: :ciao:
Direi che, senza stare a fare troppo il difficile, se uno desidera usare il codice bas così come è basta creare un nuovo progetto grafico aggiungervi spuntandolo il componente gb.eval e incollare questo codice ad una semplice finestra con un pulsante:
Public Sub Button1_Click()
Dim sPath, s, k As String
For Each s In System.Keywords
k &= s & "\n"
Next
sPath = User.Home &/ "MacroMia"
If Not Exist(sPath) Then Mkdir sPath
Dialog.Title = "Save a file"
Dialog.Filter = ["*.txt;", "Text files"]
Dialog.Path = sPath &/ "GambasKey.txt"
If Dialog.SaveFile() Then Return
File.Save(Dialog.Path, k)
End
Naturalmente vale sempre quanto qui (http://www.gambas-it.org/smf/index.php?topic=3545.msg37943#msg37943) detto.
:ciao: :ciao: