Sommaire ArcObject
Les objets
MiniFAQ
Les UIControls
Les UIControls sont les objets disponibles pour la personnalisation de l'application ArcGIS. Ils s'insèrent dans des barres d'outils
Il y a quatre types d'UIControls :
- Button
- bouton de commande (UIB)
- EditBox
- Zone de texte (UIE)
- ToolBox
- Outil (UIT)
- ComboBox
- zone de liste (UIC2)
Les évènements associés
| Evènements | UIB | UIE | UIT | UIC |
|---|---|---|---|---|
| Checked | X | |||
| Click | X | |||
| Enabled | X | X | X | X |
| Message | X | X | X | X |
| ToolTip | X | X | X | X |
| Change | X | |||
| GotFocus | X | X | ||
| KeyDown | X | X | X | |
| LostFocus | X | X | ||
| ContextMenu | X | |||
| CursorID | X | |||
| DblClick | X | |||
| Desactivate | X | |||
| KeyUp | X | |||
| MouseDown | X | |||
| MouseMove | X | |||
| MouseUp | X | |||
| Refresh | X | |||
| Select | X | |||
| EditChange | X |
Détail des évènements :
- Checked
- Click
- Clique avec le bouton gauche de la souris
- Enabled
- active (=true) désactive (=false) le contrôle
- Message
- texte affiché dans la barre d'état à gauche
- ToolTip
- Infobulle
- Change
- se produit quand l'utilisateur entre du texte dans la combo box
- GotFocus
- se produit quand le contrôle obtient le focus
- KeyDown
- se produit quand l'utilisateur presse une touche
- LostFocus
- se produit quand le contrôle perds le focus
- ContextMenu
- se produit quand clic droit
- CursorID
- request the cursor ID of the specified item
- DblClick
- double clic gauche
- Desactivate
- KeyUp
- seproduit quand l'utilisateur relache une touche
- MouseDown
- l'utilisateur appuis sur le bouton gauche de la souris
- MouseMove
- l'utilisateur déplace la souris avec le bouton gauche enfoncé
- MouseUp
- l'utilisateur relève le bouton gauche de la souris
- Refresh
- se produit quand "The map" est rafraîchie
- Select
- sélection de l'outil
- EditChange
Exemple d'utilisation :
Private Sub UIBC_test_Click()
MsgBox "Hello World !!"
End Sub
Private Function UIBC_test_Message() As String
UIBC_test_Message = "Bouton de test"
End Function
Private Function UIBC_test_ToolTip() As String
UIBC_test_ToolTip = "Bouton de test"
End Function
Private Function UIBC_test_Enabled() As Boolean
Dim pMxDoc As IMxDocument
Set pMxDoc = ThisDocument
If pMxDoc.FocusMap.LayerCount > 0 Then
UIBC_test_Enabled = True
Else
UIBC_test_Enabled = False
End If
End Function
http://mathias.dubreuil.free.fr
Dernière modification : 02 Mai 2007