作者cawQQ (无痕的旋律)
看板Visual_Basic
标题Re: [VB6 ] 密码问题
时间Sun Aug 28 00:44:45 2005
我手边没有灌VB6(目前没在用..)
所以我用VB.NET里面我的写法给你看..
希望对你有帮助~其实想法差不多.
语法改一下就好了..
Dim LOGIN_TRIAL As Integer
Try
myConn.Open()
Catch ex As Exception
LOGIN_TRIAL = LOGIN_TRIAL + 1
Finally
If (myConn.State = ConnectionState.Open) Then
LOGIN_TRIAL = 0
Me.Text = "OK"
Got_ID(LOGIN_ACCOUNT)
Me.Close()
Else
MsgBox("帐号密码错误，在试一次", MsgBoxStyle.Critical)
If (LOGIN_TRIAL >= 3) Then
Me.Text = "ERR"
Me.Close()
End If
End If
End Try
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 61.64.117.158