山寨机中的战斗机！	程序优化工程师到底对IT界有没有贡献

如何在一个按钮上实现该功能？菜鸟问题，别见怪：）

楼主lanyiran（~我现在拿不到分~）2002-03-28 16:27:52 在 VB / 基础类提问

就是一个按钮，单击第一次为事件一，第二次单击出现事件二。
菜鸟问题，别见怪：）问题点数：10、回复次数：12Top

1 楼288794（）回复于 2002-03-28 16:32:34 得分 0

private sub cmd_Click()
static i as long
select case i
case 0
'事件1
case 1
'事件2
end select
i=i+1
if i=2 then i=0
end subTop

2 楼fling_boy（昨日重现）回复于 2002-03-28 16:32:36 得分 0

Private Sub Command1_Click()
Static i As Long
i = i + 1
MsgBox "第" & i & "次"
End Sub

Top

3 楼ferrytang（欢迎你）回复于 2002-03-28 16:47:20 得分 0

用checkbox
把style改成图形的
然后在你按得时候根据 checkbox 的 value来判断Top

4 楼xxlroad（土八路）回复于 2002-03-28 16:57:42 得分 0

Dim i As Integer

Private Sub Command1_Click()
i = i + 1
Print "第" & i & "次"
End Sub
Top

5 楼dxj221（green）回复于 2002-03-28 17:00:47 得分 0

Dim flag as bool

Private Sub Command_Click()

if flag=true then
事件1
flag=false
End if

if flag=false then
事件2
End if

End subTop

6 楼dxj221（green）回复于 2002-03-28 17:01:26 得分 0

Dim flag as bool

Private Sub Command_Click()

if flag=true then
事件1
flag=false
End if

if flag=false then
事件2
flag=true
End if

End sub

Top

7 楼xxlroad（土八路）回复于 2002-03-28 17:02:57 得分 10

Dim i As Integer

Private Sub Command1_Click()
i = i + 1
If i = 3 Then i = 1
Print "第" & i & "次"
End Sub
''''''''''''''''''''''''''''''''''
Dim i As Boolean

Private Sub Command1_Click()
If i Then
Print "第 2 次"
i = False
Else
Print "第 1 次"
i = True
End If
End Sub
Top

8 楼vivan19781111（vivan kaici）回复于 2002-03-28 17:09:46 得分 0

dim i as integer 'i为全局变量

Private Sub Command1_Click()
select case i
case 0
'事件1
case 1
'事件2
end select
i = i + 1
End Sub

Top

9 楼happybeyond（衣带渐宽怎不悔，VB消得人憔悴~）回复于 2002-03-28 19:47:08 得分 0

Dim i As Integer

Private Sub Command1_Click()
i = i + 1
Print "第" & i & "次"
End Sub

Top

10 楼beesoft（男人简单就好）回复于 2002-03-28 19:51:03 得分 0

Static i As Long
请教Static 有什么作用？
Top

11 楼ming709（小明）回复于 2002-03-29 15:06:25 得分 0

可以衣据按钮的"caption"来作判断运行哪此代码Top

12 楼water_j（随心所欲）回复于 2002-03-29 15:22:31 得分 0

Static 是静态变量，只在程序启动时初始化一次！Top