EDN Admin
Well-known member
Hi I have been learning visual basic now for 5days this is my code I have
<pre class="prettyprint lang-vb <br/>Imports System.IO.StreamWriter<br/>Imports System.IO.StreamReader<br/><br/><br/><br/>Public Class Form1<br/> Form Load <br/> Dim w As IO.StreamWriter<br/> Dim r As IO.StreamReader<br/> Dim CheckedListBox1 As Object<br/><br/><br/><br/><br/><br/><br/><br/> Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load<br/> TextBox1.Text = ""<br/> TextBox1.Text = My.Settings.Run<br/> Dim itms() As String = {""}<br/> ListBox1.Items.AddRange(itms)<br/> End Sub<br/><br/><br/><br/><br/><br/> Workings of File opeFile and counter (Label1.Text) <br/> up button below<br/> Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click<br/> Label1.Text = Val(Label1.Text) + 1<br/> End Sub<br/> down button below<br/> Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click<br/> Label1.Text = Val(Label1.Text) - 1<br/> End Sub<br/> Browse for file<br/> Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click<br/> OpenFileDialog1.Title = "Please Select a File"<br/> OpenFileDialog1.InitialDirectory = "C:temp"<br/><br/> OpenFileDialog1.ShowDialog()<br/> End Sub<br/> This Sets the number of plays before it runes the file.<br/> Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged<br/> If CheckBox1.Checked = True Then<br/> CheckBox1.Text = "Checked"<br/> Label2.Text = TextBox1.Text<br/> Else<br/> CheckBox1.Text = "Unchecked"<br/> End If<br/> End Sub<br/><br/><br/> This is the timer Curent Setting<br/> Private Sub Label1_Click(sender As Object, e As EventArgs) Handles Label1.Click<br/> If Label1.Text.Count Then<br/> Timer4.Stop()<br/> End If<br/><br/><br/> End Sub<br/> This Is what the Timer Is Looking for The amount of plays<br/> Private Sub Label2_Click(sender As Object, e As EventArgs) Handles Label2.Click<br/><br/><br/><br/> End Sub<br/> This is the set box<br/> Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged<br/> Timer2.Start()<br/> Me.Label1.Text = 0<br/> End Sub<br/> Label 1 Timer /sets the Run Dialouge<br/><br/> Label 2 Timer and control to open file / Also Resets Counter<br/> Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick<br/><br/> If Label1.Text = Label2.Text Then<br/> F1 this opens a msg box<br/> Me.Show()<br/> MsgBox("jijfv")<br/> Me.Label1.Text = 0<br/> Try<br/><br/> Shell(Label3.Text)<br/> My.Settings.Run = Label3.Text<br/> My.Settings.Reload()<br/><br/><br/> Catch ex As Exception<br/> MsgBox("Cannot find " & Label3.Text & ". Please make sure that the file exists.", MsgBoxStyle.Critical, "Error")<br/> This Resets the count<br/> Label1.Text = 0<br/> End Try<br/> End If<br/> End Sub<br/> This Textbox showes location to the file to open<br/> Private Sub TextBox2_TextChanged(sender As Object, e As EventArgs) Handles TextBox2.TextChanged<br/> Label3.Text = TextBox2.Text<br/> End Sub<br/> Gets the name of the file for the run dialouge<br/> Private Sub OpenFileDialog1_FileOk(sender As Object, e As System.ComponentModel.CancelEventArgs) Handles OpenFileDialog1.FileOk<br/> Dim strm As System.IO.Stream<br/> strm = OpenFileDialog1.OpenFile()<br/> TextBox2.Text = OpenFileDialog1.FileName.ToString()<br/> If Not (strm Is Nothing) Then<br/> insert code to read the file data<br/> strm.Close()<br/> End If<br/> End Sub<br/> Showes The file in texbox 2<br/> Private Sub Label3_Click(sender As Object, e As EventArgs) Handles Label3.Click<br/><br/> Label3.Text = TextBox2.Text<br/><br/> End Sub<br/> Sets label 3.text<br/> Private Sub CheckBox2_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox2.CheckedChanged<br/> If CheckBox2.Checked = True Then<br/> CheckBox2.Text = "Checked"<br/> Label3.Text = TextBox2.Text<br/> Else<br/> CheckBox2.Text = "Unchecked"<br/> End If<br/> End Sub<br/><br/> Private Sub ListBox1_GotFocus(sender As Object, e As EventArgs) Handles ListBox1.GotFocus<br/><br/> End Sub<br/> The List<br/> Private Sub ListBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox1.SelectedIndexChanged<br/><br/><br/> End Sub<br/> Adds Item to List<br/> Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click<br/> ListBox1.Items.Add(TextBox3.Text)<br/> TextBox3.Select()<br/> TextBox3.Text = ("Insert")<br/> End Sub<br/> Removes Item from List<br/> Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click<br/><br/> ListBox1.Items.Remove(TextBox3.Text)<br/> TextBox3.Select()<br/> End Sub<br/><br/> Private Sub TextBox3_TextChanged(sender As Object, e As EventArgs) Handles TextBox3.TextChanged<br/><br/> End Sub<br/><br/> Private Sub Button4_Click(sender As Object, e As EventArgs)<br/><br/> End Sub<br/> Browse for List<br/> Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click<br/> OpenFileDialog2.InitialDirectory = "./"<br/> OpenFileDialog2.FileName = "Open a text file..."<br/> OpenFileDialog2.Filter = "ONLY Text Files (*.txt) | *.txt"<br/> OpenFileDialog2.ShowDialog()<br/><br/> Dim W As New IO.StreamWriter(SaveFileDialog1.FileName)<br/> Dim str As String() = w.WriteToEnd().Split(New String(Environment.NewLine, StringSplitOptions.RemoveEmptyEntries))<br/><br/> ListBox1.Items.AddRange(str)<br/> r.Close()<br/><br/> End Sub<br/> Set the List to look for//Text Box 4<br/> Private Sub OpenFileDialog2_FileOk(sender As Object, e As System.ComponentModel.CancelEventArgs) Handles OpenFileDialog2.FileOk<br/> Dim strm As System.IO.Stream<br/> strm = OpenFileDialog2.OpenFile()<br/> TextBox4.Text = OpenFileDialog2.FileName.ToString()<br/> If Not (strm Is Nothing) Then<br/> insert code to read the file data<br/> strm.Close()<br/> End If<br/> End Sub<br/><br/><br/> Saves List As ,.txt<br/> Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click<br/><br/><br/> Using FD As New SaveFileDialog()<br/> FD.Filter = "txt files (*.txt)|*.txt|All files (*.*)|*.*"<br/> If FD.ShowDialog = Windows.Forms.DialogResult.OK Then<br/> Dim FileContent As String = ""<br/> For Each i As String In ListBox1.Items<br/> FileContent &= i & vbCrLf<br/> Next<br/> IO.File.WriteAllText(FD.FileName, FileContent)<br/> End If<br/> End Using<br/><br/><br/> End Sub<br/> Private Sub SaveFileDialog1_FileOk(sender As Object, e As System.ComponentModel.CancelEventArgs) Handles SaveFileDialog1.FileOk<br/><br/> End Sub<br/> sets label 4 to the file to open<br/> Private Sub TextBox4_TextChanged(sender As Object, e As EventArgs) Handles TextBox4.TextChanged<br/> Label4.Text = TextBox4.Text<br/><br/> End Sub<br/><br/> Private Sub Label4_Click(sender As Object, e As EventArgs) Handles Label4.Click<br/><br/> End Sub<br/><br/> Private Sub Button9_Click(sender As Object, e As EventArgs) Handles Button9.Click<br/><br/> Dim abc As String = My.Computer.FileSystem.ReadAllText(TextBox4.Text)<br/> Dim pqr As String() = abc.Split(vbNewLine)<br/><br/> ListBox1.Items.AddRange(pqr)<br/><br/> End Sub<br/><br/> Private Sub Label4_TextChanged(sender As Object, e As EventArgs) Handles Label4.TextChanged<br/><br/> End Sub<br/><br/><br/> This section controls the clipboard reader <br/> Private Sub CheckBox3_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox3.CheckedChanged<br/><br/> Timer3.Enabled = True<br/> If CheckBox3.Checked = True Then<br/> CheckBox3.Text = "Checked"<br/> Label5.Text = My.Computer.Clipboard.GetText()<br/> TextBox5.Text = My.Computer.Clipboard.GetText()<br/><br/><br/> Else<br/> CheckBox3.Text = "Unchecked"<br/> End If<br/> End Sub<br/><br/> Private Sub TextBox5_TextChanged(sender As Object, e As EventArgs) Handles TextBox5.TextChanged<br/><br/> Dim count As Integer = (ListBox1.Items.Count - 1)<br/> Dim words As String<br/><br/> For a = 0 To count<br/><br/> words = ListBox1.Items.Item(a)<br/> If InStr(words.ToLower, TextBox5.Text.ToLower) Then<br/><br/> Label1.Text = Val(Label1.Text) + 1<br/><br/> End If<br/> Next<br/><br/><br/><br/> End Sub<br/><br/> Private Sub Label5_Click(sender As Object, e As EventArgs) Handles Label5.Click<br/><br/> End Sub<br/> This Timer sets the clipboard to read <br/> Private Sub Timer3_Tick(sender As Object, e As EventArgs) Handles Timer3.Tick<br/> If CheckBox3.Checked = True Then<br/> CheckBox3.Text = "Checked"<br/> Label5.Text = My.Computer.Clipboard.GetText()<br/> TextBox5.Text = My.Computer.Clipboard.GetText()<br/><br/><br/> Else<br/> CheckBox3.Text = "Unchecked"<br/> End If<br/> End Sub<br/><br/> Private Sub CheckBox4_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox4.CheckedChanged<br/><br/> Timer4.Enabled = True<br/> End Sub<br/><br/><br/><br/><br/> Private Sub Timer4_Disposed(sender As Object, e As EventArgs) Handles Timer4.Disposed<br/><br/> End Sub<br/><br/> Private Sub Timer4_Tick(sender As Object, e As EventArgs) Handles Timer4.Tick<br/><br/><br/><br/><br/> End Sub<br/><br/> Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick<br/><br/> End Sub<br/><br/> Private Sub CheckBox5_CheckedChanged(sender As Object, e As EventArgs)<br/><br/><br/> End Sub<br/><br/> Visual Basic<br/><br/><br/> Private Sub TextBox6_TextChanged(sender As Object, e As EventArgs)<br/><br/> End Sub<br/>End Class[/code]
<br/>
My problem is that I want label1 to count one when the information in Textbox5 is matching a line of info in Listbox1 so far I can do this but when the infor changes by me pressing Ctrl+C it works it counts 1 but my problem is my clipboard info is updating
automatically I can see the change in the textbox but it wont count please help. This is my 1st time to program<br/>
<br/>
View the full article
<pre class="prettyprint lang-vb <br/>Imports System.IO.StreamWriter<br/>Imports System.IO.StreamReader<br/><br/><br/><br/>Public Class Form1<br/> Form Load <br/> Dim w As IO.StreamWriter<br/> Dim r As IO.StreamReader<br/> Dim CheckedListBox1 As Object<br/><br/><br/><br/><br/><br/><br/><br/> Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load<br/> TextBox1.Text = ""<br/> TextBox1.Text = My.Settings.Run<br/> Dim itms() As String = {""}<br/> ListBox1.Items.AddRange(itms)<br/> End Sub<br/><br/><br/><br/><br/><br/> Workings of File opeFile and counter (Label1.Text) <br/> up button below<br/> Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click<br/> Label1.Text = Val(Label1.Text) + 1<br/> End Sub<br/> down button below<br/> Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click<br/> Label1.Text = Val(Label1.Text) - 1<br/> End Sub<br/> Browse for file<br/> Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click<br/> OpenFileDialog1.Title = "Please Select a File"<br/> OpenFileDialog1.InitialDirectory = "C:temp"<br/><br/> OpenFileDialog1.ShowDialog()<br/> End Sub<br/> This Sets the number of plays before it runes the file.<br/> Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged<br/> If CheckBox1.Checked = True Then<br/> CheckBox1.Text = "Checked"<br/> Label2.Text = TextBox1.Text<br/> Else<br/> CheckBox1.Text = "Unchecked"<br/> End If<br/> End Sub<br/><br/><br/> This is the timer Curent Setting<br/> Private Sub Label1_Click(sender As Object, e As EventArgs) Handles Label1.Click<br/> If Label1.Text.Count Then<br/> Timer4.Stop()<br/> End If<br/><br/><br/> End Sub<br/> This Is what the Timer Is Looking for The amount of plays<br/> Private Sub Label2_Click(sender As Object, e As EventArgs) Handles Label2.Click<br/><br/><br/><br/> End Sub<br/> This is the set box<br/> Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged<br/> Timer2.Start()<br/> Me.Label1.Text = 0<br/> End Sub<br/> Label 1 Timer /sets the Run Dialouge<br/><br/> Label 2 Timer and control to open file / Also Resets Counter<br/> Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick<br/><br/> If Label1.Text = Label2.Text Then<br/> F1 this opens a msg box<br/> Me.Show()<br/> MsgBox("jijfv")<br/> Me.Label1.Text = 0<br/> Try<br/><br/> Shell(Label3.Text)<br/> My.Settings.Run = Label3.Text<br/> My.Settings.Reload()<br/><br/><br/> Catch ex As Exception<br/> MsgBox("Cannot find " & Label3.Text & ". Please make sure that the file exists.", MsgBoxStyle.Critical, "Error")<br/> This Resets the count<br/> Label1.Text = 0<br/> End Try<br/> End If<br/> End Sub<br/> This Textbox showes location to the file to open<br/> Private Sub TextBox2_TextChanged(sender As Object, e As EventArgs) Handles TextBox2.TextChanged<br/> Label3.Text = TextBox2.Text<br/> End Sub<br/> Gets the name of the file for the run dialouge<br/> Private Sub OpenFileDialog1_FileOk(sender As Object, e As System.ComponentModel.CancelEventArgs) Handles OpenFileDialog1.FileOk<br/> Dim strm As System.IO.Stream<br/> strm = OpenFileDialog1.OpenFile()<br/> TextBox2.Text = OpenFileDialog1.FileName.ToString()<br/> If Not (strm Is Nothing) Then<br/> insert code to read the file data<br/> strm.Close()<br/> End If<br/> End Sub<br/> Showes The file in texbox 2<br/> Private Sub Label3_Click(sender As Object, e As EventArgs) Handles Label3.Click<br/><br/> Label3.Text = TextBox2.Text<br/><br/> End Sub<br/> Sets label 3.text<br/> Private Sub CheckBox2_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox2.CheckedChanged<br/> If CheckBox2.Checked = True Then<br/> CheckBox2.Text = "Checked"<br/> Label3.Text = TextBox2.Text<br/> Else<br/> CheckBox2.Text = "Unchecked"<br/> End If<br/> End Sub<br/><br/> Private Sub ListBox1_GotFocus(sender As Object, e As EventArgs) Handles ListBox1.GotFocus<br/><br/> End Sub<br/> The List<br/> Private Sub ListBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox1.SelectedIndexChanged<br/><br/><br/> End Sub<br/> Adds Item to List<br/> Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click<br/> ListBox1.Items.Add(TextBox3.Text)<br/> TextBox3.Select()<br/> TextBox3.Text = ("Insert")<br/> End Sub<br/> Removes Item from List<br/> Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click<br/><br/> ListBox1.Items.Remove(TextBox3.Text)<br/> TextBox3.Select()<br/> End Sub<br/><br/> Private Sub TextBox3_TextChanged(sender As Object, e As EventArgs) Handles TextBox3.TextChanged<br/><br/> End Sub<br/><br/> Private Sub Button4_Click(sender As Object, e As EventArgs)<br/><br/> End Sub<br/> Browse for List<br/> Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click<br/> OpenFileDialog2.InitialDirectory = "./"<br/> OpenFileDialog2.FileName = "Open a text file..."<br/> OpenFileDialog2.Filter = "ONLY Text Files (*.txt) | *.txt"<br/> OpenFileDialog2.ShowDialog()<br/><br/> Dim W As New IO.StreamWriter(SaveFileDialog1.FileName)<br/> Dim str As String() = w.WriteToEnd().Split(New String(Environment.NewLine, StringSplitOptions.RemoveEmptyEntries))<br/><br/> ListBox1.Items.AddRange(str)<br/> r.Close()<br/><br/> End Sub<br/> Set the List to look for//Text Box 4<br/> Private Sub OpenFileDialog2_FileOk(sender As Object, e As System.ComponentModel.CancelEventArgs) Handles OpenFileDialog2.FileOk<br/> Dim strm As System.IO.Stream<br/> strm = OpenFileDialog2.OpenFile()<br/> TextBox4.Text = OpenFileDialog2.FileName.ToString()<br/> If Not (strm Is Nothing) Then<br/> insert code to read the file data<br/> strm.Close()<br/> End If<br/> End Sub<br/><br/><br/> Saves List As ,.txt<br/> Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click<br/><br/><br/> Using FD As New SaveFileDialog()<br/> FD.Filter = "txt files (*.txt)|*.txt|All files (*.*)|*.*"<br/> If FD.ShowDialog = Windows.Forms.DialogResult.OK Then<br/> Dim FileContent As String = ""<br/> For Each i As String In ListBox1.Items<br/> FileContent &= i & vbCrLf<br/> Next<br/> IO.File.WriteAllText(FD.FileName, FileContent)<br/> End If<br/> End Using<br/><br/><br/> End Sub<br/> Private Sub SaveFileDialog1_FileOk(sender As Object, e As System.ComponentModel.CancelEventArgs) Handles SaveFileDialog1.FileOk<br/><br/> End Sub<br/> sets label 4 to the file to open<br/> Private Sub TextBox4_TextChanged(sender As Object, e As EventArgs) Handles TextBox4.TextChanged<br/> Label4.Text = TextBox4.Text<br/><br/> End Sub<br/><br/> Private Sub Label4_Click(sender As Object, e As EventArgs) Handles Label4.Click<br/><br/> End Sub<br/><br/> Private Sub Button9_Click(sender As Object, e As EventArgs) Handles Button9.Click<br/><br/> Dim abc As String = My.Computer.FileSystem.ReadAllText(TextBox4.Text)<br/> Dim pqr As String() = abc.Split(vbNewLine)<br/><br/> ListBox1.Items.AddRange(pqr)<br/><br/> End Sub<br/><br/> Private Sub Label4_TextChanged(sender As Object, e As EventArgs) Handles Label4.TextChanged<br/><br/> End Sub<br/><br/><br/> This section controls the clipboard reader <br/> Private Sub CheckBox3_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox3.CheckedChanged<br/><br/> Timer3.Enabled = True<br/> If CheckBox3.Checked = True Then<br/> CheckBox3.Text = "Checked"<br/> Label5.Text = My.Computer.Clipboard.GetText()<br/> TextBox5.Text = My.Computer.Clipboard.GetText()<br/><br/><br/> Else<br/> CheckBox3.Text = "Unchecked"<br/> End If<br/> End Sub<br/><br/> Private Sub TextBox5_TextChanged(sender As Object, e As EventArgs) Handles TextBox5.TextChanged<br/><br/> Dim count As Integer = (ListBox1.Items.Count - 1)<br/> Dim words As String<br/><br/> For a = 0 To count<br/><br/> words = ListBox1.Items.Item(a)<br/> If InStr(words.ToLower, TextBox5.Text.ToLower) Then<br/><br/> Label1.Text = Val(Label1.Text) + 1<br/><br/> End If<br/> Next<br/><br/><br/><br/> End Sub<br/><br/> Private Sub Label5_Click(sender As Object, e As EventArgs) Handles Label5.Click<br/><br/> End Sub<br/> This Timer sets the clipboard to read <br/> Private Sub Timer3_Tick(sender As Object, e As EventArgs) Handles Timer3.Tick<br/> If CheckBox3.Checked = True Then<br/> CheckBox3.Text = "Checked"<br/> Label5.Text = My.Computer.Clipboard.GetText()<br/> TextBox5.Text = My.Computer.Clipboard.GetText()<br/><br/><br/> Else<br/> CheckBox3.Text = "Unchecked"<br/> End If<br/> End Sub<br/><br/> Private Sub CheckBox4_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox4.CheckedChanged<br/><br/> Timer4.Enabled = True<br/> End Sub<br/><br/><br/><br/><br/> Private Sub Timer4_Disposed(sender As Object, e As EventArgs) Handles Timer4.Disposed<br/><br/> End Sub<br/><br/> Private Sub Timer4_Tick(sender As Object, e As EventArgs) Handles Timer4.Tick<br/><br/><br/><br/><br/> End Sub<br/><br/> Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick<br/><br/> End Sub<br/><br/> Private Sub CheckBox5_CheckedChanged(sender As Object, e As EventArgs)<br/><br/><br/> End Sub<br/><br/> Visual Basic<br/><br/><br/> Private Sub TextBox6_TextChanged(sender As Object, e As EventArgs)<br/><br/> End Sub<br/>End Class[/code]
<br/>
My problem is that I want label1 to count one when the information in Textbox5 is matching a line of info in Listbox1 so far I can do this but when the infor changes by me pressing Ctrl+C it works it counts 1 but my problem is my clipboard info is updating
automatically I can see the change in the textbox but it wont count please help. This is my 1st time to program<br/>
<br/>
View the full article