-
Notifications
You must be signed in to change notification settings - Fork 0
/
FrmTeam.vb
36 lines (29 loc) · 979 Bytes
/
FrmTeam.vb
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
'Zachary Childers CPT-206-A01S
'Final Project
'MLB-Roster-Creator
'864-680-4022
Public Class FrmTeam
Private Sub FrmTeam_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim shit = FrmMain.lstFantasy.Items
lstTeam.Items.AddRange(shit)
playerName.Text = FrmMenu.txtName.Text
If FrmMenu.txtName.Text = "" Then
playerName.Text = "Unknown Manager"
End If
playerLeague.Text = FrmMenu.txtTeamName.Text
If FrmMenu.txtTeamName.Text = "" Then
playerLeague.Text = "SCC All-Stars"
End If
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles btnEditRoster.Click
Me.Close()
If FrmMain.WindowState = 1 Then
FrmMain.WindowState = 0
Else
FrmMain.Show()
End If
End Sub
Private Sub btnCloseRosterView_Click(sender As Object, e As EventArgs)
Me.WindowState = 1
End Sub
End Class