Problem mit mehreren Formen Visual Basic Forum

Visual Basic Forum für VB6 und VB.NET Programmierer	Registrieren Login

Visual Basic Forum Foren-Übersicht -> [VB.NET] Fragen - Antworten

Autor
Nachricht

pasi2009
Newbie
Newbie

Anmeldedatum: 16.11.2009
Beiträge: 2

Problem mit mehreren Formen
Verfasst am: 27.11.2009, 18:37

Hallo ich habe das Problem ich habe eine Hauptform. Dort ist eine RichTextBox.
Von dort will ich die Urls aus einer html Datei extrahieren.

Dazu habe ich mir eine neue Form angelegt und dort den Code dafür rein geschrieben. Nur wenn ic dann auf meinen Button start klicke hängt sich das Programm auf und vb express zeigt auch keine Fehler an.

Hier mal mein Source:

Code:

Public Class Form8
Public frm_Form1 As New Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.Close()
End Sub
Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
If ListBox1.SelectedItem = MsgBox("Der Link:" & ListBox1.SelectedItem) Then
End If
End Sub

Private Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim mypos As Int64, mypos2 As Int64, searchstring As String
Dim searchchar As String, searchchar2 As String, ausgabe As String
Dim myposold As Int64

searchstring = frm_Form1.RichTextBox1.Text
searchchar = Chr(34)
searchchar2 = "href="

mypos = 1
mypos2 = 2

Do While mypos2 > mypos

ausgabe = Mid(searchstring, mypos + 1, mypos2 - mypos - 1)
mypos = InStr(mypos2, frm_Form1.RichTextBox1.Text, searchchar2, CompareMethod.Text) + Len(searchchar2)
If frm_Form1.RichTextBox1.Text <> "href=" Then
mypos2 = InStr(mypos + 9, searchstring, searchchar, CompareMethod.Text)
Else
MsgBox("Bitte laden sie eine Html Datei!", MsgBoxStyle.Critical, "Bitte laden sie eine Html Datei!")
End If

Label1.Text = CStr(mypos)
Label2.Text = CStr(mypos2)

If myposold > mypos2 Then

Exit Do
Else
ListBox1.Items.Add(ausgabe)
'Label3.Text = Conversion.Str(CInt(Label3.Text) + 1)
ProgressBar1.Maximum = +1
ProgressBar1.Value = +1

End If

myposold = mypos2

'Label1.Text = InStr(RichTextBox1.Text, "HREF=", CompareMethod.Text)
'Label2.Text = InStr(Mid(RichTextBox1.Text, CInt(Label1.Text) + 9), Chr(34), CompareMethod.Text)
'Label3.Text = Mid(RichTextBox1.Text, CInt(Label1.Text) + 6, CInt(Label2.Text) + 2)
Loop
End Sub
End Class

_________________

Visual Basic Forum Foren-Übersicht -> [VB.NET] Fragen - Antworten

Tags: mehreren, problem, hängt, formen, label2

Verwandte Themen Aufrufe Letzter Beitrag

Keine neuen Beiträge [suche] Tuturials winsock & daten senden 864 09.06.2011, 12:19

[Video] *.dll & *.ocx Installer 2420 06.03.2008, 20:19

ListView speichern & laden 1239 05.08.2008, 12:32

Registry & Co Fragen 1099 03.05.2007, 09:57

Keine neuen Beiträge Listbox speichern & laden 2044 22.03.2007, 20:25

RSS Grillen V
Sprüche
RSS Chinesische Behörden unterwerfen ganz Tibet einer rigiden Militärkontrolle
RSS Asoka Tempel
dealrabbit Gutscheine Sprüche

[ Time: 0.1359s ][ Queries: 83 (0.0284s) ][ GZIP on - Debug on ]