各位大神，我想问一下，我这个代码为什么输错两次密码不对了 - vb吧

level 1

你心似海🍭 楼主

Publica As Double
Publicb As Double
PrivateSub Command1_Click()
Statici As Integer
Text1(0).SetFocus
If Text1(0).Text = "206150919" Then
a = 1
Else
i = i + 1
MsgBox "用户名错误!", 5+ vbExclamation, "输入用户名" '5－重试和取消
If i = 3 Then
MsgBox "对不起，用户名错误三次，您无法登录该系统！", 48, "警告!"
End
Else
Text1(0) = ""
Text1(1) = ""
Text1(0).SetFocus
End If
End If
If Text1(1).Text = "gh123456" Then
b = 1
Else
i = i + 1
MsgBox "密码错误", 5 + vbExclamation, "输入密码"
Ifi = 4 Then
MsgBox "对不起，密码错误三次，您无法登录该系统！", 48, "警告!"
End
Else
Text1(1).Text = ""
Text1(1).SetFocus
End If
End If

2020年04月27日 09点04分 1

level 1

你心似海🍭 楼主

运行的时候，不管账号输错两次还是密码出错两次，都直接跳出那个提示框

2020年04月27日 09点04分 2

level 11

璐村惂鐢ㄦ埛_0748V5Z馃惥

①Text1(0).SetFocus之后，应当exit sub

2020年04月27日 09点04分 3

璐村惂鐢ㄦ埛_0748V5Z馃惥

密码错误，密码框清空以后，如果你endif之后，还有事情要执行，就要exit sub；反之，如果endif之后，就是end sub了那就不用exit sub。因为你发的代码只到这里不知道你后面的清空，不好妄言。

2020年04月27日 09点04分

你心似海🍭

@璐村惂鐢ㄦ埛_0748V5Z馃惥好的谢谢

2020年04月27日 09点04分

你心似海🍭

@璐村惂鐢ㄦ埛_0748V5Z馃惥那请问一下，vb里面怎么让图片自适应图片框

2020年04月27日 10点04分

璐村惂鐢ㄦ埛_0748V5Z馃惥

@你心似海🍭 image1.stretch=true就可以让装入image1的图片通过缩放自适应image1的大小

2020年04月27日 10点04分

level 11

璐村惂鐢ㄦ埛_0748V5Z馃惥

②你的i=i+1一共两次，一次是记录账户错误的，一次是记录密码错误的。
你应该吧两错误的次数分开记录，才不会相互干扰。

2020年04月27日 09点04分 4

level 11

小楠😳♀

回复 vlaoda :如果我没记错的话图片框是picture吧，图像框才是image，图片框没有图片自适应图片框这个属性，只有图片框自适应图片大小image有。想要图片自适应图片框大小可以载入图片后重新绘制比如:
P.Picture = LoadPicture("F:\Desktop\1.jpg")
P.PaintPicture P.Picture, 0, 0, P.Width, P.Height

2020年04月27日 11点04分 5

level 11

小楠😳♀

效果图