VB日志Web浏览器状态

Question

我正在开发一个新项目，而且我目前陷入困境。我正在使用ListBox添加记录器。

在我的项目中，我使用WebBrowser，并且每次页面加载时都想添加到日志中。我试图做这样的：

If WebBrowser1.StatusText.ToString = "Klar" Then 
     Label14.Text = "Success" 
    End If 
    If Label14.Text = "Success" Then 
     Logger.Items.Add("> Successfully loaded") 
    End If 

“KLAR”转换为“完成”（瑞典）

但状态更新所有的时间和垃圾邮件“完成/ KLAR”所以我的项目记录器添加了5+倍的状态变化（我改变了页面）。

所以我正在寻找一些方法来只写一次，也许检查它是否已经被添加到项目befor。我在计时器中使用它，所以它会在日志中多次添加，但如果日志中的最后一项是相同的，我只希望它被添加一次。

任何人都知道这是如何完成的？

感谢您的帮助！ PS。我会在早上看看这个主题，但我会很感激任何帮助，我可以得到:)

Answer 1

我为你做了一个例子，很容易遵循。只需改变你需要的东西。您可以使用“包含函数”获取您需要检查项目是否存在于您的列表框控件中。

Public Class Form1 

'Global Variable to hold your string(text)' 
Private strText As String = "" 

Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load 
    Dim myArray() As String = {"Car", "Truck", "Motorcycle"} 
    ListBox1.Items.AddRange(myArray) 
End Sub 

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

    'First whatever you are sending to the listbox you need to set it to a variable' 
    'For example I want to see if Motorcycle exists in the listbox so I set my variable' 
    strText = "Motorcycle" 

    'Now lets check if this exists in our listbox!' 
    If ListBox1.Items.Contains(strText) Then 
     'We can even select the item that is found' 
     ListBox1.SelectedItem = strText 

     MsgBox("Listbox contains: " & strText) 'Or do what you want here' 

    Else 
     MsgBox("NO FOUND ITEM") 
    End If 

End Sub 
End Class 

可以忽略负载为我所用这只是用于测试...也只是把这个代码，你把它插入你的数据（它插入到你的列表框之前，如果未在列表框中，继续添加你想要的东西。让我知道它是如何工作的你！

谢谢！

Answer 2

功能真正地没有适合我想要的东西的容器。我希望能够加入同一个变量/ item/string多于一次，仍然只能在记录器的行中添加一次。

因此，因为我将它用作记录器，所以我希望它自动选择一个新项目，因为我希望它“跟随”最新的项目。

所以我检查是否选中的项目等于我的变量是假的。然后我将该变量添加到我的记录器/列表框中。

SuccessLoad = "> Successfully loaded" 

    If WebBrowser1.StatusText.ToString = "Done" Then 
     If Logger.SelectedItem.Equals(SuccessLoad) = False Then 'adds if not selected 
      Logger.Items.Add(SuccessLoad) 
      Logger.SelectedIndex = Logger.Items.Count - 1 'selects the variable 
     End If 
    End If