[RESOLVED] ColorBox ?

[x DeaDLy]

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

[keystone_paul]

Have you looked at the colordialog?

[nmadd]

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

[Vectris]

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

[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

[nmadd]

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?

[x DeaDLy]

NVm i got it, thx much code is

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

[x DeaDLy]

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

[nmadd]

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.

[keystone_paul]

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?

[x DeaDLy]

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:

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

[x DeaDLy]

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

[x DeaDLy]

NVM i found it out, lol thx so much guys =] here is 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

[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

   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:

                  Label2.ForeColor = MyDialog.Color

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

[keystone_paul]

This

        ' 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.

[x DeaDLy]

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

   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:

                  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