小工具整理

接口/dotnet控件ui.ms

@@ -0,0 +1,83 @@
+if abc !=undefined then DestroyDialog abc
+
+rollout abc "DotNet控件 UI" height:800 width:830
+(
+	button a "showProperties()显示属性" width:230 height:30 pos:[0,0]
+	button b "showMethods()显示方法(调用函数)" width:230 height:30 pos:[0,40]
+	button c "showevents()显示事件" width:230 height:30 pos:[0,80]
+	button d "getProperty()获取属性值" width:230 height:30 pos:[0,120]
+	button e "setProperty()设置属性值" width:230 height:30 pos:[0,160]
+	button f "getpropnames()控件每个属性(数组)" width:230 height:30 pos:[0,200]
+----------------------------------------------------------------------------------------------------------------------------------
+	dotNetControl dotnetbtn "button" height:50 width:230 pos:[0,240]
+	dotNetControl dotnetcalender "monthcalendar" height:180 width:280 pos:[0,300]
+	dotNetControl dotnettext "label" width:230  pos:[0,500]
+	dotNetControl dotnetlist "listbox" width:230  height:80  pos:[0,530]
+	dotNetControl dotnetdatagrid "datagrid" width:230  height:160 pos:[0,620]
+	
+	
+	dotNetControl dotnetpicturebox "picturebox" width:230  height:150 pos:[300,0]
+	dotNetControl dotnetprogressbar "progressbar" width:230  height:20 pos:[300,180]
+	dotNetControl dotnetcombobox "combobox" width:230  height:100 pos:[300,220]
+	dotNetControl dotnetcheckedlistbox "checkedlistbox" width:230  height:100 pos:[300,340]
+	dotNetControl dotnettrackbar "trackbar" width:230  height:50 pos:[300,460]
+	dotNetControl dotnetcheckbox "checkbox" width:230  height:30 pos:[300,510]
+	dotNetControl dotnettextbox "textbox" width:230  height:20 pos:[300,550]
+	dotNetControl dotnetrichtextbox "richtextbox" width:230  height:210 pos:[300,580]
+	
+	
+	dotNetControl dotnetNumericUpDown "NumericUpDown" width:230  height:20 pos:[600,0]
+	dotNetControl dotnetgroupbox "groupbox" width:230  height:100 pos:[600,40]
+	dotNetControl dotnetradiobutton "radiobutton" width:230  height:20 pos:[600,160] 
+	dotNetControl dotnetvscrollbar "vscrollbar" width:20  height:200 pos:[600,200] 
+	dotNetControl dotnethscrollbar "hscrollbar" width:230  height:20 pos:[600,410]
+	dotNetControl dotnettreeview "treeview" width:230  height:340 pos:[600,450]
+----------------------------------------------------------------------------------------------------------------------------------
+	on a pressed do 
+	(
+		showProperties dotnethscrollbar  --显示属性
+		)
+	on b pressed do 
+	(
+		showMethods dotnetbtn  --显示方法(即可调用的函数)
+		)
+	on c pressed do 
+	(
+		showevents dotnetbtn  -- 显示控件可调用的事件
+		)
+	on d pressed do 
+	(
+		format "获取到的属性值:%\n" (getProperty dotnetbtn "text" asdotnetobject:false)  --获取名为text属性的值
+		)	
+	on e pressed do 
+	(
+		format "设置成的属性值:%\n" (setProperty dotnetbtn "text" "dotnet形式的按钮")  --设置名为text属性的值为"dotnet按钮"
+		)	
+	on f pressed do 
+	(
+		print (getpropnames dotnetbtn)  --控件的所有属性,输出为一个数组
+		)
+--------------------------------------------------------------------------------------------------------------------------------
+
+
+	on dotnetbtn click do print "点击了一次dotnet按钮"
+	on dotnetbtn mousedown do print "鼠标进入dotnet按钮范围"
+	
+	on abc open do 
+	(
+		dotnetbtn.text="dotnet按钮"
+		dotnettext.text="dotnet标签"
+		dotnetprogressbar.value=50
+		dotnetcheckbox.text="check按钮"
+		dotnettextbox.text="textbox(单行)"
+		dotnetrichtextbox.text="richtextbox(多行)"
+		dotnetvscrollbar.value=20
+		dotnethscrollbar.value=80
+	)
+	
+)
+CreateDialog abc 
+
+
+	
+