116 lines
3.8 KiB
Plaintext
116 lines
3.8 KiB
Plaintext
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 |