Байланысты: Махан Асел Visual basic программалау тілінде стандартты емес формаларды құру жолдарын оқытуға арналған көмекші электронды оқу құралын жетілдіру диплом жұмысы
Енгізілген өзгертулерді жоғалтып алмау үшін, жобаны сақтаңыз.
ImageList элементінде шертіп, одан соң қасиеттер терезесінде Custom жолында екі рет шертіңіз. Элементтің қасиетінің беттері бар сұқбат терезесі ашылды.
Images бөліміне өтіңіз.
Бейнені тізімге қосу үшін InsertImages батырмасын басыңыз.
Select Picture ашылған сұқбат терезесінен \Common\Graphics\Bitmaps\Tlbr_Wind95 каталогінен Undo.bmp файылымен таңдап және бейнені тізіиге қосу үшін Open батырмасын басыңыз.
InsertImages батырмасын қайта басыңыз, басқа бейнені қосу үшін. Сол каталогпен Redo.bmpфайлын таңдап және ОК батырмасын басыңыз.
Тағы да InsertImages батырмасын басыңыз. Ол каталогтен Find.bmp файлын таңдап және ОК батырмасын басыңыз, соңғы бейне тізімге енгізіледі.
Қасиеттер терезесінен ОК батырмасын жабыңыз.
Форма конструктеріндегі tbtToolBar құралдар тақтасында тышқанды шертіңіз, оны активті ету үшін. Қасиеттер терзесінде Custom жолында екі рет шертіңіз-тақталардың қасиеттерінің ибеті бар сұқбат терезе ашылады.
General бүктемесінде ImageList тізімнен lmlToolBarжолын таңдаңыз, ал Style тізімінен 1-tbrFlat жолын таңдаңыз. Мұның бәрі орындалып болған соң, Button бүктемесіне өтіңіз.
Жаңа батырманы құралдар тақтасынан орнату үшін, InsertButton батырмасын басыңыз. Key жолына Back, ал Image жолына-1 мәнін енгізіңіз. Енгзілген өзгерістерді растау үшін Apply батырмасын басыңыз.
InsertButton батырмасынан тағы да басыңыз, тақтаға тағы бір батырманы орнату үшін. Key алаңына Forward, ал Image алаңына-2 мәнін беріңіз.
InsertButton батырмасын тағы да басып және тақтаға келесі батырманы қосыңыз. Style алаңына 3-tbrSeparator мәнін беріңіз.
Тағы да батырма қосыңыз. Key алаңына Search мәнін, ал Image алаңына-3 мәнін беріңіз. Қасиеттер беті бар сұқбат терезесін ОК батырмасымен жабыңыз.
Жетілдірілген тақтада ташқанды шертіңіз, оның қасиеттер берін, қасиеттер терезедегі Custom жолына екі рет шертіп ашаңыз.
Bannas бүктемесіне өтіңіз.
Index жолында 1-пайда болғанша Remove Band батырмасын баса баріңіз, жетілдірілген алаңда бір жолақ қана қалады.
Child қасиетіне tbrToolBar мәнін беріңіз және ОК батырмасын басыңыз. Формада төмендегі суретте көрсетілгендей болуы керек.
Қосымшаны визуалды коструктрлеу аяқталды. Келесі қадамдарды біз формаға қод қосамыз.
frmMain формасында екі ерт шерт-программа терезесі ашылады.
frmMain формасының Load қасиетінің процедурасына келесі фрагментті қосыңыз.
Private Sub Form_Load()
LstSites.AddItemwww.piter-press.ru LstSites.AddItem”www.microsoft.com”
LstSites.AddItemwww.myle.com End Sub
3.Form_Resize оқиғасының процедурасына келесі фрагментті қосыңыз.
If WindowState<>vbMinimized then
‘Ратянуть понель
cbrCoolbar.Move 0,0, ScaleWidth
‘Изменить размер списка узлов
With lstSites
.Move 0, cbrCoolbar.Hjeight. Width,_
(ScaleHeight-cbrCoolbar,Height)
End With
‘Изменить размер элемента WebBrowser
With webBrowser
.Move.Left,cbrCoolbar,Height,_
(ScaleHeght=cbrCoolbar,Height)
End With
End If
End Sub
WebBroeser элементі Web-беті Navigate әрекетінің көмегімен жүктейді.
4.Келесі кодтьы LstSites элементінің Click оқиғасының процедурасына жазасыз:
Private Sub lslSites_Click()
WebBrowser.Navigate=Trim$(lstSites.Text)
End Sub
5.Броузердің новигациялық әрекетін жетілдірейік. Келесі кодты tbrToolBar құралдар тақтасының ButtonClick оқиғасының процедурасына орнатыңыз.
Private Sub trToolBar_ButtonClick(ByVal Button As_
CometILib.Button)
On Error Resume Next
Select Case Ucase$(Trim$(Button.Key))
Case Is=”Back”
WebBrowser.GoBack
Case Is=”FORWARD”
WebBrowser.GoForward
Case Is=”SEARCH”
WebBrowser.GoSearch
End Select
Ens Sub
6.Енгізілген өзгертулер жоғалмау үшін жобаны сақтаңыз. Содан соң қосымшаны F5 пернесі арқылы қосыңыз.
Барлық негізгі жұмыс LstSites элементінің Click процедурасында және оқиғасының tbrToolBar элементінің ButtonClick-те орындалады. Нақты WebBrowser-де жүктеу үшін Navigate әдісі қоолданылады. Одан басқа Button Click оқиғасының процедурасында екі әдісі шақырылады.
Winsock қосымшасын жеңілдету Winsock элементі ТСР(Tranmission Control Protocol) және UDP(User Document Protocol). Протоколдарымен жұмыс ісмтеуді жеңілдетеді. Сіз өз қосымшаларыңызды екі протоколда да қолдануымызға болады. ТСР үшін сеаны болуы керек, ал UDP бірігуге негізделеген.
Сеанс(Session) деп екі қосымша арасындағы логикалық командаларды айтады, бұл арқылы кекуінің өзара әрекеттер орындалады. Сеансты телефон қоңырауының баламасы деп қарастыруға болады. Екі қосымша бір-бірімен әрекеттесе алуы үшін, қосымша-клиент, қосымша-серверге екеуін біріктіру туралы сұраныс береді(сіз өз жолыңыздың телефон номерін тергендей) және ол жауап бере ма жоқ па , соны шешеді. Егер сұраныс қабылданса, сеанс құрылады және қосымшалар арасында екі жақты байланыс оратады. Өзара әрекеттеу, бір жақ сеансты үзгенге дейін жалғаса береді.
UDP протоколы байланысқа негізделмеген. Орындау принципі бойынша ол екі жақты радио байланысты еске түсіреді. Нақты сеанс орнатудың орнына, қосымшалар өздерінің бар екендігін білдіреді. UDP-да бұл үшін хост аты көрсетлген немесе IP адресс және басқа қосымшаның порты көрсетіледі “сырттай” танысу орындалған соң, қосымшалар бір-бірімен араласа алады.
Бұл бөлімде ТСР протоколын чат-бөлме қосымшасын құру үшін қолданамыз, олар WebComm деп аталады. Бұл қосымшаның көмегімен интержеліде немесе Интернетте сөйлесе алуға болады. Дегенмен сіз қосымшаны қандай да бір мақсат үшін қолсаңыз да, ары қарай сипатталған процесс TСР/IP протоколының негізінде ұйымдастырғанына байланысты көрсетеді.