shelly121
17-02-2005, 13:52
hello!! right i have made a menu so that the user can select a font for the text boxes, but i want it so that when a font is selected-it applys to all text boxes, so i came up with this code:
Private Sub MenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem1.Click
'Change colour of textbox text
With dlgColor
'Assign current colour to Colour Dialog Control
.Color = txtFirstName.ForeColor
.Color = txtLastName.ForeColor()
.Color = txtDOB.ForeColor
.Color = txtPostcode.ForeColor
.Color = txtHouseNo.ForeColor
.Color = txtNewPostcode.ForeColor
.Color = txtNewHouseNo.ForeColor
.Color = txtPrice.ForeColor
.Color = txtType.ForeColor
.Color = txtDeposit.ForeColor
.Color = txtDate.ForeColor()
.ShowDialog()
'Assign selected colour to text box
txtFirstName.ForeColor = .Color
.Color = txtLastName.ForeColor
.Color = txtDOB.ForeColor
.Color = txtPostcode.ForeColor
.Color = txtHouseNo.ForeColor
.Color = txtNewPostcode.ForeColor
.Color = txtNewHouseNo.ForeColor
.Color = txtPrice.ForeColor
.Color = txtType.ForeColor
.Color = txtDeposit.ForeColor
.Color = txtDate.ForeColor()
End With
End Sub
however it only applys to the first text box on the list :( any one help me please!!??
Private Sub MenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem1.Click
'Change colour of textbox text
With dlgColor
'Assign current colour to Colour Dialog Control
.Color = txtFirstName.ForeColor
.Color = txtLastName.ForeColor()
.Color = txtDOB.ForeColor
.Color = txtPostcode.ForeColor
.Color = txtHouseNo.ForeColor
.Color = txtNewPostcode.ForeColor
.Color = txtNewHouseNo.ForeColor
.Color = txtPrice.ForeColor
.Color = txtType.ForeColor
.Color = txtDeposit.ForeColor
.Color = txtDate.ForeColor()
.ShowDialog()
'Assign selected colour to text box
txtFirstName.ForeColor = .Color
.Color = txtLastName.ForeColor
.Color = txtDOB.ForeColor
.Color = txtPostcode.ForeColor
.Color = txtHouseNo.ForeColor
.Color = txtNewPostcode.ForeColor
.Color = txtNewHouseNo.ForeColor
.Color = txtPrice.ForeColor
.Color = txtType.ForeColor
.Color = txtDeposit.ForeColor
.Color = txtDate.ForeColor()
End With
End Sub
however it only applys to the first text box on the list :( any one help me please!!??