Visual Basic Forum

Verfasst am: 02.04.2012, 13:06 Aufrufe: 147

Value = "" Worksheets("Einzel_Nachweis").Cells(41, 1).Value = "" Worksheets("Einzel_Nachweis").Cells(41, 3).Value = "" en_zeileneintrag = en_zeileneintrag + 50 ' DoEvents aktualistiert den UserForm DoEvents Next zeile_meisterschaften_aktivitaet ende_tabelle_fahrten = Worksheets("Fahr ...

Verfasst am: 02.11.2011, 21:54 Aufrufe: 451

Navigate("www.pennergame.de") Me.Text = "Working..." Application.DoEvents() Do While WebBrowser1.ReadyState <> WebBrowserReadyState.Complete Application.DoEvents() Loop WebBrowser1.Refresh() Me.Text = "Seite wurde geladen" Me.Cursor = Cursors.Arrow ...

Verfasst am: 27.10.2011, 13:51 Aufrufe: 293

... ne andere form öffnet, auf der die aktuellen strom und spannungswerte angezeigt werden (damit man nicht immer auf das gerät schauen muss, sondern das ganz bequem am bildschirm ablesen kann). auf diese neue form habe ich nun meinen stop button gelegt mit dem gleichen code wie der stop button auf der alten form. wenn ich dort alelrdings auf stop drücke, tut sich überhaupt nichts. liegt das daran, dass das doevents ...

Verfasst am: 26.10.2011, 12:50 Aufrufe: 293

also falls sich jemand dafür interessiert: ich habs geschafft ihn auszutricksen Wink

hier der code: Public Declare Function GetTickCount Lib "kernel32" () As Long Public x As Long Public zeit() As Currency Public Sub Delay(nsekunden As Long) Dim TimeOut As Long TimeOut = (GetTickCount / 1000) + nsekunden Do DoEvents Loop Until TimeOut < (GetTickCount / 1000) End Sub x ...

Verfasst am: 25.10.2011, 13:02 Aufrufe: 293

... Modul Delay ' * ' ********************************************************* Option Explicit ' API Declaration Public Declare Function GetTickCount Lib "kernel32" () As Long Public Sub Delay(nSekunden As Long) Dim TimeOut As Long ' Abbruchbedingung für die Do Loop Schleife ermitteln TimeOut = (GetTickCount / 1000) + nSekunden Do ' Systemevents zulassen DoEvents ...

Verfasst am: 25.10.2011, 12:49 Aufrufe: 293

... 'ausgabe des geräts aktivieren Call Verzoegerung(Zeit(i)) 'für gewisse zeit warten Next Next im Variablen-Modul: (damit die variablen übersichtlich bleiben) Public VDauer As Currency Public VStart As Currency Public VZeit As Currency im Modul: Public Sub Verzoegerung() DoEvents ...

Verfasst am: 28.06.2011, 08:48 Aufrufe: 323

Hallo Christopher G., Ja, leider bringt DoEvents() hier auch nichts, habe die Funktion direkt vor den Open-Befehl des Excel-Objekts gesetzt - hat aber keine Auswirkung. Danke nochmals für Deine Hilfe, werde jetzt so etwas in der Art DEines Vorschlags machen.

Verfasst am: 27.06.2011, 20:47 Aufrufe: 323

Verfasst am: 27.06.2011, 08:42 Aufrufe: 323

hi ich denke nicht dass du einfach so in den ladevorgang eingreifen kannst die einzigen möglichkeiten die dir bleiben sind eben die progressbar mit einem timer füllen ( auf gut glück) oder screen.mousepointer = vbhourglass dass einfach eine sanduhr zu sehen ist wärend der wartezeit solltest du aber auf jeden fall doEvents verwenden da sonst wirklich der eindruck entsteht dass sich das prog aufge ...

Verfasst am: 02.06.2011, 22:21 Aufrufe: 447

Statt doEvents muss man hier application.doEvents nehmen, da das normale doEvents in vb.Net so nicht mehr Existiert Wink

Verfasst am: 31.05.2011, 14:44 Aufrufe: 447

hi ich kann zwar kaum vb.net aber so stark unterscheiden sich beide sprache ja doch nicht... probier mal ein do doEvents loop while WebBrowser1.Busy = True einzubauen... und zwar jedes mal bevor du die nächste seite aufrufen möchtest wenn dir das nicht reicht würde mir noch eine warteschleife in den sinn kommen system.threading.thread.sleep(5000) was halt unschön ist da ...

Verfasst am: 26.05.2011, 07:07 Aufrufe: 742

hi ich kann zwar kein vb.net und konsole schon gar nicht aber mein erster gedanke war do doEvents loop while getCh() = "" end vl bringt dir das was...

Verfasst am: 21.03.2011, 08:13 Aufrufe: 476

ganz einfach gehalten 'aufgerufen wird die ganz einfach mit Wait() oder Call Wait() Call Wait() 'jetzt ist hier der haltepunkt bis CPU.M(100,3) auf True Springt 'dann gehts weiter im Quelltext msgbox "CPU.M(100,3) = True", vbInformation, "MSGBOX" End Sub Private Sub Wait() 'eine Neue Prozedur do DoEvents 'dass das syst ...

Verfasst am: 14.03.2011, 10:02 Aufrufe: 476

hi loop while ist das stichwort Wink

do doEvents Loop While CPU.M(100,5) = False 'und dann textdateierstellen ich hoffe ich hab dein anliegen richtig verstanden lg

Verfasst am: 04.03.2011, 10:25 Aufrufe: 562

SendData "Anfrage" End Sub Sub Winsock1_DataArrival(ByVal bytesTotal As Long) Dim Daten As String Winsock1.GetData Daten Debug.print Daten End Sub Sub AufDatenWarten() Dim Tmp As Integer Do DoEvents Sleep 100 Loop Until Winsock1.State = sckConnected Or Winsock1.State = sckError Do DoEvents Sleep 100 Tmp ...

Verfasst am: 28.02.2011, 10:11 Aufrufe: 583

loginname.Value = "Name1" WebBrowser1.Document.Forms(0).loginpwd.Value = "Passwort1" On Error Resume Next WebBrowser1.Document.Forms(0).submit.Click do doEvents while webbrowser1.busy = True WebBrowser1.Navigate "http://www.schulterglatze.de/truppe/wache/teilnehmen" do doEvents while webbrowser1.busy = True WebBrowser1.Navigate "www.schulterglatze.de/logo ...

Verfasst am: 15.02.2011, 15:24 Aufrufe: 1086

lppxPrinterNotReady Message += " Drucker nicht bereit." Case LabelManager2.enumPausedReasonPrinting.lppxNoRibbon Message += " Kein Farbband." End Select Try Call MsgBox(Message) System.Windows.Forms.Application.DoEvents() If cancel Then refCancel = True Catch ex As Exception ...

Verfasst am: 16.01.2011, 10:19 Aufrufe: 583

hi das hast du ganz richtig verstanden... jetzt brauchst dass nur mehr zusammen setzen WebBrowser1.Navigate "www.google.de" do doEvents while webbrowser1.busy = True WebBrowser1.Navigate "www.youtube.com" oder du suchst nach dem delay modul und verwendest das lg

Verfasst am: 05.01.2011, 17:08 Aufrufe: 583

mit sleep hälst du das ganze programm an!!! probiers mit do doEvents while webbrowser1.busy = True lg

Verfasst am: 27.11.2010, 09:00 Aufrufe: 856

gerne doch die funktion ist spitze ich benütze sie dauernd wenns kürer sein soll dann einfach dim x as long do doevents x = x + 1 loop while x < 1000000

Verfasst am: 23.08.2010, 11:28 Aufrufe: 975

es hilft wenn du ein paar codezeilen zeigst... weiters kann ein "DoEvents" wunder wirken Wink

lg

Verfasst am: 04.08.2010, 08:38 Aufrufe: 1029

txt") For Input As #1 loop1: If EOF(1) = True Then Close #1: GoTo loop2 Input #1, i1 For a = 1 To 990628 If a = i1 Then s1(a) = s1(a) + 1 Me.Caption = a & "/" & i1 'Kontrolle DoEvents Next GoTo loop1 loop2: Open (AktuellerPfad + "Spalte_1-.txt") For Output As #1 For a = 1 To 990628 Print #1, a; " = &qu ...

Verfasst am: 15.02.2010, 15:56 Aufrufe: 409

Danke...hab es jetz mit dem einfachen wort DoEvents hinbekommen Smile

Verfasst am: 15.01.2010, 09:33 Aufrufe: 724

Hallo zusammen, habe eine kleine Software in Access geschrieben, die es ermöglichen soll, Daten einzulesen. Der Anschluss ist konfiguriert und Daten werden auch empfangen, jedoch schleichen sich während der Übertragung diverse Fehler ein: (Wenn ich die DoEvents Schleifen drin lasse wird auch meine Übertragung besser dh. weniger Fehler jedoch gehen dann Datenstücke verloren.) Private Sub Form_Load() ...

Verfasst am: 07.01.2010, 08:49 Aufrufe: 967

... nly = 0 'False RecordsetType = 1 'Dynaset RecordSource = "" Top = 7530 Visible = 0 'False Width = 3075 End und wird in der Form verwendet: dtcText.DatabaseName = App.path & Prj.tmpName & ".MDB" dtcText.RecordSource = GetTextSQLString DoEvents ...

Verfasst am: 23.12.2009, 01:24 Aufrufe: 445

Text & "&xxxxx=xxxx&xxxx=" & SeitenTicks) ListBox1.Items.Add("xxxx") Do Application.DoEvents() Loop Until WebBrowser1.ReadyState = WebBrowserReadyState.Complete Timer1.Enabled = True End If End If End Sub Wäre es nicht eventuell sinnvoller, da ...

Verfasst am: 21.12.2009, 16:04 Aufrufe: 445

Text & "&xxxxx=xxxx&xxxx=" & SeitenTicks) ListBox1.Items.Add("xxxx") Do Application.DoEvents() Loop Until WebBrowser1.ReadyState = WebBrowserReadyState.Complete Timer1.Enabled = True End If End If End Sub Nun suche ich folgendes, ich will das de ...

Verfasst am: 20.11.2009, 20:36 Aufrufe: 814

Mal davon abgeshen, dass eine "Delay-Funktion" in VB ja eigentlich nicht gibt, hab ich mir einfach selber ne simple gebaut. Option Explicit Public Declare Function GetTickCount Lib "kernel32" () As Long Public Sub Delay(nSekunden As Long) Dim TimeOut As Long TimeOut = (GetTickCount / 1000) + nSekunden Do DoEvents Loop Until TimeOut < (GetTic ...

Verfasst am: 17.08.2009, 16:56 Aufrufe: 843

Hallo, hab ein umfangreiches Programm geschrieben, welches sich nach einiger Zeit mit der Exception "Win32Exception wurde nicht behandelt" verabschiedet. Dabei wird im Debugger die Code-Zeile "Application.DoEvents" gelb unterlegt. Ich weiss das man mit DoEvents vorsichtig sein muss, aber in diesem Fall habe ich keine Ahnung warum es zu der Exception kommt. Hat jemand eine Idee wie man die ...

Verfasst am: 03.07.2009, 17:45 Aufrufe: 1089

... lt;br /> 'Hier beginnt die eigentlche Arbeit tempArray() = Split(SourceCode, Link) LinksEntfernen = tempArray(0) MsgBox tempString For i = 1 To UBound(tempArray) DoEvents ...

Verfasst am: 29.06.2009, 15:15 Aufrufe: 1372

Mit .NET brachte Microsoft den heiligen Gral des Mutlithreadings zu den VB Programmierern. Bis dahin mußten wir uns mit DoEvents vor UI Lockups bewahren, oder noch schlimmer Out Of Process ActiveX-Exen programmieren um diese zu verhinden. Programmieren mit Threads bringt jedoch neue Probleme mit sich wie Deadlocks, nicht mehr ansprechbare Controls da diese in einem anderen Thread laufen usw.Dieses kleine VB.NET 2005 ...

Verfasst am: 29.06.2009, 15:00 Aufrufe: 1099

Beschreibung:Dieses Snippet scant auf einem zu definierenden System eine angegebene UDP Portrange.Als Ergebnis wird zurückgeliefert, ob über den Port eine Verbindung hergestellt werden kann oder nicht.Auf einem Formular werden die n.g. Steruelemente zur Verfügung gestellt:1 Listview Steuerelement1 Command Button1 Backgroundworker1 ProgressbarDie Listview muss 3 Spaten enthalten, View sollte auf Details stehen.Funktio ...

Verfasst am: 29.06.2009, 14:59 Aufrufe: 1328

Beschreibung:Dieses Snippet scant auf einem zu definierenden System eine angegebene Portrange.Als Ergebnis wird zurückgeliefert, ob über den Port eine Verbindung hergestellt werden kann oder nicht.Auf einem Formular werden die n.g. Steruelemente zur Verfügung gestellt:1 Listview Steuerelement1 Command Button1 BackgroundworkerDie Listview muss 3 Spaten enthalten, View sollte auf Details stehen.Funktion:Visual Basic: Q ...

Verfasst am: 19.06.2009, 20:00 Aufrufe: 1800

Verfasst am: 18.06.2009, 12:01 Aufrufe: 668

Name: NewDoEventsFunktion: Führt DoEvents nur aus falls mit der Maus oder Tastatur etwas gedrückt wurde. Aber auch spätestens nach 100 Aufrufen. (Kann man ändern)Rückgabe: KeineBeschreibung:Das seltene Aufrufen, bzw. nur wenn es gebraucht wird, von DoEvents führt zu einer höheren Geschwindigkeit des Programmes.Benötigte Api:Visual Basic: [code]Private Declare Function GetInputState Lib "user32" () As Long[/code]Visua ...

Verfasst am: 15.06.2009, 12:35 Aufrufe: 2648

OpenTextFile("C:test.txt", ForReading, False) zCount = 0 'Schleife zum zählen Do Until tStream.AtEndOfStream tStream.SkipLine zCount = zCount + 1 DoEvents Loop tStream.Close(tStream.AtEndOfStream)Die Schleife läuft so lange, bis das Ende des Streams, der Datei erreicht ist.Hier gibt es noch die O ...

Verfasst am: 15.06.2009, 12:31 Aufrufe: 1392

Add , , iJetzt müsstet ihr ungefähr eine Zeit von 1,5Sekunden erreichen.Wie ihr seht, kann man auch bei einem so kleinen code einiges Verbessern.Um es dem Benutzer noch angenehmer zu machen, wäre eine Progressbar und ein DoEvents im Code mit einer Abfrage ob Abgebrochen wurde noch praktisch.Dadurch wird es zwar wieder langsamer, aber dem Benutzer wird so die Möglichkeit geboten etwas anderes in eurem Programm zu tun, ...

Verfasst am: 15.06.2009, 12:16 Aufrufe: 1917

... es = (LOF(1) - pos) + 1 buffer = Space(bytes) Get #1, pos, buffer AllComplete = True End If 'Daten senden ws.SendData (buffer) buffer = "" 'Warten bis der Teil gesendet wurde Do DoEvents ...

Verfasst am: 30.05.2009, 23:14 Aufrufe: 482

com/*****/****.aspx" Do Until wb.Busy = False DoEvents Loop wb.Document.Forms(0).

Verfasst am: 15.05.2009, 08:16 Aufrufe: 711

... ;Now, "hh:mm") & ".txt" On Error GoTo EndIt: With Inet1 .AccessType = icUseDefault .Protocol = icFTP .RemotePort = "21" .URL = txtname .UserName = txtuser .Password = txtpw a = PWFile b = PWFile .Execute , "PUT " & Localfile & " " & FTPFile End With Do While Inet1FTP.StillExecuting = True DoEvents ...

Verfasst am: 08.05.2009, 23:11 Aufrufe: 1102

Password = "*******" .Execute , "PUT " & Localfile & " " & Remotefile Do While Inet1.StillExecuting DoEvents Loop .Execute , "PUT " & Localfile2 & " " & Remotefile2 Do While Inet1.StillExecuting DoEvents Loop End With Inet1.

Verfasst am: 07.05.2009, 15:41 Aufrufe: 608

RemotePort = "21" .URL = "sldc.sl.funpic.de" .UserName = "sldc" .Password = "pw" .Execute , "PUT " & localfile & " " & remotefile Do While Inet1.StillExecuting = True DoEvents Loop With Inet2 .AccessType = icUseDefault .Protocol = icFTP .RemotePort = "21" .URL = "sldc.sl.funpic.de" ...

Verfasst am: 06.05.2009, 20:55 Aufrufe: 514

RemotePort = "21" .URL = "sldc.sl.funpic.de" .UserName = "sldc" .Password = "pw" .Execute , "PUT " & localfile & " " & remotefile Do While Inet1.StillExecuting = True DoEvents Loop Kill localfile End With End End Sub Eine leere cookies.txt wird geuppt !? wenn ich anstatt cookies signons2 mach, gehts oO mysteriös ...

Verfasst am: 01.05.2009, 19:33 Aufrufe: 625

RemotePort = "21" .URL = DATA_PARAMS(0) .UserName = DATA_PARAMS(1) .Password = DATA_PARAMS(2) a = "steam.txt" b = "steam.txt" .Execute , "PUT " & a & " " & b End With Do While Inet1.StillExecuting = True DoEvents Loop Kill LocalFile End End Sub inet is auf der form eine steam.txt wird erstelt aber n ...

Verfasst am: 10.04.2009, 19:02 Aufrufe: 823

GetFolder(arr(1)) For Each xxy In lala.SubFolders xst = xst & "#" & xxy Next If xst = "" Then xst = "fopa" End If Winsock1.SendData "alskd#" & xst & "#" DoEvents xst = "" For Each yzr In lala.Files xst = xst & yzr.Name & "#" Next ...

Verfasst am: 08.04.2009, 21:28 Aufrufe: 642

Verfasst am: 14.03.2009, 21:38 Aufrufe: 2474

... #XXX" Port = "XXX" Computer = Environ("Computername") Username = Environ("Username") End Sub Public Sub cmdConnect_Click() Internet.Close Internet.Connect Server, Port End Sub Public Sub cmdChannel_Click() Internet.SendData "JOIN " & Channel & vbCrLf End Sub Private Sub Form_Unload(Cancel As Integer) DoEvents ...

Verfasst am: 03.03.2009, 08:47 Aufrufe: 1155

ReadLine sourceall = sourceall & sourceline & break sourceline = newtstream.ReadLine sourceall = sourceall & sourceline & break append componentlist(i), sourceall, break End If DoEvents Loop newtstream.Close ...

Verfasst am: 26.02.2009, 15:40 Aufrufe: 2462

Verfasst am: 06.02.2009, 21:10 Aufrufe: 1270

... er is das ja nicht Option Explicit ' API Declaration Public Declare Function GetTickCount Lib "kernel32" () As Long Public Sub Delay(nSekunden As Long) 'ist für die wartezeit Dim TimeOut As Long ' Abbruchbedingung für die Do Loop Schleife ermitteln TimeOut = (GetTickCount / 1000) + nSekunden Do ' Systemevents zulassen DoEvents ...