?? frmpass.frm
字號:
VERSION 5.00
Begin VB.Form frmpass
BorderStyle = 1 'Fixed Single
Caption = "身份驗證"
ClientHeight = 2100
ClientLeft = 45
ClientTop = 330
ClientWidth = 5370
Icon = "frmpass.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
Picture = "frmpass.frx":0442
ScaleHeight = 2100
ScaleWidth = 5370
StartUpPosition = 2 'CenterScreen
Begin VB.TextBox Text3
Height = 345
IMEMode = 3 'DISABLE
Left = 3555
PasswordChar = "*"
TabIndex = 8
Top = 1140
Visible = 0 'False
Width = 1665
End
Begin VB.CommandButton Comca
Caption = "取消"
Height = 390
Left = 3015
TabIndex = 3
Top = 1560
Width = 1140
End
Begin VB.CommandButton Comok
Caption = "確定"
Height = 390
Left = 1065
TabIndex = 2
Top = 1575
Width = 1155
End
Begin VB.TextBox Text1
Height = 390
IMEMode = 3 'DISABLE
Left = 1650
MaxLength = 8
PasswordChar = "*"
TabIndex = 0
Top = 645
Width = 2250
End
Begin VB.TextBox Text2
Height = 345
IMEMode = 3 'DISABLE
Left = 855
PasswordChar = "*"
TabIndex = 7
Top = 1140
Visible = 0 'False
Width = 1515
End
Begin VB.Label Label5
BackColor = &H8000000B&
Caption = "狂 風 制 作"
BeginProperty Font
Name = "隸書"
Size = 15
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 420
Left = 1635
TabIndex = 11
Top = 1125
Width = 2400
End
Begin VB.Label Label4
Caption = "再輸入一次："
Height = 225
Left = 2475
TabIndex = 10
Top = 1200
Visible = 0 'False
Width = 1200
End
Begin VB.Label Label3
Caption = "新密碼："
Height = 300
Left = 105
TabIndex = 9
Top = 1155
Visible = 0 'False
Width = 750
End
Begin VB.Line Line4
BorderColor = &H80000009&
Visible = 0 'False
X1 = 4245
X2 = 4245
Y1 = 660
Y2 = 930
End
Begin VB.Line Line3
Visible = 0 'False
X1 = 5055
X2 = 5055
Y1 = 660
Y2 = 945
End
Begin VB.Line Line2
Visible = 0 'False
X1 = 4230
X2 = 5070
Y1 = 930
Y2 = 930
End
Begin VB.Line Line1
BorderColor = &H80000009&
Visible = 0 'False
X1 = 4245
X2 = 5070
Y1 = 645
Y2 = 645
End
Begin VB.Label Label2
BackColor = &H8000000B&
Caption = "更改密碼"
ForeColor = &H000000FF&
Height = 180
Left = 4320
TabIndex = 6
Top = 720
Width = 720
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "歡迎使用小小收支薄V0.2測試版"
BeginProperty Font
Name = "宋體"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 375
Index = 1
Left = 570
TabIndex = 4
Top = 105
Width = 4545
End
Begin VB.Label Label1
Caption = "請輸入密碼："
Height = 360
Index = 0
Left = 315
TabIndex = 1
Top = 660
Width = 1230
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "歡迎使用小小收支薄V0.2測試版"
BeginProperty Font
Name = "宋體"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Index = 2
Left = 615
TabIndex = 5
Top = 90
Width = 4335
End
End
Attribute VB_Name = "frmpass"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Public grzbpass As String
Private Sub Comca_Click()
Unload Me
End
End Sub
Private Sub Comok_Click()
grzbpass = Text1.Text
If Label3.Visible = True Then
If Text2.Text = Text3.Text Then
Dim i As Byte, pas(7) As String, mw
mw = ""
For i = 1 To Len(Text2.Text)
pas(i - 1) = Mid(Text2.Text, i, 1)
pas(i - 1) = Chr(Asc(pas(i - 1)) + 50 + i * 2)
mw = mw + pas(i - 1)
Next i
Open App.Path + "\ok.pas" For Output As #1
Write #1, mw
Close #1
Else
MsgBox "兩次輸入的密碼不相同，請重輸。", 48, "提示"
Text3.Text = ""
With Text2
.Text = ""
.SetFocus
End With
Exit Sub
End If
End If
Unload Me
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Line1.Visible = False
Line2.Visible = False
Line3.Visible = False
Line4.Visible = False
Line1.BorderColor = &H80000009
Line2.BorderColor = &H80000008
Line3.BorderColor = &H80000008
Line4.BorderColor = &H80000009
End Sub
Private Sub Label2_Click()
If Module1.mw <> Text1.Text Then
MsgBox "請先輸入正確的密碼！"
Text1.SelStart = 0
Text1.SelLength = 8
Text1.SetFocus
Else
Label3.Visible = True
Label4.Visible = True
Label5.Visible = False
Text2.Visible = True
Text3.Visible = True
Text2.SetFocus
End If
End Sub
Private Sub Label2_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
Line2.BorderColor = &H80000009
Line1.BorderColor = &H80000008
Line4.BorderColor = &H80000008
Line3.BorderColor = &H80000009
End If
End Sub
Private Sub Label2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Line1.Visible = True
Line2.Visible = True
Line3.Visible = True
Line4.Visible = True
End Sub
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -