Der Gambas Club

Ändern Sie den Code in meinem letzten Programm in den folgenden Code. Auf diese Weise können Sie das Bild mit der Maus verschieben. X As Integer Y As Integer Public Sub ScrollArea1_Draw() Dim iImage0 As Image = Image.Load(Application.Path &/ "pict1.jpg") Dim iImage1 As Image = Image.Load(Application...

Schau, ob dir das hilft.

Ist es das, was du suchst?

Versuchen Sie, Gambas zu deinstallieren und installieren Sie es dann mit dem folgenden Befehl neu: -

Schau, ob dieser Code dir hilft.

Versuchen Sie diesen Code. Es verwendet einen'TableView' und Sie können die Zellen bearbeiten.

Werfen Sie einen Blick auf den beigefügten Code. Ich denke, dass'Clipboard.HasChanged' das ist, wonach Sie suchen.

Welches Linux verwenden Sie?

In Ubuntu, Mint etc. sudo apt-get install shutter sollte funktionieren. Informieren Sie sich in Ihrem Software-Center.

Werfen Sie hier einen Blick darauf: - https://launchpad.net/shutter

Werfen Sie einen Blick auf dieses Video http://www.cogier.com/video/TextToGraphics.webm

Sie müssen "Shutter" installieren, damit dieses Programm funktioniert.

Werfen Sie einen Blick auf den beigefügten Code. Die Bilder werden von dieser Seite heruntergeladen. Siehe "RESSOURCEN UND LINKS" auf der Titelseite.

Werfen Sie einen Blick auf diesen Code.

Da youtube-dl-gui und 4k-videodownloader nicht mehr funktionieren, möchte ich ein eigenes GUI programmieren.

Ich habe das Gambas Youtube-Programm repariert. Sehen Sie sich die'Gambas Farm' an.

Hilft das? ComboBox1 As ComboBox mytv As TableView Public Sub form_Open() Me.padding = 5 Me.Arrangement = Arrange.Vertical ComboBox1 = New ComboBox(Me) With ComboBox1 .Visible = False .List = ["alle meine", "Entchen", "schwimmen auf", "dem See"] End With mytv = New TableView(Me) As "mytv" With mytv ...

Werfen Sie einen Blick auf dieses Beispiel:-

Es ist ein Editor in'TableView' integriert. Probieren Sie diesen Code in einem neuen Projekt aus. ComboBox1 As ComboBox TableView1 As TableView Public Sub Form_Open() With Me .Padding = 5 .Arrangement = Arrange.Vertical End With ComboBox1 = New ComboBox(Me) With ComboBox1 .Visible = False .List = ["...