OCX: SIMULATEUR D'AFFICHEUR LCD ALPHANUMÉRIQUE

Private Sub Form_Load()
' CODE POUR L'UTILISATION DU CONTROLE LCD.OCX
' N'oubliez pas d'ajouter le LCD.ocx. Ici, je l'ai nommé simplement "LCD":


With LCD
    ' On définit le nombre de ligne...
    .Rows = 2
    ' ...et le nombre de colones
    .Cols = 16
    
    
    ' On initialise le LCD:
    ' --> Avec cette action, on crée le nombre de digits sous forme de labels
    '     en fonction du nombre de colones et de lignes définis à l'étape
    '     précédente.
    .LCDInit
    
    
    ' On positionne le curseur sur l'écran pour s'apréter à y écrire quelquechose
    .LCDLocate 2, 0
    ' Et on écrit un texte:
    .LCDPrint "Hello world!"
    
    
    ' Facultatif:
    ' On dimensionne l'écran en fonction du nombre de colones et de lignes:
    ' --> Une colone est large de 210 et une ligne est haute de 320.
    '     30 correpond à l'écart entre chaque digit
    .Width = (.Cols * 210) + (.Cols * 30) + 30
    .Height = (.Rows * 320) + (.Rows * 30) + 30
    
    ' ET N'OUBLIEZ PAS DE...
    ' ...consulter la source de l'ocx! C'est commenté aussi! Vous pigerez peut-être mieux!
End With
End Sub