shadowmoy
Messages postés340Date d'inscriptionjeudi 25 juillet 2002StatutMembreDernière intervention25 août 2007 25 juil. 2002 à 01:40
c un debut de moteur 2D en VB pure sans directx que je commence à coder
si quelqu'un veut me filer un coup de main y a pas de probleme j'attend vos mail
:-)
cs_Jackboy
Messages postés757Date d'inscriptionvendredi 7 septembre 2001StatutMembreDernière intervention19 juin 2008 25 juil. 2002 à 08:25
ya un Erreur "9" d'indice en dehors de la plage.
Sub ExtractTilesetData(BMP_FileName As String)
Dim numFile As Integer
'Open the tileset file
numFile = FreeFile()
Open BMP_FileName For Binary Access Read Lock Write As numFile
'Fill the File Header structure
Get numFile, 1, BMPFileHeader
'Fill the Info structure
Get numFile, , BMPInfo
'Size the BMPData array
25 juil. 2002 à 01:40
si quelqu'un veut me filer un coup de main y a pas de probleme j'attend vos mail
:-)
25 juil. 2002 à 08:25
Sub ExtractTilesetData(BMP_FileName As String)
Dim numFile As Integer
'Open the tileset file
numFile = FreeFile()
Open BMP_FileName For Binary Access Read Lock Write As numFile
'Fill the File Header structure
Get numFile, 1, BMPFileHeader
'Fill the Info structure
Get numFile, , BMPInfo
'Size the BMPData array
'******************
'ICI L'ERREUR
ReDim BMPData(BMPInfo.bmiHeader.biWidth * BMPInfo.bmiHeader.biHeight - 1)
'******************
'Fill the BMPData array
Get numFile, , BMPData
Close numFile
End Sub
25 juil. 2002 à 09:22
25 juil. 2002 à 13:33
25 juil. 2002 à 13:53
po grave c corrigé maintenant désolé !!
:-)
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.