Public Class loginForm Private formName As String = " Login" Private apiLoginURL As String = "auths/token" ' TODO: Á¦°øµÈ »ç¿ëÀÚ À̸§°ú ¾ÏÈ£¸¦ »ç¿ëÇÏ¿© »ç¿ëÀÚ ÁöÁ¤ ÀÎÁõÀ» ¼öÇàÇÏ´Â Äڵ带 »ðÀÔÇÕ´Ï´Ù ' (https://go.microsoft.com/fwlink/?LinkId=35339 ÂüÁ¶). ' ±×·¯¸é »ç¿ëÀÚ ÁöÁ¤ º¸¾È ÁÖü°¡ ÇöÀç ½º·¹µåÀÇ º¸¾È ÁÖü¿¡ ´ÙÀ½°ú °°ÀÌ Ã·ºÎµÉ ¼ö ÀÖ½À´Ï´Ù. ' My.User.CurrentPrincipal = CustomPrincipal ' ¿©±â¼­ CustomPrincipalÀº ÀÎÁõÀ» ¼öÇàÇÏ´Â µ¥ »ç¿ëµÇ´Â IPrincipalÀÌ ±¸ÇöµÈ °ÍÀÔ´Ï´Ù. ' ³ªÁß¿¡ My.User´Â CustomPrincipal °³Ã¼¿¡ ĸ½¶È­µÈ »ç¿ëÀÚ À̸§, Ç¥½Ã À̸§ µîÀÇ ' ID Á¤º¸¸¦ ¹ÝȯÇÕ´Ï´Ù. Private Sub loginForm_Load(sender As Object, e As EventArgs) Handles MyBase.Load Me.Text = frm_Main.programName & formName txbUserID.Focus() End Sub Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click If txbUserID.Text.Replace(" ", "") = "" Then MsgBox("¾ÆÀ̵𸦠ÀÔ·ÂÇÏ¿© ÁֽʽÿÀ.", vbExclamation) txbUserID.Focus() Exit Sub End If If txbUserPW.Text.Replace(" ", "") = "" Then MsgBox("ºñ¹Ð¹øÈ£¸¦ ÀÔ·ÂÇÏ¿© ÁֽʽÿÀ.", vbExclamation) txbUserPW.Focus() Exit Sub End If If loginAPIRequest(txbUserID.Text, txbUserPW.Text, apiLoginURL) Then Me.DialogResult = DialogResult.OK Me.Close() Else txbUserID.Focus() End If End Sub Private Sub Cancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel.Click Me.DialogResult = DialogResult.Cancel Me.Close() End Sub End Class