Íîâèÿò ðåäàêòîð íà ìåíþòà (Menu Editor) âúâ VB.NET ìîæå äà âè äîñòàâè ðàäîñò, ïðè ïîñòðîÿâàíå íà ìåíþòàòà. Èçïîëçâàéêè ôîðìàòà îò ïðèìåðà, îòèäåòå â Toolbox è êëèêíåòå äâà ïúòè âúðõó êîíòðîë MainMenu. Òîçè êîíòðîë äîáàâÿ ëåíòà ñ ìåíþòà è áóòà íàäîëó òåêñòîâàòà êóòèÿ. Äîáàâÿ ñå è ìåíþ â îáëàñòòà ïîä ôîðìàòà, íàðå÷åíà ComponentTray, à ìåíþ ëåíòàòà ïîêàçâà åäèí ÷ëåí, íàðå÷åí Type Here, âèæ ôèãóðà 36.

Êëèêíåòå âåäíàæ âúðõó êóòèéêàòà, êîÿòî êàçâà Type Here, è íàïèøåòå &File. Òîâà äåéñòâèå ñúçäàâà íîâà êóòèéêà Type Here îòäÿñíî è íîâà Type Here îòäîëó. Êëèê âåäíàæ âúðõó Type Here ïîä äóìàòà &File è íàïèøåòå &Open. Ñúùî êàêòî â ïðåäèøíàòà âåðñèÿ íà VB, àìïåðñàíäà (&) ñå èçïîëçâà çà êëàâèøåí äîñòúï Alt+êëàâèø. Íàïèñâàíåòî íà &Open ñúçäàâà íîâà êóòèéêà Type Here îòäÿñíî è íîâà Type Here îòäîëó. Êàêòî âèæäàòå ïîñòðîÿâàíåòî íà ìåíþòî å ãðàôè÷íî. Êëèêíåòå â êóòèéêàòà ïîä Open è íàïèøåòå &Close.

Ôèãóðà 36 Menu Editor â àêöèÿ.

Ìîæåòå äà êëèêíåòå â êóòèéêà Type Here âäÿñíî îò ìåíþ File çà äîáàâÿíå íà ãëàâíî ìåíþ, íàïðèìåð &Edit. Ìåíþ Edit äàâà íîâè ïðàçíè áëîê÷åòà è ìîæå äà ïðîäúëæèòå ñ (êîïèðàíå) &Copy è (âìúêâàíå) &Paste.

Êëèêíåòå ìåíþ Open è ïîãëåäíåòå ïðîçîðåöà çà ñâîéñòâàòà (Properties), Ùå âèäèòå àêòóàëíî èìå MenuItem2. Ìîæåòå äà ãî ñìåíèòå, íî íå ñå ïðèòåñíÿâàéòå çà ñåãà. Êëèêíåòå âúðõó ïàäàùèÿ ñïèñúê íà ñâîéñòâî Shortcut. Ñêðîëèðàéòå è èçáåðåòå Ctrl+O. Ñâîéñòâî ShowShortcut å â True ïî ïîäðàçáèðàíå, íî âèå íå èñêàòå äà âèæäàòå øîðòêúòà ïî âðåìå íà ïðîåêòèðàíå (design time). Íàìåñòî òîâà ñòàðòèðàéòå àïëèêàöèÿòà. Ôèãóðà 37 âè ïîêàçâà êàêâî òðÿáâà äà âèäèòå. Çàáåëåæåòå, ÷å ïîä÷åðòàâàíåòî íà áóêâèòå (îáîçíà÷åíè ñ àìïåðñàíä) íå ñå ïîêàçâà, äîêàòî íå íàòèñíåòå êëàâèø Alt.

Ôèãóðà 37 Íîâîòî ìåíþ ñå ïîêàçâà ïî âðåìå íà èçïúëíåíèå (runtime).

- Ïîñòàâÿíå íà òàáóëàöèîííèÿ ðåä (Tab Order)



Ïðèáàâåòå îùå òðè áóòîíà â ðàçáúðêàí ðåä Button2, Button4, Button3, è Button1 - ôèãóðà 38. Àêî ñòàðòèðàòå ïðîåêòà, òàáóëàöèîííèÿ ðåä ùå áúäå Button1, Button2, Button3, è Button4.



Ôèãóðà 38 Ôîðìàòà ñ ãðåøíèÿ òàáóëàöèîíåí ðåä.



Çà äà îïðåäåëèòå òàáóëàöèîííèÿ ðåä, êëèêíåòå â ìåíþ View è èçáåðåòå Tab Order. Êàêòî âå÷å çíàåòå, ùå ïîëó÷èòå ìàëêè íîìåðöà íà âñåêè êîíòðîë, êîéòî ïîëó÷àâà ôîêóñà, êàêòî ñå âèæäà íà ôèãóðà 39. Çà äà îïðàâèòå òàáóëàöèîííèÿ ðåä, ïðîñòî êëèêíåòå âúðõó êîíòðîëèòå â ðåäà â êîéòî èñêàòå äà å òàáóëàöèÿòà, ïðèìåðíî Button2, Button4, Button3, è Button1, è òàáóëàöèîííèÿ ðåä (tab order) ùå áúäå îïðåäåëåí çà âàñ, ùå ãî âèäèòå ïî íîìåðöàòà â ëåâèÿ ãîðåí úãúë íà âñåêè áóòîí.



- Ñâîéñòâî Opacity íà ôîðìàòà



Ñâîéñòâîòî íà ôîðìàòà Opacity ìîæå äà áúäå ìíîãî ïîëåçíî. Çà Form1 ñ êîÿòî äîñåãà ðàáîòèõòå, íàìåðåòå ñâîéñòâî Opacity è ãî ñìåíåòå íà 50%. Ñòàðòèðàéòå ïðîåêòà è ùå âèäèòå êàê ñå ñìåíÿ âèäà íà ôîðìàòà. Çàòâîðåòå ïàê ïðîåêòà, çà äà äîáàâèòå ìàëêî êîä. Îò Toolbox äîáàâåòå òàéìåð (timer) êúì âàøàòà ôîðìà. Çà ðàçëèêà îò VB6, òàéìåðúò ñå ïîÿâÿâà â îáëàñòòà Component Tray íà ôîðìàòà. Êëèêíåòå âúðõó íåãî â òîçè ïðîçîðåö è ñëåä òîâà ïîñòàâåòå ñâîéñòâîòî ìó Enabled â True. Èíòåðâàë îò 100 å äîáðå.

Ñåãà, êëèêíåòå â ñòðàíèöà Form1.vb çà äà îòèäåòå â êîäà. Â ïîäïðîãðàìà Sub New, äîáàâåòå ñëåäíèÿ ðåä êîä ñëåä êîìåíòàðà Add any initialization...:

Me.Opacity = 0

Ùå ïîñòàâè opacity â 0, êîåòî îçíà÷àâà, ÷å ôîðìàòà ùå áúäå íåâèäèìà, êîãàòî ñå çàðåæäà.

Èçïîëçâàéòå ïàäàùèòå ñïèñúöè Class Name è Method Name è èçáåðåòå ñúáèòèå Tick íà êîíòðîë Timer1. Âúòðå â ñúáèòèéíàòà ïðîöåäóðà íàïèøåòå:

Form1.Opacity = form1.Opacity + 0.01

If Me.Opacity >= 1 Then

timer1.Enabled = False

beep()

End If

Òîçè êîä èíêðåìåíòèðà opacity ñ .01 âñåêè ïúò, êîãàòî ñå âäèãíå ñúáèòèåòî Tick.