Transcriptional Characterization of Glioma Neural Stem Cells Diva ...

End Select
End If
End Sub
Appendix
Private Sub WebBrowser1_DocumentCompleted(sender As Object, e As WebBrowserDoc-
umentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
If nDB = 0 Then ’ GMBbase
Select Case pageLoadTimes
Case 0 ’ Search and fill the "search textbox"
For Each elem As HtmlElement In WebBrowser1.Document.All
Dim NameStr As String = elem.GetAttribute("name")
If ((NameStr IsNot Nothing) AndAlso (NameStr.Length 0)) Then
If NameStr.ToLower().Equals("search") Then
elem.InnerText = genes(ngene)
End If
End If
Next
WebBrowser1.Document.GetElementById("title_submit").InvokeMember("click")
Case 1 ’ Search the link to Gene name
For Each elem As HtmlElement In WebBrowser1.Document.Links
Dim NameStr As String = elem.InnerText
If ((NameStr IsNot Nothing) AndAlso (NameStr.Length 0)) Then
If Trim(elem.InnerText) = genes(ngene) Then
elem.InvokeMember("Click")
Exit Select
End If
End If
Next
Case 2 ’ Get the results from page
Dim st As String = WebBrowser1.DocumentText.ToString
Dim st1 As Integer = st.IndexOf("Glioblastoma multiforme Gene Publications:")
If st1 > 0 Then
TextBox3.Text = Convert.ToInt32(Trim(st.Substring(st1 + 49, 5)))
If TextBox3.Text "0" Then RaiseEvent nextGene() Else RaiseEvent nextDB()
Exit Sub
End If
End Select
ElseIf nDB = 1 Then ’ PubMed
269