สร้าง Search ด้วย Visual Basic 2008
Tuesday, July 31, 2012
0
comments
1.สร้าง form ขึ้นมา 1 form และออบแบบตามรูปด้านล่าง
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Process.Start("iexplore", "http://www.google.com/search?hl=en&q=" + TextBox1.Text + "&aq=f&oq=")
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Process.Start("iexplore", "http://www.youtube.com/results?search_type=&search_query=" + TextBox1.Text + "&aq=f")
End Sub
-การ Search Youtube เพิ่มข้อความที่ต้องการค้นหาลงใน Textbox แล้วคลิกปุ่ม Search Youtube
ลองเอาไปทำดุเองนะคับ
โปรเเกรมเม่สูตรครู
ผมคิดเอง
สนใจติดต่อได้ที่ 082-8426245
ผมทำเอง
visual basicPrivate Sub Command1_Click()
Dim i, n, sum As Integer
n = Text1
Text2.Text = ""
i = 1
Do While i <= 12
sum = n * i
Text2.Text = Text2.Text & n & "*" & i & " = " & sum & vbCrLf
i = i + 1
Loop
End Sub
Private Sub Command2_Click()
Dim i, n, sum As Integer
n = Text1
Text2.Text = ""
i = 1
Do
sum = n * i
Text2.Text = Text2.Text & n & "*" & i & " = " & sum & vbCrLf
i = i + 1
Loop While i <= 12
End Sub
Private Sub Command3_Click()
Dim i, n, sum As Integer
n = Text1
Text2.Text = ""
i = 1
Do Until i >= 13
sum = n * i
Text2.Text = Text2.Text & n & "*" & i & " = " & sum & vbCrLf
i = i + 1
Loop
End Sub
Private Sub Command4_Click()
Dim i, n, sum As Integer
n = Text1
Text2.Text = ""
i = 1
Do
sum = n * i
Text2.Text = Text2.Text & n & "*" & i & " = " & sum & vbCrLf
i = i + 1
Loop Until i >= 13
End Sub
Private Sub Command5_Click()
Text1.Text = ""
Text2.Text = ""
End Sub
Text 1
Text 2
ตั้งเองนะคับ
Categories:
0 comments:
Post a Comment