Mit Kontextmenü Form2 öffnen

  • VB.NET

Es gibt 12 Antworten in diesem Thema. Der letzte Beitrag () ist von 7even.

    Mit Kontextmenü Form2 öffnen

    Hey ;)
    und zwar hab ich eine frage :)
    Ich möchte einen eintrag im Kontext menü machen.
    Einmal Verschlüsseln , und einmal Entschlüsseln
    Beim klick auf Verschlüsseln ---> Form2 soll sich öffnen
    Beim klick auf entschlüsseln ---> Form3 soll sich öffnen

    aber ich bekomme es einfach nicht hin,
    hier mein projekt für das ich es brauche:
    [Beta] Dateien verschlüsseln, und mit Passwort versehen - 7even Crypter

    danke ;)

    Schönes Wochenende

    ich glaube du verstehst mich nicht ganz ;)
    ich verschlüssle eine datei mit meinem programm,
    aber damit man nicht immer zuerst das programm öffnen muss, rechtsklick auf die datei und dort sollte dann entschlüsseln stehen. wenn ich dort draufklicke soll sich die form2 öffnen ;)
    danke trozdem ;)
    grüße

    genau das meine ich ;)
    danke dir.
    Könntest du mir helfen den code so umzuschreiben, das wenn man auf eine .encrypt datei mit der rechten maustaste klickt, das er die form 2 öffnet (über das kontextmenü)

    und das gleiche noch mit "entschlüsseln" und form 3 ;) danke

    Ja ich häng sie gleich dran.

    [VB 2005] Windows ContextMenu

    ^
    l
    l
    l

    VB.NET-Quellcode

    1. Try
    2. Dim SubKey As RegistryKey
    3. Registry.ClassesRoot.CreateSubKey("*\shell\" & sKey & "\command")
    4. SubKey = Registry.ClassesRoot.OpenSubKey("*\shell\" & sKey & "\command", True)
    5. Dim sT As String
    6. sT = sEntry & " %1"
    7. SubKey.SetValue("", sT)
    8. Catch ex As Exception
    9. MessageBox.Show(ex.Message)
    10. End Try

    Dieser Beitrag wurde bereits 3 mal editiert, zuletzt von „m97y97“ ()

    Fehler 3 "sKey" wurde nicht deklariert. Auf das Objekt kann aufgrund seiner Schutzstufe möglicherweise nicht zugegriffen werden. C:\Users\7even\Desktop\cr\frmMain.vb 1119 67 EncryptFile
    Fehler 4 "sEntry" wurde nicht deklariert. Auf das Objekt kann aufgrund seiner Schutzstufe möglicherweise nicht zugegriffen werden. C:\Users\7even\Desktop\cr\frmMain.vb 1121 18 EncryptFile

    Grad kein Visual Studio zu Hand.

    vbarchiv.net/tipps/tipp_1885.html
    Sollte funktionieren.
    Du müsstest noch bisschen editieren.


    VB.NET-Quellcode

    1. Imports Microsoft.Win32
    2. Public Class ExplorerContextMenu


    VB.NET-Quellcode

    1. Public Shared Function AddToExplorerContextMenu(ByVal extension As String, _
    2. ByVal text As String, ByVal command As String) As Boolean
    3. ' Beispiel der Kommentare:
    4. ' extension=.deineDateiendung
    5. ' text=In deinem PRogramm öffnen
    6. ' command= C:\jsedit.exe "%1"
    7. Try
    8. ' Öffnen: HKEY_CLASSES_ROOT\.deineDateiendung
    9. Dim Extensionkey As RegistryKey = Registry.ClassesRoot.CreateSubKey(extension)
    10. ' Öffnen: HKEY_CLASSES_ROOT\.deineDateiendung\Shell
    11. Dim Shellkey As RegistryKey = Extensionkey.CreateSubKey("Shell")
    12. ' Öffnen: HKEY_CLASSES_ROOT\.deinedateiendung\Shell\in deinem programm öffnen
    13. Dim Entrykey As RegistryKey = Shellkey.CreateSubKey(text)
    14. ' Öffnen: HKEY_CLASSES_ROOT\.deineDateiendung\Shell\in deinem programm öffnen\command
    15. Dim Commandkey As RegistryKey = Entrykey.CreateSubKey("command")
    16. Commandkey.SetValue("", command)
    17. Commandkey.Close()
    18. Entrykey.Close()
    19. Shellkey.Close()
    20. Extensionkey.Close()
    21. Return True
    22. Catch ex As Exception
    23. Return False
    24. End Try
    25. End Function
    27. Public Shared Function RemoveFromExplorerContextMenu(ByVal extension As String, _
    28. ByVal text As String) As Boolean
    29. Try
    30. ' Öffnen: HKEY_CLASSES_ROOT\.deinedateiendung
    31. Dim Extensionkey As RegistryKey = Registry.ClassesRoot.OpenSubKey(extension, True)
    32. ' Öffnen: HKEY_CLASSES_ROOT\.deinedateiendung\Shell
    33. Dim Shellkey As RegistryKey = Extensionkey.OpenSubKey("Shell", True)
    34. ' Entfernen: HKEY_CLASSES_ROOT\.deinedateiendung\Shell\In JSEdit bearbeiten
    35. Shellkey.DeleteSubKeyTree(text)
    36. Shellkey.Close()
    37. Extensionkey.Close()
    38. Return True
    39. Catch ex As Exception
    40. Return False
    41. End Try
    42. End Function
    44. End Class



    Hinzufügen:

    VB.NET-Quellcode

    1. ExplorerContextMenu.AddToExplorerContextMenu(".deinedateiendung", _ "in deinem prog öffnen", "C:\deineprogrammname.exe ""%1""")
    Entfernen:

    VB.NET-Quellcode

    1. ExplorerContextMenu.RemoveFromExplorerContextMenu(".deinedateiendung", _ "In deinem prog öffnen")

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „m97y97“ ()

    Hey, leider bin ich nicht weitergekommen,
    könntest du mir helfen den code so umzuschreiben, das er 2 einträge ins kontextmenü macht (Entschlüsselm, verschlüsseln) beim klick auf "Entschlüsseln" soll er den pfad der datei an das programm übergeben, und den dateipfad in die textbox mit dem namen(txtFileToEncrypt) eintragen.
    Beim klicken auf decrypt, soll er die form2 öffnen

    Danke ;)
    Schönes Wochenende


    Oder kennt sich jemand anders damit aus.? dankeschöön

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „7even“ ()

Facebook
Telefonspende