Dibujando Zonas de Imagenes

' Gambas class file

Private img_cards As Image = Image.Load("barajaespanola.png")
Private CARD_S_W As Integer = img_cards.W / 10 'numero de columnas
Private CARD_S_H As Integer = img_cards.H / 4 'numero de filas

Public Sub SpinBoxColumna_Change()

  DrawingArea1.Refresh() 'se ha producido un cambio en el spin, y refrescamos el drawingArea, y asi se redibuja

End

Public Sub SpinBoxFila_Change()

  DrawingArea1.Refresh() 'se ha producido un cambio en el spin, y refrescamos el drawingArea, y asi se redibuja

End

Public Sub DrawingArea1_Draw()

  dibujaCarta(SpinBoxColumna.value, SpinBoxFila.Value)

End

Public Sub dibujaCarta(x As Integer, y As Integer)

  Paint.DrawImage(img_cards, 0, 0, CARD_S_W, CARD_S_H, 1, Rect((X - 1) * CARD_S_W, (Y - 1) * CARD_S_H, CARD_S_W, CARD_S_H))

End