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
------------------------------------------------------------------------------
Master Visual Studio, SharePoint, SQL, ASP.NET, C# 2012, HTML5, CSS,
MVC, Windows 8 Apps, JavaScript and much more. Keep your skills current
with LearnDevNow - 3,200 step-by-step video tutorials by Microsoft
MVPs and experts. SALE $99.99 this month only -- learn more at:
http://p.sf.net/sfu/learnmore_122912
_______________________________________________
Gambas-user mailing list
Gambas-user@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/gambas-user
