Hi,
ich bin mal wieder ein wenig dabei mittels VB etwas zu basteln.
Ich möchte auf einer Form dynamische Buttons erstellen.
Die Anzahl der Buttons richtet sich nach dem Inhalt einer bestimmten Textdatei, deren Zeilen einen UNC-Pfad widerspiegeln.
Das Erstellen der Buttons klappt mittlerweile super:
[code]
PrivateSub dyn_buttons()
Dim StmReader = File.OpenText(sLinks)
Dim strline
Dim i AsInteger = 1
While (StmReader.Peek() <> -1)
strline = StmReader.ReadLine()
Dim Btn AsNew Button
With Btn
.Name = String.Format("btn{0}", i)
.Text = strline
.Tag = 999
.Top = 200 * i / 5
.Left = 20
.Width = 200
.Height = 30
EndWith
i += 1
TabPage4.Controls.Add(Btn)
EndWhile
StmReader.Close()
EndSub
[/code]
Wie weiter oben beschrieben, stehen in der Textdatei Zeilen, die aus einem UNC-Pfad (like [url='file://server/freigabe/abc.htm']\\server\freigabe\abc.htm[/url]) bestehen.
Nun mein Problem, was ich auch nach längerer Suche nicht lösen konnte:
Wie kann ich den dynamischen Buttons ein Klick-Event zuweisen? Der Anwender soll später durch klicken auf den Button zum UNC-Pfad geführt werden (in diesem Fall soll sich der IE mit der abc.html-Seite öffnen).
(Bei 'normal' erstellen Buttons füge ich folgenden Inhalt ein:
[code]
Shell("C:\WINDOWS\explorer.exe \\server\freigabe\abc.htm")
[/code]
Wie ich die Textzeile in deren Bestandteile zerlege - weiß ich (für die Benennung). Ist nur noch nicht Bestandteil.
Bitte um Hilfe.
Viiiilen Dank.
ich bin mal wieder ein wenig dabei mittels VB etwas zu basteln.
Ich möchte auf einer Form dynamische Buttons erstellen.
Die Anzahl der Buttons richtet sich nach dem Inhalt einer bestimmten Textdatei, deren Zeilen einen UNC-Pfad widerspiegeln.
Das Erstellen der Buttons klappt mittlerweile super:
[code]
PrivateSub dyn_buttons()
Dim StmReader = File.OpenText(sLinks)
Dim strline
Dim i AsInteger = 1
While (StmReader.Peek() <> -1)
strline = StmReader.ReadLine()
Dim Btn AsNew Button
With Btn
.Name = String.Format("btn{0}", i)
.Text = strline
.Tag = 999
.Top = 200 * i / 5
.Left = 20
.Width = 200
.Height = 30
EndWith
i += 1
TabPage4.Controls.Add(Btn)
EndWhile
StmReader.Close()
EndSub
[/code]
Wie weiter oben beschrieben, stehen in der Textdatei Zeilen, die aus einem UNC-Pfad (like [url='file://server/freigabe/abc.htm']\\server\freigabe\abc.htm[/url]) bestehen.
Nun mein Problem, was ich auch nach längerer Suche nicht lösen konnte:
Wie kann ich den dynamischen Buttons ein Klick-Event zuweisen? Der Anwender soll später durch klicken auf den Button zum UNC-Pfad geführt werden (in diesem Fall soll sich der IE mit der abc.html-Seite öffnen).
(Bei 'normal' erstellen Buttons füge ich folgenden Inhalt ein:
[code]
Shell("C:\WINDOWS\explorer.exe \\server\freigabe\abc.htm")
[/code]
Wie ich die Textzeile in deren Bestandteile zerlege - weiß ich (für die Benennung). Ist nur noch nicht Bestandteil.
Bitte um Hilfe.
Viiiilen Dank.
so far...
Wumpel
...manchmal ist es einfacher als man denkt...
Wumpel
...manchmal ist es einfacher als man denkt...