DUAL LANGUAGE VB6 DEVELOPPEZ EN FRANÇAIS COMPILEZ EN ANGLAIS(PAS DE VB6FR.DLL)

Question

Sujet Précédent Sujet Suivant

DUAL LANGUAGE VB6 DEVELOPPEZ EN FRANÇAIS COMPILEZ EN ANGLAIS(PAS DE VB6FR.DLL)

Signaler

gallyhc

Messages postés: 386
Date d'inscription: samedi 4 octobre 2008
Statut: Membre
Dernière intervention: 19 février 2018

- 28 févr. 2009 à 23:38
ghuysmans99

Messages postés: 2493
Date d'inscription: jeudi 14 juillet 2005
Statut: Contributeur
Dernière intervention: 5 juin 2016

- 1 mars 2009 à 10:28

Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/49383-dual-language-vb6-developpez-en-francais-compilez-en-anglais-pas-de-vb6fr-dll

Signaler

ghuysmans99

Messages postés: 2493
Date d'inscription: jeudi 14 juillet 2005
Statut: Contributeur
Dernière intervention: 5 juin 2016

1
1 mars 2009 à 10:28

C'est le cas à partir de Windows 2000, si je me souviens bien.

Signaler

cs_patrice_b

Messages postés: 30
Date d'inscription: mardi 3 janvier 2006
Statut: Membre
Dernière intervention: 1 mars 2009

1 mars 2009 à 10:22

Pouvez-vous m'expliquer ce que veut dire "compiler en anglais". Que font ces programmes ? Ils transforment un exe realisé avec VB en un exe ne necessitant pas VB6FR.DLL ?
Que faut-il faire exactement? Ca fonctionne car vous partez du principe que MSVBVM60.DLL existe toujours sur les machines recevant votre exe. Est-ce vraiment toujours le cas ?
Merci pour les info.

Signaler

ghuysmans99

Messages postés: 2493
Date d'inscription: jeudi 14 juillet 2005
Statut: Contributeur
Dernière intervention: 5 juin 2016

1
1 mars 2009 à 02:02

Evidemment avec l'abonnement MSDN t'as VB6 EN/FR, Windows Server, MS-SQL le tout pour RIEN. C'est juste l'abonnement qui est un peu cher !

Signaler

Renfield

Messages postés: 17286
Date d'inscription: mercredi 2 janvier 2002
Statut: Modérateur
Dernière intervention: 23 décembre 2019

69
1 mars 2009 à 01:29

"de toute façon la version anglaise de VB6 n'est pas disponible"
tout dépend où tu as le droit d'aller, sur les téléchargements MSDN^^

Signaler

gallyhc

Messages postés: 386
Date d'inscription: samedi 4 octobre 2008
Statut: Membre
Dernière intervention: 19 février 2018

2
28 févr. 2009 à 23:38

Bonjour,

Perso pour evite la dependance j'utilise un code beaucoup plus simple et jusqu'a aujourd'hui je n'ai eu aucun bug.

Private Sub setFileAnalyser(ByVal strFileName As String)
' DECLARATION DES VARIABLES.
Dim lngI As Long
Dim lngJ As Long
Dim lngFile As Long
Dim lngCanal As Long
Dim strTemps As String
Dim strResult As String

' CHARGEMENT DU FICHIER SOURCE EXECUTABLE.
If FileExist(strFilePath & strFileName) Then
lngCanal = FreeFile
Open strFilePath & strFileName For Binary Shared As #lngCanal
strResult = Space(LOF(lngCanal))
Get #lngCanal, , strResult
Close #lngCanal
If Mid$(strResult, 1, 2) = "MZ" Then
lngFile = Len(strResult)
lngJ = InStr(1, strResult, "VB6FR.DLL" & Chr(&H0) & Chr(&H0) & Chr(&H0))
Do Until lngJ = 0
lngI = lngI + 1
Call setProgressBar(0, lngJ, lngFile)
Mid(strResult, lngJ, 12) = "MSVBVM60.DLL"
lngJ = InStr(lngJ + 1, strResult, "VB6FR.DLL" & Chr(&H0) & Chr(&H0) & Chr(&H0))
Loop
End If
End If

End Sub

cordialement
GallyHC

C'est le cas à partir de Windows 2000, si je me souviens bien.
Pouvez-vous m'expliquer ce que veut dire "compiler en anglais". Que font ces programmes ? Ils transforment un exe realisé avec VB en un exe ne necessitant pas VB6FR.DLL ?
Que faut-il faire exactement? Ca fonctionne car vous partez du principe que MSVBVM60.DLL existe toujours sur les machines recevant votre exe. Est-ce vraiment toujours le cas ?
Merci pour les info.
Evidemment avec l'abonnement MSDN t'as VB6 EN/FR, Windows Server, MS-SQL le tout pour RIEN. C'est juste l'abonnement qui est un peu cher !
"de toute façon la version anglaise de VB6 n'est pas disponible"
tout dépend où tu as le droit d'aller, sur les téléchargements MSDN^^
Bonjour,

Perso pour evite la dependance j'utilise un code beaucoup plus simple et jusqu'a aujourd'hui je n'ai eu aucun bug.

Private Sub setFileAnalyser(ByVal strFileName As String)
' DECLARATION DES VARIABLES.
Dim lngI As Long
Dim lngJ As Long
Dim lngFile As Long
Dim lngCanal As Long
Dim strTemps As String
Dim strResult As String

' CHARGEMENT DU FICHIER SOURCE EXECUTABLE.
If FileExist(strFilePath & strFileName) Then
lngCanal = FreeFile
Open strFilePath & strFileName For Binary Shared As #lngCanal
strResult = Space(LOF(lngCanal))
Get #lngCanal, , strResult
Close #lngCanal
If Mid$(strResult, 1, 2) = "MZ" Then
lngFile = Len(strResult)
lngJ = InStr(1, strResult, "VB6FR.DLL" & Chr(&H0) & Chr(&H0) & Chr(&H0))
Do Until lngJ = 0
lngI = lngI + 1
Call setProgressBar(0, lngJ, lngFile)
Mid(strResult, lngJ, 12) = "MSVBVM60.DLL"
lngJ = InStr(lngJ + 1, strResult, "VB6FR.DLL" & Chr(&H0) & Chr(&H0) & Chr(&H0))
Loop
End If
End If

End Sub

cordialement
GallyHC

Answer 1

Votre réponse