Hallöchen,
Ich muss zugeben ich bin nicht der Pro in Programmieren, ich lerne es gerade in einer Ausbildung. Leider beschränken sich meine bisherigen Erfahrungen auf c#, c++, php, und bissel Java. Nunja in der Schule wird alles per Express in den Kopf geballert.
Nun bin ich aber Im Praktikum und Versuche grade eine Aufgabe zu lösen der Anfang ist getan doch jetzt fehlt mir das Verständniss für VB.
Das Problem ist ich habe eine Form (ich nenne sie hier mal Form1), in dieser Verschiedenste Steuerelemente. Wenn ich nun eine von mir Festgelegt Tastenkombi drücke (in meinem Fall ALT+F9) öffnet sich eine neue Form (ich nenne sie mal Form2) in dieser befindet sich nur eine Listview welche mir sämtliche Steuerelemente der Form1 Aufgelistet werden.
Nun soll wenn ich eines dieser Steuerlemente Doppelclicke, genau dieses Element in der Form1 Hervorgehoben Werden. Beispielsweise mit einem Roten Rand drumherum.
Das habe ich bereits und es läuft aber ich bekomme den highlight nicht hin.
Würde mich freuen über Tips und Lösungsansätze.
In diesem Sinne
Opelig
Ich muss zugeben ich bin nicht der Pro in Programmieren, ich lerne es gerade in einer Ausbildung. Leider beschränken sich meine bisherigen Erfahrungen auf c#, c++, php, und bissel Java. Nunja in der Schule wird alles per Express in den Kopf geballert.
Nun bin ich aber Im Praktikum und Versuche grade eine Aufgabe zu lösen der Anfang ist getan doch jetzt fehlt mir das Verständniss für VB.
Das Problem ist ich habe eine Form (ich nenne sie hier mal Form1), in dieser Verschiedenste Steuerelemente. Wenn ich nun eine von mir Festgelegt Tastenkombi drücke (in meinem Fall ALT+F9) öffnet sich eine neue Form (ich nenne sie mal Form2) in dieser befindet sich nur eine Listview welche mir sämtliche Steuerelemente der Form1 Aufgelistet werden.
Nun soll wenn ich eines dieser Steuerlemente Doppelclicke, genau dieses Element in der Form1 Hervorgehoben Werden. Beispielsweise mit einem Roten Rand drumherum.
Das habe ich bereits und es läuft aber ich bekomme den highlight nicht hin.
VB.NET-Quellcode
- Public Class frm1 Private Sub frm1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
- DoToAllControls(frm1)
- highlight(frm1)
- End Sub
- Private Sub DoToAllControls(ByVal m_Control As Control) 'festlegung der aufzählung der ControllsFor Each ctrl As Control In m_Control.Controls
- If ctrl.Controls.Count > 0 Then
- DoToAllControls(ctrl)
- End If
- If ctrl.GetType().Equals(GetType(ToolStrip)) Then 'wenn das Controll ein Toolstrip ist
- For Each item As ToolStripItem In DirectCast(ctrl, ToolStrip).Items 'wird per Cast das jeweilige
- LV1.Items.Add(item.Name) 'Item ausgewählt und gelistet
- Next
- End If
- LV1.Items.Add(ctrl.Name)
- Next
- End SubPrivate Sub highlight(ByVal frm1 As frm1)
- Dim index As Integer = -1
- If LV1.SelectedIndices.Count > 0 Then
- index = LV1.SelectedIndices(0)
- End IfEnd Sub
Würde mich freuen über Tips und Lösungsansätze.
In diesem Sinne
Opelig