[R] Donner une action a un bouton
Posté : jeu. 15 janv. 2009 14:09
Bonjour
(Je précise avant tout que j’ai très peu de notion de programmation)
J’essaye de monter un projet qui permettrait, par une interface graphique utilisable par un client lambda, de se connecter en VNC sur des postes (IP statique). Dans le cas présent je vais prendre le schéma d’une salle que j’ai monté crée avec KODA. (L’interface est moche mais j’améliorai sa plus tard :p)
Voici ce que ça donne (je n’ai rien rajouté de plus que la compilation KODA):
La ou sa bloque, c’est lorsque je dois attribuer un event à mes petits bouton dans la box…
Merci d’avance pour votre aide!
(Je précise avant tout que j’ai très peu de notion de programmation)
J’essaye de monter un projet qui permettrait, par une interface graphique utilisable par un client lambda, de se connecter en VNC sur des postes (IP statique). Dans le cas présent je vais prendre le schéma d’une salle que j’ai monté crée avec KODA. (L’interface est moche mais j’améliorai sa plus tard :p)
Voici ce que ça donne (je n’ai rien rajouté de plus que la compilation KODA):
Code : Tout sélectionner
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=C:\Documents and Settings\Administrateur\Bureau\Projet VNC\VNC Salle216.kxf
$Form1 = GUICreate("Configuration salle 216", 638, 201, 274, 188)
$poste16 = GUICtrlCreateButton("poste 16", 8, 8, 105, 57, 0)
$poste15 = GUICtrlCreateButton("poste 15", 112, 8, 105, 57, 0)
$poste14 = GUICtrlCreateButton("poste 14", 216, 8, 105, 57, 0)
$poste13 = GUICtrlCreateButton("poste 13", 320, 8, 105, 57, 0)
$poste12 = GUICtrlCreateButton("poste 12", 424, 8, 105, 57, 0)
$poste11 = GUICtrlCreateButton("poste 11", 528, 8, 105, 57, 0)
$poste10 = GUICtrlCreateButton("poste 10", 8, 72, 105, 57, 0)
$poste9 = GUICtrlCreateButton("poste 9", 112, 72, 105, 57, 0)
$poste8 = GUICtrlCreateButton("poste 8", 216, 72, 105, 57, 0)
$poste7 = GUICtrlCreateButton("poste 7", 320, 72, 105, 57, 0)
$poste6 = GUICtrlCreateButton("poste6", 424, 72, 105, 57, 0)
$poste5 = GUICtrlCreateButton("poste 5", 528, 72, 105, 57, 0)
$poste4 = GUICtrlCreateButton("poste 4", 8, 136, 105, 57, 0)
$poste3 = GUICtrlCreateButton("poste 3", 112, 136, 105, 57, 0)
$poste2 = GUICtrlCreateButton("poste 2", 424, 136, 105, 57, 0)
$poste1 = GUICtrlCreateButton("poste 1", 528, 136, 105, 57, 0)
$prof = GUICtrlCreateButton("Prof", 320, 136, 105, 57, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEndMerci d’avance pour votre aide!
