[已解决]能否根据条件改变？

qhllqhll · 发表于 2012-12-18 11:07

本帖最后由 qhllqhll 于 2013-1-5 14:36 编辑

请各位帮助
例见附件：
如果下面的所有文本有一个不为空，则：右边的“查看全部”按钮的字自动变成“查询”（同时按钮底色也变成淡蓝色的）

按钮自动变字和颜色.rar (5.85 KB, 下载次数: 19)

hwc2ycy · 发表于 2012-12-18 14:03

你在TEXTBOX的CHANEG事件里判断。

hwc2ycy · 发表于 2012-12-18 14:08

本帖最后由 hwc2ycy 于 2012-12-18 14:12 编辑

Private Sub TextBox1_Change()
With CommandButton1
If Len(TextBox1.Text) > 0 And Len(TextBox2.Text) > 0 And Len(TextBox3.Text) > 0 Then
.Caption = "查询"
.BackColor = &H8080FF
Else
.Caption = "查看全部"
.BackColor = &H8000000F
End If
End With
End Sub
Private Sub TextBox2_Change()
With CommandButton1
If Len(TextBox1.Text) > 0 And Len(TextBox2.Text) > 0 And Len(TextBox3.Text) > 0 Then
.Caption = "查询"
.BackColor = &H8080FF
Else
.Caption = "查看全部"
.BackColor = &H8000000F
End If
End With
End Sub
Private Sub TextBox3_Change()
With CommandButton1
If Len(TextBox1.Text) > 0 And Len(TextBox2.Text) > 0 And Len(TextBox3.Text) > 0 Then
.Caption = "查询"
.BackColor = &H8080FF
Else
.Caption = "查看全部"
.BackColor = &H8000000F
End If
End With
End Sub

复制代码

hwc2ycy · 发表于 2012-12-18 14:18

晕，是有一个。

hwc2ycy · 发表于 2012-12-18 14:18

本帖最后由 hwc2ycy 于 2012-12-18 14:59 编辑

Private Sub TextBox1_Change()
With CommandButton1
If Len(TextBox1.Text) > 0 Or Len(TextBox2.Text) > 0 Or Len(TextBox3.Text) > 0 Then
.Caption = "查询"
.BackColor = &H8080FF
Else
.Caption = "查看全部"
.BackColor = &H8000000F
End If
End With
End Sub
Private Sub TextBox2_Change()
With CommandButton1
If Len(TextBox1.Text) > 0 Or Len(TextBox2.Text) > 0 Or Len(TextBox3.Text) > 0 Then
.Caption = "查询"
.BackColor = &H8080FF
Else
.Caption = "查看全部"
.BackColor = &H8000000F
End If
End With
End Sub
Private Sub TextBox3_Change()
With CommandButton1
If Len(TextBox1.Text) > 0 Or Len(TextBox2.Text) > 0 Or Len(TextBox3.Text) > 0 Then
.Caption = "查询"
.BackColor = &H8080FF
Else
.Caption = "查看全部"
.BackColor = &H8000000F
End If
End With
End Sub

复制代码

qhllqhll · 发表于 2012-12-18 14:47

本帖最后由 qhllqhll 于 2012-12-18 14:56 编辑

hwc2ycy 发表于 2012-12-18 14:18

非常感谢....您太伟大了...
麻烦您把作好的附件传上来吧？
我怎么测试不好啊
谢谢

hwc2ycy · 发表于 2012-12-18 14:54

按钮自动变字和颜色.rar (11.39 KB, 下载次数: 11)

hwc2ycy · 发表于 2012-12-18 14:54

上面的刚刚用了查找替换，把按钮名字给替错了，

hwc2ycy · 发表于 2012-12-18 14:57

Private Sub TextBox1_Change()
Call SetCommandButton
End Sub
Private Sub TextBox2_Change()
Call SetCommandButton
End Sub
Private Sub TextBox3_Change()
Call SetCommandButton
End Sub
Private Sub SetCommandButton()
With CommandButton1
If Len(TextBox1.Text) > 0 Or Len(TextBox2.Text) > 0 Or Len(TextBox3.Text) > 0 Then
.Caption = "查询"
.BackColor = &HFFFF80
Else
.Caption = "查看全部"
.BackColor = &H8000000F
End If
End With
End Sub

复制代码

hwc2ycy · 发表于 2012-12-18 15:00

刚刚省事，用了查找替换，后来就没测了，对不起。

		自动登录	找回密码
密码			注册