Haegwang/Hanjeon
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

메인목록 dock 설정

Browse Source
This commit is contained in:
chi
2020-06-08 01:38:13 +09:00
parent 32ebea03fb
commit fc66714f53
12 changed files with 167 additions and 125 deletions
Download Patch File Download Diff File Expand all files Collapse all files

40
Epole.fp5/SplashScreen.vb
View File

@@ -32,26 +32,26 @@ Public NotInheritable Class SplashScreen
If Not LoadINI() Then End
'//인증사용안함 191125 -
'If Command() <> "ARIN" AndAlso Not ReadAuth() Then '//에러났을떄는 카운터를 확인
' '//사용횟수가 10번ㅇ르 초과했는지 확인
' Runcnt = Me.ReadAuthcount
' Dim f As New fAuth()
' If (f.ShowDialog <> Windows.Forms.DialogResult.OK) Then
' End
' End If
' 'If Runcnt >= 10 Then
' ' Dim NewKey As String = InputBox("인증번호를 입력하세요 (인증번호는 숫자로만 이루어져 있습니다)")
' ' If IsNumeric(NewKey) = False Then
' ' MsgBox("프로그램을 재실행 하세요", MsgBoxStyle.Information, "확인")
' ' End
' ' End If
' ' auth.SetAuth(NewKey, My.Application.Info.DirectoryPath & "\epole.ini")
' ' MsgBox("프로그램을 재실행 하세요", MsgBoxStyle.Information, "확인")
' ' End
' 'Else
' ' MsgBox(CStr(10 - Runcnt) & "번의 사용횟수가 남았습니다", MsgBoxStyle.Critical, "실행확인")
' 'End If
'End If
If Command() <> "ARIN" AndAlso Not ReadAuth() Then '//에러났을떄는 카운터를 확인
'//사용횟수가 10번ㅇ르 초과했는지 확인
Runcnt = Me.ReadAuthcount
Dim f As New fAuth()
If (f.ShowDialog <> Windows.Forms.DialogResult.OK) Then
End
End If
'If Runcnt >= 10 Then
' Dim NewKey As String = InputBox("인증번호를 입력하세요 (인증번호는 숫자로만 이루어져 있습니다)")
' If IsNumeric(NewKey) = False Then
' MsgBox("프로그램을 재실행 하세요", MsgBoxStyle.Information, "확인")
' End
' End If
' auth.SetAuth(NewKey, My.Application.Info.DirectoryPath & "\epole.ini")
' MsgBox("프로그램을 재실행 하세요", MsgBoxStyle.Information, "확인")
' End
'Else
' MsgBox(CStr(10 - Runcnt) & "번의 사용횟수가 남았습니다", MsgBoxStyle.Critical, "실행확인")
'End If
End If
If Not LoadReg() Then End
If Not Connect() Then End
Me.lb_msg.Text = ""