Card Game ?
-
What I am trying to do is make a card game but in the hand there is not always a set amount of cards I am using labels for this I got it to create the labels as needed but what I am trying to do now is get it to where if the click on the card it moves up a little to signify that it has been selected but I can't figure that part out on how to do it. Here is an ex. of the code I am using to create the first part of the hand. For N = 1 To 13 Label(N) = New Label Label(N).BorderStyle = BorderStyle.Fixed3D Label(N).BackColor = Color.Maroon 'PlayersHand is an Array with all the Card Numbers in them. Label(N).Text = Player1Hand(N) Label(N).Size = New Size(Label1.Width, Label1.Height) Label(N).Font = Label1.Font Label(N).TextAlign = ContentAlignment.MiddleCenter CardX = CardX + 50 Label(N).Left = CardX Label(N).Top = CardY Label(N).BringToFront() Me.Controls.Add(Label(N)) Next If anyone can help me I would really appreciate it. Thank You for looking!
-
What I am trying to do is make a card game but in the hand there is not always a set amount of cards I am using labels for this I got it to create the labels as needed but what I am trying to do now is get it to where if the click on the card it moves up a little to signify that it has been selected but I can't figure that part out on how to do it. Here is an ex. of the code I am using to create the first part of the hand. For N = 1 To 13 Label(N) = New Label Label(N).BorderStyle = BorderStyle.Fixed3D Label(N).BackColor = Color.Maroon 'PlayersHand is an Array with all the Card Numbers in them. Label(N).Text = Player1Hand(N) Label(N).Size = New Size(Label1.Width, Label1.Height) Label(N).Font = Label1.Font Label(N).TextAlign = ContentAlignment.MiddleCenter CardX = CardX + 50 Label(N).Left = CardX Label(N).Top = CardY Label(N).BringToFront() Me.Controls.Add(Label(N)) Next If anyone can help me I would really appreciate it. Thank You for looking!
Your approach is fundamentally broken. You should do this by creating graphics which you store as resources and draw to the screen ( or at least draw text right where you want it ). Moving labels and pictures boxes around is just a disaster.
Christian Graus - Microsoft MVP - C++ Metal Musings - Rex and my new metal blog
-
What I am trying to do is make a card game but in the hand there is not always a set amount of cards I am using labels for this I got it to create the labels as needed but what I am trying to do now is get it to where if the click on the card it moves up a little to signify that it has been selected but I can't figure that part out on how to do it. Here is an ex. of the code I am using to create the first part of the hand. For N = 1 To 13 Label(N) = New Label Label(N).BorderStyle = BorderStyle.Fixed3D Label(N).BackColor = Color.Maroon 'PlayersHand is an Array with all the Card Numbers in them. Label(N).Text = Player1Hand(N) Label(N).Size = New Size(Label1.Width, Label1.Height) Label(N).Font = Label1.Font Label(N).TextAlign = ContentAlignment.MiddleCenter CardX = CardX + 50 Label(N).Left = CardX Label(N).Top = CardY Label(N).BringToFront() Me.Controls.Add(Label(N)) Next If anyone can help me I would really appreciate it. Thank You for looking!
In your FOR loop that is creating the labels, add an event handling function for the mouse click event, for example:
AddHandler Label(N).MouseClick, AddressOf CardClickFctYou will then need to create the CardClickFct, such as:Sub CardClickFct(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Dim TheCard as label = DirectCast(sender, Label) ' TODO: Add whatever you want the card to do when its been clicked End SubWhat you must also remember to do is remove the event handler when the label is destroyed (by calling RemoveHandler).... You MUST ensure that your array variable "Label" is declared "WithEvents" for this to work!!! I hope this helps you out.... Regards, Martin