[RESOLVED] Multiple Text Box Copy, Skip if Textbox if Not Populated

[w4itwh4t?]

Hey there,

I am running Visual Basic Express 2008. I realize this forum category is for VB6 or earlier, so please kindly inform me of where to post this if this is incorrect.

This is actually the first forum I have joined ever because I can't figure it out on my own and can't find the code off the website.

So here's the deal. I am almost done, i I have a ComboBox and 4 text boxes. At the bottom it has CLEAR, UNDO CLEAR, COPY ALL TO CLIPBOARD & COPY SOLUTION which does so for the ComboBox and all 4 text boxes. The format like this (CORP is the ComboBox):

CORP - Workstation - Won't power on - HOSTNAME/USERNAME

PROBLEM/REQUEST:
started happening today

TROUBLESHOOTING/ACTIONS:
reseated cables
pings as offline

And then due to the ticket entry system we use, I have a separate COPY SOLUTION button and that works just fine, but that would read as:

Dispatching tech

Now here's where I'm caught up on, I need to take a textbox where I don't use it because I don't have a use for it dependent on the issue of the person I'm working with and it'll look like this:

CORP - Windows - Password Reset - USERNAME

But, this is where I'm getting stuck, it keeps putting stuff like:

CORP - Windows - Password Reset - /USERNAME
or
- Windows - Password Reset - /USERNAME

it's doing weird stuff like that all over the place. I really appreciate any help.

Here's the code:

Public Class Form1
    Private Sub Text1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button1.Click
 
 
 
        My.Computer.Clipboard.SetText(ComboBox1.Text & Chr(32) & Chr(45) & Chr(32) & _
                                      Text1.Text & Chr(32) & Chr(45) & Chr(32) & _
                                      Text2.Text & Chr(32) & Chr(45) & Chr(32) & _
                                      Text3.Text & Chr(92) & _
                                      Text4.Text & vbCrLf & vbCrLf & "PROBLEM/REQUEST:" & vbCrLf & _
                                      Text5.Text & vbCrLf & vbCrLf & "TROUBLESHOOTING/ACTIONS:" & vbCrLf & _
                                      Text6.Text)
 
        If ComboBox1.Text = "" Then
            My.Computer.Clipboard.SetText(Text1.Text & Chr(32) & Chr(45) & Chr(32) & _
                                          Text2.Text & Chr(32) & Chr(45) & Chr(32) & _
                                          Text3.Text & Chr(92) & _
                                          Text4.Text & vbCrLf & vbCrLf & "PROBLEM/REQUEST:" & vbCrLf & _
                                          Text5.Text & vbCrLf & vbCrLf & "TROUBLESHOOTING/ACTIONS:" & vbCrLf & _
                                          Text6.Text)
        End If
 
 
        If Me.Text1.Text = "" Then
            My.Computer.Clipboard.SetText(ComboBox1.Text & Chr(32) & Chr(45) & Chr(32) & _
                                      Text2.Text & Chr(32) & Chr(45) & Chr(32) & _
                                      Text3.Text & Chr(92) & _
                                      Text4.Text & vbCrLf & vbCrLf & "PROBLEM/REQUEST:" & vbCrLf & _
                                      Text5.Text & vbCrLf & vbCrLf & "TROUBLESHOOTING/ACTIONS:" & vbCrLf & _
                                      Text6.Text)
        End If
 
        If Me.Text2.Text = "" Then
            My.Computer.Clipboard.SetText(ComboBox1.Text & Chr(32) & Chr(45) & Chr(32) & _
                                      Text1.Text & Chr(32) & Chr(45) & Chr(32) & _
                                      Text3.Text & Chr(92) & _
                                      Text4.Text & vbCrLf & vbCrLf & "PROBLEM/REQUEST:" & vbCrLf & _
                                      Text5.Text & vbCrLf & vbCrLf & "TROUBLESHOOTING/ACTIONS:" & vbCrLf & _
                                      Text6.Text)
        End If
 
        If Me.Text3.Text = "" Then
            My.Computer.Clipboard.SetText(ComboBox1.Text & Chr(32) & Chr(45) & Chr(32) & _
                                      Text1.Text & Chr(32) & Chr(45) & Chr(32) & _
                                      Text2.Text & Chr(32) & Chr(45) & Chr(32) & _
                                      Text4.Text & vbCrLf & vbCrLf & "PROBLEM/REQUEST:" & vbCrLf & _
                                      Text5.Text & vbCrLf & vbCrLf & "TROUBLESHOOTING/ACTIONS:" & vbCrLf & _
                                      Text6.Text)
        End If
 
        If Me.Text4.Text = "" Then
            My.Computer.Clipboard.SetText(ComboBox1.Text & Chr(32) & Chr(45) & Chr(32) & _
                                      Text1.Text & Chr(32) & Chr(45) & Chr(32) & _
                                      Text2.Text & Chr(32) & Chr(45) & Chr(32) & _
                                      Text3.Text & vbCrLf & vbCrLf & "PROBLEM/REQUEST:" & vbCrLf & _
                                      Text5.Text & vbCrLf & vbCrLf & "TROUBLESHOOTING/ACTIONS:" & vbCrLf & _
                                      Text6.Text)
        End If
 
        If Me.Text5.Text = "" Then
            My.Computer.Clipboard.SetText(ComboBox1.Text & Chr(32) & Chr(45) & Chr(32) & _
                                      Text2.Text & Chr(32) & Chr(45) & Chr(32) & _
                                      Text3.Text & Chr(92) & _
                                      Text4.Text & vbCrLf & vbCrLf & "PROBLEM/REQUEST:" & vbCrLf & _
                                      Text6.Text)
        End If
 
        If Me.Text6.Text = "" Then
            My.Computer.Clipboard.SetText(ComboBox1.Text & Chr(32) & Chr(45) & Chr(32) & _
                                      Text1.Text & Chr(32) & Chr(45) & Chr(32) & _
                                      Text2.Text & Chr(32) & Chr(45) & Chr(32) & _
                                      Text3.Text & Chr(92) & _
                                      Text4.Text & vbCrLf & vbCrLf & "PROBLEM/REQUEST:" & vbCrLf & _
                                      Text5.Text)
        End If
 
        If (Me.Text5.Text & Me.Text6.Text) = "" Then
            My.Computer.Clipboard.SetText(ComboBox1.Text & Chr(32) & Chr(45) & Chr(32) & _
                                      Text1.Text & Chr(32) & Chr(45) & Chr(32) & _
                                      Text2.Text & Chr(32) & Chr(45) & Chr(32) & _
                                      Text3.Text & Chr(92) & _
                                      Text4.Text)
 
        End If
 
        If (Me.Text3.Text & Me.Text4.Text & Me.Text5.Text & Text6.Text) = "" Then
            My.Computer.Clipboard.SetText(ComboBox1.Text & Chr(32) & Chr(45) & Chr(32) & _
                                      Text1.Text & Chr(32) & Chr(45) & Chr(32) & _
                                      Text2.Text)
        End If
 
        If (Me.Text4.Text & Me.Text5.Text & Me.Text6.Text) = "" Then
            My.Computer.Clipboard.SetText(ComboBox1.Text & Chr(32) & Chr(45) & Chr(32) & _
                                      Text1.Text & Chr(32) & Chr(45) & Chr(32) & _
                                      Text2.Text & Chr(32) & Chr(45) & Chr(32) & _
                                      Text3.Text)
        End If
 
        If (Me.Text3.Text & Me.Text5.Text & Me.Text6.Text) = "" Then
            My.Computer.Clipboard.SetText(ComboBox1.Text & Chr(32) & Chr(45) & Chr(32) & _
                                      Text1.Text & Chr(32) & Chr(45) & Chr(32) & _
                                      Text2.Text & Chr(32) & Chr(45) & Chr(32) & _
                                      Text4.Text)
        End If
 
    End Sub
 
    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        My.Computer.Clipboard.SetText(Text7.Text)
    End Sub
 
    Private Sub btnClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClear.Click
        ComboBox1.ResetText()
 
        Text1.SelectAll()
        Text1.Copy()
        Text1.SelectAll()
        Text1.Cut()
 
        Text2.SelectAll()
        Text2.Copy()
        Text2.SelectAll()
        Text2.Cut()
 
        Text3.SelectAll()
        Text3.Copy()
        Text3.SelectAll()
        Text3.Cut()
 
        Text4.SelectAll()
        Text4.Copy()
        Text4.SelectAll()
        Text4.Cut()
 
        Text5.SelectAll()
        Text5.Copy()
        Text5.SelectAll()
        Text5.Cut()
 
        Text6.SelectAll()
        Text6.Copy()
        Text6.SelectAll()
        Text6.Cut()
 
        Text7.SelectAll()
        Text7.Copy()
        Text7.SelectAll()
        Text7.Cut()
        ComboBox1.Focus()
    End Sub
 
    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        Text1.Undo()
        Text2.Undo()
        Text3.Undo()
        Text4.Undo()
        Text5.Undo()
        Text6.Undo()
        Text7.Undo()
    End Sub
 
End Class