Private Sub Picture3_Click()
Unload Me
End Sub
Private Sub Picture4_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text3.SetFocus
End Sub
当注册成功后,点击退出按钮,返回到登录界面。在登录界面中用户可以用注册的用户直接登录到通讯录
管理系统的菜单主界面中。
§5.3 系统菜单主界面的功能实现
系统功能界面图如下:
图5.3
功能界面中包括系统的所有功能,用户可以通过相应的选择来实现其功能。在工具栏中用户可以直接点击相应的快速运行按钮,就可以直接启动该功能。
系统主界面的代码如下:
Private Sub a_Click()
about.Show
End Sub
Private Sub bz_Click()
Form1.Show
End Sub
Private Sub cx_Click()
find.Show
End Sub
Private Sub grzl_Click()
appe.Show
End Sub
Private Sub gy_Click()
Form2.Show
End Sub
Private Sub tc_Click()
If MsgBox("您确实要退出吗?", vbYesNo + vbQuestion, "友情系统—退出") = vbYes Then
End
End If
End Sub
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button
Case "浏览"
review.Show
Case "资料修改"
zlbrowse.Show
Case "查询"
find.Show
Case "删除"
del.Show
Case "帮助"
Form1.Show
Case Else
If MsgBox("您确实要退出吗?", vbYesNo + vbQuestion, "友情系统—退出") = vbYes Then
End
End If
End Select
End SubPrivate Sub xg_Click()
browse.Show
End SubPrivate Sub yh_Click()
zhuce.Show
End Sub
上一页 [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] ... 下一页 >>