VB简单问题!

来源：百度知道 编辑：UC知道 时间：2024/05/27 00:24:13
先看以下的程序:
Private Sub Command2_Click()
Command2.Height = Command2.Height * 2
Command2.Width = Command2.Width * 2
End Sub

请问如何可以只扩大一次,而不是一直的扩大下去都行,这样怎么限制?
怎么搞呀,都不行呢?真是抱歉,由于我是刚学的,可不可以说的详细一点!!

你这代码，本身就是每点一下command2，扩大一次啊，不点不会一直扩大啊！
你这代码，本身就是每点一下command2，扩大一次啊，不点不会一直扩大啊！
如果想第一次点扩大，以后点都不扩大，则用楼上说的方法就可以，定义全局变量
或用static 定义一个boolen变量
Private Sub Command2_Click()
Static b As Boolean
If b = False Then
Command2.Height = Command2.Height * 2
Command2.Width = Command2.Width * 2
b = True
End If
End Sub

dim i
i=true
Private Sub Command2_Click()
if i then
Command2.Height = Command2.Height * 2
Command2.Width = Command2.Width * 2
i=false
end if
End Sub

定义一个全局的bool型变量,如bchanged,初始值为False,然后方法改为如下

Private Sub Command2_Click()
If bchanged == False Then
Command2.Height = Command2.Height * 2
Command2.Width = Command2.Width * 2
bchanged = True
EndIf
End Sub