systam
پنج شنبه 07 شهریور 1392, 17:54 عصر
سلام این کد C# رو دربنامه به راحتی اجرا میشه که کارش اینه هر چی تکس باکس در فرم وجود داره رو زمانی که فوکوس میشه رنگ بک تکسباکس رو عوض میشه
public Form1()
{
InitializeComponent();
}
public static void ChangeTextBoxBackColor()
{
}
private void Form1_Load(object sender, EventArgs e)
{
foreach (Control ctrl in this.Controls)
{
if (ctrl is TextBox)
ctrl.Enter += new EventHandler(TextBox_Enter);
ctrl.Leave += new EventHandler(TextBox_Leave);
}
}
private void TextBox_Enter(object sender, EventArgs e)
{
TextBox txtBox = (TextBox)sender;
txtBox.SelectAll();
txtBox.BackColor = Color.LightBlue;
}
private void TextBox_Leave(object sender, EventArgs e)
{
TextBox txtBox = (TextBox)sender;
txtBox.BackColor = Color.White;
}
}
}
تبدیلش کردم به وی بی اصلا کار نمیکنه
For Each control As Control In Me.Controls
If (TypeOf control Is TextBox) Then
AddHandler control.Enter, AddressOf Me.control_Enter
AddHandler control.Leave, AddressOf Me.control_Leave
End If
Next
End Sub
Private Sub control_Enter(ByVal sender As Object, ByVal e As EventArgs)
CType(sender, Control).BackColor = Color.Yellow
Private Sub control_Leave(ByVal sender As Object, ByVal e As EventArgs)
CType(sender, Control).BackColor = Color.Empty
End Sub
public Form1()
{
InitializeComponent();
}
public static void ChangeTextBoxBackColor()
{
}
private void Form1_Load(object sender, EventArgs e)
{
foreach (Control ctrl in this.Controls)
{
if (ctrl is TextBox)
ctrl.Enter += new EventHandler(TextBox_Enter);
ctrl.Leave += new EventHandler(TextBox_Leave);
}
}
private void TextBox_Enter(object sender, EventArgs e)
{
TextBox txtBox = (TextBox)sender;
txtBox.SelectAll();
txtBox.BackColor = Color.LightBlue;
}
private void TextBox_Leave(object sender, EventArgs e)
{
TextBox txtBox = (TextBox)sender;
txtBox.BackColor = Color.White;
}
}
}
تبدیلش کردم به وی بی اصلا کار نمیکنه
For Each control As Control In Me.Controls
If (TypeOf control Is TextBox) Then
AddHandler control.Enter, AddressOf Me.control_Enter
AddHandler control.Leave, AddressOf Me.control_Leave
End If
Next
End Sub
Private Sub control_Enter(ByVal sender As Object, ByVal e As EventArgs)
CType(sender, Control).BackColor = Color.Yellow
Private Sub control_Leave(ByVal sender As Object, ByVal e As EventArgs)
CType(sender, Control).BackColor = Color.Empty
End Sub