Vb6 更改发件人文本框的背景色

我有很多文本框，我想让它们在聚焦时改变背景色

这是加载表单时的代码

Public Sub New()
    Me.InitializeComponent()
    For Each c  As Control In Me.Controls
        If TypeOf c Is TextBox Then 
            AddHandler c.Enter, AddressOf Me.changeBg
            AddHandler c.Leave, AddressOf Me.restoreBg
        End If
    Next
End Sub

这就是听众

Sub changeBg(sender As Object, e As EventArgs)
    'Dim c As Control = sender
    'sender.BackColor = System.Drawing.ColorTranslator.FromOle(&HFFFF9D)
End Sub

---

如何获取textbox控件并更改其背景色？因为我将发送者作为对象来获取

我最终为vb添加了一个正确的强制转换

Dim tb As TextBox = DirectCast(sender, TextBox)
tb.BackColor  = System.Drawing.ColorTranslator.FromOle(&HFFFF9D)

就像这里一样

将事件发送器强制转换为控件

这里呢

VB6？（（文本框）sender.BackColor=System.Drawing.ColorTranslator.FromOle（&HFFFF9D）。添加您认为合适的错误处理。@jac Alt尽管这是c#样式，但含义相同。要强制转换元素，请执行以下操作：