学校展厅设计方案:VB按纽问题

来源:百度文库 编辑:查人人中国名人网 时间:2024/05/08 06:41:10
一个按纽
第 一 二 三 次点击.
出现不同的消息
最好写点原代码

设一个变量,每点击一次其值就自增一,根据其值的不同输出不同的消息

private sub command1_click()
static i as integer
i=1+1
select case i
case 1
msgbox "第一次"
case 2
msgbox "第二次"
case 3
msgbox "第三次"
end select
end sub

在按钮的事件里设置一个自加变量,
onclick_{
i=i+1
if i=1 then
msgbox "1"
elseif i=2 then
msgbox "2"
elseif i=3 then
msgbox "3
else
end if}