19/05/2023: A causa di un errore sono stati cancellati, insieme ad account creati da bot, alcuni account legittimi. Si prega di leggere qui: https://www.gambas-it.org/smf/index.php?topic=9733.0
Visualizza post
Questa sezione ti permette di visualizzare tutti i post inviati da questo utente. N.B: puoi vedere solo i post relativi alle aree dove hai l'accesso.
Ciao Gianluigi
Dove posso scaricare la versione 1.0.1 ...... non trovo più niente...
Ciao a tutti!
Per PdfWriter ci vuole gb.poppler
allora ... non serve per pdfwriter ma per avere l'anteprima del file.
Siccome sono mooolto arruginito, adesso vedo di trovare dove avevo messo le mani.
Di seguito ho provato ad usare il componente gb.poppler......Vuole il percorso e il nome del file pdf da mostrare.
In questo caso l'istruzione hPdf = New PdfDocument mi genera il seguente erroreCodice: [Seleziona]Argomenti non sufficienti (PrintPdf.class:28)Codice: [Seleziona]' Carica il file PDF del documento da mostrare:
hPdf = New PdfDocument("/percorso/del/file.pdf")
Caio a tutti, come al solito passa sempre un mucchio di tempo tra una mia comparsa e l'altra, ma questa volta le cose sono cambiate e penso che sarò più presente nel forum, tornando a bomba da quanto posso capire le routine di PDFWriter non sono più valide?Credo che PDFWriter abbia bisogno di gb.pdf, ma potresti usare gb,report2, qui trovi una lezione sulla nostra wiki:
Credo che il problema nasca dal fatto che il tuo programma usa il componente gb.pdf che è stato sostitiuito da gb.poppler
...
dal menu principale: Progetto/Configurazione dell'eseguibile/Opzioni/ spuntare "Crea un collegamento sul desktop"
Non riesco a leggere tutti i contributi! Sorry
Ma se la domanda è creare un link sul desktop:
dal menu principale: Progetto/Configurazione dell'eseguibile/Opzioni/ spuntare "Crea un collegamento sul desktop"
$ ln -s ecco il malloppo!
Come si può vedere dallo screenshot, nella cartella ho duplicato l'eseguibile "tria.gambas", ed alla copia del file ho tolto l'estensione facendolo diventare "tria1".
Il duplicato ha la stessa dimensione dell'originale (75,1 kB)
Si vede subito che l'icona cambia e se si lancia tria1 mi si apre l'editor di testo anzichè gambas.
Che entrambi i files siano eseguibili lo noti dalla proprietà "rwx" che non si modifica dopo la copia, pertanto a nulla dovrebbe servire il comando che hai suggerito
che va a forzare il flag di esecuzione.
Public Sub Form_Open()
''Buchungsbeispiele
ComboBox4.Sorted = True
ComboBox4.add(" ")
ComboBox4.add(("Bezahlt Stromrechnung"))
ComboBox4.add(("Bezahlt Zeitschrift / Bücher"))
ComboBox4.add(("Bezahlt Königin")) ' Etc...
ComboBox4.add(("Bezahlt Hilfsmittel Königinenzucht"))
ComboBox4.add(("Bezahlt Bienen"))
ComboBox4.add(("Bezahlt Hilfsmittel Bienen"))
ComboBox4.add(("Bezahlt Beute"))
ComboBox4.add(("Bezahlt Rähmchen"))
ComboBox4.add(("Bezahlt Beuten Zubehör"))
ComboBox4.add(("Bezahlt Begattungk ästchen"))
ComboBox4.add(("Bezahlt Futter "))
ComboBox4.add(("Bezahlt Behandlung") & " TAMG")''
ComboBox4.add(("Bezahlt Telefon"))
ComboBox4.add(("Bezahlt Porto"))
ComboBox4.add(("Bezahlt Verpackung"))
ComboBox4.add(("Bezahlt Porto und Verpackung"))''
ComboBox4.add(("Bezahlt Werkstatt Auto"))
ComboBox4.add(("Bezahlt Miete Werkstatt"))
ComboBox4.add(("Bezahlt Pacht Bienenstand"))
ComboBox4.add(("Bezahlt Wasser"))
ComboBox4.add(("Bezahlt Maschine"))
ComboBox4.add(("Bezahlt Werkzeug Werkstatt"))
ComboBox4.add(("Bezahlt Werkzeug Bienen"))
ComboBox4.add(("Bezahlt Kleidung"))
ComboBox4.add(("Bezahlt Werbung"))
ComboBox4.add(("Bezahlt Honiggläser"))
ComboBox4.add(("Bezahlt Etiketten"))
ComboBox4.add(("Bezahlt BSV"))
ComboBox4.add(("Bezahlt Labor"))
ComboBox4.add(("Bezahlt Verein"))
ComboBox4.add(("Bezahlt Berufsgenossenschaft"))
ComboBox4.add(("Bezahlt Versicherungen"))
ComboBox4.add(("Bezahlt Landwirtschaftskasse"))
ComboBox4.add(("Bezahlt Gas"))
ComboBox4.add(("Bezahlt Platzmiete Verkaufsstand"))
ComboBox4.add(("Bezahlt Zubehör Honigproduktion"))
ComboBox4.add(("Bezahlt Instandhaltung Gebäude"))
ComboBox4.add(("Bezahlt Renovierung / Umbau Gebäude"))
ComboBox4.add(("Bezahlt Privatentnahme"))
ComboBox4.add(("Bezahlt sonstige Betriebsmittel"))
'ComboBox4.Foreground = Color.Green
ComboBox4.add((" Verkauf Privateinlage"))
ComboBox4.add((" Verkauf Honig") & " …")
ComboBox4.add((" Verkauf Honig 1 x 250 g Glas") & " …")
ComboBox4.add((" Verkauf Honig 1 X 500 g Glas") & " …")
ComboBox4.add((" Verkauf Bienen"))
ComboBox4.add((" Verkauf Königin"))
End
Public Sub ComboBox4_Click()
Dim iColor As Integer
Dim sText As String = ComboBox4.Text
If Left(sText) = " " Then
iColor = 32768 '65280
Else
iColor = 16711680
Endif
ComboBox4.Foreground = iColor
ComboBox4.Text = LTrim(sText)
End
$ chmod +x <NomeProgramma>Public Sub Form_Open()
''Buchungsbeispiele
ComboBox4.Sorted = True
ComboBox4.add(" ")
ComboBox4.add(("Bezahlt Stromrechnung|Red"))
ComboBox4.add(("Bezahlt Zeitschrift / Bücher|Red"))
ComboBox4.add(("Bezahlt Königin|Red")) ' Etc...
' ComboBox4.add(("Bezahlt Hilfsmittel Königinenzucht"))
' ComboBox4.add(("Bezahlt Bienen"))
' ComboBox4.add(("Bezahlt Hilfsmittel Bienen"))
' ComboBox4.add(("Bezahlt Beute"))
' ComboBox4.add(("Bezahlt Rähmchen"))
' ComboBox4.add(("Bezahlt Beuten Zubehör"))
' ComboBox4.add(("Bezahlt Begattungk ästchen"))
' ComboBox4.add(("Bezahlt Futter "))
' ComboBox4.add(("Bezahlt Behandlung") & " TAMG")''
' ComboBox4.add(("Bezahlt Telefon"))
' ComboBox4.add(("Bezahlt Porto"))
' ComboBox4.add(("Bezahlt Verpackung"))
' ComboBox4.add(("Bezahlt Porto und Verpackung"))''
' ComboBox4.add(("Bezahlt Werkstatt Auto"))
' ComboBox4.add(("Bezahlt Miete Werkstatt"))
' ComboBox4.add(("Bezahlt Pacht Bienenstand"))
' ComboBox4.add(("Bezahlt Wasser"))
' ComboBox4.add(("Bezahlt Maschine"))
' ComboBox4.add(("Bezahlt Werkzeug Werkstatt"))
' ComboBox4.add(("Bezahlt Werkzeug Bienen"))
' ComboBox4.add(("Bezahlt Kleidung"))
' ComboBox4.add(("Bezahlt Werbung"))
' ComboBox4.add(("Bezahlt Honiggläser"))
' ComboBox4.add(("Bezahlt Etiketten"))
' ComboBox4.add(("Bezahlt BSV"))
' ComboBox4.add(("Bezahlt Labor"))
' ComboBox4.add(("Bezahlt Verein"))
' ComboBox4.add(("Bezahlt Berufsgenossenschaft"))
' ComboBox4.add(("Bezahlt Versicherungen"))
' ComboBox4.add(("Bezahlt Landwirtschaftskasse"))
' ComboBox4.add(("Bezahlt Gas"))
' ComboBox4.add(("Bezahlt Platzmiete Verkaufsstand"))
' ComboBox4.add(("Bezahlt Zubehör Honigproduktion"))
' ComboBox4.add(("Bezahlt Instandhaltung Gebäude"))
' ComboBox4.add(("Bezahlt Renovierung / Umbau Gebäude"))
' ComboBox4.add(("Bezahlt Privatentnahme"))
' ComboBox4.add(("Bezahlt sonstige Betriebsmittel"))
'ComboBox4.Foreground = Color.Green
ComboBox4.add(("Verkauf Privateinlage|Green"))
ComboBox4.add(("Verkauf Honig") & " …|Green")
ComboBox4.add(("Verkauf Honig 1 x 250 g Glas") & " …|Green")
' ComboBox4.add(("Verkauf Honig 1 X 500 g Glas") & " …")
ComboBox4.add(("Verkauf Bienen|Green"))
' ComboBox4.add(("Verkauf Königin"))
End
Public Sub ComboBox4_Click()
Dim iColor As Integer
Dim s, sText, sColor As String = ComboBox4.Text
Dim iPos As Integer = String.InStr(s, "|")
sText = String.Mid(s, 1, iPos - 1)
sColor = String.Mid(s, iPos + 1)
If sColor = "Red" Then
iColor = 16711680
Else
iColor = 32768 '65280
Endif
ComboBox4.Foreground = iColor
ComboBox4.Text = sText
End