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

Question

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

67
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