大侠，怎么用VB编写程序：使文本框一变成黄底蓝字，文本框二的文字居中（有三个command是激活，改变，隐藏

Question

急用。。。在此送上小妹的谢意和钦佩

Answer 1

1.首先你的这段代码：
Text1.Text = rs.Fields(0)
Text2.Text = rs.Fields(1)
Text3.Text = rs.Fields(2)
Text4.Text = rs.Fields(3)
已经将Text1到Text4这4个文本框与记录集（rs）绑定，默认的情况下记录集的当前记录就是第一条记录，所以你一查询就显示第一条记录。如果你想显示其它记录，移动一下当前记录就行了，例如 rs.MoveNext
2.你用Text1显示记录，那么就不要用它来接受查询条件，因为这样可能会导致混乱，建议你的
SQL代码改一下
"select * from student1 where XSID like '" & Text5.Text & "%'"
3.用的MSHFlexgrid 列表框显示记录集，你的那段代码没问题（过滤条件框已帮你改为Text5)
s = "select * from student1 where XSID like '" & Text5.Text & "%'"
Set m1.DataSource = conn.Execute(s)
如果用MSHFlexgrid 列表框显示记录集，建议取消rs与Text1到Text4之间的绑定
改用MSHFlexgrid的RowColChange事件将列表框当前行的各列值分别赋给Text1,Text2,Text3和Text4，具体的代码你自己去研究吧。

Answer 2

教你一个简单的方法，不用自己写代码。
打开Excel，创建一个宏，宏的操作就是你所说的那些改变。然后再编辑宏，看看里面的VBA代码就是你需要的代码。
至于你说的激活和隐藏代码应该好写吧。追问

再具体点好么，我帮别人问的，很感谢！！！！

Answer 3

选一个文本框，改变其blackcolor(背景，黄底)，fontcolor（字体颜色，蓝字）
代码的话设定一下这两个属性好了追问

再具体点好么，我帮别人问的，很感谢！！！！

追答

这个还不明白？？单击文本框，在属性窗口里设置
代码的话
text1.blackcolor=黄色（这个找代码）
text1.fontcolor=蓝色（代码）

Answer 4

text1的backcolor 是黄色的 forecolor是蓝色的 text2的Alignment是2—center
隐藏按钮后面的代码
Private Sub Command2_Click()
Command2.Visible = False
End Sub
要是让写程序 只要在程序中改变那些属性就可以实现了追问

再具体点好么，我帮别人问的，很感谢！！！！

追答

群发的吗 怎么都问 再具体点 让他看书吧 这是最基本的设置 和程序无关