Moin!
in einer Funktion zur Abfrage eines INI-Parameters wird mir "plötzlich" folgende Meldung angezeigt:
Mein Code ist folgender:
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
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
- Public _Para As New EBL.WinWord.Parameter
- Private Declare Auto Function GetPrivateProfileString Lib "kernel32" (ByVal lpAppName As String,
- ByVal lpKeyName As String,
- ByVal lpDefault As String,
- ByVal lpReturnedString As StringBuilder,
- ByVal nSize As Integer,
- ByVal lpFileName As String) As Integer
- Private Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpSectionName As String,
- ByVal lpKeyName As String,
- ByVal lpString As String,
- ByVal lpFileName As String) As Long
- <DllImport("user32.dll", SetLastError:=True, CharSet:=CharSet.Auto)> _
- Private Shared Function FindWindow(ByVal lpClassName As String, ByVal lpWindowName As String) As IntPtr
- End Function
- <DllImport("user32.dll", CharSet:=CharSet.Ansi, SetLastError:=True, ExactSpelling:=True)>
- Public Shared Function SetForegroundWindow(ByVal hwnd As IntPtr) As <MarshalAs(UnmanagedType.Bool)> Boolean
- End Function
- ....
- <Global.System.Diagnostics.DebuggerStepThroughAttribute()>
- Public Function ReadIniFileAsStringWithResult(Klasse As String, Key As String,
- Optional Vorgabe As String = "",
- Optional File As String = "X:\INI\EB_2003.ini",
- Optional Silent As Boolean = False) As Tuple(Of String, String)
- If Klasse.Length = 0 Then
- If Silent = False Then MessageBox.Show("Es ist keine 'Klasse' hinterlegt!" & vbCrLf & vbCrLf &
- "Funktion kann nicht vollständig durchgeführt werden!", "INI-Parameter lesen", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
- Return Tuple.Create("Es ist keine 'Klasse' hinterlegt!", Vorgabe)
- End If
- Dim sb As StringBuilder
- sb = New StringBuilder(500)
- res = GetPrivateProfileString(Klasse, Key, Vorgabe, sb, sb.Capacity, File)
- If sb.ToString.Length = 0 Then
- If Silent = False Then MessageBox.Show("Es ist kein 'Key' hinterlegt!" & vbCrLf & vbCrLf &
- "Funktion kann nicht vollständig durchgeführt werden!" & sb.ToString, "INI-Parameter lesen", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
- Return Tuple.Create("Es ist kein 'Key' hinterlegt!", Vorgabe)
- End If
- Return Tuple.Create("", sb.ToString)
- 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