PC SOFT

FOROS PROFESIONALES
WINDEVWEBDEV y WINDEV Mobile

Inicio → WINDEV 2025 → code vb6
code vb6
Iniciado por alex.benaji, 12,jun. 2020 18:02 - 10 respuestas
Publicado el 12,junio 2020 - 18:02
Boonjour,
j'ai un code en vb6 qui doit etre traduit en windev, specialement les trois cas suivant:

- mtOptionsBuffSize&, remarquer le "&" a la fin
- String(4096, Chr(0))
- String(4096, Chr$(0)) (avec le $)

voila le code en vb6

Dim mtValue As String
Dim mtOptions As String
Dim mtOptionsBuffSize As Long
Dim ReturnCode As Long

mtValue = String(4096, Chr(0))
mtOptions = String(4096, Chr$(0))
mtOptionsBuffSize& = 4096

ReturnCode = MTSetValue(mtOptions, "Application", "Transfer", "HTTP", mtOptionsBuffSize&)

Merci d'avance.
Miembro registrado
948 mensajes
Publicado el 12,junio 2020 - 23:44
bonsoir
pour mtValue = String(4096, Chr(0)) je verais bien un : mtValue est une chaine = repete(4096, Caract(0x0))
en vb long sera remplacé par "un entier sur 8 octets"

--
« L'erreur ne devient pas vérité parce qu'elle se propage et se multiplie ; la vérité ne devient pas erreur parce que nul ne la voit. » Gandhi
Miembro registrado
948 mensajes
Publicado el 12,junio 2020 - 23:48
voir https://docs.microsoft.com/fr-fr/dotnet/visual-basic/programming-guide/language-features/data-types/type-characters

--
« L'erreur ne devient pas vérité parce qu'elle se propage et se multiplie ; la vérité ne devient pas erreur parce que nul ne la voit. » Gandhi
Miembro registrado
151 mensajes
Publicado el 13,junio 2020 - 09:09
& signifier un entier sur 4 octets, c'est && qui signifie un entier long sur 8 octets.

--
Patrice Terrier
www.zapsolution.com
Miembro registrado
948 mensajes
Publicado el 13,junio 2020 - 14:38
Patrice TERRIER a écrit :
& signifier un entier sur 4 octets, c'est && qui signifie un entier long sur 8 octets.

--
Patrice Terrier
www.zapsolution.com


Il y aurait une erreur dans l'aide Microsoft ?
https://docs.microsoft.com/fr-fr/dotnet/visual-basic/programming-guide/language-features/data-types/type-characters il est écrit :
"% Integer
"& long"
et
https://docs.microsoft.com/en-us/dotnet/visual-basic/language-reference/data-types/long-data-type il est écrit :
"Long data type (Visual Basic) Holds signed 64-bit (8-byte) integers"

--
« L'erreur ne devient pas vérité parce qu'elle se propage et se multiplie ; la vérité ne devient pas erreur parce que nul ne la voit. » Gandhi
Miembro registrado
151 mensajes
Publicado el 13,junio 2020 - 15:22
Integer (%) compris entre -32768 et +32767
Long integer (&) compris entre -2.147.483.648 et 2.147.483.647
Quad integer (&&) compris entre -2^63 et 2^63 -1

--
Patrice Terrier
www.zapsolution.com
Miembro registrado
151 mensajes
Publicado el 13,junio 2020 - 15:24
Integer est une survivance du mode 16-bit qui était la norme sous MS-DOS.

--
Patrice Terrier
www.zapsolution.com
Miembro registrado
948 mensajes
Publicado el 13,junio 2020 - 15:39
@Patrice. Je ne comprend pas car sur le site "Microsoft Data Type Summary (Visual Basic)" voir https://docs.microsoft.com/en-us/dotnet/visual-basic/language-reference/data-types/
il est écrit :
Short (short integer) Int16 2 bytes -32,768 through 32,767 (signed)
Integer Int32 4 bytes -2,147,483,648 through 2,147,483,647 (signed)
Long (long integer) Int64 8 bytes -9,223,372,036,854,775,808 through 9,223,372,036,854,775,807 (9.2...E+18 †) (signed)

--
« L'erreur ne devient pas vérité parce qu'elle se propage et se multiplie ; la vérité ne devient pas erreur parce que nul ne la voit. » Gandhi
Miembro registrado
151 mensajes
Publicado el 13,junio 2020 - 16:35
Si je ne m'abuse, LA DEMANDE CONCERNE VB6, et non pas la version actuelle de Visual Basic qui est livrée avec Visual Studio.

--
Patrice Terrier
www.zapsolution.com
Miembro registrado
948 mensajes
Publicado el 13,junio 2020 - 16:43
ok merci pour l'explication

--
« L'erreur ne devient pas vérité parce qu'elle se propage et se multiplie ; la vérité ne devient pas erreur parce que nul ne la voit. » Gandhi
Miembro registrado
151 mensajes
Publicado el 13,junio 2020 - 16:43