Kaip Sukurti Savo Naršyklę

Turinys:

Kaip Sukurti Savo Naršyklę
Kaip Sukurti Savo Naršyklę

Video: Kaip Sukurti Savo Naršyklę

Video: Kaip Sukurti Savo Naršyklę
Video: kaip sukurti NARŠYKLĘ per microsoft visual basic 2024, Gegužė
Anonim

Yra daugybė norinčių sukurti naršyklę savo rankomis. Bet visi žino, kaip tai padaryti. Jį galima surinkti naudojant standartinį „CppWebBrowser“komponentą.

Kaip sukurti savo naršyklę
Kaip sukurti savo naršyklę

Nurodymai

1 žingsnis

„Borland C ++ Builder“v.6.0 versijoje gana lengva sukurti naršyklę. Jums nereikia rašyti savo variklio. Naudokite paruoštą interneto naršyklę. Sukurkite formą ir įdėkite „CppWebBrowzer“elementą su interneto skirtukais. Jis yra kraštutinėje dešinėje. Jei norite įvesti adresą, pridėkite mygtuką ir redagavimo mygtuką. Gausite didelį baltą stačiakampį, kuriame bus rodomas svetainės puslapis. Apibūdinkite įvykius spustelėdami mygtuką arba aplanke „Įveskite ir redaguoti“: CppWebBrowser1-> Navigate (StringToOleStr (Edit1-> Text)). Dabar pridėkite keletą mygtukų, kuriuos esate įpratę matyti standartinėse naršyklėse. Pvz., Šie mygtukai gali būti: Atgal, Pirmyn, Stop ir Namai. Vandens kodai mygtukams: CppWebBrowser1-> GoBack (); - grįžimo mygtukas, CppWebBrowser1-> GoForward (); - mygtukas pirmyn, „CppWebBrowser1-> Stop“(); - sustabdymo mygtukas, CppWebBrowser1-> Refresh (); - atnaujinimo mygtukas, CppWebBrowser1-> GoHome (); - pagrindinio puslapio mygtukas. Dabar pakeiskite redagavimo komponentą „ComboBox“. Jame bus įrašyti neseniai atidaryti puslapių adresai. Įtraukite keletą eilučių į įvykių tvarkytuvą: if (Key == VK_RETURN).

2 žingsnis

Norėdami sukurti skirtukus, jums reikia „Pagecontrol“. Įdėkite jį į formą ir dešiniuoju pelės mygtuku spustelėkite ją, atsidariusiame meniu spustelėkite Naujas puslapis. Jei spustelėsite dar kartą, gausite antrą skirtuką. Eikite į pirmąjį skirtuką ir vilkite į jį „CppWebBrowser“komponentą. Tiesiog vilkite jį objekto treeview į TabSheet1. Dabar, norėdami kiekviename skirtuke atidaryti naršyklę, pridėkite „Form1“komponentą prie „OnKeyDown“tvarkyklės: TCppWebBrowser * newbrowser.

3 žingsnis

Kad plečiant naršyklę būtų galima išplėsti, prie onCreate įvykio turite pridėti Form1 komponentą: PageControl1-> Align = alClient. Norėdami parodyti mygtukus, įdėkite „CoolBar“komponentą į skirtuką. Tada vilkite ant jo visus mygtukus. Dabar viską sutvarkykite. Norėdami pakeisti adreso juostą, kai pereinate iš vieno puslapio į kitą, pridėkite eilutę į komponento „CppWebBrowser“įvykį onBeforeNavigate2: ComboBox1-> Text = CppWebBrowser1-> LocationURL.

4 žingsnis

Dabar turime sukurti vieną skydelį, kuriame būtų visi mygtukai ir kad jis valdytų aktyvų puslapį. Norėdami tai padaryti, vilkite „CoolBar“su visais elementais į formą. Skirtuko sukūrimo kodo stilius į atskirą funkciją. Į antraštės failą, TForm1 klasę, paskelbtame skyriuje įrašykite: void _fastcall make_tab ();. Tada nukopijuokite šią funkciją į „onKeyDown“. Naudodami šią funkciją palengvinsite darbą su skirtukais. Kad adreso juosta padidėtų plečiant, eikite į komponentą onResize Form1 ir įveskite: Form1-> ComboBox1-> Width = Form1-> Width - 150.

5 žingsnis

Belieka padaryti mygtukus skaidrus. Norėdami tai padaryti, įkelkite vaizdus į „FormCreate“ir pridėkite ten kodus, kurie padės nustatyti skaidrumą. Pasirinkite skaidrumo spalvą ir užsirašykite. „SpeedButton1-> Transparent = true“; - skaidrumo skiriamoji geba, SpeedButton1-> Glyph-> Transparent = true; - rodo, kad paveikslėlis yra skaidrus, „SpeedButton1-> Glyph-> TransparentColor = clBlack“; - skaidrumo spalva. Čia „FormCreate“pridėkite komandą make_tab (); tai viskas, ką jūsų naršyklė paruošta, galite ją paleisti ir dirbti.

Rekomenduojamas: