Smartere måde at vælge tabctrl på

du kan lave noget reflection

string s = "faktura";

            foreach (FieldInfo fi in this.GetType().GetFields())
            {
                if (fi.FieldType == typeof(TabControl))
                {
                    if (fi.Name == "TabCtrl_"+ s)
                        ((TabControl)fi.GetValue(this)).Visible = true;
                    else
                        ((TabControl)fi.GetValue(this)).Visible = false;
                }
            }

Den kommer du vist til at forklare lidt nærmere... (Det er ikke flere faneblade i samme tabctrl, men flere tabctrl) - Hvordan ved din kodestump, hvad de forskellige tabctrls hedder... (Skal jo sætte Visible=FALSE, på alle andre end det navn funktionen kaldes med)

Kan du evt. omskrive min funktion, så den passe med din kodestump? - Jeg fatter ikke lige det kode...

min kode er i c#, så du er nok lovlig undskyldt hvis du ikke forstår den ;)

Ang. hvordan koden kan se hvad de enkelte tabcontrols hedder, så ligger det i Name-propertien på et FieldInfo-object (fi.Name).

Det koden gør er egentlig at slavisk gå igennem alle dine tabcontrol-variabler og tjekke på deres navn og visibility.

Hvis det skal omkskrives til din function, så vil det blive følgende (stadigvæk i c#)

public void TabCtrl(string TabSelect) {
    foreach (FieldInfo fi in this.GetType().GetFields())
            {
                if (fi.FieldType == typeof(TabControl))
                {
                    if (fi.Name == "TabCtrl_"+ TabSelect)
                        ((TabControl)fi.GetValue(this)).Visible = true;
                    else
                        ((TabControl)fi.GetValue(this)).Visible = false;
                }
            }
}

C# kan da ikke umiddelbart inkluderes i VB.NET - kan det?

nej, men det er forholdsvis nemt at oversættes...

Public  Sub TabCtrl(ByVal TabSelect As String)
    Dim fi As FieldInfo
    For Each fi In Me.GetType().GetFields()
                If fi.FieldType = Type.GetType(TabControl) Then
                    If fi.Name = "TabCtrl_"+ TabSelect Then
                        (CType(fi.GetValue(Me), TabControl)).Visible = True
                    Else
                        (CType(fi.GetValue(Me), TabControl)).Visible = False
                    End If
                End If
    Next
End Sub

'----------------------------------------------------------------
' Converted from C# to VB .NET using CSharpToVBConverter(1.2).
' Developed by: Kamal Patel (http://www.KamalPatel.net)
'----------------------------------------------------------------

Dim fi As FieldInfo:

d:\dokumenter\Visual Studio Projects\WindowsApplication1\Lagerstyring.vb(567): Type 'FieldInfo' is not defined.

(CType(fi.GetValue(Me), TabControl)).Visible = True:

d:\dokumenter\Visual Studio Projects\WindowsApplication1\Lagerstyring.vb(571): Syntax error.

Og en nærmere forklaring, punkt for punkt til koden (for forståelsens skyld) ville heller ikke være dårligt...

Public  Sub TabCtrl(ByVal TabSelect As String)
    ' FieldInfo er en klasse der repræsenterer et field i din klasse.
    ' Dvs. en variabel der har et globalt scope for hele klassen
    Dim fi As FieldInfo
   
    ' Dernæst løber vi igennem alle fields der findes i den type klasse som vi står i nu.
    ' Bemærk at der er forskel på klassen og så en instans af klassen
    For Each fi In Me.GetType().GetFields()

                ' Vi spørger om typen af det field vi har fundet svarer til typen af en TabControl
                If fi.FieldType = Type.GetType(TabControl) Then

                  ' Dernæst spørger vi om navnet på fieldet svarer til det ønskede navn (f.eks. TabCtrl_Soeg)
                    If fi.Name = "TabCtrl_"+ TabSelect Then

                        ' I så fald hiver vi fat i værdien for dette field i denne instans af klassen som vi står i,
                        ' og sætter den fundne TabControl til visible
                        (CType(fi.GetValue(Me), TabControl)).Visible = True
                    Else

                        ' Hvis ikke navnet matchede, så skal TabControllen sættes til invisible
                        (CType(fi.GetValue(Me), TabControl)).Visible = False
                    End If
                End If
    Next
End Sub


Ang. at FieldInfo ikke er defineret, så prøv at importer System.Reflection-namespacet

SVAR?

ok