1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35
|
Procedure OpenWindow_0(x = 0, y = 0, width = 600, height = 400)
If OpenWindow(#Window_0, 200, 200, 800, 390, "DVP - Gestion de Contacts", #PB_Window_SystemMenu | #PB_Window_TitleBar | #PB_Window_ScreenCentered )
ListViewGadget(#Listview_0, 10, 10, 300, 370)
ButtonGadget(#Button_0, 320, 350, 080, 30, "Reset")
ButtonGadget(#Button_1, 400, 350, 100, 30, "Ajouter")
ButtonGadget(#Button_2, 500, 350, 100, 30, "Mettre à jour")
ButtonGadget(#Button_3, 600, 350, 100, 30, "Supprimer")
ButtonGadget(#Button_4, 700, 350, 100, 30, "Parcourir")
TextGadget(#Text_0, 320, 20, 110, 20, "Nom :")
TextGadget(#Text_1, 320, 50, 110, 20, "Prénom : ")
TextGadget(#Text_2, 320, 80, 110, 20, "Profession : ")
TextGadget(#Text_4, 320, 110, 110, 20, "Société :")
TextGadget(#Text_5, 320, 140, 110, 20, "Adresse :")
TextGadget(#Text_6, 320, 170, 110, 20, "Code Postal :")
TextGadget(#Text_7, 320, 200, 110, 20, "Ville :")
TextGadget(#Text_8, 320, 230, 110, 20, "Pays :")
TextGadget(#Text_9, 320, 260, 110, 20, "Téléphone :")
TextGadget(#Text_10, 320, 290, 110, 20, "Fax : ")
TextGadget(#Text_11, 320, 320, 110, 20, "Mail :")
TextGadget(#Text_12, 620, 20, 110, 20, "Photo :")
StringGadget(#String_0, 450, 20, 150, 20, "")
StringGadget(#String_1, 450, 50, 150, 20, "")
StringGadget(#String_2, 450, 80, 150, 20, "")
StringGadget(#String_3, 450, 110, 150, 20, "")
StringGadget(#String_4, 450, 140, 150, 20, "")
StringGadget(#String_5, 450, 170, 150, 20, "")
StringGadget(#String_6, 450, 200, 150, 20, "")
StringGadget(#String_7, 450, 230, 150, 20, "")
StringGadget(#String_8, 450, 260, 150, 20, "")
StringGadget(#String_9, 450, 290, 150, 20, "")
StringGadget(#String_10, 450, 320, 150, 20, "")
ImageGadget(#Image_0, 620, 50, 160, 240, 0, #PB_Image_Border)
EndIf
EndProcedure |
Partager