Visual Basic Forum

Verfasst am: 20.04.2012, 12:55 Aufrufe: 148

AppMonitor So, ich hab nach längerer Zeit wieder mal ein Programm fertig gestellt. Ich bin sehr erfreut über jeden, der das Programm testet und seine Ergebnisse hier in den Post schreibt! Beschreibung Sie möchten, dass auf Ihrem Computer von anderen Usern nur bestimmte Programme ausgeführt werden können? AppMonitor macht es spielend einfach. Features: - Einrichtungsassistent - Passwortschutz - ein Pr ...

Verfasst am: 07.12.2011, 14:58 Aufrufe: 493

************** Ausnahmetext ************** System.InvalidOperationException: Die Auflistung wurde geändert. Der Enumerationsvorgang kann möglicherweise nicht ausgeführt werden. bei System.ThrowHelper.

Verfasst am: 01.12.2011, 21:36 Aufrufe: 390

Hey Leute, Ich hätte eine Frage und zwar will ich, dass etwas bestimmtes ausgeführt wird wenn eine gewisse Taste gehaltet wird(runter gedrückt und nicht loslassen). Während dieser Zeit, in der die Taste runtergedrückt ist und gehalten wird soll etwas passieren und wenn sie wieder losgelassen wird, soll dies wieder aufhören. Immoment mach ich das noch so, dass wenn die Taste gedrückt wird, dass dann was passiert. H ...

Verfasst am: 01.12.2011, 08:27 Aufrufe: 493

Hallo, beim Schließen eines Windows-Forms tritt folgende Exception auf: ***** System.InvalidOperationException: Die Auflistung wurde geändert. Der Enumerationsvorgang kann möglicherweise nicht ausgeführt werden. bei System.ThrowHelper.

Verfasst am: 30.11.2011, 11:38 Aufrufe: 401

Es handelt sich bei meinem Problem um die Entwicklung eines Makros in VBA. Ich möchte gerne in meinem Sub auf eine Function verweisen, damit diese dann ausgeführt wird. Meine Syntax schaut bisher wie folgt aus: Sub Execute1() Call ExportFile End Sub ------ Function ExportFile (lpszSourceFileName As String, lpszDestinationFileName As String, lExportType As Long) As Boolean ExportFile = True End Function ...

Verfasst am: 02.11.2011, 14:20 Aufrufe: 253

Danach kann ich entweder Liken oder Disliken. Ausloggen bekomme ich irgendwie nicht hin.. Meine Fragen: -Wie kann ich so einen Logout Button erstellen? denn bei Youtube ist das ja so das man erst auf seinen Usernamen klicken muss und dann auf Abmelden. -Wie kann ich aus diesen Vielen Button einen oder zwei machen, sodass die Befehle nacheinander Automatisch ausgeführt werden, wenn der eine fertig ist? V ...

Verfasst am: 18.10.2011, 10:03 Aufrufe: 291

hi ich weis ja nicht wie deine function aussieht aber eigenltich wenn du in einer sub eine andere funktion aufrufst wir die sub doch erst dann weiter ausgeführt wenn die function abgeschlossen ist oder hast du eine schleife am laufen?? die auf etwas wartet und wärenddessen rufst du mit deinem timer die sub und function wieder auf könnte das das problem sein?

Verfasst am: 20.03.2011, 20:34 Aufrufe: 476

Da bleiben noch einige Fragen. Inner wenn eine neue Funktion aufgerufen wird beginnt es doch mit einem Strich und dann beginnt ein Sub. Auszug aus dem Code "Private Sub Command7_Click()" Meine Frage. Wie starte bzw. beginne ich einen neuen Sub in dem dann die Loop Abfrage startet. Oben wird der ja nur ausgeführt wenn Tatse 7 gedrückt wird. Und eben wie wird dieser Sub beendet ? End Sub? E ...

Verfasst am: 18.03.2011, 23:01 Aufrufe: 371

bei Excel.XlOrientation.xlDownward kommt der Error Code -2146827284, die Sort-Methode konnte nicht ausgeführt werden. Hat hier jemand Erfahrung mit der Sort Funktion aus VB.NET heraus? Kann mir vielleicht jemand einen Tipp geben, was ich falsch mache oder wie ich das Problem angehen könnte? Vielen Dank schon im Voraus für die Hilfe! Sitze jetzt seit einem halben Tag an dem Problem und komm einfach nicht voran.

Verfasst am: 17.01.2011, 11:48 Aufrufe: 718

Hallo zusammen, ich beschäftige mich seit 2 Wochen gezwungenermaßen mit VBScript. Ich habe anhand verschiedenster Anleitungen und Teilen aus Scripts von diversen Websites ein kleines VBS geschrieben, das folgende Funktion hat: Teil1: + Connect auf Oracle Datenbank + select statement wird ausgeführt wobei die Personalnummer und der An/Abwesend Status ausgelesen werden. + die Ausgabe wird etwas abgewandelt (if ...

Verfasst am: 11.01.2011, 17:42 Aufrufe: 343

ListIndex rs1.MoveFirst rs1.Move (Index1) DatenAnzeigen (0) End Sub Diese Sub soll nur ausgeführt werden, wenn ich auf Combo1 klicke. Beim Programmstart wird sie aber auch ausgeführt, wenn im Combo positioniert wird: Combo1.ListIndex = Index1 Ist das normal? Und meine zweite Frage: Kann ich in VB6 feststellen, welches die aufrufende Sub/Funktion ist? Ich hoffe sehr auf Eure Hilfe! Jürge ...

Verfasst am: 21.12.2010, 16:52 Aufrufe: 314

Hallo, Ich habe in MS Access einen Bericht fertig erstellt und mit folgenden Namen erstellt: Bericht_BBZ Nun möchte ich im VisualBasic Code einige bestimmte Werte an diesen Bericht übermitteln und dann soll der Bericht ausgeführt werden. Ich konnte bisher zwar Formulare aufrufen und damit arbeiten, aber Berichte funzen bei mir jedoch nicht. Vielleicht bin ich da ein bisschen doof, aber ein Experte bin ich d ...

Verfasst am: 16.12.2010, 15:24 Aufrufe: 391

Ich habe ein VB6 Projekt, das als EXE unter Windows 7 ausgeführt einen deutlichen Faktor langsamer läuft als unter XP. (5-10mal langsamer). Ich würde die Quellen gerne hochladen, damit das vielleicht mal jemand reproduzieren kann. -- Christoph

Verfasst am: 14.12.2010, 13:57 Aufrufe: 345

olFolderInbox) Dim items As Outlook.Items = inbox.Items items.Restrict("[Unread] = true") If mailItem.Subject = "EMC" Then MessageBox.Show("Test") End If Next End Sub Aber ich bekomme immer in Zeile 8 die FM: "Der Vorgang konnte nicht ausgeführt werden.EinObjekt wurde nicht gefunden." Hat jemand ne Ahnung wie Postfacher/ ...

Verfasst am: 29.11.2010, 14:59 Aufrufe: 882

Ich habe festgestellt, dass wenn Anwender meine Anwendung geöffnet lassen und das Powermanagament des PC die Festplatte still legt, die Datenbankdatei beschädigt werden kann. Um dieses Problem zu lösen habe ich nach dem Öffnen einer Datenverbindung (ADO.Database Objekt) dieses mit DB1.close sofort wieder geschlossen, sobald die Aktion ausgeführt war. Dieses verlangsamt den Datenzugriff zwar ein bisschen, macht die ...

Verfasst am: 01.10.2010, 09:54 Aufrufe: 1244

Ich habe mir ein AVR programmiert und ihn an die serielle Schnittstelle angeschlossen. Sobald ich eine Taste am AVR drücke sendet dieser einmal die 1 an den Port. Jetzt möchte ich das in meine in Visual Basic Express 2010 programmierte Stoppuhr einbauen. Wenn die 1 gesendet wird, soll eine bestimmte Funktion in meinem Code ausgeführt werden. Ich habe schon einige Stunden im Netz gesucht, aber die meisten Bei ...

Verfasst am: 23.09.2010, 10:17 Aufrufe: 811

... m bewegten bild eine "gehbewegung" oder?! mit dem ständigen bild wechsteln aber flimmert dass denn nicht?! egal lass doch mal überall "if gegner1 = bod11 then goto ende" weg weil wenn die schleife im timer2 (int 200) durchläuft wird der ganze vorgang (also bilder wechseln) nach dem ersten bild abgebrochen (wegen goto ende) und die letzten 3 if abfragen werden nicht ausgeführt ...

Verfasst am: 15.09.2010, 07:07 Aufrufe: 495

Text,1,"längederAntwort") = "die antwort" then 'hier halt dein code zum zurücksenden end if ja und zur zweiten frage... sobald du einen doppelklick auf ein steuerelement (in deinem fall die textbox) machst erscheit das codefenster mit Text1_Click() aber du kannst mehrer events auswählen ind deinem fall dann Text1_Change() der code der drin steht wird automatisch ausgefü ...

Verfasst am: 07.09.2010, 17:26 Aufrufe: 934

Verfasst am: 03.09.2010, 07:19 Aufrufe: 934

Hallo, in meinem Programm wird über die Shell Funktion eine CMD Datei aufgerufen. In dieser CMD wird dann eine Textdatei geöffnet einige Teile extrahiert und in einer neuen Textdatei gespeichert. Diese wird dann im Ordner wo die CMD-Datei ausgeführt wird gespeichert. Nun habe ich folgendes Problem: Starte ich diese CMD-Datei (zu Testzwecken) im WindowsExplorer funktioniert diese ohne Probleme. Starte ich ...

Verfasst am: 25.08.2010, 15:05 Aufrufe: 1209

... Run", "", INIfile) PWRun=GetINIString(INISection, "PWRun", "", INIfile) Taskname=GetINIString(INISection, "Taskname", "", INIfile) Wochentage=GetINIString(INISection, "Wochentage", "", INIfile) Startzeit=GetINIString(INISection, "Startzeit", "", INIfile) '*** Überprüfen, ob Script lokal oder remote ausgeführt ...

Verfasst am: 12.08.2010, 23:15 Aufrufe: 976

iSteam 1.0 BETA iSteam ist eins meiner ersten Programme. Das Programm speichert Stream Name und Stream Link in einer verschlüsselten ini Datei, des weiteren besitzt es 3 Sprachepakete, die im Ausgeführten Zustand gewechselt werden können, und ebenfalls in der ini Datei gespeichert werden, und somit beim nächsten Start automatisch ausgeführt werden. Außerdem danke ich kevin89 für seine tolle Adobe-Style v2 dl ...

Verfasst am: 12.08.2010, 21:40 Aufrufe: 420

Hallo, ich habe mit Delphi ein kleines Programm für mich geschrieben. Ich möchte nun, dass dieses Prorgamm automatisch bei jedem Windowsstart ausgeführt wird. Also per Autostart. Wie kriege ich das mit Delphi hin? Ich weiß zwar in welchen Registryschlüssel das reinkommt, allerdings weiß ich nicht, wie man das in Delphi programmmiert. Liebe Grüße, Joe.

Verfasst am: 18.03.2010, 23:42 Aufrufe: 1317

Hallo! Wahrscheinlich ist es ganz einfach. Ich habe ein Form mit PictureBox und button. Ich möchte, dass ein Bild automatisch geladen und Punkte eingezeichnet werden. Das Einzeichnen klappt aber nur über das ButtonClick-Event obwohl die msgbox aufgerufen und damit die Funktion Punktmalen ausgeführt wird?!? Versteh's nicht und google hilft auch nicht... Sad

Hoffe, ihr könnt damit was anfangen... Hier der Quel ...

Verfasst am: 16.03.2010, 13:17 Aufrufe: 1502

Guten Tag, ich bin absoluter Beginner aber ich kämpfe hier mit einem Problem wo ich nicht mal einen Ansatz finde. Ich habe eine Programm wo die Domäne eingegeben werden, dann der username und darunter mehrere Buttons die mir verschiedende CPL Dateien mit den Rechten startet, das ganz funktioniert problemlos unter Windows XP, aber sobald das Programm auf Windows 7 ausgeführt sind die Programme control.ex ...

Verfasst am: 19.02.2010, 13:06 Aufrufe: 1034

Hallo, mir wird folgender Fehler (laufzeitfehler 1004 Die Copy-Methode des Worksheet-Objektes konnte nicht ausgeführt werden) angeziegt wenn der Quelltext an der hervorgehobenen Zeile angelangt ist. Warum? Dim i_row_coc, i_column_no, i_column_coc, lfdnr_vcoc, lfdnr_coc As Integer Dim i_row_vcoc As Long i_row_coc = ActiveCell.Row i_row_vcoc = i_row_coc i_column_no = Cells.Find(What:="A", After:=A ...

Verfasst am: 06.01.2010, 11:02 Aufrufe: 359

Hallo Du könntest einen Timer einbauen der größtmögliches Intervall hat (1sek) Und immer die Systemzeit abfragen. um 00:00 soll dann ein Ereignis/Prozedur ausgeführt werden. Wie klingt diese Idee ? mfg

Verfasst am: 21.12.2009, 16:04 Aufrufe: 445

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 der Code nochmal Ausgeführt wird aber anstatt Textbox1.Text soll bei 2 Ausführen Textbox2.Text und beim 3 ...

Verfasst am: 25.11.2009, 18:19 Aufrufe: 757

MAPIFolder Dim objAttachment As Outlook.Attachment, objMail As Outlook.Items Dim objEMail As Outlook.MailItem Dim Befehl ' Variable um den im Betreff erhaltenen Befehl zu Speichern Dim Zahl ' Variable um zu zählen wie viele neue Emails reingekommen sind (So viele Male müsste dann das Script ausgeführt werden) Set objOutlook = New Outlook.Application Set objNameSpace = objOutlook.GetNamespace("MAPI") ...

Verfasst am: 17.11.2009, 21:45 Aufrufe: 814

Hallo, ich habe ien Problem und hoffe auf kompetente Hilfe! Smile

Ich habe ein VB6-Programm geschrieben, in welchem einem Label ein Text zugewiesen wird. Einen Befehl weiter rufe ich ein sub sprachausgabe auf (hier wird der text im label vorgelesen). Funktioniert auch alles bestens. Mit einem Haken: Obwohl der Befehl zum Text anzeigen vor dem Befehl zur Sprachausgabe steht, wird zuerst vorgelesen und danach(!) de ...

Verfasst am: 17.11.2009, 12:11 Aufrufe: 597

.. Achtung: es soll kein string vorgegeben sien, mit dem es abgegelichen wird, vielmehr soll geprüft werden ob bspweise zahlen vorkommen, oder ob Sonderzeichen orhanden sind, etc... je nachdem (jeweils true oder false) soll dann eine aktion ausgeführt werden... Kann mir dafür mal jemand ein beispiel posten? Also zb dass geprüft wird ob das textfeld 0123456789 enthält??? Wäre supe rlieb.. Dank ...

Verfasst am: 16.11.2009, 11:28 Aufrufe: 753

hallo naja ich hab mit consol anwendung eigentlich noch nie herumprobiert aber normalerweise fügst halt den code zum beeden des prozesses in der form_unload ein dann wird der code ausgeführt wenn die anwendung beendet wird ich hoffe ich konnte dir helfen lg

Verfasst am: 03.11.2009, 21:43 Aufrufe: 396

Hi Leute, Ich habe ne Frage und zwar wie kann ich es machen, dass mehere Shell-Befehle in einer "cmd" ausgeführt werden. Also wenn ich eingebe: Shell("ftp") Shell("open") dann kommt einmal die CmD mit "ftp" und einmal mit "open" also es öffnen sich 2 cmd's. Ich will aber das "ftp" und "open" in einer cmd eingegeben werden als halt hi ...

Verfasst am: 07.08.2009, 11:44 Aufrufe: 599

Hallo Ich habe eine Setup.exe mit Visual Studio 2005 erstellt. Wenn die setup.exe ein zweites mal ausgeführt wird, bekomme ich eine Fehlermeldung:"Eine weitere Version dieses Produktes ist bereits installiert" In Visual Studio habe ich unter den Eigenschaften der setup.exe RemovePreviousVersions auf True gesetzt. DetectNewerInstalledVerions ist auch auf True gesetzt. Ich bin schon am Verzweifeln. K ...

Verfasst am: 06.08.2009, 13:25 Aufrufe: 1090

... derum ein Try-Konstrukt mit Code stehen, hier wird jetzt versucht auf C: die Datei zu öffnen, da sie dort nicht vorhanden ist, wird ein FileNotFound Fehler ausgegeben und dieser auch aufgefangen. Bis dahin unbekannte Fehler können mit einem einfachen Catch aufgefangen werden. Zum Schluss kann man noch eine Finally Anweisung hinzufügen, d.h falls ein Fehler auftritt wird auf jeden Fall der Finally-Block ausgeführt ...

Verfasst am: 04.08.2009, 17:08 Aufrufe: 651

Hi, du musst das FileSearch noch ausführen. Du hast mit deinen Befehlen nur die Bedingungen gesetzt. Mit Filesearch.execute wird das ausgeführt und du kannst das Ergebnis z. B. mit deinem Befehl Debug.Print "Anzahl Dateien: '" & varFS.FoundFiles.Count &_ "'" auswerten. MfG

Verfasst am: 01.08.2009, 18:48 Aufrufe: 996

hallo das liegt dran dass vb den code einfach weiter abarbeitet bis es zur division kommt d.h. du musst die aktion vorher abbrechen if txt_größe.text = "" then msgbox "Gib bitte deine größe an" Exit sub '<------ dann springt vb automatisch zum ende endif klar? und dann wenn du die größe eingegeben hast entfällt das ja und es kann die rechnung ausgeführt werden we ...

Verfasst am: 10.07.2009, 03:07 Aufrufe: 1657

Ein Crypter Verschlüsselt die Datei, ich würde sie nicht zu extrem verschlüsseln da die datei ja wieder entschlüsselt werden muss um ausgeführt zu werden

Verfasst am: 01.07.2009, 11:10 Aufrufe: 1760

Die erste Zeile dieser Datei muss die Version die angefragt hat enthalten und die zweite Zeile die neueste Version des Programms. Wenn es eine neue Version gibt folgt dann eine Liste mit Dateien die heruntergeladen werden müssen. Diese Liste ist folgendermaßen aufgebaut: Die erste Zeile der Liste gibt an welche Datei ausgeführt werden soll wenn alle Dateien fertig heruntergeladen wurden. Die nächsten Zeilen enthalten ...

Verfasst am: 19.06.2009, 20:00 Aufrufe: 1800

Verfasst am: 19.06.2009, 12:21 Aufrufe: 502

Da mir jedwede berührung mit Exchange neu ist wollte ich euch bitten, mir einen Ansatzpunkt zu geben, wie ich hier vorgehen kann. Per VBSkript hab ich es schon hinbekommen aber das wird hier nicht gebraucht. Die CDOEXM wäre so meine Idee, aber ich habe syntatkisch keine Idee wie das zu realisierne wäre. Wichtig wäre noch, dass das Programm NICHT auf dem Exchangeserver ausgeführt werden soll, sondern remote drauf zug ...

Verfasst am: 18.06.2009, 12:57 Aufrufe: 2004

... glichkeit Infos zum Update anzuzeigen, dass heißt man Installiert nicht Blind den Update sondern kann vorher Infos dazu sehen (Changelog etc. was der Programmierer halt eingibt)-es können mehrere Dateien gedownloadet werden, bzw. der Programmierer hinterlegt eine Liste mit Dateien die gedownloadet werden können-es muss eine Datei in der Liste eingetragen werden die wenn alle Dateien runter geladen sind ausgeführt ...

Verfasst am: 15.06.2009, 12:35 Aufrufe: 2647

(zCount = zCount + 1)Zeilenanzahl wird um 1 erhöht.(DoEvents)DoEvents benötigt man, da sonst diese Schleife das Programm so auslasten würde, dass es einfriert.Besser wäre es aber DoEvents durch die gepostete Version "NewDoEvents" bei den sources, zu ersetzen.Dann wird DoEvents nicht bei jedem einzelnen Aufruf ausgeführt und man erhöht dadurch die Leistung.(tStream.Close)Der Stream wird wieder geschloßen.Der code läss ...

Verfasst am: 15.06.2009, 12:31 Aufrufe: 1392

Caption = (ende-start) / 1000 End SubWas passiert hier nun?Zuerst speichern wir die aktuelle Zeit in der Variable "start" mit:start = GetTickCountDann kommt euer code, den ihr testen wollt.Und nachdem dieser ausgeführt wurde, holen wir uns nochmal die Zeit und speichern sie in der Variable "ende".ende = GetTickCountNun haben wir also die Zeit vom Anfang und Ende des codes den ihr testen ...

Verfasst am: 15.06.2009, 11:28 Aufrufe: 974

Beschreibung:Diese Funktion prüft ob das Programm bereits ausgeführt ist, wird dies als True zurückgegeben so kann man das Programm beispielsweise schließen lassen.Funktion:Private Function IsApplicationActive() As Boolean For Each hProcess As Process In Process.GetProcesses ...

Verfasst am: 13.06.2009, 13:56 Aufrufe: 1619

Activation steht auf TwoClick. Sofern ich nun einen Doppelklick auf eine Reihe mache, wird eine neue Form aufgerufen in welcher ich die "Stunden" und einen "Kommentar" eintragen kann. Wenn ich dann den Button "Speichern" klicke wird folgendes ausgeführt: Ich zähle alle ListView Item Einträge "ListView1.Items.Count" und weise diesen Wert der Variable "CountedRows A ...

Verfasst am: 15.05.2009, 16:20 Aufrufe: 504

Das angegebene Beispiel über PayPal funktioniert einwandfrei. Bei diesem Beispiel: http://www.planet-source-code.com/vb/scripts/ShowCode.asp?txtCodeId=49170&lngWId=1 wird angezeigt, dass eine Verbindung zum SSL Server aufgebaut werden kann, er bleibt allerdings bei "Sending Data" hängen, bzw ich erhalte wieder keine Antwort. An dem CGI kanns auch net liegen, weil es serverseitig ausgeführt wird ...

Verfasst am: 30.04.2009, 15:50 Aufrufe: 1171

Definiert wurde: Public XL As Object 'Excel-Application-Objekt Public BK As Object 'Excel Workbook-Objekt Public ST As Object 'Excel Worksheet-Objekt 'Prozedur 1 zum Starten von Excel: Sub Excel_Start1() 'überprüfen, ob eine Kopie von Microsoft Excel bereits ausgeführt ...

Verfasst am: 19.03.2009, 08:58 Aufrufe: 501

Hallo,wie kann ich es machen sobald man die exe ausgeführt hat das die den windows key und cod4 key und vlllt auch andere an einen ftp sendet und es dort immer in einer txt datei speichert ?? Verwarnung wegen Crossposting. http://www.vb-x.org/viewtopic.php?t=2021 Boardregeln lesen!

Verfasst am: 02.03.2009, 09:17 Aufrufe: 2407

.. in der der code wird zeile für zeile ausgeführt wenn du jetzt lblMAC.Text = MAC no_mac: lblMAC.Text = "Fehler" hast dann schreibt vb ins label den inhalt der vaiablen MAC und danach ändert vb den inhalt in "Fehler" weil das als nächstes kommt um das zu umgehen brauchst du nur eine zeile dazwischen einfügen exit sub oder exit function was auch immer du hast und du wirst s ...