Note-Tool/Form1.vb at master · syfenx/Note-Tool · 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
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
Public Class Form1
    Dim issues As String()
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        Dim lines() As String = IO.File.ReadAllLines("internet.txt")
        lstInternet.Items.AddRange(lines)

        lines = IO.File.ReadAllLines("cable.txt")
        lstCable.Items.AddRange(lines)

        lines = IO.File.ReadAllLines("account.txt")
        lstAccount.Items.AddRange(lines)

        lines = IO.File.ReadAllLines("resolutions.txt")
        lstResolutions.Items.AddRange(lines)
    End Sub

    Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles txtName.TextChanged
        updatetext()
    End Sub

    Public Sub updatetext()
        Dim issues, resolutions As String
        txtNotes.Text = ""
        issues = ""
        resolutions = ""
        For Each item As String In lstInternet.SelectedItems
            issues += item.ToString() + " "
        Next

        For Each item As String In lstAccount.SelectedItems
            issues += item.ToString() + " "
        Next

        For Each item As String In lstCable.SelectedItems
            issues += item.ToString() + " "
        Next

        For Each item As String In lstResolutions.SelectedItems
            resolutions += item.ToString() + " "
        Next

        txtNotes.Text += "Caller's Name: " + txtName.Text + vbNewLine

        If (txtAccountNumber.TextLength > 0) Then
            txtNotes.Text += "Account #: " + txtAccountNumber.Text + vbNewLine
        End If

        txtNotes.Text += "Callback Number: " + txtNumber.Text + vbNewLine

        If (txtTicket.TextLength > 0) Then
            txtNotes.Text += "Ticket #:" + txtTicket.Text + vbNewLine
        End If
        If (txtExtra.TextLength > 0) Then
            txtNotes.Text += txtExtra.Text + vbNewLine
        End If

        txtNotes.Text += vbNewLine
        txtNotes.Text += "Issues: " + vbNewLine + issues + vbNewLine + vbNewLine
        txtNotes.Text += "Resolution: " + vbNewLine + resolutions + vbNewLine

    End Sub

    Private Sub lstIssues_SelectedIndexChanged(sender As Object, e As EventArgs) Handles lstIssues.SelectedIndexChanged
        updatetext()
    End Sub

    Private Sub TextBox1_TextChanged_1(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
        updatetext()
    End Sub

    Private Sub txtNumber_TextChanged(sender As Object, e As EventArgs) Handles txtNumber.TextChanged
        updatetext()
    End Sub

    Private Sub txtTicket_TextChanged(sender As Object, e As EventArgs) Handles txtTicket.TextChanged
        updatetext()
    End Sub

    Private Sub lstResolutions_SelectedIndexChanged(sender As Object, e As EventArgs) Handles lstResolutions22.SelectedIndexChanged
        updatetext()
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        Dim ans As String
        ans = MsgBox("Reset?", vbYesNo)
        If ans = vbYes Then
            lstIssues.ClearSelected()
            lstResolutions.ClearSelected()

            For Each checkedItemIndex As Integer In lstIssues.CheckedIndices
                lstIssues.SetItemChecked(checkedItemIndex, False)
            Next


            txtName.Clear()
            txtNumber.Clear()
            txtAccountNumber.Clear()
            txtTicket.Clear()
            txtNotes.Clear()
            txtExtra.Clear()

            lstInternet.ClearSelected()
            lstAccount.ClearSelected()
            lstCable.ClearSelected()
        End If


    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        If txtNotes.Text.Length > 0 Then
            Clipboard.SetText(txtNotes.Text)
        End If
    End Sub

    Private Sub txtNotes_TextChanged(sender As Object, e As EventArgs) Handles txtNotes.TextChanged

    End Sub

    Private Sub txtExtra_TextChanged(sender As Object, e As EventArgs) Handles txtExtra.TextChanged
        updatetext()
    End Sub

    Private Sub lstIssues_DrawItem(sender As Object, e As DrawItemEventArgs) Handles lstIssues.DrawItem

    End Sub

    Private Sub ListBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles lstInternet.SelectedIndexChanged
        updatetext()

    End Sub

    Private Sub ListBox1_DrawItem(sender As Object, e As DrawItemEventArgs) Handles lstInternet.DrawItem
        e.DrawBackground()

        If lstInternet.Items(e.Index).ToString() = "no issues" Then

            e.Graphics.FillRectangle(Brushes.LightGreen, e.Bounds)
        End If
        e.Graphics.DrawString(lstInternet.Items(e.Index).ToString(), e.Font, Brushes.Black, New System.Drawing.PointF(e.Bounds.X, e.Bounds.Y))
        e.DrawFocusRectangle()
    End Sub

    Private Sub TxtAccountNumber_TextChanged(sender As Object, e As EventArgs) Handles txtAccountNumber.TextChanged
        updatetext()
    End Sub

    Private Sub LstAccount_SelectedIndexChanged(sender As Object, e As EventArgs) Handles lstAccount.SelectedIndexChanged
        updatetext()

    End Sub

    Private Sub LstCable_SelectedIndexChanged(sender As Object, e As EventArgs) Handles lstCable.SelectedIndexChanged
        updatetext()

    End Sub

    Private Sub LstResolutions_SelectedIndexChanged_1(sender As Object, e As EventArgs) Handles lstResolutions.SelectedIndexChanged
        updatetext()
    End Sub

    Private Sub lstInternet_DoubleClick(sender As Object, e As EventArgs) Handles lstInternet.DoubleClick

    End Sub
End Class