| 网站首页 | 业界新闻 | 群组 | 交易 | 人才 | 下载频道 | 博客 | 代码贴 | 编程论坛
共有 979 人关注过本帖
标题:请问,如何实现用鼠标点击文字框,文字框的底色就会变的方法
只看楼主 加入收藏
suzhanpeng
Rank: 3Rank: 3
等 级:论坛游侠
威 望:4
帖 子:45
专家分:168
注 册:2016-9-28
  得分:0 
我不知道你的是怎么回事,这几个答案都通过测试!(xzlxzlxzl改正后可以通过)
2018-02-11 09:22
jrs123
Rank: 2
等 级:论坛游民
威 望:1
帖 子:627
专家分:14
注 册:2006-9-5
  得分:0 
谢谢xzlxzlxzl贵宾的程序,通过了!
Private Sub Text1_Click()
  Dim a As Long
  a = Text1.BackColor Xor &HCC10CC  '&HCC10CC可以变换为其他数字,只要在24位色范围内都行,及>&H0<&HFFFFFF
  If Not (a > &H80000019 And a < &H80000000) Then a = a And &HFFFFFF
  If a > 0 And a < 24 Then a = a Or &H80000000
  Text1.BackColor = a
End Sub
2018-02-14 10:11
jrs123
Rank: 2
等 级:论坛游民
威 望:1
帖 子:627
专家分:14
注 册:2006-9-5
  得分:0 
请问xzlxzlxzl,该组代码只对一个框起作用,多几个框,对其它框就没有反应了?如:
Private Sub Text1_Click()
   Dim a As Long
  a = Text1.BackColor Xor &HCC10CC  '&HCC10CC可以变换为其他数字,只要在24位色范围内都行,及>&H0<&HFFFFFF
  If Not (a > &H80000019 And a < &H80000000) Then a = a And &HFFFFFF
  If a > 0 And a < 24 Then a = a Or &H80000000
  Text1.BackColor = a
End Sub
Private Sub Text2_Click()
  Dim a As Long
  a = Text2.BackColor Xor &HCC10CC  '&HCC10CC可以变换为其他数字,只要在24位色范围内都行,及>&H0<&HFFFFFF
  If Not (a > &H80000019 And a < &H80000000) Then a = a And &HFFFFFF
  If a > 0 And a < 24 Then a = a Or &H80000000
  Text2.BackColor = a
End Sub

Private Sub Text3_Change()
 Dim a As Long
  a = Text3.BackColor Xor &HCC10CC  '&HCC10CC可以变换为其他数字,只要在24位色范围内都行,及>&H0<&HFFFFFF
  If Not (a > &H80000019 And a < &H80000000) Then a = a And &HFFFFFF
  If a > 0 And a < 24 Then a = a Or &H80000000
  Text3.BackColor = a
End Sub

Private Sub Text4_Change()
 Dim a As Long
  a = Text4.BackColor Xor &HCC10CC  '&HCC10CC可以变换为其他数字,只要在24位色范围内都行,及>&H0<&HFFFFFF
  If Not (a > &H80000019 And a < &H80000000) Then a = a And &HFFFFFF
  If a > 0 And a < 24 Then a = a Or &H80000000
  Text4.BackColor = a
End Sub
2018-02-14 11:10







关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.030967 second(s), 9 queries.
Copyright©2004-2018, BCCN.NET, All Rights Reserved