Executarea Programelor Din Visual Basic
Tradus de
ScribdTranslationsExecutarea Programelor Din Visual Basic
Tradus de
ScribdTranslationsExecutaț i programe din Visual
Bazic .Net
1 Vot
Aplicaț ia pentru această ocazie permite executarea unor programe din Visual Basic.
Am proiectat formularul aș a cum apare în imagine.
Atribuim numele controalelor respective.
În cele din urmă, facem mică codificare.
Nota: Pentru a putea rula programele, trebuie să ș tii locaț ia fiș ierului său .exe pe discul tău.
Duro, aceș tia îi las ca exemplu pentru că sunt programe ale căror locaț ie este aceeaș i în
orice Windows XP (Dar ar putea varia numele discului, cel mai bine este să verificaț i bine).
Dar poț i rula orice alt program având în vedere locaț ia sa.
01ClasaPublicForm1
02
PrivateSubbtncal_Click(ByValsender [Link], ByValeAs
03
[Link]) Handles [Link]
04 Execută calculatorul
05 Shell("C:\WINDOWS\system32\[Link]", [Link])
06 EndSub
07
Private Sub btnPaint_Click(ByVal sender As [Link], ByVal e As
08
[Link]) [Link]
09 Rulaț i Paint
Shell("C:\WINDOWS\system32\[Link]",
10
[Link]
11 EndSub
PrivateSubButton6_Click(ByValsender [Link], ByValeAs
12
[Link]) Handles [Link]
13 Executa Notepad
Shell("C:\WINDOWS\system32\[Link]",
14
[Link])
15 EndSub
PrivateSubbtnExplorer_Click(ByValsender [Link], ByVale
16
[Link]) [Link]
17 Executaț i Explorer-ul Windows
18 Shell("C:\WINDOWS\[Link]", [Link])
19 Sfâr ș itSub
20
PrivateSubbtnSS_Click(ByValsender [Link], ByValeAs
21
[Link]) Se ocupă de [Link]
22 Rulaj Solitaire Spider
Shell("C:\WINDOWS\system32\[Link]",
23
[Link]
24 Sfâr ș itSub
25
PrivateSubbtnBM_Click(ByValsender [Link], ByValeAs
26
[Link]) [Link]
27 Executa Caută Mine
Shell("C:\WINDOWS\system32\[Link]",
28
[Link]
29 ÎncheiereSub
30
PrivateSubbtncmd_Click(ByValsender [Link], ByValeAs
31
[Link]) Se ocupă de [Link]
32 Executaț i CDM
Shell("C:\WINDOWS\system32\[Link]",
33
[Link]
34 EndSub
35
PrivateSubbtnVol_Click(ByValsender [Link], ByValeAs
36
[Link]) Se ocupă de [Link]
37 Executaț i Controlul Volumului sistemului
Shell("C:\WINDOWS\system32\[Link]",
38
[Link]
39 EndSub
40
PrivateSubbtnIesi_Click(ByValsender [Link], ByValeAs
41
[Link]) Handles [Link]
42 Buton pentru a închide aplicaț ia
43 [Link]()
44 EndSub
45Sfârș itClasa
Ș i dacă te uiț i, la sfârș itul fiecărei linii de cod pentru buton, unele se termină în mod
distinta, această ultimă parte a codului permite prezentarea programului în moduri diferite
forme. Mai jos este un tabel pentru a-l înț elege mai bine.
[Link]