Die Suche ergab 72 Treffer

von cogier
Do 14. Okt 2021, 16:03
Forum: Programmierung
Thema: wie einen Text diagonal in Grafik einfügen ?
Antworten: 5
Zugriffe: 63

Re: wie einen Text diagonal in Grafik einfügen ?

Probieren Sie Ihren geänderten Code aus: - Private DrawingArea1 As DrawingArea Public Sub Form_Open() With Me .W = 400 .H = 400 .Center .Arrangement = Arrange.Fill End With With DrawingArea1 = New DrawingArea(Me) As "DrawingArea1" .X = 0 .Y = 0 .Background = Color.Orange End With End Public Sub Draw...
von cogier
Sa 18. Sep 2021, 17:33
Forum: Programmierung
Thema: How does gambas use regular expressions?
Antworten: 4
Zugriffe: 196

Re: How does gambas use regular expressions?

Ist das hilfreich? (Does this help?) Dim sInput As String[] = Split("aaabbbccc,ab12.00cc,bb84.00,11,12,ccc120.00") Dim sResult As New String[] Dim re As Regexp Dim iLoop As Integer For iLoop = 0 To sInput.Max re = New RegExp(sInput[iLoop], "\\d+\\.\\d+") If re.Text Then ListBox2.Add(re.Text) sResult...
von cogier
Fr 17. Sep 2021, 16:27
Forum: Programmierung
Thema: How does gambas use regular expressions?
Antworten: 4
Zugriffe: 196

Re: How does gambas use regular expressions?

Ich habe keine regulären Ausdrücke verwendet, aber in Ihrem Beispiel hat das funktioniert. (I have not used regular expressions, but this worked with your example.) Public Sub Form_Open() Dim sText As String[] = Split("aabbccdd,aa,123.00ddaa,11.00,22,21,88.00") Dim sHold As String Dim sAnswer As New...
von cogier
Mi 4. Aug 2021, 16:55
Forum: Programmierung
Thema: Grafik Teil kopieren und wonaders einfügen ???
Antworten: 6
Zugriffe: 328

Re: Grafik Teil kopieren und wonaders einfügen ???

Hallo Honsek, Der einzige Gedanke ist, dass Sie QT5 nicht installiert haben, es ist erforderlich. Siehe das Bild unten, aufgenommen mit der gleichen Routine. Ich habe versucht, diese in Deutsch zu finden, aber nicht. Mit freundlichen Grüßen, Charlie (cogier) https://www.cogier.com/gambas/QT5%20issue...
von cogier
Mo 2. Aug 2021, 16:59
Forum: Programmierung
Thema: Grafik Teil kopieren und wonaders einfügen ???
Antworten: 6
Zugriffe: 328

Re: Grafik Teil kopieren und wonaders einfügen ???

Zum Video: womit und wie positionierst Du den Text? Der Text befindet sich in einer 'PictureBox'. Alles, was Sie tun müssen, ist, die 'PictureBox' zu verschieben. Betrachten Sie den folgenden Code: - ' Gambas class file PictureBox1 As PictureBox Timer1 As Timer bXDir As Boolean bYDir As Boolean Pub...
von cogier
So 1. Aug 2021, 18:00
Forum: Programmierung
Thema: Grafik Teil kopieren und wonaders einfügen ???
Antworten: 6
Zugriffe: 328

Re: Grafik Teil kopieren und wonaders einfügen ???

Werfen Sie einen Blick auf 'ScreenShot' auf der Gambas Farm, insbesondere auf die 'Capture.class'. Hier ist ein Video-Link, der zeigt, was das Programm alles kann.

Beschnittenes Bild unten: -
Bild
von cogier
Sa 31. Jul 2021, 18:57
Forum: Programmierung
Thema: argumente an die shell übergeben.
Antworten: 3
Zugriffe: 197

Re: argumente an die shell übergeben.

OK. Versuchen Sie dies, es funktioniert bei mir.
gambas code
Public Sub FileChooser1_Change()

  Shell "mplayer -slave " & FileChooser1.SelectedPath

End
von cogier
Sa 31. Jul 2021, 14:56
Forum: Programmierung
Thema: argumente an die shell übergeben.
Antworten: 3
Zugriffe: 197

Re: argumente an die shell übergeben.

Sie könnten Ihren gesamten Code entfernen und nur Folgendes verwenden: -
gambas code
''Requires gb.sdl2.audio

Public Sub FileChooser1_Change()

  Music.Stop
  Try Music.load(FileChooser1.SelectedPath)
  If Error Then Return
  Music.Play

End
von cogier
Sa 10. Jul 2021, 19:51
Forum: Programmierung
Thema: Aufruf gestartetes externes Programm
Antworten: 4
Zugriffe: 271

Re: Aufruf gestartetes externes Programm

Ist das nicht das, was Sie wollten? VIDEO
von cogier
Fr 9. Jul 2021, 16:56
Forum: Programmierung
Thema: Aufruf gestartetes externes Programm
Antworten: 4
Zugriffe: 271

Re: Aufruf gestartetes externes Programm

Probieren Sie diesen Code aus. Ich hoffe, er hilft. ''Requires gb.Desktop & gb.Desktop.x11 ''Erfordert gb.Desktop & gb.Desktop.x11 iTaskID As Integer ButtonHTTP As Button ButtonBrowser As Button Public Sub Form_Open() BuildForm Me.Center End Public Sub ButtonHTTP_Click() Desktop.Open("https://www.ga...
von cogier
Di 8. Jun 2021, 11:23
Forum: Programmierung
Thema: Unterschiede mit und ohne haltepunkt
Antworten: 2
Zugriffe: 189

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, 13:06
Forum: Gambas in Verbindung mit Linux
Thema: Fehlermeldung nach upgrade
Antworten: 3
Zugriffe: 357

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, 16:59
Forum: Programmierung
Thema: zur laufzeit button in Container
Antworten: 3
Zugriffe: 281

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, 14:55
Forum: Programmierung
Thema: habe Frage zu Button in der Laufzeit
Antworten: 6
Zugriffe: 415

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, 17:46
Forum: Programmierung
Thema: habe Frage zu Button in der Laufzeit
Antworten: 6
Zugriffe: 415

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