DUAL LANGUAGE VB6 DEVELOPPEZ EN FRANÇAIS COMPILEZ EN ANGLAIS(PAS DE VB6FR.DLL)
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 2496 Date d'inscription jeudi 14 juillet 2005 Statut Contributeur Dernière intervention 5 juin 2016 - 1 mars 2009 à 10:28
ghuysmans99 Messages postés 2496 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
https://codes-sources.commentcamarche.net/source/49383-dual-language-vb6-developpez-en-francais-compilez-en-anglais-pas-de-vb6fr-dll
1 mars 2009 à 10:28
1 mars 2009 à 10:22
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.
1 mars 2009 à 02:02
1 mars 2009 à 01:29
tout dépend où tu as le droit d'aller, sur les téléchargements MSDN^^
28 févr. 2009 à 23:38
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