PureBasic

Code : Tout sélectionner

Enumeration
  #mainform
  #fmcode
  #fmvalide
EndEnumeration

Procedure CloseWindow_CallBack()
  CloseWindow(#mainform)
EndProcedure

Procedure SendCode_CallBack()
  MessageRequester("Information", "Votre code est " + GetGadgetText(#fmcode))  
EndProcedure

Procedure ShowWindow()
  OpenWindow(#mainform, 0, 0, 500, 300, "Test", #PB_Window_SystemMenu|#PB_Window_ScreenCentered)
  TextGadget(#PB_Any, 20, 30, 80, 20, "Code")
  StringGadget(#fmcode, 110, 30, 150, 20, "")
  ButtonGadget(#fmvalide, 270, 30, 80, 22, "Valide")
  
  BindGadgetEvent(#fmvalide, @SendCode_CallBack())
  BindEvent(#PB_Event_CloseWindow, @CloseWindow_CallBack(), #mainform)  
EndProcedure

ShowWindow()

Code : Tout sélectionner

var _S5="";
var _S2="Votre code est ";
var _S3="Test";
var _S1="Information";
var _S4="Code";
var _S6="Valide";
var PB_DataPointer=0;

function proc0() {
	spider_CloseWindow(0);
return 0;
}
function proc4() {
	spider_OpenWindow(0,0,0,500,300,_S3,17);
	spider_TextGadget(-1,20,30,80,20,_S4);
	spider_StringGadget(1,110,30,150,20,_S5);
	spider_ButtonGadget(2,270,30,80,22,_S6);
	spider_BindGadgetEvent(2,proc2);
	spider_BindEvent(4,proc0,0);
	return 0;
}

function proc2() {
	spider_MessageRequester(_S1,_S2+spider_GetGadgetText(1));
	return 0;
}
//
function SpiderLaunch() {
proc4();
}