小工具整理

2025-07-31 16:05:55 +08:00
commit 1011eb44e1
566 changed files with 267142 additions and 0 deletions
@@ -0,0 +1,116 @@
+if abc !=undefined then DestroyDialog abc
+
+rollout abc "DotNet控件 UI" height:1000 width:830
+(
+	button a "showProperties()显示属性" width:230 height:30  across:3
+	button b "showMethods()显示方法(调用函数)" width:230 height:30 
+	button c "showevents()显示事件" width:230 height:30
+	button d "getProperty()获取属性值" width:230 height:30  across:3
+	button e "setProperty()设置属性值" width:230 height:30 
+	button f "getpropnames()控件每个属性(数组)" width:230 height:30 
+----------------------------------------------------------------------------------------------------------------------------------
+	dotNetControl dotnetdatagrid "datagridview" width:800  height:300
+	dotNetControl dotnetdatagridview "datagridview" width:800  height:300 --不是经典的datagrid
+	
+	dotNetControl dotnettreeview "treeview" width:800  height:300
+----------------------------------------------------------------------------------------------------------------------------------
+	on a pressed do 
+	(
+		showProperties dotnetdatagridview  --显示属性
+		)
+	on b pressed do 
+	(
+		showMethods dotnetdatagridview  --显示方法(即可调用的函数)
+		)
+	on c pressed do 
+	(
+		showevents dotnetdatagridview  -- 显示控件可调用的事件
+		)
+	on d pressed do 
+	(
+		format "获取到的属性值:%\n" (getProperty dotnetdatagridview "text" asdotnetobject:false)  --获取名为text属性的值
+		)	
+	on e pressed do 
+	(
+		format "设置成的属性值:%\n" (setProperty dotnetdatagridview "text" "dotnet形式表格")  --设置名为text属性的值为"dotnet按钮"
+		)	
+	on f pressed do 
+	(
+		print (getpropnames dotnetdatagridview)  --控件的所有属性,输出为一个数组
+		)
+--------------------------------------------------------------------------------------------------------------------------------
+
+
+--	on dotnetbtn click do print "点击了一次dotnet按钮"
+--	on dotnetbtn mousedown do print "鼠标进入dotnet按钮范围"
+	
+	on abc open do 
+	(
+		for i =1 to 5 do dotnetdatagrid.columns.add ("column"+i as string) ("列 "+i as string) 
+		dotnetdatagrid.RowCount=4
+		dotnetdatagrid.rows.item[3].cells.item[3].value = "举例dotnetdatagrid"
+		
+		
+		
+		
+		for i =1 to 5 do dotnetdatagridview.columns.add ("column"+i as string) ("列 "+i as string) 
+		dotnetdatagridview.rows.add 4
+		dotnetdatagridview.rows.item[3].cells.item[3].value = "举例"
+		
+		
+		
+		
+		dotnettreeview.CheckBoxes=true
+		treenode01=dotnettreeview.Nodes.add "树干1"
+		treenode02=dotnettreeview.Nodes.add "树干2"
+		treenode03=dotnettreeview.Nodes.add "树干3" 
+		dotnettreeview.Nodes.add "树干3" 
+		dotnettreeview.Nodes.add "树干3" 
+		dotnettreeview.Nodes.add "树干3" 
+		dotnettreeview.Nodes.add "树干48543" 
+		dotnettreeview.Nodes.add "树干3" 
+		dotnettreeview.Nodes.add "树干3" 
+		dotnettreeview.Nodes.add "树干3" 
+		dotnettreeview.Nodes.add "树干3" 
+		dotnettreeview.Nodes.add "树干3" 
+		dotnettreeview.Nodes.add "树干3" 
+		dotnettreeview.Nodes.add "树干3" 
+		dotnettreeview.Nodes.add "树干3" 
+		dotnettreeview.Nodes.add "树干3" 
+		dotnettreeview.Nodes.add "树干3" 
+		dotnettreeview.Nodes.add "树干35485" 
+		dotnettreeview.Nodes.add "树干16543" 
+		dotnettreeview.Nodes.add "树干3" 
+		dotnettreeview.Nodes.add "树干3" 
+		dotnettreeview.Nodes.add "树干3" 
+		dotnettreeview.Nodes.add "树干3" 
+		dotnettreeview.Nodes.add "树干3" 
+		dotnettreeview.Nodes.add "树干1788fgsd3" 
+		for i=1 to 100 do 
+		(
+			ndstext=("node"+i as string)
+			nds=treenode01.nodes.add ndstext
+			treenode01=nds
+		)
+		
+		
+		treenode04=treenode01.Nodes.add "树叶1"
+		treenode05=dotnettreeview.nodes.item[1].nodes.add "12"
+		treenode06=dotnettreeview.nodes.item[1].nodes.item[0].nodes.add "34"
+		
+		format "全路径是:%\n" treenode06.FullPath
+		format "父级叶名称是:%\n" treenode06.parent.text
+		
+		
+		dotnettreeview.SelectedNode
+		
+		
+	)
+	
+	on dotnettreeview AfterSelect do print dotnettreeview.SelectedNode.FullPath
+	
+)
+CreateDialog abc 
+
+if abc.dotnettreeview.SelectedNode !=undefined  then format "当前选择:%\n" abc.dotnettreeview.SelectedNode.FullPath
+showevents abc.dotnettreeview