mi sono incartato con i colori
devo settare dei colori a un pannello
il codice colore è contenuto in un arrai string M1.PanOpe[4] il contrenuto è &005FFF87
se provo con Panoperatore.Background = &005FFF87
funziona
con Panoperatore.Background = M1.PanOpe[4]
errore cercato integer
come trasformo la stringa in codice colore?
inoltre come posso aprire dal mio programma la finestra colori di sistema?
Prova a eseguire questo codice: -
Button1 As Button
TextArea1 As TextArea
iCount As Integer
Public Sub Form_Open()
Dim HBox1 As HBox
With Me
.Height = 350
.Width = 350
.Arrangement = Arrange.Vertical
.Padding = 5
End With
TextArea1 = New TextArea(Me)
TextArea1.Expand = True
With HBox1 = New HBox(Me)
.Height = 40
.Padding = 4
End With
With Button1 = New Button(HBox1) As "Button1"
.Width = 100
.Text = "&Click!"
End With
End
Public Sub Button1_Click()
Dim sColor As String[] = ["&005FFF87", "&0043802F", "&005913A0", "&00A04F77", "&00000000", "&FFFFFFFF"]
TextArea1.Background = Val(sColor[iCount])
Inc iCount
If iCount > sColor.Max Then iCount = 0
End
TextArea1.Background = Val(sColor[iCount])
:ok:
grazie raga
continuo per un altro aiuto
con
If Dialog.SelectColor() Then Return
TextBox1.Background = Dialog.Color
setto il colore alla text, ma ha me nella text serve scrivere il codice esadecimale del colore
raga scusate ma questi arresti domiciliare mi hanno fatto rinc.........
bastava mettere
If Dialog.SelectColor() Then Return
TextBox1.Text = Dialog.Color