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

如下图所示:... 如下图所示: 展开
 我来答
lzl3283037
2012-03-31 · TA获得超过1658个赞
知道大有可为答主
回答量:1488
采纳率:0%
帮助的人:439万
展开全部
在command控件,tooltiptext属性中写入你的提示内容则可。
或在代码中加一行:command1.tooltiptext=" 点击后转到下一题"。
鼠标放在按钮上,就显示文本内容。
更多追问追答
追问
不是你说的这个意思,我的意思是,当单击下一题时,就出现下一个问题的标题和选项;当单击上一题时,就出现上一个问题的标题和选项。
追答
所说的“标题和选项”,只能是保存于数据库的记录,不管这个数据库是什么做的,只要VB能调用就行。每一题是一条记录,点下一题或上一题后,查找并输出这个题的“标题和选项”就是了,而这些题全部放入VB中是行不通的,以后一但有变化,还得重新编程。至于输出到什么控件中,按你的设计而定,比如你的截图是输出到Label控件。
帐号已注销
2012-03-31 · 超过56用户采纳过TA的回答
知道小有建树答主
回答量:119
采纳率:0%
帮助的人:68.9万
展开全部
添加一个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
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
y52276615
2012-03-31 · TA获得超过139个赞
知道答主
回答量:255
采纳率:100%
帮助的人:102万
展开全部
这个只能利用数据库了,单是VB不行
更多追问追答
追问
那该怎么写呢,我对数据库不是很熟悉
追答
要做这种测试系统肯定得用数据库啊。题目及选项都是事先存在数据库的,窗口界面仅仅是显示数据。所以当你点击下一题时,可以编写代码读取数据库中的下一条记录,内容就全是下一题的内容
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
zx001z7d53
2012-03-31 · TA获得超过2万个赞
知道大有可为答主
回答量:2.4万
采纳率:52%
帮助的人:5533万
展开全部
留个QQ我帮你做个实例
追问
21512103
谢谢
本回答被提问者采纳
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
liuning_688
2012-03-31 · 超过38用户采纳过TA的回答
知道答主
回答量:229
采纳率:0%
帮助的人:132万
展开全部
不是单击 是鼠标放在按钮上 就显示文本吧 我记得command控件有个可以实现这种效果的事件,你看看
追问
不是鼠标放在按钮上,就显示文本,而是单击按钮,就出现如图所示的标题和选项
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 2条折叠回答
收起 更多回答(3)
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式