Bad Code, Bad Method, or Bad Choice Of Programming Language? [RESOLVED]

[INF3RN0666]

Hi, and thank you for attempting to help me with my problem. I'm trying to make a tile game and I made some code to load graphics from a tiled BMP. It works and all, but not always. It can load the same section of the picture over and over, but when you try to load a different section, it doesn't load it! So what do I do?

Please test it for me and help me out please!

Public Function LoadGraphics(FileName As String, PosX As Long, PosY As Long, Width As Long, Height As Long) As Boolean
  On Error GoTo ErrHandler
  
  Dim RetVal As Long
  
  Dim DC As Long
  Dim Image As Long
  Dim NewTile As Integer
  
  NewTile = frmMain.MapTiles.Count
  Load frmMain.MapTiles(NewTile)
  frmMain.MapTiles(NewTile).Visible = True
  frmMain.MapTiles(NewTile).Move frmMain.MapTiles(NewTile - 1).Left + (Width * Screen.TwipsPerPixelX), frmMain.MapTiles(NewTile - 1).Top + (Height * Screen.TwipsPerPixelY), Width * Screen.TwipsPerPixelX, Height * Screen.TwipsPerPixelY
  
  FileName = App.Path & "\Maps\" & FileName
  
  DC = CreateCompatibleDC(frmMain.MapTiles(NewTile).hdc)
 
'  If DC = 0 Then
'    Unload frmMain.MapTiles(NewTile)
'    NewTile = NewTile - 1
'    MsgBox "Error Loading Tile!", , "ERROR"
'  End If
  
  Image = LoadImage(0, FileName, IMAGE_BITMAP, 0, 0, LR_LOADFROMFILE)
 
'  If Image = 0 Then
'    Unload frmMain.MapTiles(NewTile)
'    NewTile = NewTile - 1
'    MsgBox "Error Loading Tile!", , "ERROR"
'  End If
  
  SelectObject DC, Image
 
  RetVal = BitBlt(frmMain.MapTiles(NewTile).hdc, 0, 0, Width, Height, DC, PosX, PosY, SRCCOPY)
'  If RetVal = 0 Then
'    LoadGraphics = False
'    Unload frmMain.MapTiles(NewTile)
'    NewTile = NewTile - 1
'    MsgBox "Error Loading Tile!", , "ERROR"
'  End If
  
  DeleteDC DC
  DeleteObject Image
  
  LoadGraphics = True
  
  Exit Function
    
ErrHandler:
  MsgBox Err.Number & Err.Description
End Function

[sam0010]

Maybe you should try and get out of your little house and do something BESIDES programming on friday night

[Tec-Nico]

Maybe you should try helping instead of giving such wise advice...

[Muddy]

Originally posted by sam0010
Maybe you should try and get out of your little house and do something BESIDES programming on friday night

Night? What, are you in Europe?

[Tec-Nico]

I used to have the same problem in a similar program... Let me see if I can find it...

[INF3RN0666]

Commmoooon...Someone knows how to make this work!

[Tec-Nico]

It would have helped if you at least told me all the APIs I had to declare and what to do with the retval.

I got it running but it does nothing so I don't know what happens. I need to see it running so I can tell and understand the algorithm.

[INF3RN0666]

To Tec-Nico,

I mean this in the nicest way possible but if you don't know what the BitBlt api returns, then i doubt you can help me. You're not really suppose to do anything with it other than check for errors.

What you need to decale is the 2 functions in there, which are LoadImage, and BitBlt. Then you need to make a frmMain. Put a picture box on it with the name "MapTiles" and set its index value to 0 to create a control array. Now it should work!

[INF3RN0666]

OMG...don't tell me that no1 knows how to do this. THIS IS BASIC. I know how to do it, but I can't figure out why it does the same thing over and over... Common, someone must have a slightly different version out there.

[Tec-Nico]

I know what Bitlt returns... And I did not need to follow your instructions to add the picturebox and the API functions... But what happens is that it won't do anything.

If I did not know what to do I would have said which errors I had, but I simply ran it and it wouldn't do anything... First I thought it might be that the file needed to be BMP... So I changed the JPG I had (And yes, I made a new folder "Maps" in the same folder where the project is and I put the image)

But what I meant is you should have said which the requirements were before. There is a thing called documentation and it really helps debugging. I have another version of this Tile thing... Yes, with BitBtl... But I would have to search for it.

[Tec-Nico]

Here it is.. I found the example from where I learned to use it... Enjoy.