Auf Sub in einem Benutzersteuerelement zugreifen

  • VB.NET

Es gibt 15 Antworten in diesem Thema. Der letzte Beitrag () ist von MG6007.

    Auf Sub in einem Benutzersteuerelement zugreifen

    Guten Morgen,
    Bin gerade an einer appkikation inwelcher ich die Oberflächen (z.B Einstellungsmenü) in User Controls geschrieben habe und in der Haupform (Windows Forms) jeweils aufrufe.

    Nun möchte ich von der Hauptform auf ein Sub in einer User Control zugreifen. Public sub reicht anscheinend nicht. Kann man dies nicht einfach mit (beispiel)
    usercontrol1.EinstellungenLaden() machen?

    Dankeschön :)

    Wie rufst Du Dein UserControl denn auf?

    Ziehst Du es im Designer auf die Form oder machst Du das per Code...?
    Die Unendlichkeit ist weit. Vor allem gegen Ende. ?(
    Manche Menschen sind gar nicht dumm. Sie haben nur Pech beim Denken. 8o

    MG6007 schrieb:

    usercontrol1.EinstellungenLaden()
    Was genau geht hier nicht?
    Wo steht dieser Aufruf?
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    SpaceyX schrieb:

    Hey,

    zeig mal etwas mehr Code. Wie erzeugst Du denn die UserControls?


    [VB.NET] UserControl-based-Forms
    Habe es nach diesem tutorial gemacht, das hilft vielleicht weiter! Ist eigentlich genau so übernommen worden.


    Was genau geht hier nicht?
    Wo steht dieser Aufruf?


    Ich will von einem Usercontrol (uc_settings) die public Sub (settingsload) aufrufen (von der Hauptform aus).
    uc_settings.settingsload()

    mir kommt allerdings der Fehler -> Fehler: "settingsload" ist kein Member von "Mobile_devices_vb.uc_settings".

    MG6007 schrieb:

    Habe es nach diesem tutorial gemacht, das hilft vielleicht weiter! Ist eigentlich genau so übernommen worden.


    Ich hab aber nach Deinem Code gefragt, nicht nach dem Code, den Du abgekupfert hast.

    Der Fehlermeldung nach zu urteilen, ist settingsload nicht als Member in Deinem UserControl enthalten.
    Die Unendlichkeit ist weit. Vor allem gegen Ende. ?(
    Manche Menschen sind gar nicht dumm. Sie haben nur Pech beim Denken. 8o

    Edit by ErfinderDesRades: unnötiges Vollzitat entfernt

    Code von der Hauptform

    VB.NET-Quellcode

    1. #Region "Navigation"
    3. Public Enum content
    4. main = 0
    5. settings = 1
    6. End Enum
    7. Dim myUC As UserControl
    8. Sub changeUC(ByVal content As Object)
    9. changeContent(content)
    10. End Sub
    11. Sub changeContent(ByVal content As content)
    12. If Not myUC Is Nothing Then ' wenn nicht myUC Nichts
    13. Select Case myUC.Name
    14. Case "uc_main" ' wenn myUC.Name = "uc_main"
    15. RemoveHandler uc_main.changeUC, AddressOf changeUC ' lösche den Handler von uc_main auf changeUC
    16. End Select
    17. End If
    19. Select Case content
    20. Case Mainfrm.content.main ' wenn content = content.main
    21. myUC = New uc_main ' erstelle neues UserControl von uc_about
    22. myUC.Name = "uc_main" ' setze Namen
    23. AddHandler uc_main.changeUC, AddressOf changeUC ' erstelle Handler changeUC
    25. Case Mainfrm.content.settings ' wenn content = content.about
    26. myUC = New uc_settings ' erstelle neues UserControl von uc_about
    27. myUC.Name = "uc_settings" ' Namen setzen
    29. End Select
    31. ContentP.Controls.Clear() ' mainContent ist das Panel
    32. If myUC IsNot Nothing Then
    33. myUC.Dock = DockStyle.Fill ' fülle das Panel mit dem UserControl aus
    34. ContentP.Controls.Add(myUC) ' füge myUC dem mainContent hinzu
    35. End If
    36. End Sub
    38. #End Region
    41. Private Sub Mainfrm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    42. changeContent(Mainfrm.content.main)
    43. uc_settings.loadsettings()
    44. End Sub


    Code im User Control uc_settings

    VB.NET-Quellcode

    1. Public Class uc_settings
    3. Public Sub loadsettings()
    4. MsgBox("Die Funktion wurde aufgerufen!")
    5. End Sub
    7. End Class


    Danke für die Hilfe

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

    Setz mal auf

    VB.NET-Quellcode

    1. changeContent(Mainfrm.content.main)
    einen Haltepunkt und überprüfe, ob es so abläuft, wie Du glaubst, dass es laufen sollte.
    Was sagt Dein Code zu Option Strict On :?:
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Huhu,

    der Grund, warum es nicht lauft, ist weil Du keine Instanz Deines uc_settings hast. Du greifst nicht auf eine Variable, sondern auf die Klasse zu. Verstehst Du, was ich meine? Es wird nirgendwo ein Objekt des Typs uc_settings erzeugt.
    Die Unendlichkeit ist weit. Vor allem gegen Ende. ?(
    Manche Menschen sind gar nicht dumm. Sie haben nur Pech beim Denken. 8o

    Ein UserControl ist allerdings ein GUI-Element, das nach dem Kompilieren einfach auf die Form gezogen werden kann und dann da ist.
    Das WithEvents hat mit settingsload nix zu tun, denn es ist eine schnöde Prozedur.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    RodFromGermany schrieb:

    Ein UserControl ist allerdings ein GUI-Element, das nach dem Kompilieren einfach auf die Form gezogen werden kann und dann da ist.
    Das WithEvents hat mit settingsload nix zu tun, denn es ist eine schnöde Prozedur.

    Wie wäre denn die "schönere Methode" davon?

    Und noch eine frage, ich habe in der Settingsload-Sub folgenden Code (als Beispiel)

    label1.text = "test",

    Aber das label zeigt trotzdem den gleichen Wert wie vorhin an, aber wenn man die Eigenschaft mit z.B

    msgbox(label1.text) abfragt, erscheint der Wert "test", habt ihr eine Idee an was das liegen könnte?

    MG6007 schrieb:

    Wie wäre denn die "schönere Methode" davon?
    Im Designer anlegen, da musst Du Dich um nix kümmern.
    Bei dem Label1 hast Du wahrscheinlich einen systematischen Fehler. Da müsstest Du mal den Code zeigen.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

Facebook
Telefonspende