-----------------------------------------------------------
New Message on BDOTNET
-----------------------------------------------------------
From: venkat_kl
Message 2 in Discussion
Hi, I have done upto some extent, because of time constraint, i could not
able to do completely. You can improve upon this COLOR DIALOG
============ you need not drag and drop any Color Dialog on to the Form 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 = textBox1.ForeColor ' Update the text box color if the
user clicks OK
If (MyDialog.ShowDialog() = DialogResult.OK) Then
textBox1.ForeColor = MyDialog.Color
End If
************************* If you drag and drop a Color Dialog Control on to the
Form ' Keeps the user from selecting a custom color.
ColorDialog1.AllowFullOpen = False
' Allows the user to get help. (The default is false.)
ColorDialog1.ShowHelp = True
' Sets the initial color select to the current text color,
ColorDialog1.Color = Button3.ForeColor ' Update the text box
color if the user clicks OK
If (ColorDialog1.ShowDialog() = DialogResult.OK) Then
Me.Button3.ForeColor = ColorDialog1.Color
End If FONT DIALOG
=========== If you drag and drop a Font Dialog Control on to the Form
Dim FontDialog1 As New FontDialog
FontDialog1.ShowColor = True FontDialog1.Font = Button4.Font
FontDialog1.Color = Button4.ForeColor If
FontDialog1.ShowDialog() <> DialogResult.Cancel Then
Button4.Font = FontDialog1.Font
Button4.ForeColor = FontDialog1.Color
End If bye venkat_kl
-----------------------------------------------------------
To stop getting this e-mail, or change how often it arrives, go to your E-mail
Settings.
http://groups.msn.com/bdotnet/_emailsettings.msnw
Need help? If you've forgotten your password, please go to Passport Member
Services.
http://groups.msn.com/_passportredir.msnw?ppmprop=help
For other questions or feedback, go to our Contact Us page.
http://groups.msn.com/contact
If you do not want to receive future e-mail from this MSN group, or if you
received this message by mistake, please click the "Remove" link below. On the
pre-addressed e-mail message that opens, simply click "Send". Your e-mail
address will be deleted from this group's mailing list.
mailto:[EMAIL PROTECTED]
