Íîâèÿò
ðåäàêòîð íà ìåíþòà (
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.