130 lines
3.8 KiB
Plaintext
130 lines
3.8 KiB
Plaintext
clearListener ()
|
|
try( hForm.close() )catch()
|
|
|
|
dotnet.loadAssembly "D:\\Desktop\\dll\\SunnyUI.Common.dll"
|
|
dotnet.loadAssembly "D:\\Desktop\\dll\\SunnyUI.dll"
|
|
|
|
fn whenButtonIsPressed =
|
|
(
|
|
print "button01"
|
|
)
|
|
|
|
fn whenNavIsPressed a b=
|
|
(
|
|
print(classof b)
|
|
)
|
|
|
|
|
|
uiNavbar1=dotNetObject "Sunny.UI.UINavbar"
|
|
uiNavbar1.nodes.add("¿Ø¼þ")
|
|
|
|
|
|
|
|
--Create a DotNet Button
|
|
mButton = dotNetObject "Sunny.UI.UIbutton"
|
|
mButton.text = "mButton"
|
|
mButton.size = dotNetObject "System.Drawing.Size" 160 80
|
|
mButton.location = dotNetObject "System.Drawing.Point" 160 0
|
|
|
|
page1001Button = dotNetObject "Sunny.UI.UIbutton"
|
|
page1001Button.text = "page1001 Button"
|
|
page1001Button.size = dotNetObject "System.Drawing.Size" 160 80
|
|
page1001Button.location = dotNetObject "System.Drawing.Point" 0 0
|
|
|
|
page1002Button = dotNetObject "Sunny.UI.UIbutton"
|
|
page1002Button.text = "page1002 Button"
|
|
page1002Button.size = dotNetObject "System.Drawing.Size" 160 80
|
|
page1002Button.location = dotNetObject "System.Drawing.Point" 0 0
|
|
--Create a DotNet Form
|
|
hForm = dotNetObject "Sunny.UI.UIform"
|
|
|
|
|
|
--Create a DotNet page
|
|
hpage1001 = dotNetObject "Sunny.UI.UIpage"
|
|
hpage1001.AutoScaleMode=hpage1001.AutoScaleMode.none
|
|
hpage1001.PageIndex=1001
|
|
UIlabel1001=dotNetObject "Sunny.UI.UIlabel"
|
|
UIlabel1001.text="Page 1001"
|
|
UIlabel1001.location = dotNetObject "System.Drawing.Point" 0 200
|
|
UIlabel1001.ForeColor=(dotnetclass "System.Drawing.Color").FromArgb 255 0 255 255
|
|
hpage1001.text="page 1"
|
|
hpage1001.BackColor=(dotnetclass "System.Drawing.Color").FromArgb 255 0 0 0
|
|
|
|
|
|
hpage1002 = dotNetObject "Sunny.UI.UIpage"
|
|
hpage1002.AutoScaleMode=hpage1002.AutoScaleMode.none
|
|
hpage1002.text="page 2"
|
|
hpage1002.PageIndex=1002
|
|
|
|
--Create a DotNet uitablecontrol
|
|
htab = dotNetObject "Sunny.UI.UITabControl"
|
|
htab.size = dotNetObject "System.Drawing.Size" 30 30
|
|
htab.location = dotNetObject "System.Drawing.Point" 160 150
|
|
|
|
hForm.topmost = true
|
|
hForm.text="UIform"
|
|
hForm.AutoScaleMode=hForm.AutoScaleMode.none
|
|
hForm.ShowDragStretch =true
|
|
hForm.BackColor=(dotnetclass "System.Drawing.Color").FromArgb 255 255 255 255
|
|
|
|
--add controls
|
|
hForm.controls.add mButton
|
|
hForm.controls.add UIlabel1001
|
|
hForm.controls.add page1001Button
|
|
hForm.controls.add page1002Button
|
|
|
|
hForm.controls.add uiNavbar1
|
|
hForm.controls.add htab
|
|
hForm.AddPage hpage1001
|
|
hForm.SelectPage 1001
|
|
hForm.AddPage hpage1002
|
|
hForm.SelectPage 1002
|
|
hForm.MainTabControl=htab
|
|
|
|
|
|
--change the style
|
|
|
|
|
|
--Add an Event Handler for the click event
|
|
dotNet.addEventHandler mButton "click" whenButtonIsPressed
|
|
|
|
|
|
page1001Button.parent=hpage1001
|
|
page1002Button.parent=hpage1002
|
|
UIlabel1001.parent=hpage1001
|
|
|
|
|
|
|
|
hForm.show() --show the Form with the Button
|
|
|
|
|
|
/*
|
|
showproperties hForm
|
|
show aside
|
|
showevents mButton
|
|
dotnet.showConstructors mButton
|
|
hForm.Region
|
|
hForm.controls.count
|
|
hForm.controls.item[0]
|
|
createDialog (dotNetObject "Sunny.UI.UIMessageDialog")
|
|
|
|
*/
|
|
|
|
|
|
/*
|
|
AsideHeaderMain = dotNetObject "Sunny.UI.UIAsideHeaderMainFrame"
|
|
--AsideHeaderMain.controls.clear()
|
|
AsideHeaderMain.show()
|
|
|
|
AsideHeaderMain.controls.count
|
|
--AsideHeaderMain.controls.item[0].backcolor=(dotnetclass "System.Drawing.Color").FromArgb 255 255 0 255
|
|
--AsideHeaderMain.controls.item[1].backcolor=(dotnetclass "System.Drawing.Color").FromArgb 255 0 255 255
|
|
--AsideHeaderMain.controls.item[2].backcolor=(dotnetclass "System.Drawing.Color").FromArgb 255 255 255 0
|
|
|
|
|
|
|
|
for i=0 to AsideHeaderMain.controls.count-1 do AsideHeaderMain.controls.item[i].BringToFront()
|
|
AsideHeaderMain.AddPage (dotNetObject "Sunny.UI.UIPage")
|
|
AsideHeaderMain.AddPage (dotNetObject "Sunny.UI.UIPage")
|
|
showmethods AsideHeaderMain
|
|
*/ |