SolidEdgeStorekeeper/FormStackConfiguration.vb at main · rmcanany/SolidEdgeStorekeeper · GitHub

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
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
Public Class FormStackConfiguration

    Public Property FMain As Form_Main
    Public Property StackConfiguration As StackConfigurationConstants

    Public Sub New(_FMain As Form_Main)

        ' This call is required by the designer.
        InitializeComponent()

        ' Add any initialization after the InitializeComponent() call.

        Me.FMain = _FMain

    End Sub

    Public Enum StackConfigurationConstants

        '  F Fastener
        ' CO Clamped Object
        '  N Nut
        ' FW Flat Washer
        ' LW Lock Washer
        ' TT Thread Thru
        ' TB Thread Blind

        F_CO_N
        F_CO_FW_N
        F_CO_LW_N
        F_CO_FW_LW_N
        F_FW_CO_N
        F_FW_CO_FW_N
        F_FW_CO_LW_N
        F_FW_CO_FW_LW_N
        F_CO_TT
        F_FW_CO_TT
        F_LW_CO_TT
        F_LW_FW_CO_TT
        F_CO_TB
        F_FW_CO_TB
        F_LW_CO_TB
        F_LW_FW_CO_TB
    End Enum

    Private Sub ButtonOK_Click(sender As Object, e As EventArgs)
        DialogResult = DialogResult.OK
    End Sub

    Private Sub FormStackConfiguration_Load(sender As Object, e As EventArgs) Handles MyBase.Load

    End Sub

    Private Sub ButtonCancel_Click(sender As Object, e As EventArgs)
        DialogResult = DialogResult.Cancel
    End Sub

    Private Sub Button_F_CO_N_Click(sender As Object, e As EventArgs) Handles Button_F_CO_N.Click
        Me.StackConfiguration = StackConfigurationConstants.F_CO_N
        DialogResult = DialogResult.OK
    End Sub

    Private Sub Button_F_CO_FW_N_Click(sender As Object, e As EventArgs) Handles Button_F_CO_FW_N.Click
        Me.StackConfiguration = StackConfigurationConstants.F_CO_FW_N
        DialogResult = DialogResult.OK
    End Sub

    Private Sub Button_F_CO_LW_N_Click(sender As Object, e As EventArgs) Handles Button_F_CO_LW_N.Click
        Me.StackConfiguration = StackConfigurationConstants.F_CO_LW_N
        DialogResult = DialogResult.OK
    End Sub

    Private Sub Button_F_CO_FW_LW_N_Click(sender As Object, e As EventArgs) Handles Button_F_CO_FW_LW_N.Click
        Me.StackConfiguration = StackConfigurationConstants.F_CO_FW_LW_N
        DialogResult = DialogResult.OK
    End Sub

    Private Sub Button_F_FW_CO_N_Click(sender As Object, e As EventArgs) Handles Button_F_FW_CO_N.Click
        Me.StackConfiguration = StackConfigurationConstants.F_FW_CO_N
        DialogResult = DialogResult.OK
    End Sub

    Private Sub Button_F_FW_CO_FW_N_Click(sender As Object, e As EventArgs) Handles Button_F_FW_CO_FW_N.Click
        Me.StackConfiguration = StackConfigurationConstants.F_FW_CO_FW_N
        DialogResult = DialogResult.OK
    End Sub

    Private Sub Button_F_FW_CO_LW_N_Click(sender As Object, e As EventArgs) Handles Button_F_FW_CO_LW_N.Click
        Me.StackConfiguration = StackConfigurationConstants.F_FW_CO_LW_N
        DialogResult = DialogResult.OK
    End Sub

    Private Sub Button_F_FW_CO_FW_LW_N_Click(sender As Object, e As EventArgs) Handles Button_F_FW_CO_FW_LW_N.Click
        Me.StackConfiguration = StackConfigurationConstants.F_FW_CO_FW_LW_N
        DialogResult = DialogResult.OK
    End Sub

    Private Sub Button_F_CO_TT_Click(sender As Object, e As EventArgs) Handles Button_F_CO_TT.Click
        Me.StackConfiguration = StackConfigurationConstants.F_CO_TT
        DialogResult = DialogResult.OK
    End Sub

    Private Sub Button_F_FW_CO_TT_Click(sender As Object, e As EventArgs) Handles Button_F_FW_CO_TT.Click
        Me.StackConfiguration = StackConfigurationConstants.F_FW_CO_TT
        DialogResult = DialogResult.OK
    End Sub

    Private Sub Button_F_LW_CO_TT_Click(sender As Object, e As EventArgs) Handles Button_F_LW_CO_TT.Click
        Me.StackConfiguration = StackConfigurationConstants.F_LW_CO_TT
        DialogResult = DialogResult.OK
    End Sub

    Private Sub Button_F_LW_FW_CO_TT_Click(sender As Object, e As EventArgs) Handles Button_F_LW_FW_CO_TT.Click
        Me.StackConfiguration = StackConfigurationConstants.F_LW_FW_CO_TT
        DialogResult = DialogResult.OK
    End Sub

    Private Sub Button_F_CO_TB_Click(sender As Object, e As EventArgs) Handles Button_F_CO_TB.Click
        Me.StackConfiguration = StackConfigurationConstants.F_CO_TB
        DialogResult = DialogResult.OK
    End Sub

    Private Sub Button_F_FW_CO_TB_Click(sender As Object, e As EventArgs) Handles Button_F_FW_CO_TB.Click
        Me.StackConfiguration = StackConfigurationConstants.F_FW_CO_TB
        DialogResult = DialogResult.OK
    End Sub

    Private Sub Button_F_LW_CO_TB_Click(sender As Object, e As EventArgs) Handles Button_F_LW_CO_TB.Click
        Me.StackConfiguration = StackConfigurationConstants.F_LW_CO_TB
        DialogResult = DialogResult.OK
    End Sub

    Private Sub Button_F_LW_FW_CO_TB_Click(sender As Object, e As EventArgs) Handles Button_F_LW_FW_CO_TB.Click
        Me.StackConfiguration = StackConfigurationConstants.F_LW_FW_CO_TB
        DialogResult = DialogResult.OK
    End Sub
End Class