OVH Cloud OVH Cloud

Traduction VB/windev

4 réponses
Avatar
Mas Fabien
Quelqu'un peut il me traduire ce code VB en Windev ?

Dim data() As Byte

Fabien

4 réponses

Avatar
Romain PETIT
Mas Fabien avait énoncé :
Quelqu'un peut il me traduire ce code VB en Windev ?

Dim data() As Byte



Un Byte VB correspond à un entier sur 1 octet, en général non signé
(entier court en WD55, entier sans sur 1 octet en WD7x/8.)
Le data() correspond à un tableau dont les dimensions ne sont pas
définies.
Tu peux essayer d'utiliser un tableau dynamique mais s'il s'agit de
traduire l'appel d'une API, avec Windev il faudra que tu utilises un
tableau fixe en spécifiant la dimension lors de la déclaration.

A+

--
Romain PETIT
http://cerbermail.com/?IJmancZl88
(cliquez sur le lien ci-dessus pour me contacter en privé)
Avatar
Mas Fabien
bon ca marche tjrs pas

j'utilise un activeX( TX Text Control) et une methode LoadFromMemory ()
qd je passe un tableau fixe j'ai cette erreur :

"une erreur est survenue sur la fenetre :
Vous avez appele la methode Automation 'LoadFromMemory'
En tentant d'invoquer la mehode, l'objet Automation/activeX a renvoyé
l'erreur suivante :
Valeur de la propriete incorrecte
Type de parametre incorrect


/// Suit un exemple VB sorti de l'aide :
Dim ba() As Byte, s As String

' Load RTF data and convert it to a byte array
s = rs("RTF")
ba = StrConv(s, vbFromUnicode)

' Display RTF data in Text Control 1
TXTextControl1.LoadFromMemory ba, 5, 0



"Romain PETIT" a écrit dans le message de news:

Mas Fabien avait énoncé :
Quelqu'un peut il me traduire ce code VB en Windev ?

Dim data() As Byte



Un Byte VB correspond à un entier sur 1 octet, en général non signé
(entier court en WD55, entier sans sur 1 octet en WD7x/8.)
Le data() correspond à un tableau dont les dimensions ne sont pas
définies.
Tu peux essayer d'utiliser un tableau dynamique mais s'il s'agit de
traduire l'appel d'une API, avec Windev il faudra que tu utilises un
tableau fixe en spécifiant la dimension lors de la déclaration.

A+

--
Romain PETIT
http://cerbermail.com/?IJmancZl88
(cliquez sur le lien ci-dessus pour me contacter en privé)



Avatar
Romain PETIT
Mas Fabien a exprimé avec précision :
bon ca marche tjrs pas
j'utilise un activeX( TX Text Control) et une methode LoadFromMemory ()
qd je passe un tableau fixe j'ai cette erreur :

"une erreur est survenue sur la fenetre :
Vous avez appele la methode Automation 'LoadFromMemory'
En tentant d'invoquer la mehode, l'objet Automation/activeX a renvoyé
l'erreur suivante :
Valeur de la propriete incorrecte
Type de parametre incorrect



/// Suit un exemple VB sorti de l'aide :
Dim ba() As Byte, s As String
' Load RTF data and convert it to a byte array
s = rs("RTF")
ba = StrConv(s, vbFromUnicode)
' Display RTF data in Text Control 1
TXTextControl1.LoadFromMemory ba, 5, 0




D'après ce que je comprend, la variable ba est plutôt un Variant
(String).
Essaye avec le type Variant en W-langage :

ba est un variant = "toto"
TXTextControl1>>LoadFromMemory(ba, 5, 0)

A+

--
Romain PETIT
http://cerbermail.com/?IJmancZl88
(cliquez sur le lien ci-dessus pour me contacter en privé)
Avatar
Mas Fabien
ca marche merci bien :)

"Romain PETIT" a écrit dans le message de news:

Mas Fabien a exprimé avec précision :
bon ca marche tjrs pas
j'utilise un activeX( TX Text Control) et une methode LoadFromMemory ()
qd je passe un tableau fixe j'ai cette erreur :

"une erreur est survenue sur la fenetre :
Vous avez appele la methode Automation 'LoadFromMemory'
En tentant d'invoquer la mehode, l'objet Automation/activeX a renvoyé
l'erreur suivante :
Valeur de la propriete incorrecte
Type de parametre incorrect



/// Suit un exemple VB sorti de l'aide :
Dim ba() As Byte, s As String
' Load RTF data and convert it to a byte array
s = rs("RTF")
ba = StrConv(s, vbFromUnicode)
' Display RTF data in Text Control 1
TXTextControl1.LoadFromMemory ba, 5, 0




D'après ce que je comprend, la variable ba est plutôt un Variant (String).
Essaye avec le type Variant en W-langage :

ba est un variant = "toto"
TXTextControl1>>LoadFromMemory(ba, 5, 0)

A+

--
Romain PETIT
http://cerbermail.com/?IJmancZl88
(cliquez sur le lien ci-dessus pour me contacter en privé)