"System.Data.Res" ist "Friend" und in diesem Kontext nicht zugreifbar.

  • VB.NET

Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag () ist von RodFromGermany.

    "System.Data.Res" ist "Friend" und in diesem Kontext nicht zugreifbar.

    Moin!

    in einer Funktion zur Abfrage eines INI-Parameters wird mir "plötzlich" folgende Meldung angezeigt:

    "System.Data.Res" ist "Friend" und in diesem Kontext nicht zugreifbar.


    Mein Code ist folgender:

    VB.NET-Quellcode

    1. Public _Para As New EBL.WinWord.Parameter
    3. Private Declare Auto Function GetPrivateProfileString Lib "kernel32" (ByVal lpAppName As String,
    4. ByVal lpKeyName As String,
    5. ByVal lpDefault As String,
    6. ByVal lpReturnedString As StringBuilder,
    7. ByVal nSize As Integer,
    8. ByVal lpFileName As String) As Integer
    10. Private Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpSectionName As String,
    11. ByVal lpKeyName As String,
    12. ByVal lpString As String,
    13. ByVal lpFileName As String) As Long
    15. <DllImport("user32.dll", SetLastError:=True, CharSet:=CharSet.Auto)> _
    16. Private Shared Function FindWindow(ByVal lpClassName As String, ByVal lpWindowName As String) As IntPtr
    17. End Function
    18. <DllImport("user32.dll", CharSet:=CharSet.Ansi, SetLastError:=True, ExactSpelling:=True)>
    19. Public Shared Function SetForegroundWindow(ByVal hwnd As IntPtr) As <MarshalAs(UnmanagedType.Bool)> Boolean
    20. End Function
    22. ....
    24. <Global.System.Diagnostics.DebuggerStepThroughAttribute()>
    25. Public Function ReadIniFileAsStringWithResult(Klasse As String, Key As String,
    26. Optional Vorgabe As String = "",
    27. Optional File As String = "X:\INI\EB_2003.ini",
    28. Optional Silent As Boolean = False) As Tuple(Of String, String)
    30. If Klasse.Length = 0 Then
    31. If Silent = False Then MessageBox.Show("Es ist keine 'Klasse' hinterlegt!" & vbCrLf & vbCrLf &
    32. "Funktion kann nicht vollständig durchgeführt werden!", "INI-Parameter lesen", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
    33. Return Tuple.Create("Es ist keine 'Klasse' hinterlegt!", Vorgabe)
    34. End If
    36. Dim sb As StringBuilder
    37. sb = New StringBuilder(500)
    38. res = GetPrivateProfileString(Klasse, Key, Vorgabe, sb, sb.Capacity, File)
    39. If sb.ToString.Length = 0 Then
    40. If Silent = False Then MessageBox.Show("Es ist kein 'Key' hinterlegt!" & vbCrLf & vbCrLf &
    41. "Funktion kann nicht vollständig durchgeführt werden!" & sb.ToString, "INI-Parameter lesen", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
    43. Return Tuple.Create("Es ist kein 'Key' hinterlegt!", Vorgabe)
    45. End If
    47. Return Tuple.Create("", sb.ToString)
    48. End Function


    Ich kann mit der Meldung leider nichts anfangen.

    Es wird zwar eine Korrekturmöglichkeit angeboten - aber auch da weiß ich nicht weiter.



    Kann mir einer weiterhelfen?

    Gruß Jan

    Was ist denn res? Eine Variable von Dir? Der Compiler scheint es nicht als solche zu erkennen. Er geht davon aus, dass Du eine Variable aus einem System-Namespace meinst. Hast Du Dich verschrieben?
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    @jan99 Machst Du

    VB.NET-Quellcode

    1. Dim res = GetPrivateProfileString(Klasse, Key, Vorgabe, sb, sb.Capacity, File)
    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