VB 语言程序设计（关于网站首页）

 Dim myuser(1 To 100, 1 To 2) As String
Dim knum As Integer
Private Sub Check1_Click()    '注册
Command3.Enabled = Check1.Value
Command4.Enabled = Check1.Value
End Sub

Private Sub Command1_Click() '登陆
If knum > 0 Then
 For i = 1 To knum
   If Text1.Text = myuser(i, 1) And Text2.Text = myuser(i, 2) Then
   Form2.Show
   Exit Sub
  End If
 Next
 MsgBox "非法用户"
 Else
 MsgBox "请注册用户"
End If

 

 

End Sub

Private Sub Command1_KeyPress(KeyAscii As Integer)
If KeyCode = 13 Then
Command1.Value = True
End Sub

Private Sub Command2_Click() '重置
Text1.Text = ""
Text2.Text = ""
End Sub

Private Sub Command3_Click() '注册用户
myuser(knum + 1, 1) = Text1.Text
myuser(knum + 1, 2) = Text2.Text
knum = knum + 1
Text1.Text = ""
Text2.Text = ""
End Sub

Private Sub Command4_Click() '删除用户
For i = 1 To knum

If Text1.Text = myuser(i, 1) And Text2.Text = myuser(i, 2) Then
 myuser(i, 1) = ""
 myuser(i, 2) = ""
End If
Next
End Sub

Private Sub Form_Load()
knum = 0
End Sub

Private Sub Text1_Change()

Command1.Enabled = Text1.Text <> "" And Text2.Text <> ""
Command2.Enabled = Text1.Text <> "" Or Text2.Text <> ""

End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim a As String
a = KeyAscii
If Not (a >= 65 And a < 91 Or a >= 97 And a <= 123) Then
KeyAscii = 0
End If

End Sub

Private Sub Text2_Change()

Command1.Enabled = Text1.Text <> "" And Text2.Text <> ""
Command2.Enabled = Text1.Text <> "" Or Text2.Text <> ""
End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)
Dim a As String
a = Chr(KeyAscii)
If IsNumeric(a) = flase Then
keyacsii = 0
End If

End Sub