Visual Basic ортасында Интернет браузер құру

2. 2. Visual Basic ортасында Интернет браузер құру

Форманы Windows қосымшаларының терезесі сияқты пайдалану Visual Basic’ тің тағы бір ерекшелігі. Формада түрлі мәзірлер орнатып, әр мәзірге енгізілген командалық пункттер объектілерімен әдеттегідей жұмыс істеуге болады. Мәзір құру үшін VB құрамына Menu Editor (Мәзір редакторы) программасы енгізілген. Оны пайдалану әдісі:

Форманы таңдап, Tools - Menu Editor (Құрал - Мәзір редакторы) командасын беру (аспаптар панелінің «Мәзір редакторы» түймесін шертуге де болады) . Редактор іске қосылып, оның екі бөлімді терезесі көрінеді (1-сүрет) . Оның жоғарғы бөлімі мәзір және мәзір командаларының атауларын енгізуге арналған. Енгізілген атаулар терезесінің төменгі бөліміне жазылып қойылады.

1-сурет. Мәзір редакторы терезесі.

Терезеде көрінген Caption, Name, Checked, Enabled, Visible, WindowList- мәзір компоненттері (қасиеттер) :

Caption - мәзір не оның командасы атауын анықтау.

Name - программада ажырату үшін Caption өрісіне енгізілген атауды арнайы түрде жазу (VB атауды Name өрісіне енгізілген түрде қабылдайды) .

Visible (көрсету) - мәзір командасын жасыру не көрсету.

Enabled (қосылулы) - командаға True не False мәнін меншіктеу. Алғашқы кезде Enabled, Visible қасиеттері үшін логикалық True мәні орнатулы тұрады. Оны ерекше жағдайлардан басқа кезде өзгертпеу керек.

Index - мәзірді элементтер массивіне айналдыру. Ол Windows-та пайдаланылатын тәсіл сияқты мәзір пункттерінің төменгі жағында ашылған файлдар тізімін көрсетіп қою үшін пайдаланылады.

Мысал. Формада Clock (Time, Date) мәзірін құру керек. Time (уақыт), Date (дата) - Clock (сағат) мәзірінің пункттері (жүйелік сағаттың ағымдық уақыты мен датаны көрсететін стандартты функциялар) .

Мәзір құру тәсілі:

1. Орталықты іске қосып, көрінгенформаны ерекшелеу. Menu Editorтерезесін экранға шығарып, Captionөрісіне мәзір атауын (Clock) енгізу, одан соңTABклавишін басу (ол курсорды бір мәтіндік өрістен келесісіне орналастырып қояды) . Атау төменгі бөлімге жазылады.
2. Nameөрісінің алдынаmnuқосымшасы (префиксі) жазылған мәзір атауын енгізу:mnuClock. Ол программалық код терезесініңобъектілер тізімінекірістіріліп қойылады (mnu -тізімге жазылған атаудың мәзір екенін ажырату үшін пайдаланылатын префикс. Mnuорнына басқа префиксті жазу да мүмкін) .
3. Next(келесі) түймесін шерту. Caption, Nameөрістері тазаланады да, редактор келесі мәзір атауын не мәзір пунктін енгізуді күтеді. КурсорCaptionөрісіне орналастырылып қойылады.
4. CaptionөрісінеTime, атауын енгізу (item(пункт) - программада атаудың мәзір пункті екенін ажырату үшін пайдаланылған жалғау) . Timeтерезенің төменгі бөліміне жазылып қойылады.
5. Терезенің«Солдан оңға»(→) түймесін шерту. Ол төменде жазылғанTimeатауының алдына көп нүкте ( . . . ) қойып кетеді. Көп нүкте -редакторыңTime-ді мәзір пункті етіп белгілеуі.
6. Nextтүймесін шертіп, CaptionөрісінеDate, атауларын енгізу. Бұл жолы «Солдан оңға» түймесін шертудің қажеті жоқ, оны тек алғашқы пунктті енгізу кезінде шерту керек. РедакторDateсөзін мәзір пункті деп автоматты түрде қабылдайды да, алдына көп нүкте қойып кетеді (2-сурет) .

2-сурет. Clock мәзірі құрылған Мәзір редакторы терезесі

Ескерту. Қажет болса, келесі мәзірлер мен олардың пункттерін де осылайша енгізуге болады. Редактор терезесінде Солға, Жоғары, Төмен, Кірістіру ( Insert ), Жою ( Delete ) түймелері де бар. Оларды пайдаланып, құрылған мәзірді редакциялау қиын емес.

Visual Basic ортасында браузер құру үшін ортаның стандартты батырмаларын мен бір қатарда WebBrowser элементі қолданылады. Жобаның формасы 3-суретте көрсетілген:

4-сурет. Браузер добасының формасы

Бағдарламасы

Private Sub Command1_Click() ' Кнопка назаD

WB. GoBack

End Sub

Private Sub Command2_Click() ' Кнопка вперед

WB. GoForward

End Sub

Private Sub Command3_Click() ' Кнопка Домой

WB. GoHome

End Sub

Private Sub Command4_Click() ' Кнопка Обновить

WB. Refresh

End Sub

Private Sub Form_Resize() ' При изменении размера формы меняем размер WB

WB. Left = 20

WB. Top = 1080

WB. Width = Form1. Width - 140

WB. Height = Form1. Height - 1500

End Sub

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)

If KeyCode = 13 Then ' Если нажата клавиша Enter то:

WB. Navigate Text1. Text ' Открываем введенный в текстовое поле адресс

' Меняем заголовок формы

Form1. Caption = ""

Form1. Caption = Text1. Text & Form1. Caption

End If

End Sub

---

Сіз бұл жұмысты біздің қосымшамыз арқылы толығымен тегін көре аласыз.

• Іс жүргізу
• Автоматтандыру, Техника
• Алғашқы әскери дайындық
• Астрономия
• Ауыл шаруашылығы
• Банк ісі
• Бизнесті бағалау
• Биология
• Бухгалтерлік іс
• Валеология
• Ветеринария
• География
• Геология, Геофизика, Геодезия
• Дін
• Ет, сүт, шарап өнімдері
• Жалпы тарих
• Жер кадастрі, Жылжымайтын мүлік
• Журналистика
• Информатика
• Кеден ісі
• Маркетинг
• Математика, Геометрия
• Медицина
• Мемлекеттік басқару
• Менеджмент
• Мұнай, Газ
• Мұрағат ісі
• Мәдениеттану
• ОБЖ (Основы безопасности жизнедеятельности)
• Педагогика
• Полиграфия
• Психология
• Салық
• Саясаттану
• Сақтандыру
• Сертификаттау, стандарттау
• Социология, Демография
• Спорт
• Статистика
• Тілтану, Филология
• Тарихи тұлғалар
• Тау-кен ісі
• Транспорт
• Туризм
• Физика
• Философия
• Халықаралық қатынастар
• Химия
• Экология, Қоршаған ортаны қорғау
• Экономика
• Экономикалық география
• Электротехника
• Қазақстан тарихы
• Қаржы
• Құрылыс
• Құқық, Криминалистика
• Әдебиет
• Өнер, музыка
• Өнеркәсіп, Өндіріс