PureBasic

Code : Tout sélectionner

;------------------------------------------------------
;Window et Gadget
;------------------------------------------------------
Enumeration
  #MainForm
  #EdtTelephone
EndEnumeration
;------------------------------------------------------
;Variables globales
;------------------------------------------------------
;handle de la fenetre
Global hWnd.l
;handle de l'editbox (peut etre recupere avec gadgetid())
Global hEdtTelephone.l
;proc normale de l'editbox
Global EdtTelephoneOldProc.l

Global Quit.b = #False
;------------------------------------------------------
;Procedure de sous classement
;------------------------------------------------------
Procedure EdtTelephoneWndProc(WindowID, Message, wParam, lParam)

  Select Message
    Case #WM_KEYDOWN
      chaine$=GetGadgetText(#EdtTelephone)
      If wParam = #VK_RETURN
        If Len(chaine$) >8
          SetGadgetText(#EdtTelephone, Mid(chaine$, 0, 2) +"-"+Mid(chaine$, 3, 2) +"-" +Mid(chaine$, 5, 2)  +"-" +Mid(chaine$,7, 2) +"-" +Mid(chaine$, 9, 2) )
          SendMessage_(WindowID,#EM_SETSEL,0,15) 
          ProcedureReturn 0
        EndIf
      EndIf
  EndSelect
  
  ProcedureReturn CallWindowProc_(EdtTelephoneOldProc, WindowID, Message, wParam, lParam) 
EndProcedure
;------------------------------------------------------
;Debut de programme
;------------------------------------------------------
hWnd = OpenWindow(#MainForm, 0, 0, 220, 40, #PB_Window_SystemMenu | #PB_Window_ScreenCentered | #PB_Window_MinimizeGadget,"SousClassement")
If hWnd
  If CreateGadgetList(WindowID(#MainForm))
     hEdtTelephone = StringGadget(#EdtTelephone, 10,10, 200, 20,"", #PB_String_Numeric)
     EdtTelephoneOldProc = SetWindowLong_(hEdtTelephone, #GWL_WNDPROC, @EdtTelephoneWndProc())
  EndIf   
EndIf

Repeat
  EventID = WaitWindowEvent()
  Select EventID
    Case #PB_Event_CloseWindow
        Quit = #True
  EndSelect
Until Quit = #True
  
End