一个VB的小问题

ljeternity

要求在每一次单击窗体的时候，窗体的大小扩大10%，当第七次单击的时候，窗体最大化。
我主要是不知道什么思路去写这个循环语句
谢谢了

eltada

Dim i
Private Sub Form_Click()
If i < 7 Then
i = i + 1
Me.Height = Me.Height * 1.1
Me.Width = Me.Width * 1.1
Else
Me.WindowState = 2
End If
End Sub

thetian

Dim i As Integer
Private Sub Form_Click()

    i = i + 1
    Form1.Width = Screen.Width / 7 * i
    Form1.Height = Screen.Height / 7 * i
    Form1.Left = (Screen.Width - Form1.Width) / 2
    Form1.Top = (Screen.Height - Form1.Height) / 2
    If i = 7 Then i = 1

End Sub

Private Sub Form_Load()
Form1.AutoRedraw = True
End Sub

自己玩去吧

ljeternity

谢谢eltada
对了Me就是指当前窗体吗？还有定义了Dim以后，那个i是默认为多少呢？谢谢你再回答一下，我马上揭帖

冰火之颠

一楼的可行

waftwind

i默認為0,去試試就知道了。用一樓的.

zongcunjie

板凳的更详细