开发工具:
文件大小: 84kb
下载次数: 0
上传时间: 2012-07-27
详细说明： Dim t As Integer Dim str1 As String Dim str2 As String Dim str3 As String Dim str As String Dim pathing1 As String Dim pathing2 As String Private Sub Combo1_Click() For i = 0 To Combo1.ListCount - 1 If Len(Combo1.List(i)) >= Len(Combo1.Text) Then If UCase(Left(Combo1.List(i), Len(Combo1.Text))) = UCase(Combo1.Text) Then aaa = Len(Combo1.Text) Text1.Text = Combo1.List(i) Combo1.SelStart = aaa Combo1.SelLength = Len(Combo1.Text) - aaa Exit For End If End If Next i End Sub Private Sub Command1_Click() MsgBox "如果未注 册请先注册账户，注册完，下次登录方可保存账号", 64, "温馨提示" End Sub Private Sub Command3_Click() t = 0 pathing1 = "c:\账号.txt" pathing2 = "c:\密码.txt" If Dir(pathing1, vbHidden) = "" And Dir(pathing1) = "" Then MsgBox "请先注册账号", 64, "温馨提示" Exit Sub End If Open pathing1 For Input As #1 Open pathing2 For Input As #2 Do While Not EOF(1) Do While Not EOF(2) Line Input #1, str1 Line Input #2, str2 If Text1.Text = ″″ Then Response = MsgBox("请输入用户名,取消则退出!", 1, "温馨提示") If Response = vbOK Then Exit Sub End If If Response = vbCancel Then End End If End If If Text1.Text = str1 And Text2.Text = str2 Then t = 1 配置.Show 登陆.Hide MsgBox "成功登陆", 64, "温馨提示" End If Loop Loop............................. ...展开收缩
(系统自动生成,下载前可以参看下载内容)
下载文件列表
相关说明
- 本站资源为会员上传分享交流与学习,如有侵犯您的权益,请联系我们删除.
- 本站是交换下载平台，提供交流渠道，下载内容来自于网络，除下载问题外，其它问题请自行百度。
- 本站已设置防盗链，请勿用迅雷、QQ旋风等多线程下载软件下载资源，下载后用WinRAR最新版进行解压.
- 如果您发现内容无法下载，请稍后再次尝试；或者到消费记录里找到下载记录反馈给我们.
- 下载后发现下载的内容跟说明不相乎，请到消费记录里找到下载记录反馈给我们，经确认后退回积分.
- 如下载前有疑问，可以通过点击"提供者"的名字，查看对方的联系方式，联系对方咨询.
