QR코드에 색상 지정 가능

Epole/ETCLOGIN.vb

@@ -0,0 +1,51 @@
+Public Class ETCLOGIN
+
+    ' TODO: 제공된 사용자 이름과 암호를 사용하여 사용자 지정 인증을 수행하는 코드를 삽입합니다
+    ' (자세한 내용은 http://go.microsoft.com/fwlink/?LinkId=35339 참조).  
+    ' 그러면 사용자 지정 보안 주체가 현재 스레드의 보안 주체에 다음과 같이 첨부될 수 있습니다. 
+    '     My.User.CurrentPrincipal = CustomPrincipal
+    ' 여기서 CustomPrincipal은 인증을 수행하는 데 사용되는 IPrincipal이 구현된 것입니다. 
+    ' 나중에 My.User는 CustomPrincipal 개체에 캡슐화된 사용자 이름, 표시 이름 등의
+    ' ID 정보를 반환합니다.
+    Public PASS As String
+
+    Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click
+        If Me.PasswordTextBox.Text = "gorhkd" & Format(Now, "yyyyMMdd") Then
+            Me.DialogResult = Windows.Forms.DialogResult.OK
+            Me.Close()
+        Else
+            MsgBox("암호가 일치하지 않습니다", MsgBoxStyle.Critical, "확인")
+            Me.PasswordTextBox.Focus()
+            Me.PasswordTextBox.SelectAll()
+        End If
+    End Sub
+
+    Private Sub Cancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel.Click
+        Me.DialogResult = Windows.Forms.DialogResult.Cancel
+        Me.Close()
+    End Sub
+
+    Private Sub PasswordTextBox_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles PasswordTextBox.KeyDown
+        If e.KeyCode = Keys.Enter Then
+
+            '  MsgBox("gorhkd" & Format(Now, "yyyyMMdd"))
+            If Me.PasswordTextBox.Text = "gorhkd" & Format(Now, "yyyyMMdd") Then
+
+                Me.DialogResult = Windows.Forms.DialogResult.OK
+                Me.Close()
+            Else
+                MsgBox("암호가 일치하지 않습니다", MsgBoxStyle.Critical, "확인")
+                Me.PasswordTextBox.Focus()
+                Me.PasswordTextBox.SelectAll()
+            End If
+        End If
+    End Sub
+
+    Private Sub PasswordTextBox_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PasswordTextBox.TextChanged
+
+    End Sub
+
+    Private Sub ETCLOGIN_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
+
+    End Sub
+End Class