[Gambas-user] Possible error with ComboBoxes

Benoît Minisini gambas at ...1...
Sat Dec 29 12:15:00 CET 2012


Le 29/12/2012 12:11, M. Cs. a écrit :
> Public codepage As ComboBox
> Public felulet As Form
> ...
> Public Sub encoder_Click()
> Dim closer As Button
> Dim ext As Label
> felulet = New Form
> felulet.Width = 240
> felulet.Height = 150
> felulet.Border = False
> ext = New Label(felulet)
> ext.X = 20
> ext.Y = 20
> ext.Width = 220
> ext.Height = 40
> ext.Text = ("Select source encoding:")
>
> codepage = New ComboBox(felulet) As "Cody"
> codepage.List = ["iso8859-1", "iso8859-2", "iso8859-3", "iso8859-4",
> "iso8859-5", "iso8859-6", "iso8859-8", "iso8859-9", "iso8859-15"]
> codepage.Width = 200
> codepage.Height = 35
> codepage.ReadOnly = True
> codepage.X = 20
> codepage.y = 60
>
>
> closer = New Button(felulet) As "Shutter"
> closer.Width = 100
> closer.X = 120
> closer.Y = 120
> closer.Text = ("Close")
> felulet.ShowModal
> End
>
> Public Sub Cody_Change()
> Dim faj As File
> Message("itt")
>    faj = Open User.Home & "/.nevezz/encoding" For Write Create
>    Print #faj, codepage.Text
>    Close (faj)
> End
>
> Public Sub Shutter_Click()
> felulet.Delete
> End
>
>
> The dinamically created button "closer" is reacting with the
> Shutter_Click() event, while on "codepage"-s change the event Cody_Change()
> isn't raised.
>
> Csaba

"Change" is a TextBox event, that ComboBox raises only if ReadOnly = False.

Regards,


-- 
Benoît Minisini




More information about the User mailing list