Window.width = 200;
Window.height = 100;
Window.title = "Fast Start";
Window.AddControl(800,1,
10,5,50,10,"Your button");
function WM_COMMAND(id)
{
if (id == 800)
Window.MessageBox(Window.title,
"Butt. id="+id,64);
};
|
Dim title
title = "Fast Start"
Window.width = 200
Window.height = 100
Window.title = CStr(title)
Window.AddControl 800,1,10,5,50,10,"Your button"
Function WM_COMMAND (id)
Window.MessageBox CStr(title), CStr(id), 64
End Function
|