Discussion :

[bart64]

Bonjour,

Est-il possible d'obtenir un objet à partir de son nom ?
Je m'explique :

Dans une winform, j'ai des menuItems (par exemple menuItem1).

Et je voudrais qu'à partir d'une string qui contient menuItem1, j'accède vraiment à cet objet. Un peu comme ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Dim SmenuItem As String = "menuItem1"
CType(SmenuItem, menuItem).Visible = False

Mais bien sûr, ca ne fonctionne pas.
Avez-vous une idée ?

Je vois cette solution mais je voudrais éviter la boucle qui prendrait trop de temps (et surtout connaitre une vraie solution) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
        Private Function CObj(ByVal Name As String) As Object
 
        Dim frm As Form, Ctrl As Control
 
        For Each frm In Forms
            If frm.Name = Name Then
               Set CObj = frm
                Exit Function
            End If
            For Each Ctrl In frm.Controls
                If Ctrl.Name = Name Then
                  Set CObj = Ctrl
                    Exit Function
                End If
            Next Ctrl
        Next frm
 
    End Function

Edit : cette solution ne fonctionne pas.

Merci d'avance.

[bossun]

peut-etre ça pourrait t'aider...

http://emerica.developpez.com/dotnet...uction/csharp/

[Tnopy]

Il suffit de faire un dictionnaire qui contiens tes objets avec comme clé ta chaine string.

du coup tu pourra faire : monDictionnaire(maChaineDeCaractere).maMethode

[Capitaine Kirk]

Bonjour

je ne sais pas si j'ai tout capter bart64 mais je te propose ce code qui rend inaccessible (grisé) le sous menu Nouveau du menu Fichier code que tu retrouvera dans la pièce jointe.

Code VB :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Imports System.Windows.Forms
Imports System
Public Class Form1
 
    Private Sub Form1_Load(ByVal sender As System.Object, _
                            ByVal e As System.EventArgs) Handles MyBase.Load
        Dim TstripD As ToolStripMenuItem
        TstripD = CType(Me.MenuStrip1.Items(0), ToolStripMenuItem)
        TstripD.DropDownItems.Item(0).Enabled = False
    End Sub
End Class

Capitaine Kirk.