T A J P R O G Сешанбе, 21.05.2019, 06:19
Приветствую Вас Гость | RSS
Меню сайта

Наш опрос
Ба сомонаи мо баҳо диҳед!
Ҷавобҳо ҳамагӣ: 569

Статистика

Онлайн ҳамагӣ: 1
Меҳмон: 1
Истифодабаранда: 0


15:41
Дарси 53.Кор бо Webbrowser

Кор бо Webbrowser


Барномаро кушода ба форма:



6 Buttons
1 Textbox
1 Webbrowser
1 Splitter
илова намоед.


Сипас ба тугмачаҳо чунин кодро дохил намоед!


Button1:

Webbrowser1.GoBack()  
Button2:
Webbrowser1.GoForward()
Button3:
Webbrowser1.Stop()
Button4:
Webbrowser1.Refresh()
Button5:
Webbrowser1.GoHome()
Button6:

Webbrowser1.Navigate (Textbox1.Text)


намунаи барнома.


 

Просмотров: 355 | Добавил: aplove | Рейтинг: 0.0/0
Всего комментариев: 1
1 joni   (22.08.2014 15:00)
Перемещаем объект
(панель) по форме.
Dim panloc As New Point(0, 0)
Dim curloc As New Point(0, 0)
Private Sub setpositions()
panloc = Panel1.Location curloc =
System.Windows.Forms.Cursor
.Position
End Sub
Private Sub Form1_Load(ByVal
sender As System.Object, ByVal e As System.EventArgs)
Handles MyBase.Load
Timer1.Interval = "1"
setpositions()
End Sub Private Sub Panel1_
MouseDown(ByVal sender As
Object, ByVal e As
System.Windows.Forms.Mouse
EventArgs) Handles
Panel1.MouseDown Timer1.Enabled = True
Timer1.Start()
setpositions()
If Panel1.Location.X < 29 And
Panel1.Location.Y < 80 Then
MsgBox("Alert") End If
End Sub Private Sub Panel1_MouseUp
(ByVal sender As Object, ByVal
e As
System.Windows.Forms.Mouse
EventArgs) Handles
Panel1.MouseUp Timer1.Stop()
setpositions()
End Sub Private Sub Timer1_Tick(ByVal
sender As System.Object, ByVal
e As System.EventArgs)
Handles Timer1.Tick
Panel1.Location = panloc -
curloc + System.Windows.Forms.Cursor
.Position
setpositions()
End Sub

Ном *:
Email:
Код *:
Реклама

Поиск

Календарь
«  Июн 2014  »
ДСЧПҶШЯ
      1
2345678
9101112131415
16171819202122
23242526272829
30

Архив записей

Друзья сайта

Copyright © Умаров Алибек 2019,. Все права защищены.