Nous venons de sélectionner le contrôle "Threed32.ocx" de la firme "Sheridan"  Il ne nous reste plus qu' à cliquer sur le bouton "Appliquer" et lancer l' insertion du contrôle en appuyant sur le bouton "OK"

                                                
A quoi peut nous servir ce contrôle ?
Il peut en effet nous servir à beaucoup de choses néanmoins pour ceux qui ne le possèdent pas, laissez moi vous dire qu'il n 'est pas nécessaire et que l' on peut s' en passer avec un peu d' ingéniosité.

Voyons d' abord comment ce présentent ces nouveaux objets dans la boîte à outils.(de haut en bas) La petite croix en haut et à gauche qui porte le nom de "SSCheck1" est une "CheckBox".

Le carré qui porte intérieurement le caractère "F" est une "Frame" et porte le nom de SSFrame1
L'objet de droite est un bouton de commande qui se nomme "SSCommand1"
Dans la ligne du bas, nous avons l' objet "SSPanel1" qui est une sorte de 
"Panneau conteneur d' objets", vous pouvez y insérer pratiquement tous les objets de votre boîte à outils.
Au centre nous avons un bouton d' options nommé "SSOPtion1"
Et sur la droite un bouton de commande qui se nomme "SSRibbon1"

Tous ces objets ont la particularité de pouvoir écrire en caractère 3D, en plus le bouton "SSCommand" peut afficher une image en couleur. Les panels peuvent avoir un affichage graphique différent, j' ai représenté dans la Form1 deux panels identiques , mais représentés graphiquement de façon différente. Tous ces objets ont leur homologues qui sont livrés en standard par Visual Basic et ne sont donc pas indispensables pour réaliser une interface graphique. L' avantage si vous les possédez, est que vous allez pouvoir enjoliver votre présentation par une approche plus esthétique de la présentation graphique de votre page d' accueil.. L' inconvénient est que vous allez être obligé de livrer dans votre application le fichier "Threed.ocx" Mais... pourquoi pas ?

Le Contrôle "SPIN32.OCX"

double bouton poussoir(supérieur et inférieur

Ce contrôle est très intéressant car il permet de créer toute sorte d' applications qui offrent la possibilité de faire modifier une valeur par l' utilisateur.
Prenons par exemple la réalisation d' un chronomètre dont le pas d' incrémentation doit pouvoir être modifié par l' utilisateur.

Dans cet exemple le bouton "Spin" sert à régler la durée de la temporisation qui est fixé à 8 secondes, elle peut-être modifiée en plus ou en moins par l' utilisateur.

Nous allons voir comment écrire le code nous permettant d' utiliser ce contrôle dans nos applications.

Nous voulons réaliser un calendrier avec un compteur qui compte les jours de 1 à 31
 jours.
L'objet "SPIN" est un double bouton poussoir qui comprend deux procédures qui génèrent chacune d' entre-elles un événement lorsque vous appuyez sur un des deux boutons.
Le premier événement se produit lorsque vous appuyez sur le bouton supérieur pour incrémenter la valeur par défaut (incrémenter veut simplement dire ajouter 1 à la valeur initiale)
Le deuxième événement se produit lorsque vous appuyez sur le bouton inférieur pour décrémenter la valeur par défaut (décrémenter veut simplement dire retirer 1 à la valeur initiale) (La valeur 1 est un exemple et peut varier selon le vouloir du développeur)

Création des lignes de codes afférentes à cette procédure, nous écrivons :

Private Sub SpinButton1_SpinDown( )
'Jours débutent à 1
Dim Jour1 As Integer                        ' Jour1 est le nom de la variable qui va stocker
                                                         ' la valeur affichée dans une case mémoire
     Jour1% = Val(ctlJour1.Text)         'ctlJour1 est la Propriété Name de la TextBox
          If Jour1% >1 Then
               'Décrémenter
               ctlJour1.Text = Trim$(Str$(Jour1% - 1))
          End If
End Sub

Private Sub SpinButton1_SpinUp()
'Jours terminent à 31
Dim Jour1 As Integer                        ' Jour1 est le nom de la variable qui va stocker
                                                         ' la valeur affichée dans une case mémoire
     Jour1% = Val(ctlJour1.Text)         'ctlJour1 est la Propriété Name de la TextBox
          If Jour1% < 31 Then
               'Incrémenter
               ctlJour1.Text = Trim$(Str$(Jour1% + 1))
          End If
End Sub

L'application "Spin32" avec les sources de l' exemple décrites dans cette page.
Télécharger l' application "Spin"	Réalisation du 30 mai 2002
Télécharger l' application "AppSpin"