| |
VB.NET - Ein- und UmsteigerLinklabel in Listbox | | | Autor: Marty** | Datum: 25.02.18 21:13 |
| Hallo,
ich hätte gerne die einzelnen Zeilen als Linklabel.
Hier mal mein Code
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
System.EventArgs) Handles Button1.Click
ListBox1.Items.Clear()
Dim sum, n As Int64
sum = TextBox2.Text
Do
n += 1
sum += 1
ListBox1.Items.Add("URL" & sum)
If n = TextBox1.Text Then
Exit Do
End If
Loop
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles _
Button2.Click
Clipboard.SetText(Me.ListBox1.SelectedItem)
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles _
Button3.Click
ListBox1.Items.Clear()
End Sub
End Class Schönen Abend noch ... | |
Re: Linklabel in Listbox | | | Autor: Manfred X | Datum: 26.02.18 18:17 |
| Hallo!
So etwas?
Dim WithEvents Links As New ListBox With {.Parent = Me}
Dim linklist As New List(Of LinkLabel)
Private Sub Form1_Load(sender As System.Object, _
e As System.EventArgs) Handles MyBase.Load
'Einige Links
linklist.Add(New LinkLabel With {.Text = "www.vbarchiv.net"})
linklist.Add(New LinkLabel With {.Text = "www.startpage.com"})
linklist.Add(New LinkLabel With {.Text = "www.firefox.com"})
'Datenbindung der Liste
Links.DisplayMember = "Text"
Links.DataSource = linklist
End Sub
Private Sub Links_SelectedIndexChanged(sender As Object, e As EventArgs) _
Handles Links.SelectedIndexChanged
Dim ind As Integer = Links.SelectedIndex
If ind < 0 then Exit Sub
Dim ll As LinkLabel = DirectCast(Links.Items(ind), LinkLabel)
System.Diagnostics.Process.Start(ll.Text)
End Sub
Beitrag wurde zuletzt am 26.02.18 um 18:27:54 editiert. | |
Re: Linklabel in Listbox | | | Autor: Marty** | Datum: 26.02.18 20:51 |
| Hi,
genau das was ich mir vorgestellt habe.
Links die ich klicken kann in einer Listbox.
Nur wie bringe ich meine erzeugten Links rein ?
Textbox1 = Anzahl der wiederholungen
Textbox2 = Zahl von der hochgezählt wird
MfG | |
Re: Linklabel in Listbox | | | Autor: Manfred X | Datum: 26.02.18 21:07 |
| [I]Textbox1 = Anzahl der wiederholungen
Textbox2 = Zahl von der hochgezählt wird[/I]
Die Bedeutung / Verarbeitung dieser Textboxen
verstehe ich leider nicht.
Was der oben gepostete Code leisten soll, mußt Du
näher erläutern.
[I]Wie bringe ich meine erzeugten Links rein ?[/I]
Falls Du unter "erzeugten Links" jeweils eine Instanz
des Linklabel-Controls meinst, kannst Du es - wie gezeigt -
in der "Linklist" per Add-Methode anhängen.
Wenn Du die Link-Adresse direkt in eine Textbox eingibst,
reicht eine List(Of String), an die Du den Textbox.Text
anhängen kannst.
Falls Du für den Textbox-Eintrag ein Linklabel-Control benötigst,
wird eine Instanz - wie gezeigt - mit New erstellt und deren Text-
Eigenschaft mit Textbox.Text belegt. | |
Re: Linklabel in Listbox | | | Autor: Marty** | Datum: 27.02.18 17:19 |
| Hallo,
da ich nicht genau weis wie ich es erklären soll. Hier ein Bild von der Form.
https://picload.org/view/daaocgiw/test.jpg.html
Nur das die Links eben klickbar sein sollen, wie in deinem Beispiel.
Beitrag wurde zuletzt am 27.02.18 um 17:20:06 editiert. | |
Re: Linklabel in Listbox | | | Autor: Marty** | Datum: 27.02.18 19:23 |
| Selber hinbekommen mit:
Private Sub ListBox1_DoubleClick(sender As Object, e As EventArgs) Handles _
ListBox1.DoubleClick
Process.Start(ListBox1.SelectedItem.ToString)
End Sub | |
Re: Linklabel in Listbox | | | Autor: Marty** | Datum: 27.02.18 21:26 |
| Folgendes Problem habe ich noch.
Wie kann ich den erzeugten Link überprüfen ob er vorhanden ist ?
Ist der Link nicht verfügbar kommt die Meldung: Es gab keinen Treffer zu
anders wird die Seite geladen.
Gibt es eine Möglichkeit die vorhandenen Links grün einzufärben, und die nicht verfügbaren rot ?
MfG | |
Re: Linklabel in Listbox | | | Autor: Marty** | Datum: 28.02.18 05:16 |
| Hi,
ich glaube ich habe mich falsch ausgedrückt. Es geht mir nicht um die Verfügbarkeit, sonder um das Ergebnis des URL. Eine Seite Kommt ja immer. Nur eben einmal mit (Es gab keine Treffer zu) und einmal mit dem Ergebnis.
Wie kann ich da unterscheiden ? | |
Re: Linklabel in Listbox | | | Autor: Franki | Datum: 02.03.18 02:52 |
| Hallo,
wie bzw. worüber werden deine Seitenanfragen denn aufgerufen? "Es gab keine Treffer zu" ist ja nicht grade eine übliche Antwort eines Browsers. Treffer bedeutet eigentlich, dass es sich um die Antwort einer Suchmaschine handelt auf die du die Adresse los schickst.
Wenn dem so ist musst du halt die Ergebnisseite auswerten (die kommt ja bei dir immer) und dann auf die Fehlermeldung parsen.
Aber das kann auch schief gehen, wenn die User deiner Anwendung andere Browser bzw. andere Einstellungen haben. Besser ist es ohne den Browser des Users zu prüfen, ob die URL wirklich erreichbar ist oder nicht. Das sollte der Tipp von ManfredX eigentlich liefern.
Gruß
Frank | |
| Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.
Einloggen | Neu registrieren |
|
|
vb@rchiv CD Vol.6 vb@rchiv Vol.6
Geballtes Wissen aus mehr als 8 Jahren vb@rchiv!
Online-Update-Funktion Entwickler-Vollversionen u.v.m.Jetzt zugreifen Tipp des Monats sevAniGif (VB/VBA)
Anzeigen von animierten GIF-Dateien
Ab sofort lassen sich auch unter VB6 und VBA (Access ab Version 2000) animierte GIF-Grafiken anzeigen und abspielen, die entweder lokal auf dem System oder auf einem Webserver gespeichert sind. Weitere Infos
|
|
|
Copyright ©2000-2024 vb@rchiv Dieter Otter Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.
Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel
|
|