1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
|
Public Class FullScreenLogin
Private Sub FullScreenLogin_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Me.FormBorderStyle = Windows.Forms.FormBorderStyle.None
Me.WindowState = FormWindowState.Maximized
setskin()
End Sub
Public Sub setskin()
Me.BackColor = Skins.loginbgcolor
Me.BackgroundImage = Skins.loginbg
Me.BackgroundImageLayout = Skins.loginbglayout
userpic.Size = New Size(Skins.userimagesize, Skins.userimagesize)
userpic.BackgroundImage = Skins.userimage
userpic.BackColor = Color.Transparent
userpic.BackgroundImageLayout = Skins.userimagelayout
If Not IsNothing(Skins.userimagelocation) Then userpic.Location = Skins.userimagelocation
txtusername.ForeColor = Skins.inputforecolor
txtpassword.ForeColor = Skins.inputforecolor
txtusername.BackColor = Skins.inputbackcolor
txtpassword.BackColor = Skins.inputbackcolor
txtusername.Font = New Font(Skins.inputfont, Skins.inputfontsize, Skins.inputfontstyle)
txtpassword.Font = New Font(Skins.inputfont, Skins.inputfontsize, Skins.inputfontstyle)
loginbtn.Font = New Font(Skins.buttonfont, Skins.buttonfontsize, Skins.buttonfontstyle)
shutdown.Font = New Font(Skins.buttonfont, Skins.buttonfontsize, Skins.buttonfontstyle)
txtusername.Location = New Point(Skins.userTextboxX, Skins.userTextBoxY)
txtpassword.Location = New Point(Skins.passTextBoxX, Skins.passTextBoxY)
loginbtn.Location = New Point(Skins.loginbtnX, Skins.loginbtnY)
shutdown.Location = New Point(Skins.shutdownbtnX, Skins.shutdownbtnY)
Me.TopMost = True
End Sub
Private Sub loginbtn_Click(sender As Object, e As EventArgs) Handles loginbtn.Click
If txtusername.Text = ShiftOSDesktop.username And txtpassword.Text = ShiftOSDesktop.password Then
Me.Close()
infobox.showinfo("Login Screen", "The Login Screen has completed with no errors!")
End If
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles shutdown.Click
ShiftOSDesktop.shutdownshiftos()
End Sub
Private Sub clearChars(sender As Object, e As MouseEventArgs) Handles txtusername.MouseDown, txtpassword.MouseDown
txtusername.Text = ""
txtpassword.Text = ""
End Sub
End Class
|
