Hello VBForum, Its me again, and i am wondering if its possible to save the settings on this thing.
![Name: 3yaf6.jpg
Views: 24
Size: 42.5 KB]()
So, is it possible to create 2 buttons to save and load the text that is in textbox 1 - 10?
If it is, how do i do it? (Like create a .txt file with the messages in it)
This is the code i currently have:
So, is it possible to create 2 buttons to save and load the text that is in textbox 1 - 10?
If it is, how do i do it? (Like create a .txt file with the messages in it)
This is the code i currently have:
Code:
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If TextBox1.Text <> String.Empty Then
Clipboard.SetText(TextBox1.Text)
Else
Clipboard.Clear()
End If
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
If TextBox2.Text <> String.Empty Then
Clipboard.SetText(TextBox2.Text)
Else
Clipboard.Clear()
End If
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
If TextBox4.Text <> String.Empty Then
Clipboard.SetText(TextBox4.Text)
Else
Clipboard.Clear()
End If
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
If TextBox3.Text <> String.Empty Then
Clipboard.SetText(TextBox3.Text)
Else
Clipboard.Clear()
End If
End Sub
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
If TextBox6.Text <> String.Empty Then
Clipboard.SetText(TextBox6.Text)
Else
Clipboard.Clear()
End If
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
If TextBox5.Text <> String.Empty Then
Clipboard.SetText(TextBox5.Text)
Else
Clipboard.Clear()
End If
End Sub
Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
If TextBox8.Text <> String.Empty Then
Clipboard.SetText(TextBox8.Text)
Else
Clipboard.Clear()
End If
End Sub
Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
If TextBox7.Text <> String.Empty Then
Clipboard.SetText(TextBox7.Text)
Else
Clipboard.Clear()
End If
End Sub
Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
If TextBox10.Text <> String.Empty Then
Clipboard.SetText(TextBox10.Text)
Else
Clipboard.Clear()
End If
End Sub
Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
If TextBox9.Text <> String.Empty Then
Clipboard.SetText(TextBox9.Text)
Else
Clipboard.Clear()
End If
End Sub