Files
tools/接口/dotnet控件ui.ms
2025-07-31 16:05:55 +08:00

84 lines
3.3 KiB
Plaintext

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