No one has voted on any posts yet. Votes from other community members are used to determine a member's reputation amongst their peers.
2 Posted Topics
Private Sub dow30_1min() command("Dow 30", "http://www.investing.com/indices/us-30-futures-technical?period=60", "1 minutes") End Sub Public Sub command(ByRef name As String, ByRef webadd As String, ByRef time As String) WebBrowser1.Navigate(webadd) Dim a As String Dim b As String Dim c As String Dim d As String Dim f As String Dim newItem As ListViewItem a … | |
Dim hTable As Hashtable = New Hashtable() Dim duplicateList As ArrayList = New ArrayList() Dim itm As ListViewItem For Each itm In ListView1.Items If hTable.ContainsKey(itm.Text) AndAlso hTable.ContainsKey(itm.SubItems(1).Text) AndAlso hTable.ContainsKey(itm.SubItems(2).Text) AndAlso hTable.ContainsKey(itm.SubItems(3).Text) Then 'duplicate duplicateList.Add(itm) Else hTable.Add(itm.Text, String.Empty) End If Next 'remove duplicates For Each itm In duplicateList ListView1.Items.Remove(itm) Next I … |
The End.