Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: Jak utworzyć skrut?
OPAX
RatNet



Typ: neutral
Postów: 21
Zarejestrowany: Mar 2005
Jak utworzyć skrut?

mam pytanie jak utworzyć sktót na pulpicie albo gdzies??


_____________________________________________
Sendpack packet

17-05-2005 17:06
Pokaż profil OPAX  Wyślij email do OPAX   Odwiedź stronę OPAX       8910371
jamajka




Typ: neutral
Postów: 18
Zarejestrowany: Apr 2005

Creating a shortcut in VB is far more complicated than it should be. The easiest way to create a shortcut is to add it to the recent documents list, and then move it to where you want it to go.

znaczy mniej więcej:
Tworzenie skrótu w VB jest daleko więcej skomplikowane niż być powinno. Najlepszą drogą do utworzenia skrótu jest dodanie do listy ostatnio otwartych dokumentów i przeniesienie go z tego miejsca dokąd chcesz.

Create a File Shortcut (Tworzenie pliku skrótu)

Otwórz nowy projekt, wrzuć na formę:
CommandButtona i nazwij go cmdMakeLNKFile, 2 TextBoxy i nazwij je txtTarget oraz  txtLnkName.
dodaj referencje dla Windows Script Host Object Model (plik: wshom.ocx, znajduje się w twoim folderze systemowym)

Skopiuj ten kod do sekcji deklaracji:

      Dim Shell As WshShell
      Dim Shortcut As WshShortcut


A ten dodaj do swojej formy

Private Sub cmdMakeLNKFile_Click()

  'inicjalizacja obiektu WshShell
  Set objShell = New WshShell

  'inicjalizacja obiektu WshShortcut
  'kompletna nazwa .lnk file, zawiera pełną ścieżkę plus rozszerzenie .LNK file
  Set objShortcut = objShell.CreateShortcut (txtLnkName.Text)

  ' nadawanie nazwy plikowi .lnk file, ej. "c:windowscalc.exe"
  objShortcut.TargetPath = txtTarget.Text
 
  ' (opcjonalnie) := wiersz polecenia wykorzystujący wskazówki do pliku 
  ' wpisane w txtTarget.Text
  ' objShortcut.Argumenty = xxxx

  ' (opcjonalnie) : = aktualny plik ikonki : = Użycie tej samej ikonki pliku 
  ' wyjściowego, nie angażuje następnej linii.
  ' objShortcut.IconLocation = xxxx
 
  ' zapis.lnk
  objShortcut.Save

End Sub


Tworzenie skrótu

[http://www.developerfusion.com/show/245/

Przyznaję, kod nie testowany przeze mnie - wierzę, że zadziała.
Tu możesz podejrzeć trochę
[http://planet-source-code.com/vb/scripts/ShowCode.asp?txtCodeId=48703&lngWId=1
i tutaj
[http://planet-source-code.com/vb/scripts/ShowCode.asp?txtCodeId=43576&lngWId=1
a także tutaj
[http://planet-source-code.com/vb/scripts/ShowCode.asp?txtCodeId=32431&lngWId=1

[Post edytowany dnia 18-05-2005 16:32 przez jamajka]


_____________________________________________
Chcę wiedzieć, ale czy potrafię zrobić?

18-05-2005 16:19
Pokaż profil jamajka  Wyślij email do jamajka   
Wszystkich odpowiedzi: 1 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1