Bonjour
voila j'ai "barre" qui est un string et qui contient des 0 et des 1
et un pictureBox pic
et il me fait une erreur

type d'argument ByRef incompatible
et pourkoi donc

d'avance merci

je fais dessinCB pic, chaine

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Public Function dessinCB(obj As Object, barre As String)
Dim i As Integer
Dim c As String * 1
Dim xpos As Long
Dim Y1, Y2 As Single
Dim ow As Byte
Dim bw As Integer 'largeur d'une barre
bw = 1 'largeur = 1 pixel
 
 
    ' Dessine le code-barre dans l'objet graphique
    obj.ScaleMode = 3 ' dimensions en pixels
    obj.DrawWidth = 1 ' barres de 1 pixel de large
    'obj.FontSize = 8 ' taille de la police de caractères
    obj.Cls ' Efface l'objet image
    obj.Picture = Nothing
 
....
 
End Function