[RESOLVED] ColorBox ?

Does visual basic 2008 have a colorbox like delphi 2007? If not what other choices are there to create a advanced color chooser. I want it so that the user gets to choose the type of color of the text. Thanks

Have you looked at the colordialog?

This? http://msdn.microsoft.com/en-us/libr...lordialog.aspx

Have you checked? I'm sorry but really, just open up a project and look in the toolbox (that's a yes).

I saw that but it doesn't pop out, do you have to set a button to make it pop out? like show.colordialog ??thx

Quote:

---

Originally Posted by x DeaDLy

I saw that but it doesn't pop out, do you have to set a button to make it pop out? like show.colordialog ??thx

---

Huh? You just want it to open whenever it feels like it?

NVm i got it, thx much code is

vb Code:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        ColorDialog1.ShowDialog()
    End Sub

Now how do i make it so that when i choose the color, label1.text changes?

Quote:

---

Originally Posted by x DeaDLy

Now how do i make it so that when i choose the color, label1.text changes?

---

See my link in post #3. There you will find an example.

Quote:

---

Originally Posted by x DeaDLy

Now how do i make it so that when i choose the color, label1.text changes?

---

Do you really mean that? You want to change the label's text, or do you mean you want to change the label's color?

Thx now one more question, how do i make it so that more than one label, ex. label1, label 3, are changed using this code:

vb Code:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim MyDialog As New ColorDialog
        ' Keeps the user from selecting a custom color.
        MyDialog.AllowFullOpen = False
        ' Allows the user to get help. (The default is false.)
        MyDialog.ShowHelp = True
        ' Sets the initial color select to the current text color,
        MyDialog.Color = Label2.ForeColor
        If (MyDialog.ShowDialog() = Windows.Forms.DialogResult.OK) Then
            Label2.ForeColor = MyDialog.Color
        End If
    End Sub

Quote:

---

Originally Posted by keystone_paul

Do you really mean that? You want to change the label's text, or do you mean you want to change the label's color?

---

LoL sorry bout my wording, yes you are correct and i did find a way to do that, i have another question above this post. Thanks so much

NVM i found it out, lol thx so much guys =] here is code:

vb Code:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim MyDialog As New ColorDialog
        ' Keeps the user from selecting a custom color.
        MyDialog.AllowFullOpen = False
        ' Allows the user to get help. (The default is false.)
        MyDialog.ShowHelp = True
        ' Sets the initial color select to the current text color,
        MyDialog.Color = Label2.ForeColor
        MyDialog.Color = Label1.ForeColor
        If (MyDialog.ShowDialog() = Windows.Forms.DialogResult.OK) Then
            Label2.ForeColor = MyDialog.Color
            Label1.ForeColor = MyDialog.Color
        End If
    End Sub

EDIT: Ok I see you got it, but please do some thinking before you post!

Deadly, please do some thinking here, lets look at your code

Code:

---

  1.
      Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  2.
              Dim MyDialog As New ColorDialog
  3.
              ' Keeps the user from selecting a custom color.
  4.
              MyDialog.AllowFullOpen = False
  5.
              ' Allows the user to get help. (The default is false.)
  6.
              MyDialog.ShowHelp = True
  7.
              ' Sets the initial color select to the current text color,
  8.
              MyDialog.Color = Label2.ForeColor
  9.
              If (MyDialog.ShowDialog() = Windows.Forms.DialogResult.OK) Then
  10.
                  Label2.ForeColor = MyDialog.Color
  11.
              End If
  12.
          End Sub

---

Where in the entire thing is Label mentioned? Only one place, here:

Code:

---

                  Label2.ForeColor = MyDialog.Color

---

So if you want for another label to change color then really, what do you think your going to do?

This

Code:

---

        ' Sets the initial color select to the current text color,
        MyDialog.Color = Label2.ForeColor
        MyDialog.Color = Label1.ForeColor

---

Is a bit pointless (or more specifically the 2nd line is) - you are setting the color to one thing and then immediately overwriting it again.

Quote:

---

Originally Posted by Vectris

EDIT: Ok I see you got it, but please do some thinking before you post!

Deadly, please do some thinking here, lets look at your code

Code:

---

  1.
      Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  2.
              Dim MyDialog As New ColorDialog
  3.
              ' Keeps the user from selecting a custom color.
  4.
              MyDialog.AllowFullOpen = False
  5.
              ' Allows the user to get help. (The default is false.)
  6.
              MyDialog.ShowHelp = True
  7.
              ' Sets the initial color select to the current text color,
  8.
              MyDialog.Color = Label2.ForeColor
  9.
              If (MyDialog.ShowDialog() = Windows.Forms.DialogResult.OK) Then
  10.
                  Label2.ForeColor = MyDialog.Color
  11.
              End If
  12.
          End Sub

---

Where in the entire thing is Label mentioned? Only one place, here:

Code:

---

                  Label2.ForeColor = MyDialog.Color

---

So if you want for another label to change color then really, what do you think your going to do?

---

LoL ya i did do a lil thinkin den found out, just posted the post a lil earlier. Thanks guys