Si vous débutez en Visual Basic, vous trouverez, peut-être, l'aide en ligne un peu rébarbative, ou vous aurez du mal à formuler votre question. D'où ce petit aide mémoire.

Note : Police proportionnelle = courrier

Convention d'écriture des objets

Les Form ou feuilles

• ControlBox False cache les contrôles (de fermeture, agrandissement ...) de la feuille (Form)
• Sub Form_load est utilisé pour le code avant chargement de la feuille.
• WindowStade => Maximized affiche la feuille plein écran
• caption = texte qui sera affiché dans la barre des titres.

Les TextBox

• Multiline => True, pour afficher les sauts de lignes
• ScrollBars (0 - none => aucunes ; 1 - Horizontal ; 2 - Vertical ; 3 - Both => les 2), pour les ascenseurs

• .SelStart sélection position début
• .SelLen  sélection longueur

ListBox

Il existe des objets similaire : DriveListBox, DirListBox, FileListBox

Evènements (le focus : l'objet est en court, sélectionné) :

Propriétés

Note :

Lst.AddItem "Lucie Gombaud"					' prénom & nom
Lst.ItemData(Lst.NewIndex) = 42310				' matricule

• pour trier, vous pouvez affectez la valeur True à la propriété Sorted du contrôle ListBox (ne fonctionne qu'à l'initialisation de la feuille).
• si on affecte la valeur True à la propriété Sorted du contrôle ListBox, cela la trie (ne fonctionne pas dans le code même en form_load). Il faut parfois actualiser (F5).

ComboBox

Valeur des touches clavier

Les Tableaux

Redim

Les Variables

Les Constantes

Constante	Équivalent	Description
vbCrLf	Chr(13) + Chr(10)	Combinaison des caractères de retour chariot et de saut de ligne
vbCr	Chr(13)	Caractère de saut de paragraphe
vbLf	Chr(10)	Caractère de saut de ligne
vbNewLine	Chr(13) + Chr(10)	Caractère de saut de ligne spécifique à la plate-forme ;choix en fonction de la plate-forme
vbNullChar	Chr(0)	Caractère ayant la valeur 0
vbNullString	Chaîne ayant la valeur 0	Différent d'une chaîne de longueur nulle ("") ; permet l'appel de procédures externes
vbObjectError	-2147221504	Les numéros d'erreur définis par l'utilisateur doivent être supérieurs à cette valeur. Par exemple : Err.Raise Number = vbObjectError + 1000
vbTab	Chr(9)	Caractère de tabulation
vbBack	Chr(8)	Caractère de retour arrière
vbFormFeed	Chr(12)	Inutilisé sous Microsoft Windows
vbVerticalTab	Chr(11)	Inutilisé sous Microsoft Windows

Option Explicit

Cette ligne en début de programme vous obligera à déclarer vos variables avant de les utiliser.

Vous pouvez généraliser cela pour tous vos programmes automatiquement :
Outils/Options/Editeur cocher "Déclaration des variables obligatoire" (dans Paramètres du code)

Opération sur les zones alphabétiques

Right(zone,x)	prend les x caractères à partir de la droite
Left(zone,x)	prend les x caractères à partir de la gauche
Mid(zone,x,y)	prend y caractères à partir de x (si pas y, prend tout après x) attention x commence à 1
Str(zone_numérique)	Transforme une zone numérique en alpha
Val(zone_numérique)	Transforme une zone alpha en numérique
Chr(13) + Chr(10)	Génère un saut de ligne (pour test utiliser plutôt Chr(13) & Chr(10) )
UCase(ZoneAlpha) LCase(ZoneAlpha)	Converti en majuscule ou minuscule

Un petit truc pour formater une ligne : Right(" " + Str(zone_de_3_chiffres), 3)
A quoi çà sert, ben, pour sauvegarder/charger des nombres à partir d'un fichier texte.

Toujours pas compris ? Vous voulez gérer le nombre de billes des élèves d'une classe sans passer par un base de donnée. Donc vous avez : Paul 10 billes, Jacques 5....
Mais, vous ne pouvez pas sauvegarder additionner du texte ni avoir un texte+zone numérique dans le fichier.
Donc vous faites un fichier texte du style 25 caractères pour le prénom + 3 caractères pour le nombre de billes. Puis en jouant avec les Val et Str, les Mid, vous avez tout.

Les conversions

Fonction	Type renvoyé	Plage de valeurs de l'argument expression
CBool	Boolean	Toute chaîne ou expression numérique valide.
CByte	Byte	0 à 255.
CCur	Currency	-922 337 203 685 477,5808 à 922 337 203 685 477,5807.
CDate	Date	Toute expression de date valide.
CDbl	Double	-1,79769313486232E308 à -4,94065645841247E-324 ou 4,94065645841247E-324 à 1,79769313486232E308
CDec	Decimal	+/-79 228 162 514 264 337 593 543 950 335 sans décimales ou, +/-7,9228162514264337593543950335 à 28 décimales. Le + petit nombre <> 0 est 0,0000000000000000000000000001.
CInt	Integer	-32 768 à 32 767 ; les fractions sont arrondies.
CLng	Long	-2 147 483 648 à 2 147 483 647 ; les fractions sont arrondies.
CSng	Single	-3,402823E38 à -1,401298E-45 ou, 1,401298E-45 à 3,402823E38
CStr	String	Les valeurs renvoyées par la fonction Cstr dépendent de l'argument expression
CVar	Variant	Même plage de valeurs que le type Double pour les nombres et que le type String pour les chaînes non numériques.

Contrôle de saisie

MsgBox

Fichier Texte

Lecture d'un fichier texte

Dim CheminFichier, Texte As String
Dim a As Long
CheminFichier = "c:\Autoexec.bat"
a = FreeFile() ' pour obtenir le No de fichier disponible
Open CheminFichier For Input As #a
Texte = Input(LOF(a), a)
Close #a

 
Dim lg As String       ' fichier à ouvrir
Dim x As Integer       ' compteur
Dim iteme() As String  ' tableau

x = 1
lg = ""
Open "h:\mes documents\item\ListInvent.txt" For Input As #1
Line Input #1, lg
Do While Not EOF(1)
  Line Input #1, lg
  x = x + 1
Loop
Close #1
Redim iteme(x)		' on pourrait mettre (x-1) mais en cas de fichier vide ?

Fichier à accès direct

Type EnrItem
  Num As String * 5
  Lib As String * 40
End Type

Dim Item As EnrItem
Open "ItemFich.txt" For Random Access Write As #1
Put #1, num_enr, Item			' écrit
..
Get #1, [num_enr], Item		' Se positionne et lit
..
Seek #1 num_enr			' Se positionne

Open "ItemFich.txt" For Binary Access Write As #1
Get #1, [No_octet], variable
ou
Seek #1, No_enr
x = Input$(1,8)
...
Put #1, No_enr, variable

Les Boucles

CommandButton

• Le nom externe (= Caption) peut être effacé.
• Propriété Picture choisir l'image
• Propriété Style choisir 1 - Graphical

Option Bouton

Private Sub NomProcedure_Click(Index As Integer)
Select Case Index
  Case Is = 1
    ...
  Case Is = 2
    ...
End Select

Afficher une aide simple

Mais si vous avez plusieurs lignes de commentaires, cela est un peu tristounet.

Vous avez la possibilité de créer un fichier .RTF avec les avantages qu'il procure (police, couleurs ...)
Créer un fichier .HLP (voir Help WorkShop) puis, au début de votre feuille sous Option Explicit créez la ligne suivante :

Private Declare Function WinHelp% Lib "user32" Alias "WinHelpA" _
 (ByVal hwnd&, ByVal HelpFile$, ByVal wCommand%, dwData As Any)

Dim nRet
If Len(App.HelpFile) = 0 Then
  MsgBox "Impossible d'affichiez le sommaire de l'aide. Il n 'y a pas d'aide associée à ce projet.", _
    vbInformation, Me.Caption
Else
  On Error Resume Next
  nRet = WinHelp(Me.hwnd, App.HelpFile, 3, 0)
  If Err Then
    MsgBox Err.Description
  End If
End If

Les tests

If ... Then ...

If ... Then
  ...
  ElseIf ... Then
Else
  ...
End If

Select Case Nombre   ' Évalue Nombre.
  Case 1 To 5
    MsgBox "Le nombre est compris entre 1 et 5 inclus"
  Case 6, 7, 8
    MsgBox "Le nombre est compris entre 6 et 8 inclus"
  Case 9 To 10
    MsgBox " Le nombre est 9 ou 10."
  Case Else
    MsgBox "Non compris entre 1 et 10"
End Select

  Select Case Button.Key
    Case "Sauve"
            
    Case "Couper"
    Case "Coller"
    Case "Ncr"

  End Select

Les Contrôles de base de la boite à outils

Nom du contrôle	Description
PictureBox	C'est un conteneur d' autres objets. Vous pouvez insérer une image ou par exemple un groupe d' objets en une seule opération
Label	On utilise ce contrôle pour placer du texte comme affichage simple ou comme étiquette.(L' utilisateur ne peut pas modifier le texte saisi dans ce contrôle)
TextBox	C' est le seul objet qui vous permet de saisir du texte, des nombres ou des dates.
Frame	Ce contrôle sert à enjoliver votre présentation. Un autre contrôle remplit le même rôle mais n' est pas livré en standard, c 'est le contrôle Sheridan 3D Controls qui est généré par le fichier Threed32.ocx.(A posséder impérativement)
CommandButton	C'est un bouton poussoir qui enclenchera une action par l' intermédiaire d' une procédure événementielle.
CheckBox	C'est une case à cocher
OptionButton	C'est un bouton radio(Option)
ComboBox	Il s' agit d' une liste modifiable qui permet de choisir un seul élément dans une liste mais aussi de taper une valeur qui n' est pas affichée
ListBox	C'est une liste dans laquelle vous pouvez choisir un ou plusieurs éléments, sans pouvoir saisir de nouvelle valeur.
HScrollBar	C'est un ascenseur horizontal
VScrollBar	C'est un ascenseur vertical
Timer	C'est une minuterie, genre chronomètre qui vous permet d' enclencher une action toutes les n millisecondes
DriveListBox	Ce contrôle permet d' afficher la liste de tous les lecteurs disponibles sur l' ordinateur
DirListBox	Ce contrôle permet d' afficher la liste de tous les répertoires d' un lecteur sélectionné
FileListBox	Ce contrôle permet d' afficher la liste de tous les fichiers d' un répertoire sélectionné
Shape	Permet de dessiner des formes, rectangles, cercles
Line	Permet de dessiner des lignes
Image	Sert à insérer des images, nous le préférerons à l' objet PictureBox
Data	Ce contrôle permet de programmer l' accès aux bases de données
OLE	Il permet de placer des applications OLE(Object Link and Embedding)

Les boites de dialogues communes

• d'ouverture
• d'enregistrement
• de couleur
• de police de caractères
• d'impression

1. La boîte de dialogue Ouvrir

2. La boîte de dialogue Sauvegarder sous.

3. La boîte de dialogue Couleur.

4. La boîte de dialogue Police de caractères

2. La boîte de dialogue Imprimer

Menus et menus contextuels

Le menu contextuel

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single), Y As Single
If (Button = 2) Then
PopupMenu X
end if End Sub

• Pour que le menu contextuel apparaisse en cliquant sur le bouton gauche de la souris, remplacez 2 par 1 dans la condition (Button = 1);
• Pour que le menu contextuel apparaisse en cliquant sur le bouton central de la souris, remplacez 2 par 4 dans la condition (Button = 4);

Private Sub RText1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = vbRightButton Then
        PopupMenu mnuEdit
    End If
End Sub

Le presse papier

• Si vous utilisez le contrôle TextBox, vous n'avez pas besoin de définir des procédures pour le presse-papier (il est déjà intégré dans le contrôle).
• Si vous utilisez le contrôle RichtextBox, alors il vous faudra définir vous-même le presse-papier.

• ClipBoard.GetText : lire le contenu du presse-papier(uniquement avec des données textuelles).
• ClipBoard.SetText : écrire dans le presse-papier(uniquement avec des données textuelles).
• ClipBoard.Clear : effacer le contenu du presse-papier.
• ClipBoard.GetFormat(type) : indique le type de données présent dans le presse-papier. Les valeurs retournée sont :
• (vbCFText) : données de type texte.
• (vbCFBitmap) : image en mode point(bitmap).
• (vbCFMetafile) : métafichier vectoriel(wmf).
• vbCFDib) : image bitmap indépendante du périphérique.
• (vbCFPalette) : palette de couleur.
• (vbCFEMetafile) : métafichier amélioré(emf).
• (vbCFFile) : noms de fichiers copiés depuis l'Explorateur de Windows.
• &FFFFBF00 (vbCFLink) : liaisonDDE(valeur exprimée sous forme hexadécimale).
• &FFFFBF01 (vbCFRTF) : texte au format RTF.
• ClipBoard.GetData permet de lire le contenu du presse-papier(uniquement avec des données graphiques).
• ClipBoard.SetData permet d'écrire dans le presse-papier(uniquement avec des données graphiques).

La barre d'outils et la barre d'état

1. La barre d'outils

• Key : le nom des images que vous avez choisi dans le contrôle ImagaList.
• ToolTipText : vous permet d'afficher une bulle lorsque vous survolez l'image.
• Image : les numéros correspondants aux images contenues dans le contrôle ImagaList.

2. La barre d'état

Les imprimantes

For I = 0 To Printers.Count - 1
    Txt.Text = Txt.Text & "------ Imprimante " & (I + 1) & " ------" & vbNewLine
    Txt.Text = Txt.Text & "Device Name =" & Printers(I).DeviceName & vbNewLine
    Txt.Text = Txt.Text & "Driver Name =" & Printers(I).DriverName & vbNewLine
    Txt.Text = Txt.Text & "Port =" & Printers(I).Port & vbNewLine
Next
Set Printer = Printer (0)

Appel de base sous SQL Server

Fig.1	Fig.2	Si dans la boite à outils l'objet Data (Data Environnement) n'existe pas : clic droit sur la boite à outils, composant, onglet concepteurs, cocher Data Environnement. Puis clic droit sur le nom du projet, ajouter, Data Environnement (fig.1) Double clic sur Data Environnement dans la grande fenêtre clic droit sur connection1, propriétés (fig.2) : Onglet Fournisseur choisir Microsoft OLE DB Provider For SQL Server (pour SQL sever 2000) Onglet connection choisir sa connection (ex M102) dans la liste déroulante sélectionner Utiliser la sécurité intégrée de Windows NT (option Bouton) sélectionner sélectionner la base de donnée sur le serveur (option Bouton) Choisir la base sur laquelle vous voulez travailler dans la liste déroulante Cliquer sur le bouton tester la connection pour vérifier Cliquer sur le bouton "OK"

Dans la fenêtre principale (celle du data environnement, si besoin aller dans le menu principal, fenêtre) : clic droit sur la connection et choisir ajouter une commande. clic droit sur ce dernier, puis propriété là, vous pouvez soit choisir directement l'Objet de base de donnée (table par ex.) et le nom de l'objet dans listes déroulantes (fig.4) soit choisir instructions SQL, cliquez sur le bouton Générateur SQL pour créer votre propre vue.

Votre table est prête à l'emploie. Il vous ne reste plus qu'à transporter les champs sur la feuille (form) VB. Mettez côte à côte les fenêtres Form et DataEnvironnement Faites un cliquer-glisser de la commande (ou du détail, +) de la feuille DataEnvironnement à la Form.

Appel d'une base Access

		Si dans la boite à outils l'objet Data (Data Environnement) n'existe pas : clic droit sur la boite à outils, composant, onglet concepteurs, cocher Data Environnement. Puis clic droit sur le nom du projet, ajouter, Data Environnement (idem SQL fig.1) Double clic sur Data Environnement dans la grande fenêtre clic droit sur connection1, propriétés : Onglet Fournisseur choisir Microsoft OLE DB Provider for ODBC Drivers Onglet connection choisir utiliser la chaîne de connection Cliquer sur le bouton Onglet Source de données machine : Choisir MS Access Database Sous la nouvelle fenêtre cliquer sur Base de donnée, et choisir sa base Access, valider Cliquer sur le bouton tester la connection pour vérifier Cliquer sur le bouton "OK"

• clic droit sur la connection et choisir ajouter une commande.
  
• clic droit sur ce dernier, puis propriété, puis :
  • Cliquez sur l'onglet relation (un message apparaîtra, n'en tenez pas compte), choisir votre base de donnée Access.
  • Ne sortez pas de la fenêtre, cliquez sur l'onglet général et choississez votre objet base de donnée (ex : table) ou créez-en un Instruction SQL.
  • Cliquez sur Appliquer, puis sur OK.
  • Faire un cliquer-glisser de la commande ou des champs sur la Form (idem que pour SQL Server)

ADO Data Control : l'objet

• Onglet général : cliquez sur le bouton céer (une chaîne de connexion) choissisez le fournisseur et la connection (voir accès au base SQL ou accès aux bases Access).
  
  
• Onglet ressource, fenêtre type de commande:
• Soit AdCmdUnknown pour créer votre propre requête
• Soit AdCmdTable pour choisir la Table
• soit ....

• DataSource choisir dans la liste votre AdOdc
• DataField choisir dans la liste un champ

ADO Data Control : l'objet

• Connection (source de données)
• Command (permet des requêtes et envoyer des enregistrements)
• Recordset (gère les enregistrements, Fields = champs)

• SQLOLEDB pour SQL Server
• MSDASQL pour 1 source ODBC
• Microsoft.jet.OLEDB.3.51 (ou 4.0) pour le moteur Jet
• MSIDXS pour Index Server
• ADSDSOObjet pour Active Directory Service
• MSDAORA pour Oracle

Dim Cnx As ADODB.Connection
Set Cnx = New Connection
With Cnx
  .Provider = "SQLOLEDB"
  .ConnectionString = "User ID=toto;Data Source = SQL_SCR_1;Initial Catalog=Mabase"
  .open
End With

Dim Cmd As ADODB.Command
Set Cmd = New Command
With Cmd
  .ActiveConnection = Cnx
  .CommandText = "Update Vente SET px = px * 0.1"
  .Execute		
End Wit

Dim Rs As New Recordset
...
Private Sub Form_Load()
  Rs.Open "SELECT * FROM " & nom_table, ma_connexion, adOpenDynamic, adLockOptimistic

Dim Cmd As ADODB.Command
Set Cmd = New Command
With Cmd
  .ActiveConnection = "Provider = "SQLOLEDB;User ID=toto;Data Source = SQL_SCR_1;Initial Catalog=Mabase"
  ...
End With

SetFocus : bug

Appel prog. ext. : Shell

Help WorkShop