Hallo Leute,
Ich möchte die Namen von Controls anhand einer Textliste laden.
Habe nun eine Textliste, die wie folgt aussieht:
1 | C_frm_Main.tsb_customers: Kunden
|
2 | C_frm_Main.mnu_InformationToolStripMenuItem: Information
|
3 | C_frm_Main.grb_logging: Fehlererkennung:
|
Soweit so gut.
Die Funktionen "GetDescritor" und "GetValue" geben mir nun den Namen des
Controls und dessen Text zurück.
Das funktioniert auch.
ABER:
Wie kann ich den Text nun zuweisen?
Habe es nun wie folgt probiert:
1 | Sub LoadControlText(ByRef oControl As Object, ByVal oForm As Form, Optional SubItem As Object = Nothing)
|
2 | Dim cntrl As Object
|
3 | For i = 0 To UBound(AppTexts)
|
4 | Dim actstring As String = AppTexts(i)
|
5 | Dim Descriptor As String = GetDescritor(actstring)
|
6 |
|
7 | If Mid(Descriptor, 1, 2) = "C_" Then 'Controltext
|
8 | Dim Value As String = GetValue(actstring)
|
9 | Descriptor = Mid(Descriptor, 3, Len(Descriptor) - 2)
|
10 | cntrl = Descriptor
|
11 | Try
|
12 | cntrl.text = Value
|
13 | Catch ex As Exception
|
14 | WriteErrorString("E20070", Descriptor & " -> " & ex.ToString)
|
15 | End Try
|
16 | End If
|
17 | Next i
|
18 | End Sub
|
Zum stehen komme ich nun bei:
cntrl.text = Value
Weil:"Der öffentliche Member text für den Typ String wurde nicht
gefunden."
Hätte auch schon probiert, cntrl als control zu deklarieren.
Dies scheitert aber drann, dass ich das Control nicht setzen kann, weil
"Descriptor" den Typ String hat :-/
Hat jemand eine Idee?