怎么写一个函数使文本框变色

wyypm 2003-11-24 03:33:54
我有个文本框很多的窗体,想使文本框获得焦点时变色
但是由于文本框比较多。所以想写个函数。但是我没有写出来。
请各位帮帮忙
我想把这个函数放到模块下。这样就不用每个文本框都进行判断了。
...全文
82 7 打赏 收藏 转发到动态 举报
写回复
用AI写文章
7 条回复
切换为时间正序
请发表友善的回复…
发表回复
wyypm 2003-11-24
  • 打赏
  • 举报
回复
楼上的对不起我对类不懂。
能不能在详细点
我粘过去就能用的。你的
Public WithEvents tb As TextBox
这句话出错。
shwen 2003-11-24
  • 打赏
  • 举报
回复
还有一个稍微方便一点的代码:
写一个类:Class1
Public WithEvents tb As TextBox

Private Sub tb_GotFocus()
tb.BackColor = vbRed
End Sub

Private Sub tb_LostFocus()
tb.BackColor = vbWhite
End Sub

然后在 Form 中加上,
Private m_tbs As New Collection

Private Sub addtb(tb As TextBox)
Dim t As Class1
Set t = New Class1
Set t.tb = Me.Text1
m_tbs.Add t
End Sub

然后在 Form_Load 中加上
addtb Me.Text1
addtb Me.Text2
addtb Me.Text3
...

不用一个个TextBox的去写事件处理程序了。

Maconel 2003-11-24
  • 打赏
  • 举报
回复
模块内容如下
Public Function TxtGotChangeColor(ByVal TxtName As Object, ByVal GotFocusBackColor, GotFocusForeColor As Long)
TxtName.BackColor = GotFocusBackColor
TxtName.ForeColor = GotFocusForeColor
End Function

Public Function TxtLoseChangeColor(ByVal TxtName As Object, ByVal loseFocusBackColor, loseFocusForeColo As Long)
TxtName.BackColor = loseFocusBackColor
TxtName.ForeColor = LoseFocusForeColor
End Function
Maconel 2003-11-24
  • 打赏
  • 举报
回复
模块内容如下
Public Function TxtGotChangeColor(ByVal TxtName As Object, ByVal GotFocusBackColor, GotFocusForeColor As Long)
TxtName.BackColor = GotFocusBackColor
TxtName.ForeColor = GotFocusForeColor
End Function

Public Function TxtLoseChangeColor(ByVal TxtName As Object, ByVal loseFocusBackColor, loseFocusForeColo As Long)
TxtName.BackColor = loseFocusBackColor
TxtName.ForeColor = LoseFocusForeColor
End Function
evbsky 2003-11-24
  • 打赏
  • 举报
回复
up
felix 2003-11-24
  • 打赏
  • 举报
回复
'模块
Public Sub ChangeColor(TextBoxTemp As TextBox, NewColor As OLE_COLOR)
TextBoxTemp.BackColor = NewColor
End Sub

'窗口调用
Private Sub Text1_GotFocus()
ChangeColor Text1, vbRed
End Sub

Private Sub Text1_LostFocus()
ChangeColor Text1, vbWhite
End Sub
aiur2000 2003-11-24
  • 打赏
  • 举报
回复
应该是写文本的变色函数。
然后在文本的getfocus和lostfocus中调用。

7,768

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧