Bonsoir,j'ai créer un petit MapViewer, et tout fonctionne très très bien, nombre de carreau, gestion de cases ect...Le seul problème vient de la forme des cases de ma grille. Je n'arrive pas à reproduire celle de dofus.Voilà ce que sa donne avec les cases en noires pour mieux que vous voyez :![img](http://img15.hostingpics.net/pics/183699capture.png)Comme vous le constater ce tableau ressemble à tout sauf la map de dofus :x .Voilà les propriétées de ma grille:[spoiler]Dim ind As Integer For y As Integer = 0 To 39 For x As Integer = 0 To 13 ind = 14 * y + x mat(ind) = New node(ind, x, y) P(ind) = New pic P(ind).p = New PictureBox P(ind).p.Left = 5 + x * 20 P(ind).p.Top = 5 + y * 20 P(ind).p.Height = 19 P(ind).p.Width = 19 P(ind).p.BackColor = Color.Black P(ind).p.BorderStyle = BorderStyle.FixedSingle P(ind).index = ind Me.Controls.Add(P(ind).p) Next Next[/spoiler]Un peu d'aide ?Je ne vous cache pas que je me suis aidé de sources sur internet.

Ce site est optimisé pour être consulté depuis un navigateur moderne dans lequel JavaScript est activé.

MapViewer

Anonymous

Bonsoir,

j'ai créer un petit MapViewer, et tout fonctionne très très bien, nombre de carreau, gestion de cases ect...

Le seul problème vient de la forme des cases de ma grille. Je n'arrive pas à reproduire celle de dofus.

Voilà ce que sa donne avec les cases en noires pour mieux que vous voyez :

[Image Introuvable] Loading Image

Comme vous le constater ce tableau ressemble à tout sauf la map de dofus :x .

Voilà les propriétées de ma grille:

Cliquez pour révéler Cliquez pour masquer

Dim ind As Integer

For y As Integer = 0 To 39

For x As Integer = 0 To 13

ind = 14 * y + x

mat(ind) = New node(ind, x, y)

P(ind) = New pic

P(ind).p = New PictureBox

P(ind).p.Left = 5 + x * 20

P(ind).p.Top = 5 + y * 20

P(ind).p.Height = 19

P(ind).p.Width = 19

P(ind).p.BackColor = Color.Black

P(ind).p.BorderStyle = BorderStyle.FixedSingle

P(ind).index = ind

Me.Controls.Add(P(ind).p)

Un peu d'aide ?

Je ne vous cache pas que je me suis aidé de sources sur internet.

Anonymous

Peut-être pourrai-tu avoir une seul pictureBox pour la map, ce serai pas mal.

Puis tu pourrais utiliser l'objet "Polygon" qui va permettre de dessiner un losange.

Anonymous

Dans ce cas la autant prendre une image de la map vierge non ?

Mais apres si je fais une seul picture box comment je ferais pour colorier les cases ?

Anonymous

On peu dessiner un polygon de la couleur que l'on souhaite.

(un polygon = une cellule de la map)

Anonymous

Humm je vois sa demain...

ToOnS

'fabrication d'un bitmap

Public b As Bitmap = New Bitmap(930, 742)

'création de l'outil de dessin

Public g As Graphics = Graphics.FromImage(b)

Public Sub DrawPolygon(ByVal centre As Point, ByVal couleur As Color)
        Dim brush = New SolidBrush(couleur)
        Dim points(3) As Point
        points(0) = New Point(centre.X, centre.Y - 18)
        points(1) = New Point(centre.X + 32, centre.Y)
        points(2) = New Point(centre.X, centre.Y + 18)
        points(3) = New Point(centre.X - 32, centre.Y)
        ' dessiner le polygone 
        g.FillPolygon(brush, points)
        g.DrawPolygon(Pens.White, points)

    End Sub

Dim centre As New Point(x, y)

Dim couleur As Color = Color.Green

DrawPolygon(centre, couleur) 'on en dessine 1 dans le Bitmap

DrawPolygon(centre2, couleur2) 'on en dessine 2 dans le Bitmap

'mise en picturebox

PictureBox_.Image = b.Clone 'on affiche le Bitmap

anodu94

Ca sert à positionner le personnage sur la map ?

Anonymous

Merci ToOnS je test sa ce soir.

@ anodu : Non, c'est pour avoir un aperçu de la map

Anonymous

La technique de dessiner des polygones est loin d’être bêtes mais comment je peux activé des évènements quand je me retrouve avec sa ? (Par exemple lorsque la souris passe sur une cellule)

[Image Introuvable] Loading Image

Anonymous

J'ai un algo en tête j'arrive :D

Anonymous

C'est une question que je me suis également posé lors du début du dev' du MMO sur lequel je travaille en se moment (signature), en effet, c'est assez complexe.

La solution que j'avais choisi était de diviser les losange en deux triangle rectangle et ensuite je cherchais dans quel triangle parmi tout ce de toute les cellule contenait le click de la sourit.

Si besoin, je peux déterrer un vieux code en c#

Anonymous

Sa m’intéresse oui ! :) Vraiment pas bête comme technique :)

ToOnS

mdr maxilia ca me rapelle une petite soirée ca

Anonymous

Merci ToOnS pour ton sub, sa ma bien aidé.

Voilà ce que sa donne maintenant:

Cliquez pour révéler Cliquez pour masquer

For y As Integer = 0 To 39

For x As Integer = 0 To 13

Dim picture_ As New PictureBox

Dim centre As New Point(30, 30)

Dim couleur As Color = Color.DarkGray

DrawPolygon(centre, couleur)

'propriétées

picture_.Left = 5 + x * 30

picture_.Top = 5 + y * 30

Me.Controls.Add(picture_)

'On rempli la picturebox

picture_.Image = b.Clone

[Image Introuvable] Loading Image

j'ai mes 28 cases de haute en bas mais que pour une seule rangée... et puis je ne peux pas rapprocher mes picturebox car vu qu'elles sont en carré sa va couper une partie des autre cellules.

Voilà

si vous pouvez m'aider

Phito

Bof bof dessiner à chaques fois les cases, autant dessiner plusieurs polygones dans la même picture box. Pour le clic de la souris, il "suffit" de vérifier si la souris se trouve bien dans un polygone, en regardant les bords.

ToOnS

oui je vais repeter ce qui a deja ete dit 2 fois , il faut une seule picturebox (comme thefalcon)

Anonymous

D'accord, je voulais dessiner a chaque fois chaque cellule en choisissant la couleur celons les données de la map.

ToOnS

ben oui , y'a pas de probleme tu as "couleur" pour ca

Anonymous

Phito a dit : "en regardant les bords."

C'est bien jolie de regardé les bords, mais il sont en diagonal donc je galère toujours :/

Phito

Suffit de faire un petit algo relativement simple.

Page suivante »