doc.progysm.com

Commentaires

Ils peuvent être partout dans le fichier et commence par une apostrophe '.

exemple de commentaire

    ' ceci est un commentaire commencant au début de la ligne
    a = a + 1 ' ceci est un commentaire après une instruction

    ' msgbox "ceci est une fonction avec un paramètre  " _ 
             + "sur plusieurs lignes et l'apostrophe " _ 
             + "avant la déclaration de la fonction " _ 
             + "met en commentaire toute la fonction"

Constantes

nul : variable nulle (sans donnée)

vbCrLf : changement de ligne \n\r : Chr$(10) + Chr$(13)
vbLf : changement de ligne \n
vbNewLine : changement de ligne \n

Déclaration:

En dehors des fonctions: globale à toutes les fonctions du fichier.
À l'intérieur des fonctions: usage unique à la fonction.

Types d'accès

Pour les variables, les fonctions et les procédures

• Private : accessible dans un module
• Public : accessible dans tout le projet (global)
• Protected : accessible à une fonction seulement

Variables

Déclaration

Dim nomVariable[,nomVariable] As nomType, [nomVariable As nomType]
Dim strVariable As String * nbChar
typeAcces nomVariable As nomType
Const nomVariable = Valeur
Set nomVariable = SubCall()
Set nomVariable = Nothing

Affectation

nomVariable = -5
strVariable = "valeur"
dblDouble = 5,5E+4 
dteDate = #18 novembre 1962#
dteDate = #18/11/1962#
dteHeure = #18:06:30#
dteHeure = #6:06 pm#
blnBoolean = True|False
objObject = Nothing

Type de variables

Nouveaux types

   [typeAcces] Type nomVariableType
       nomVariable As nomType
       ...
   End Type
   

Accès: nomVariableType.nomVariable

Fonction et procédure

[typeAcces] Fonction nomFonction ([nomVar as nomType, ... ]) [as nomType]
      nomFonction = valeurRetour
End Fonction

[typeAcces] Sub nomFonction ([nomVar as nomType, ... ])
      nomFonction = valeurRetour
End Sub

' sans retour
[typeAcces] Sub nomFonction ([nomVar as nomType, ... ])
      instruction1
      instruction2
End Sub

Propriété

Properties Let (nomVar as nomType)
      [instructions]
End Properties

Properties Get (nomVar as nomType)
      [instructions]
End Properties

Condition

If condition Then
    instructions
End If  

If condition Then instruction
  
If condition Then
    instructions
Else
    ...
End If  

If condition Then
    instructions
ElseIf condition Then  
    ...  
    Else  
         ...
End If  
 

Select Case expression
  Case condition 1
      Instruction Visual Basic
  Case condition 2
      Instruction Visual Basic
  Case condition 3
      Instruction Visual Basic
  Case Else
      Instruction Visual Basic
End Select

Boucle

Do While condition 
    Instructions Visual Basic
Loop 

Do 
    Instructions Visual Basic
Loop Until condition

For nomVar = valeurDebut To valeurFin [Step incrément] 
    Instructions Visual Basic 
Next [nomVar] 

while (condition) 
    instruction
    ...
wend 

Opérateurs

+   : addition
-   : soustraction
*   : multiplication
/   : division (avec virgule)
\   : nombre entier (plus près de 0)
Mod : modulo (reste d'une division)
^   : puissance
+ & : Addition de chaîne 

Les Opérateurs conditionnels:
=  : Égalité
<  : Plus petit
>  : Plus grand
<= : Plus petit ou égal
>= : Plus grand ou égal
<> : Différent
And: Et logique
Or : Ou logique
Xor: Ou exclusif
Not: Inverse (pas)

Concaténer des chaînes, ajouter des guillemets doubles

Dim strString
strString = "test"                              ' test
strString = strString & " test "                ' test test 
strString = strString & """" & "bla" & """"     ' test test "bla"

Liste de fonctions

• Len(nomVariable) : indique la longueur en octet de la variable

Logiciel Microsoft Visual Basic

Raccourcis

créateur de menu : Ctrl+E

Popup:
titre nom visible
 autre éléments visible

code:
' lorsqu'on clique (tenir) sur un bouton
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
     ' bouton droit = 2
     If Button = 2 Then
          PopupMenu mnu
     End If
End Sub

Erreur

Objet: Err

On Error Resume Next