forward
global TYPE simple_demo FROM application
ENDTYPEEND forward
global TYPE simple_demo FROM application
string appname ="simple_demo"ENDTYPE
global simple_demo simple_demo
ON simple_demo.CREATEENDON
event OPEN;
OPEN( simple_demo_main )END event
$PBExportHeader$simple_demo_main.srw
forward
global TYPE simple_demo_main FROM window
ENDTYPETYPE b_button FROM commandbutton WITHIN simple_demo_main
ENDTYPEEND forward
global TYPE simple_demo_main FROM window
INTEGER width =800INTEGER height =1200BOOLEAN titlebar =TRUE
string title ="simple_demo"
b_button b_button
ENDTYPE
global simple_demo_main simple_demo_main
ON simple_demo_main.CREATE
this.b_button =CREATE b_button
this.Control[]={this.b_button}ENDONON simple_demo_main.destroy
destroy(this.b_button)ENDONTYPE b_button FROM commandbutton WITHIN simple_demo_main
INTEGER x =400INTEGER y =400INTEGER width =200INTEGER height =120
string text ="Show"ENDTYPE
event clicked;
END event
public partial class _simple_demo_main : Window
{public _simple_demo_main(){
InitializeComponent();
}privatevoid b_filter_Click(object sender,RoutedEventArgs e){}}
Ispirer MnMTK节省属性的大小和组建的位置像可转换的PowerBuilder应用:
PowerBuilder Application Window
WPF Application Window
转换选单(.SRM)到标准的用户控制
SRM文件是选单源文件。这些有元素和事件描述。这里是选单对一个元素例如为您的考虑:
$PBExportHeader$simple_menu.srm
forward
global TYPE simple_menu FROM menu
ENDTYPETYPE m_about FROM menu WITHIN simple_menu
ENDTYPEEND forward
global TYPE simple_menu FROM menu
ENDTYPE
global simple_menu simple_menu
ON simple_menu.CREATE
simple_menu=this
CALL super::CREATE
this.m_about=CREATE m_about
this.Item[UpperBound(this.Item)+1]=this.m_about
ENDONTYPE m_about FROM menu WITHIN simple_menu
ENDTYPEON m_about.CREATECALL super::CREATE
this.text ="&About"ENDON
event clicked;OPEN(simple_about)END event