小工具整理

2025-07-31 16:05:55 +08:00
commit 1011eb44e1
566 changed files with 267142 additions and 0 deletions
@@ -0,0 +1,130 @@
+   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
+*/