56 lines
2.3 KiB
VB.net
56 lines
2.3 KiB
VB.net
Imports System.Net
|
|
Imports System.Net.Dns
|
|
|
|
Public NotInheritable Class SplashScreen1
|
|
|
|
Private Sub SplashScreen1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
|
|
'응용 프로그램 제목
|
|
'If My.Application.Info.Title <> "" Then
|
|
' ApplicationTitle.Text = My.Application.Info.Title
|
|
'Else
|
|
' '응용 프로그램 제목이 없는 경우 확장명 없이 응용 프로그램 이름을 사용합니다.
|
|
' ApplicationTitle.Text = System.IO.Path.GetFileNameWithoutExtension(My.Application.Info.AssemblyName)
|
|
'End If
|
|
|
|
'Version.Text = System.String.Format(Version.Text, My.Application.Info.Version.Major, My.Application.Info.Version.Minor)
|
|
|
|
''저작권 정보
|
|
'Copyright.Text = My.Application.Info.Copyright
|
|
|
|
''프로젝트 버젼정보
|
|
'Prj.MaxUI = "20091231"
|
|
'Prj.MaxLG = "20091231"
|
|
'Prj.Admin = True
|
|
'Prj.Password = "" '//암호는 기본해제되어있음
|
|
|
|
'For Each A As Net.NetworkInformation.NetworkInterface In ArinNet.MyNet.GetMacArray
|
|
' If A.NetworkInterfaceType <> Net.NetworkInformation.NetworkInterfaceType.Loopback Then
|
|
' Prj.CUrMac = A.GetPhysicalAddress.ToString
|
|
' End If
|
|
'Next
|
|
|
|
''//데이터디렉토리정보를 확인한다 이곳에서 데이터베이스및 기타 설정파일을 저장하게한다
|
|
''//이는 인터넷설치버젼의경우 사용자폴더로 들어가기떄문이다
|
|
'Msg("데이터폴더를 확인합니다")
|
|
'If DataDir.Exists = False Then DataDir.Create() '//데이터폴더가없다면 생성
|
|
'If TemplateDir.Exists = False Then
|
|
' TemplateDir.Create()
|
|
' If System.IO.File.Exists(My.Application.Info.DirectoryPath & "\template\sample.tpl") = True Then
|
|
' My.Computer.FileSystem.CopyFile(My.Application.Info.DirectoryPath & "\template\sample.tpl", TemplateDir.FullName & "\sample.tpl", True)
|
|
' End If
|
|
'End If
|
|
|
|
'Msg("기본정보를 설정합니다")
|
|
'Myini = New CEnergy.MyINI(DataDir.FullName & "\arinwaret4.ini")
|
|
|
|
'Me.Show()
|
|
'Me.Validate()
|
|
'My.Application.DoEvents()
|
|
'Me.Hide()
|
|
'MdiMain.Show()
|
|
|
|
End Sub
|
|
|
|
|
|
End Class
|