picturebox en parametre

**LeXo** · 13/03/2007, 13h11

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

**zazaraignée** · 13/03/2007, 15h05

Tu dois déclarer ton paramètre en tant que PictureBox et non comme Object. Ça devrait marcher.

**LeXo** · 13/03/2007, 15h08

bha non

j'ai contourné le Pb en enlevant le passage de la picturebox en paramètre

mais apres il me fait une erreur

erreur 424
Un objet est requis

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
dessinCB barre
End Function

Public Function dessinCB(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
    Pic.ScaleMode = 3 ' dimensions en pixels