|
| Autor |
Nachricht |
serious_
Tutorial Leser
Anmeldedatum: 18.07.2007
Beiträge: 37
Wohnort: NRW
|
Ref Generator
Verfasst am: 02.11.2007, 12:30 |
|
|
Hallo,
ich würde gerne wissen, wie ich in der TextBox1 den Ref Link überall vorsetzen
kann?
Also pro Zeile ein Link der die Ref Adresse davor bekommt.
Außerdem würde ich gerne einen Clear Button einfügen nur weiß ich leider den Befehl nicht um den Inhalt der TextBox1 zu löschen.
Und ganz schön wäre es noch, wenn ich eine Symbolleiste ins Textfeld kriege,
damit auch mehr Links besser angezeigt werden.
Danke |
|
| |
|
 |
ChEeTaH_
Tutorial Leser
Anmeldedatum: 01.07.2007
Beiträge: 67
|
Verfasst am: 02.11.2007, 14:23 |
|
|
also die Textbox löschst du mit TExt1.TExt = ""
aber was meinst du mit versetzen? Tab davor, dass es eingerückt ist? |
|
| |
|
|
Marduk_
« Moderator »
Anmeldedatum: 17.06.2007
Beiträge: 389
|
Verfasst am: 02.11.2007, 15:21 |
|
|
Um die Ref Links vor die eigentlichen Links zu bekommen kannst du folgendes machen
| Code: | Dim content() as Array = Text1.Lines
|
Damit ist jede Zeile in einem eigenen Feld es Arrays gepeichert. Jetzt noch per Schleife die einzelnen Einträge verändern
| Code: | for i as integer = 0 to Text1.Lines.Count -1
content(i) = "RefLink" & content(i)
next |
Wenn du mit der Symbolleiste die Scrollbalken meinst, solltest du mal in den Eigenschaften deiner Textbox gucken, da sollte irgendwas mit Scroll drinstehen, da kann man einstellen welche angezeigt werden sollen
was ich grade sehe. Die Variable Ende solltest du als public deklarieren. Und die If Abfrage ist auch nicht so ganz korrekt. Sollte so sein
| Code: | If Ende = true then
Close()
endif
|
|
|
| |
|
|
serious_
Tutorial Leser
Anmeldedatum: 18.07.2007
Beiträge: 37
Wohnort: NRW
|
Verfasst am: 02.11.2007, 15:47 |
|
|
| Zitat: | | also die Textbox löschst du mit TExt1.TExt = "" |
Ah Thx ich denke mal wieder zu kompliziert.
@ Marduk
Danke habe es mal umgesetzt, jedoch erhalte ich 2 Fehlermeldungen die ich irgendwie nicht verstehe. Ich bin der Meinung das es so richtig ist, aber muss ja irgednwas falsch sein...
Hier mal ein Screen:
| Code: | Public Class Form1
Dim Ende As Boolean
Dim content() As Array = Text1.Lines
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If Ende Then Close()
For i As Integer = 0 To Text1.Lines.Count - 1
content(i) = "http://via.stealth.to/?" & content(i)
Next
Button1.Text = "Beenden"
If Button1.Text = "Beenden" Then Ende = True
End Sub
End Class |
|
|
| |
|
|
Marduk_
« Moderator »
Anmeldedatum: 17.06.2007
Beiträge: 389
|
Verfasst am: 02.11.2007, 15:54 |
|
|
Anscheinend heisst deine Textbox nicht Text1 sondern Textbox1 
Zum anderen, deklariere dir noch ein Array, da man anscheinend nicht mit den Operatoren &,+ arbeiten kannm bei Arrays.
| Code: | dim content() as array = Textbox1.Lines
dim ausgabe() as array
'dann in der Schleife
for i as integer ...
ausgabe(i) = "RefLink" & content(i)
next |
|
|
| |
|
|
serious_
Tutorial Leser
Anmeldedatum: 18.07.2007
Beiträge: 37
Wohnort: NRW
|
Verfasst am: 02.11.2007, 16:20 |
|
|
| Zitat: | | Anscheinend heisst deine Textbox nicht Text1 sondern Textbox1 |
Hatte ich Anfangs auch geändert, aber dann war es immer noch unterkringelt und der Fehler war glaube gleich, dann habe ich gedacht, das es woanders mit zu tun hat. Mit Arrys habe ich nämlich noch nicht gearbeitet.
Habe es jetzt geändert aber kommen immer noch Fehler:
 
EDIT:
Habe gerade dein edit gesehn:
| Zitat: | | was ich grade sehe.... |
Hab das schon getestet so geht es aber auch wie ich es da habe 
Hab es trotzdem mal wie bei dir geändert:
| Code: | If Ende = True Then
Close()
End If |
|
|
| |
|
|
Marduk_
« Moderator »
Anmeldedatum: 17.06.2007
Beiträge: 389
|
Verfasst am: 02.11.2007, 17:00 |
|
|
OK hab doch noch mal geguckt, es heisst
[vb:1:3eb79c2444]dim content as array = Textbox1.Lines ' Also ohne Klammern[/vb:1:3eb79c2444]
anstatt Textbox1.Lines.Count musst du Tetvox1.Lines.Lenght nehmen, mein Fehler
Und probier mal den RefLink in eine Variable zu speichern und dann das zu nehmen
[vb:1:3eb79c2444]ausgabe(i) = dievariable & content(i)..SyncRoot
' evtl content(i)..SyncRoot.tostring[/vb:1:3eb79c2444] |
|
| |
|
|
serious_
Tutorial Leser
Anmeldedatum: 18.07.2007
Beiträge: 37
Wohnort: NRW
|
Verfasst am: 02.11.2007, 17:29 |
|
|
Danke für deine Mühe.
Hab jetzt den Reflink in eine Variable gesetzt.
Nur leider ist er immer noch an meckern. (Hoffe habe es so richtig gemacht)
 |
|
| |
|
|
Marduk_
« Moderator »
Anmeldedatum: 17.06.2007
Beiträge: 389
|
Verfasst am: 02.11.2007, 18:00 |
|
|
Versuch mal eins von beiden zu nehmen
[vb:1:23dc886330] Dim y As Integer = TextBox1.Lines.Length
Dim f As Integer = content.Length[/vb:1:23dc886330]
Es ist das gleiche, nur halt anders geschrieben |
|
| |
|
|
serious_
Tutorial Leser
Anmeldedatum: 18.07.2007
Beiträge: 37
Wohnort: NRW
|
Verfasst am: 02.11.2007, 18:20 |
|
|
[vb:1:895283fc3b]Dim Ende As Boolean
Dim ausgabe() As Array
Dim reflink As String = "http://via.stealth.to/?"
Dim f As Integer = content.Length
Dim content As Array = TextBox1.Lines[/vb:1:895283fc3b]
Wusste nicht genau was du meinst also hab es mal einfach mal bei der Variablen Deklaration hinzugefügt.
Fehler bleibt aber erhalten egal bei welcher Variante... |
|
| |
|
|
Marduk_
« Moderator »
Anmeldedatum: 17.06.2007
Beiträge: 389
|
Verfasst am: 02.11.2007, 19:51 |
|
|
Und wenn du es direkt vor die Schleife machst?
Zum testen ob es geht kannst du einfach mal 5 eingeben und auch mal ein paar Links reinschreiben ums zu testen |
|
| |
|
|
serious_
Tutorial Leser
Anmeldedatum: 18.07.2007
Beiträge: 37
Wohnort: NRW
|
Verfasst am: 02.11.2007, 20:59 |
|
|
[vb:1:14a93eb1b1]Dim y As Integer = TextBox1.Lines.Length
For i As Integer = 0 To TextBox1.Lines.Lenght - 1
ausgabe(i) = reflink & content(i)
Next[/vb:1:14a93eb1b1]
So???
(Fehler bleibt)
EDIT:
Soviel weiß ich jetzt schonmal es war ein Schreibfehler:
[vb:1:14a93eb1b1]For i As Integer = 0 To TextBox1.Lines.Lenght - 1[/vb:1:14a93eb1b1]
Es musste aber Length heißen.
-> Fehler weg...
Jetzt will ich debuggen und dann kommt das:
  |
|
| |
|
|
Marduk_
« Moderator »
Anmeldedatum: 17.06.2007
Beiträge: 389
|
Verfasst am: 03.11.2007, 09:20 |
|
|
| Wenn so etwas kommt, kann sen, dass du Controls mal umbenannt, ihenen einen Code zugewiesen und sie dann sie nicht richtig gelöscht hast. Kommt bei mir öfters mal. Um den Fehler schnell zu bereinigen, solltest du ein neues Projekt starten und das ganze schnell nachbauen. Sollte ja recht schnell gehen, da du ja schon die Form und den Code hast. |
|
| |
|
|
serious_
Tutorial Leser
Anmeldedatum: 18.07.2007
Beiträge: 37
Wohnort: NRW
|
Verfasst am: 03.11.2007, 12:47 |
|
|
Hmm ich hab nur mal den Namespace geändert...
Hab mal chritt für Schritt debuggt. Hab ganz oben den Haltepunkt gesetzt und wo die Rote makierung ist kam der Fehler.
Da es jetzt kein unheimlich großes Projekt ist, kann ich es ja mal neu machen.
EDIT:
Hab es nochmal neu gemacht und Code wieder enstrechend reinkopiert, geht immer noch nicht. Was ist da nur falsch?
Edit2:
Das Problem liegt an: InitializeComponent
Es intialisiert die Komponenten und vorher hat die TextBox den Wert 0
Aber ich versuche mit der Variable:
| Code: | | Dim content As Array = TextBox1.Lines |
Schon vor InitializeComponent den Wert von TextBox1.Lines zuzuweisen.
So falle ich auf die Nase.
Jetzt habe ich es einmal so versucht:
| Code: | Public Class Form1
Dim Ende As Boolean
Dim ausgabe() As Array
Dim reflink As String = "http://via.stealth.to/?"
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim content As Array = TextBox1.Lines
If Ende = True Then
Close()
End If
For i As Integer = 0 To TextBox1.Lines.Length - 1
ausgabe(i) = reflink & content(i)
Next
Button1.Text = "Beenden"
If Button1.Text = "Beenden" Then Ende = True
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox1.Text = ""
End Sub
End Class |
Aber dann erhalte ich folgenden Fehler:
http://img3.imagebanana.com/img/hwtashw9/screen.PNG
Pls Help Thx  |
|
| |
|
|
serious_
Tutorial Leser
Anmeldedatum: 18.07.2007
Beiträge: 37
Wohnort: NRW
|
Verfasst am: 04.11.2007, 13:57 |
|
|
Sry ich bin wohl noch nicht soweit für so etwas...
Bin ja noch nichtmal im stande aus den Fehlermeldungen mir
gescheite Antworten bilden zu können.
Ich lass es mal bleiben...
Danke trotzdem. |
|
| |
|
|
Bahamut_
« Moderator »
Anmeldedatum: 12.12.2006
Beiträge: 250
|
Verfasst am: 04.11.2007, 16:48 |
|
|
| Code: |
Public Class Form1
Dim ausgabe As String
Dim reflink As String = "http://via.stealth.to/?"
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim content() As String = TextBox1.Lines
If Button1.Text = "Beenden" Then
Close()
End If
For i As Integer = 0 To TextBox1.Lines.Length - 1
ausgabe = ausgabe & reflink & content(i) & vbNewLine
Next
TextBox1.Text = ausgabe
Button1.Text = "Beenden"
End Sub
End Class
|
Gerade weil dus aufgeben willst hab ichs mir dann doch mal genauer angeschaut.
Is irgendwie nicht ganz perfekt, aber es geht schonmal. Du hast irgendwie Mist gebaut, z.b bei
Dim ausgabe() As Array
Naja () is ja schon n Array, blos wenn du dann noch as Array machst kannst schlecht nen String dadrin speichern, weil du ein Array für Arrays erstellt hast. (verwirrend ich weiß ^^)
Dim ausgabe() as String
Ist hingegen wegen den () ein Array und wegen dem as String halt für Strings.
Schaus dir einfach mal an, hab einiges verändert - frag mich ruhig was zu dem Code ^^
VB.Net-Compiler: http://www.microsoft.com/germany/express/download/default.aspx
VB.Net-eBook: http://www.galileocomputing.de/openbook/visual_basic/ |
|
| |
|
|
Marduk_
« Moderator »
Anmeldedatum: 17.06.2007
Beiträge: 389
|
Verfasst am: 04.11.2007, 18:11 |
|
|
wow den Unterschied hab ich vorher auch noch nicht gewusst 
Danke für die Info  |
|
| |
|
|
serious_
Tutorial Leser
Anmeldedatum: 18.07.2007
Beiträge: 37
Wohnort: NRW
|
Verfasst am: 04.11.2007, 18:38 |
|
|
Danke.
Hab den Code noch etwas angepasst:
| Code: | Public Class Form1
Dim ausgabe As String
Dim reflink As String = "http://via.stealth.to/?"
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim content() As String = TextBox1.Lines
If Button2.Text = "Beenden" Then
Close()
End If
For i As Integer = 0 To TextBox1.Lines.Length - 1
ausgabe = ausgabe & reflink & content(i) & vbNewLine
Next
TextBox1.Text = ausgabe
Button2.Text = "Beenden"
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox1.Text = ""
Button2.Text = "Generate"
End Sub
End Class |
Ist nicht mit Themidia gemacht liegt denke ich mal am Hintergrund.
Kleiner Fehler ist noch drin.
Wenn ich eingebe: http://google.de
Dann generiere und dann auf neu klicke.
Meinentwegen http://vb-x.org eingebe
eerneut auf Generate, zeigt er auch die
Generierung von http://google.de wieder an. |
|
| |
|
|
Registrieren
Login
