【VB开源代码栏目提醒】:本文主要为网学会员提供4.2.1.frm,希望对需要4.2.1.frm网友有所帮助,学习一下!
VERSION 5.00
Begin VB.Form Form11
Caption = "Form11"
ClientHeight = 3195
ClientLeft = 60
ClientTop = 345
ClientWidth = 4680
LinkTopic = "Form11"
ScaleHeight = 3195
ScaleWidth = 4680
StartUpPosition = 3 '窗口缺省
End
Attribute VB_Name = "Form11"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Click()
Dim name As String
name = InputBox("请输入用户名称")
If name = "admin" Then
MsgBox "通过认证"
End If
End Sub
上一篇:
4.1.7.frm
下一篇:
法律专业开题报告范文