텍스트 박스 검색어 입력만으로 바로 검색가능한 웹브라우저 입니다.
상단에 Panel 한개 설치해서 상단에 Dock 시킵니다.
그안에 라디오버튼과 텍스트 박스,버튼을 설치합니다..
하단에 WebBrowser 콘트롤을 설치합니다.
Public Class Form1
Dim check As Integer = 1
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load
WebBrowser1.Navigate("http://www.google.com") '폼 로드시 기본적으로 구글사이트 뜨게
End Sub
Private Sub RadioButton1_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton1.CheckedChanged
check = 1 ' check = 1 일때 구글
End Sub
Private Sub RadioButton2_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton2.CheckedChanged
check = 2 ' check = 2 유투브
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
If TextBox1.Text = "" Then 'TextBox1.Text 비어 있으면 메세지박스 뛰으고 포커스
MessageBox.Show("Enter the search")
TextBox1.Focus()
Else
If check = 1 Then ' 라디오버튼 체크 해서 유투브인지 구글인지 판단
WebBrowser1.Navigate("https://www.google.co.kr/#q=" + TextBox1.Text)
Else
WebBrowser1.Navigate("https://www.youtube.com/results?search_query=" + TextBox1.Text)
End If
End If
End Sub
End Class
