VB6 - Uma variação do jogo Solitaire


Um jogo completo feito em Visual Basic 6 com apenas 5 linhas de código, um formulário e um pouco de imaginação e talento.

O jogo:

O código:

Private Sub imgGoti_DragDrop(Index As Integer, Source As Control, X As Single, Y As Single)
If (imgGoti(Index).Picture <> 0) Or Abs(Source.Index - Index) <> 2 _
   And Abs(Source.Index - Index) <> 20 Then Exit Sub
If (imgGoti(Source.Index - ((Source.Index - Index) / 2)).Picture = 0) Then Exit Sub
Source.Picture = LoadPicture
imgGoti(Source.Index - ((Source.Index - Index) / 2)).Picture = LoadPicture
imgGoti(Index).Picture = imgGotipic.Picture
End Sub

Pegue o projeto completo aqui : Solitaire.zip

Eu sei é apenas Visual Basic , mas eu gosto...


José Carlos Macoratti