Question

在VB中，如何实现每单击按钮一次，窗体上就出现一段文字 谢谢了！

如下图所示：

Answer 1

在command控件,tooltiptext属性中写入你的提示内容则可。
或在代码中加一行：command1.tooltiptext=" 点击后转到下一题"。
鼠标放在按钮上，就显示文本内容。

追问

不是你说的这个意思，我的意思是，当单击下一题时，就出现下一个问题的标题和选项；当单击上一题时，就出现上一个问题的标题和选项。

追答

所说的“标题和选项”，只能是保存于数据库的记录，不管这个数据库是什么做的，只要VB能调用就行。每一题是一条记录，点下一题或上一题后，查找并输出这个题的“标题和选项”就是了，而这些题全部放入VB中是行不通的，以后一但有变化，还得重新编程。至于输出到什么控件中，按你的设计而定，比如你的截图是输出到Label控件。

追问

谢谢了，我在看看

Answer 2

添加一个label控件
Private Sub Command1_Click()
label1.Caption="文字1"
End Sub
Private Sub Command2_Click()
label1.Caption="文字2"
End Sub

追问

这个方法只适合两种选择
如果是多个选择题，这个就不能再进行判断了

追答

哦~明白你的意思了
你这样做,题目的资料保存在数据库
Private Sub Command1_Click() '这是上一题的按钮
rs.MovePrevious '移动数据库记录到上一条
label1.Caption= rs("题目")
label2.Caption="A:" & rs("A答案")
label3.Caption="B:" & rs("B答案")
label4.Caption="C:" & rs("C答案")
label5.Caption="D:" & rs("D答案")
End Sub
Private Sub Command2_Click() '这是下一题的按钮
rs.MoveNext '移动数据库记录到下一条
label1.Caption= rs("题目")
label2.Caption="A:" & rs("A答案")
label3.Caption="B:" & rs("B答案")
label4.Caption="C:" & rs("C答案")
label5.Caption="D:" & rs("D答案")
End Sub

Answer 3

这个只能利用数据库了，单是VB不行

追问

那该怎么写呢，我对数据库不是很熟悉

追答

要做这种测试系统肯定得用数据库啊。题目及选项都是事先存在数据库的，窗口界面仅仅是显示数据。所以当你点击下一题时，可以编写代码读取数据库中的下一条记录，内容就全是下一题的内容

追问

嗯，那应该如何写呢
能否给个实例看看，谢谢

追答

不好意思，如果对数据库不了解，这恐怕不是一会两会说得清楚的。

Answer 4

留个QQ我帮你做个实例

追问

21512103
谢谢

Answer 5

不是单击 是鼠标放在按钮上 就显示文本吧 我记得command控件有个可以实现这种效果的事件，你看看

追问

不是鼠标放在按钮上，就显示文本，而是单击按钮，就出现如图所示的标题和选项