Der Gambas Club

gambasso hat geschrieben: ↑

So 16. Feb 2020, 11:55

Was für eine Farbe ist der zahl 6357247 zugeordnet? Wie komme ich dahin?

Um die hexadezimale darstellung einer dezimalzahl zu erhalten, müssen sie die Funktion verwenden Hex( ):

http://gambaswiki.org/wiki/lang/hex

Was ist der verwendete Code?

Ehmmm... vielleicht meinst du "gb.openal" ?

gambasso hat geschrieben: ↑

Di 3. Sep 2019, 13:07

Dieses 3.Image, bzw. 3.ScrollArea bekomme ich nicht transparent. Warum weiß ich nicht.

Können Sie ein kurzes Programm anhängen, das dieses Problem reproduziert?

Hello. Ja, ich erinnere mich, dass du gesagt hast, du hättest zwei ScrollArea. Private im1 As Image Private im2 As Image Public Sub Form_Open() im1 = Image.Load("/..../..../file_image.xxx") ' Erstellt ein "transparent image": ↘ im2 = New Image(ScrollArea2.W, ScrollArea2.H, Color.Transparent, Image.S...

...eine kleine variation von cogier code: Public Sub ScrollArea1_Draw() Dim iImage0 As Image = Image.Load(Application.Path &/ "pict1.jpg") With Paint .Begin(iImage0) .Brush = .Color(Color.Red) .LineWidth = 8.0 .Ellipse(iImage0.W / 12, iImage0.H / 12, 350, 350) .Stroke .End End With With Paint .DrawI...

Do4kgt hat geschrieben: ↑

Do 25. Jul 2019, 21:00

Die Rot Makierten Zeilen würde ich gerne in die jeweilige Textbox zuweisen.

Z.b
Callsign in Textbox 1
ID in Textbox 2 und so weiter.

Wenn die textelemente immer gleich sind, können sie die funktion Scan( ) verwendene.

Entschuldige, ich verstehe das nicht: warum 28000 ?

Sehen sie hier:

https://lists.gambas-basic.org/pipermai ... 66229.html

Hello,

about the attachment: I do not understand why, if I want download it, I obtain this notice:

" The selected attachment does not exist anymore. "

Hello, an example: Public Sub Form_Open() With DrawingArea1 .Background = Color.White .W = 300 .H = 40 End With End Public Sub DrawingArea1_Draw() Dim c As Integer[] = [Color.Blue, Color.Green, Color.Yellow, Color.Red] Dim p As Float[] = [0, 0.34, 0.67, 1] With Paint .Brush = .LinearGradient(0, 0, D...

This should happen automatically, without having to enter them before Maybe do you want to obtain the Constants of Printer Class ? :| Print Printer1.A4 Moreover, if you want to see symbols of Printer Class: Public Sub Form_Open() Dim s As String For Each s In Class.Load("Printer").Symbols Print s N...

gambasso hat geschrieben: ↑

Fr 10. Aug 2018, 18:37

I would like to read the properties and the values in the program.

Ehmmmm..... Vergib uns, aber wir verstehen nicht, was du willst genau.

Hello gambasso,
you have to use directly Printer Class, not its variable.

Ad exemplum: gambas code

Public Sub Form_Open()

  Dim pr As New Printer

  Print pr.Default   ' <------------------- THIS RETURNS AN ERROR !

  Print Printer.Default   ' <------------ this is OK !

End

If you want not to use audio file, you can try this code by activating gb.openal Component: Private Const AMPIEZZA As Byte = 127 Private Const FREQUENZA As Short = 880 Private Const CAMPIONAMENTO As Integer = 44100 Private Const DURATA As Single = 0.15 Public Sub Main() Dim disp As AlcDevice Dim con...