Die Suche ergab 62 Treffer

von cogier
Di 8. Jun 2021, 10:23
Forum: Programmierung
Thema: Unterschiede mit und ohne haltepunkt
Antworten: 2
Zugriffe: 29

Re: Unterschiede mit und ohne haltepunkt

Versuchen Sie das Hinzufügen einer 'Wait'-Anweisung an das Ende des 'Shell'-Befehls anzufügen.

Code: Alles auswählen

Shell "ls -a" Wait
Der nächste Befehl wird erst bearbeitet, wenn Ihr externes Programm beendet ist.
von cogier
Sa 22. Mai 2021, 12:06
Forum: Gambas in Verbindung mit Linux
Thema: Fehlermeldung nach upgrade
Antworten: 3
Zugriffe: 157

Re: Fehlermeldung nach upgrade

Ich glaube, das Update hat 'qt4' gelöscht. Sie müssen jetzt 'qt5' verwenden.
Ich habe die Einstellungen unten geändert und das Programm funktionierte.

Bild
von cogier
Fr 14. Mai 2021, 15:59
Forum: Programmierung
Thema: zur laufzeit button in Container
Antworten: 3
Zugriffe: 109

Re: zur laufzeit button in Container

Probieren Sie den folgenden Code aus. Stellen Sie sicher, dass Sie die Größe des Formulars ändern, um zu sehen, was passiert. https://www.cogier.com/gambas/100buttons.png hButton As Button favoritencontainer As HPanel Public Sub Form_Open() With Me .Center .H = 400 .W = 500 .Arrangement = Arrange.Ve...
von cogier
Do 13. Mai 2021, 13:55
Forum: Programmierung
Thema: habe Frage zu Button in der Laufzeit
Antworten: 6
Zugriffe: 169

Re: habe Frage zu Button in der Laufzeit

Versuchen Sie diesen Code. Er sollte das tun, was Sie wollen. HBox1 As HBox Button1 As Button TextBox1 As TextBox Public Sub Form_Open() Dim sIcons As String[] = ["icon:/22/agenda", "icon:/22/audio", "icon:/22/car", "icon:/22/copy"] Dim iLoop As Integer With Me .H = 75 .W = 600 .Arrangement = Arrang...
von cogier
Mi 12. Mai 2021, 16:46
Forum: Programmierung
Thema: habe Frage zu Button in der Laufzeit
Antworten: 6
Zugriffe: 169

Re: habe Frage zu Button in der Laufzeit

Versuchen Sie stattdessen diesen Code: - hButton As Button Public Sub _new() Dim iLoop As Integer For iLoop = 1 To 4 With hButton = New Button(Me) As "Buttons" .Name = "Button" & Str(iLoop) .X = 100 * iloop .Y = 30 .Width = 75 .Height = 30 .Caption = Str(iLoop) End With Next End Public Sub Buttons_C...
von cogier
Sa 16. Jan 2021, 16:41
Forum: Programmierung
Thema: Habe Frage zu 'Struct'
Antworten: 3
Zugriffe: 395

Re: Habe Frage zu 'Struct'

Ich schlage vor, dass Sie eine 'Klasse' verwenden. Sehen Sie sich das beigefügte Programm an.
TestNew-0.0.2.tar.gz
(11.84 KiB) 39-mal heruntergeladen
von cogier
Do 7. Jan 2021, 19:04
Forum: Programmierung
Thema: Der Killer ist müde
Antworten: 2
Zugriffe: 353

Re: Der Killer ist müde

Versuchen Sie, Zeile 6 zu ändern: - P = Replace(FOX &/ "storage", gb.Newline, "")
von cogier
Sa 17. Okt 2020, 15:30
Forum: Programmierung
Thema: Datum von mehreren Files vergleichen
Antworten: 3
Zugriffe: 495

Re: Datum von mehreren Files vergleichen

Dieser Code sollte für Sie funktionieren. GridViewFolders As GridView Public Sub Form_Open() Dim sFolder As String = User.Home Dim sDir As String[] = RDir(sFolder, "", gb.Directory) Dim sResults As New String[] Dim iLoop As Integer BuildForm For iLoop = 0 To sDir.Max sResults.Add(Format(Stat(sFolder...
von cogier
So 27. Sep 2020, 16:47
Forum: Programmierung
Thema: Was bist denn du für ein File?
Antworten: 10
Zugriffe: 1136

Re: Was bist denn du für ein File?

Versuchen Sie diesen Code. Er verwendet den Befehl 'file', um die Antworten zu erhalten. Gridview1 As Gridview Public Sub Form_Open() Setup Display End Public Sub Display() Dim sPath As String = User.Home Dim sDir As String[] = Dir(sPath) Dim iLoop As Integer Dim sResult As String For iLoop = 0 To s...
von cogier
Mi 19. Aug 2020, 14:45
Forum: Programmierung
Thema: sucheingabe aktivate
Antworten: 4
Zugriffe: 606

Re: sucheingabe aktivate

Public Sub Sucheingabe_aktivate() 'Falsch

Versuchen Sie: -

Public Sub Sucheingabe_activate()
von cogier
Di 18. Aug 2020, 10:59
Forum: Programmierung
Thema: Ein Bild auf andere Form verschieben ?
Antworten: 5
Zugriffe: 808

Re: Ein Bild auf andere Form verschieben ?

Führen Sie diese in einer grafischen Anwendung aus. Ich hoffe, es hilft. ' Gambas class file TableView1 As TableView ScrollView1 As ScrollView Public Sub Form_Open() Setup End Public Sub TableView1_Click() Dim PictureBox1 As PictureBox Dim pPict As Picture = TableView1[Last.Row, Last.Column].Picture...
von cogier
Mo 13. Jul 2020, 18:39
Forum: Programmierung
Thema: tool wird aus geführt
Antworten: 13
Zugriffe: 1733

Re: tool wird aus geführt

Die Routine (Public Sub archivpanel_Click) wird durch die Zeile 'Inc archivpanel.Count' aufgerufen, aber ich kann nicht erkennen, warum. Private Sub history_handle() Dim Zaehler As Integer = archivpanel.Count - 1 archivpanel[Zaehler].Text = txturl.text archivpanel[Zaehler].Picture = urlpicture.Pictu...
von cogier
Mo 13. Jul 2020, 18:09
Forum: Programmierung
Thema: tool wird aus geführt
Antworten: 13
Zugriffe: 1733

Re: tool wird aus geführt

1/. Ich schlage vor, Sie verwenden 'gb.gui.qt' und 'gb.gui.qt.webkit' und nicht 'gb.qt4', da Ubuntu 20.04, Mint 20 usw. nicht über 'gb.qt4' verfügen. 2/. Ich musste den folgenden Code erstellen, um zu überprüfen, ob der Ordner 'Mein_Webbrowser' existierte und die erforderlichen Dateien erstellt word...
von cogier
So 12. Jul 2020, 17:44
Forum: Programmierung
Thema: tool wird aus geführt
Antworten: 13
Zugriffe: 1733

Re: tool wird aus geführt

Fügen Sie die Datei hier hinzu.

Bild
von cogier
So 12. Jul 2020, 16:54
Forum: Programmierung
Thema: tool wird aus geführt
Antworten: 13
Zugriffe: 1733

Re: tool wird aus geführt

Veröffentlichen Sie das gesamte Programm, wenn Sie können.