13-11-20, 08:57 PM
كود :
If WebBrowser1.Document.Body.InnerText.Contains(TextBox1.Text) Then
For Each ss In WebBrowser1.Document.GetElementsByTagName("p")
For i = 0 To 767
If ss.GetAttribute("id") = "Q" & i Then
TextBox2.Text = ss.innertext
If TextBox2.Text.Contains(TextBox1.Text) Then
RichTextBox1.Text = ss.innertext
Label1.Text = "تم العثور على جواب"
Label1.ForeColor = Color.Green
RichTextBox1.Text = TextBox2.Text.Replace("a. ", vbNewLine & "a. ").Replace("b. ", vbNewLine & "b. ").Replace("c. ", vbNewLine & "c. ").Replace("d. ", vbNewLine & "d. ").Replace("e. ", vbNewLine & "e. ").Replace("Answer: ", vbNewLine & "Answer: ")
RichTextBox1.Find("Answer: ", RichTextBoxFinds.MatchCase) 'text to colorize / change font
RichTextBox1.SelectionFont = New Font("Verdana", 12, FontStyle.Bold)
RichTextBox1.SelectionColor = Color.Red
RichTextBox1.Find(TextBox1.Text, RichTextBoxFinds.MatchCase) 'text to colorize / change font
'test - change font / color
RichTextBox1.SelectionFont = New Font("Verdana", 12, FontStyle.Bold)
RichTextBox1.SelectionColor = Color.Green
ElseIf Not RichTextBox1.Text.Contains(TextBox1.Text) Then
Label1.Text = "لم يتم العثور على جواب"
Label1.ForeColor = Color.Red
End If
End If
Next
Next
Else
Try
ListBox1.SelectedIndex += 1
Catch ex As Exception
ListBox1.SelectedIndex -= 1
End Try
Basil Abdallah 
