请问一个文本框的触发事件

2012-02-27

请教一个文本框的触发事件现在有个文本框叫“txt1”，现在它原有两个重要属性是：Appearance0BackColor&H00E0E

请教一个文本框的触发事件
现在有个文本框叫“txt1”，现在它原有两个重要属性是：
Appearance 0
BackColor &H00E0E0E0&

我想点击这个文本框时，它的Appearance改成1，BackColor改成&H00FFFFFF&，然后该文本框失去焦点时，Appearance和BackColor又都变回原来的

这段代码该怎么写啊，求教了。。。

[解决办法]

VB code

Private Sub Text1_Click()    text1.Appearance = 1    text1.BackColor = &H00FFFFFF&End Sub
[解决办法]
Option Explicit
Dim OldStyle%, OldColor&

Private Sub Form_Load()
  Text1.Appearance = 0
  Text1.BackColor = &HE0E0E0
  OldStyle = Text1.Appearance
  OldColor = Text1.BackColor
End Sub

Private Sub Text1_GotFocus()
  Text1.Appearance = 1
  Text1.BackColor = &HFFFFFF
End Sub

Private Sub Text1_LostFocus()
  Text1.Appearance = OldStyle
  Text1.BackColor = OldColor
End Sub

[解决办法]
呵呵，1楼的给过了，修正2楼的
Private Sub Text1_Click()
   Text1.Appearance = 1
   Text1.BackColor = &HFFFFFF
   Text1.Refresh
End Sub
Private Sub Text1_LostFocus()
   Text1.Appearance = 0
   Text1.BackColor = &HE0E0E0
End Sub

[解决办法]
Appearance 和 BorderStyle 属性。设置这两个属性的组合可使控件在显示时不带边框、带有单线边框或带有三维边框。

改控件外观的代码更改
下面的示例演示如何将属性设置为在运行时更改控件的外观。


' Visual Basic 6.0
' Give a TextBox a flat look with no border.
Text1.Appearance = 0
Text1.BorderStyle = 0
' Give a TextBox a three-dimensional appearance.
Text1.Appearance = 1
Text1.BorderStyle = 1
' Give a CommandButton a flat look
Command1.Appearance = 0
' Give a ListBox a flat look
List1.Appearance = 0

热点排行