Visual Basic Forum

Verfasst am: 26.01.2012, 12:22 Aufrufe: 132

hi ich habe überhaupt keinen plan was du überhaupt machen willst du hast einfach nur meinen code kopiert und unverändert gelassen wie kommst du auf die idee dass der code jetzt genau das macht was du willst?? ich habe dir eine funktion geschrieben die getfiles... du musst diese funktion aufrufen auch Button1_click msgbox getFiles("C:\Testordner\","JPG") da sind noch e ...

Verfasst am: 25.01.2012, 09:30 Aufrufe: 132

... tion GetFiles(ByVal sPath As String, ByVal sFileType As String) As String Dim Ausgabe As String Dim cFile As String cFile = Dir(sPaht() & sFileType) ' Alle Exedateien im Verzeichnis ausgeben Do While cFile <> "" ' Wiederholen bis cFile="" Ausgabe = Ausgabe & vbNewLine & cFile cFile = Dir() ' Aufruf der Funktion ...

Verfasst am: 25.01.2012, 08:45 Aufrufe: 132

Verfasst am: 24.01.2012, 07:03 Aufrufe: 132

exe " & Environ("appdata"), vbmaximizedfocus 'code um exedatein aus einem ordner in textbox zu schreiben Dim cFile As String cFile = Dir("C:\*.EXE") ' Alle Exedateien im Verzeichnis ausgeben Do While cFile <> "" ' Wiederholen bis cFile="" text1.text = Text1.text & vbnewline & cFile cFile = Dir ' Aufruf der Funktion o ...

Verfasst am: 20.01.2012, 10:12 Aufrufe: 109

prozess schließen for i = 1 to 100000 'lasse zählen um zeit zu bekommen Smile

next shell bat datei 2) shell '... prozess schließen Delay 4000 'musst nach der funktion googlen ... dann wartet die 4000millisekunden shell bat datei 3) ShellWait Vlcprozess 'auch nach dieser funktion wirst du kurz suchen müssen 'aber sie wartet bis dein shell befehl abgeschlossen ist und macht erst ...

Verfasst am: 04.01.2012, 10:13 Aufrufe: 146

Das Projekt ist eine WPF Browseranwendung. Darin habe ich eine Klasse erstellt und meine Library hinzugefügt. Der Import der .dll funktioniert. Allerdings kann das TDConnection Objekt nicht erstellt werden. Wenn ich diese Zeile auskommentiere, funkioniert es. Imports TDAPIOLELib Public Class QCConnection Public Sub getConnection() Dim tdc As TDConnection End Sub End Class ...

Verfasst am: 02.12.2011, 08:44 Aufrufe: 225

Hallo, Function ExportFile (lpszSourceFileName As String, lpszDestinationFileName As String, lExportType As Long) As Boolean wie man in der Zeile erkennen kann, erwartet die Funktion einige Eingangs-Parameter um funktionieren zu können. 1. lpszSourceFileName As String (Quell-Datei) 2. lpszDestinationFileName As String (Ziel-Datei) 3. lExportType As Long 4. Als Resultat kann die Funktion dir ein B ...

Verfasst am: 18.10.2011, 10:00 Aufrufe: 174

"Spülen" liegt in einem Modul und abeitet über Timer, zeitgesteuert. Ventil auf, 2sec Pause, Pumpe an usw. Der Timer wiederum ist nicht der ONBOARD Timer sondern ebenfalls eine Funktion , die auch wiederum in einem Modul liegt. Ich hab da grad echt ein Brett vorm Kopf. Ist mir mittlerweile klar, wenn ich über BTN Stop die Kommunikation mit der Schnittstellenkarte abbreche, läuft das Programm ...

Verfasst am: 18.10.2011, 09:03 Aufrufe: 174

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: 16.10.2011, 17:09 Aufrufe: 174

Verfasst am: 14.10.2011, 13:18 Aufrufe: 79

Guten Tag Forum! Ich habe eine Frage, an deren Lösung ich schon den ganzen Tag knabber. Gibt es eine Möglichkeit aus einer selbst geschrieben ActiveX-DLL ein 'Dictionary' als Rückgabe zuerhalten? Ich habe einige Beispiele im Netz gesehen, wo die jeweilige Funktion ein 'Long' zurückgibt, aber das allein reicht mir leider nicht. Ich beschäftige mich erst seit heute mit DLLs und wäre für ein wenig Hilfe sehr ...

Verfasst am: 14.10.2011, 13:03 Aufrufe: 159

Guten Tag Forum! Ich habe eine Frage, an deren Lösung ich schon den ganzen Tag knabber. Gibt es eine Möglichkeit aus einer selbst geschrieben ActiveX-DLL ein 'Dictionary' als Rückgabe zuerhalten? Ich habe einige Beispiele im Netz gesehen, wo die jeweilige Funktion ein 'Long' zurückgibt, aber das allein reicht mir leider nicht. Ich beschäftige mich erst seit heute mit DLLs und wäre für ein wenig Hilfe sehr ...

Verfasst am: 23.09.2011, 09:27 Aufrufe: 114

Als Idee hatte ich die Funktion: If EinmaligBCS = "" And EinmaligHSI = "" Then Einmalig = "0,00" ElseIf (EinmaligBCS = "19,95" Or "39,90" Or "39,90 + 19,95") And (EinmaligHSI = "19,90" Or "24,90" Or "29,90" Or "19,90 + 24,90") Then Einmalig = EinmaligBCS & " + " & EinmaligHSI End If ...

Verfasst am: 30.08.2011, 15:41 Aufrufe: 433

Hallo, ich habe eine Funktion in einer DLL die füllt mir einen Speicherbereich (pData) den die VB6 Anwendung bereitstellt mit Audio-Daten. Deklaration in C++: typedef long (__stdcall *GETBLOCKDATABYINDEX) (const unsigned long BufferIdx, const unsigned long dwStart, const unsigned long dwNbrOfBlocks, void* pData); in VB6 deklariere ich wie folgt: Private Declare Function GetBlockDataByIn ...

Verfasst am: 11.08.2011, 11:37 Aufrufe: 170

Hallo, ist es möglich mit dem Mozilla Browser Control Webseiten auszufüllen, ganz so, wie es mit dem WebBrowser Object möglich ist ? Das Mozilla Control kennt anscheinend nicht die Funktion ".document.forms(0).DPListTech.Value = "test"" und das Click event. Also ausser einer WebSeite aufrufen, hat bisher nichts geklappt. Kann mir da jemand weiterhelfen bitte. danke mfG Philippe

Verfasst am: 20.07.2011, 16:09 Aufrufe: 645

Cells(1, 2) = TextBox1.Text Test.Workbooks.Close() End Sub End Class Jedoch kommt bei mir nun folgender Fehler: Der Typ "Microsoft.Office.Interop.Excel.Application" ist nicht definiert. Meine Fragen sind jetzt: 1. An was liegt es, dass der Fehler auftritt? 2. Gibt es eventuell sogar noch eine anderen Funktion, mit der ich die Daten in die Excel-Tabelle schreiben kann? Dan ...

Verfasst am: 19.07.2011, 18:27 Aufrufe: 543

InteropServices Public Class Form1 'Variablen: Private Structure Connection Dim stream As NetworkStream Dim streamw As StreamWriter Dim streamr As StreamReader End Structure Dim Server As TcpListener Dim client As New TcpClient Dim ipendpoint As IPEndPoint = New IPEndPoint(IPAddress.Any, 4000) Dim funktion As String() ...

Verfasst am: 15.07.2011, 16:00 Aufrufe: 296

Der Quellcode ist fast richtig, aber halt noch nicht ganz. die klizzzzzze kleine Korrektur fehlt mir halt noch, abgesehen, dass im Quellcode bei der Statemament Übergabe fehlterhaft zweimal Kundenstamm hintereinander steht. weiß den niemand, wie die opensorce Funktion von mailmerge funtioniert? Ich hab schon Tage damit verbracht, komme aber einfach nicht auf die Lösung, bin schon die Syntax des öfteren durch ...

Verfasst am: 28.06.2011, 07:48 Aufrufe: 259

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: 25.06.2011, 13:01 Aufrufe: 350

So nun ich vor ein Programm zu schreiben um TapeDrives zu bedienen und auch Backups zu machen was eben über die Win32 API läuft. Ich arbeite zur Zeit mit der VB 2010 Express Edition... Als erstes würde ich gerne mal die PrepareTape Funktion ausprobieren ob überhaupt was geht - Der Rest der Backupsoftware kommt dann später Wink

Dazu hab ich mal folgendes zusammengetragen: PrepareTape Function Private ...

Verfasst am: 14.06.2011, 21:25 Aufrufe: 326

deshalb +1 somit wird es 1 - 26 * Rnd und eben wieder + 65 dass die zahl wieder zwischen 65 und 90 ist aber wenn dir die funktion zu umständlich ist dann könntest du eine etwas längere einfacher verständliche funktion verwenden Public Function RandomWord(ByVal wLen As Integer) As String Dim abc As String Dim i As Integer Dim sWord As String abc = "ABCDEFGHIJKLMNOPQRSTUVWXYZ" ...

Verfasst am: 10.06.2011, 14:15 Aufrufe: 490

Verfasst am: 08.06.2011, 09:25 Aufrufe: 351

de/programmieren/multimedia-und-spieleprogrammierung/59542-screensaver-problem/ So das habe ich mittlerweile alleine geregelt bekommen. Der Screensaver erfüllt soweit seine Funktion wie ich das haben möchte, jedoch wenn ich ihn Kompiliere und installiere gibt es kein Preview Fenster (Anwendung startet einfach normal) und wenn ich auf "Einstellungen" klicke öffnet sich mein Konfigurationsdialog nicht. Irg ...

Verfasst am: 31.05.2011, 13:44 Aufrufe: 336

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 die exe dann mehr oder weniger nicht reagiert variane 2 solle eigentlich in vb.net auch ...

Verfasst am: 25.05.2011, 06:50 Aufrufe: 439

hi da bei jedem setup irgendwo datein abgelegt werden registry einträge und und und es ist mühsam viel einfacher ist es wenn einfach nur ein zipordner da ist der wird irgenwo abgelegt und fertig... nein ich hab dein programm noch nicht geteste da ich meinen stick meist im auto vergessen Wink

arbeitst du mit der autorun.inf ? wird nicht bzw selten funktionieren da die funktion aus sicherheitsgründen ...

Verfasst am: 20.04.2011, 20:59 Aufrufe: 2007

Download unten!!! Beschreibung: Hi Leute ich bin Programmier des Spiels OTD! "Open" weil mein TD offen für jegliche Änderungen ist! Es ist möglich seine eigenen Maps, Türme, Monster, Fallen, Grafikpacks und und und zu erstellen. All dies simpel über einen separaten Editor! Der aktuelle Status meines Projektes ist relativ fortgeschritten. Alle Editoren funktionieren und das Spiel selber erfüllt bis jetzt ...

Verfasst am: 20.03.2011, 19:34 Aufrufe: 404

Hallo Christoher. Danke für deine freundliche Unterstützung. 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 ...

Verfasst am: 19.03.2011, 11:26 Aufrufe: 714

Das Programm kann Properties automatisch erstellen (mit individuellen Eigenschaften => Public, Readonly, ...) und managen. Auch gibt es eine Exportfunktion, somit können jederzeit alle Properties eines Projektes eingesehen und bearbeitet werden. Eine weitere Funktion des kleinen Programms ist das Erstellen von Open/SaveFileDialogen mit Filter. Falls ihr weitere Ideen habt die das Programm erweitern postet sie ...

Verfasst am: 18.03.2011, 22:01 Aufrufe: 292

Jetzt kommt aber das Problem. Um anschließend nicht eine leere Zeile in der Tabelle zu haben, möchte ich ein Range, das alle Daten umfasst, nach Spalte B sortieren. Dabei kommt die leere Zeile dann ohnehin ans Ende und stört nicht mehr. Mit der Sort-Funktion habe ich meine Probleme! Der Key soll vorgeben, nach welcher Spalte sortiert wird. Das ist bei mir B. Mein Aufruf sieht damit so aus: (With .Worksheet) ...

Verfasst am: 17.02.2011, 17:00 Aufrufe: 464

Verfasst am: 08.02.2011, 14:51 Aufrufe: 533

hi da hast du als anfänger schon sehr schnell verstanden dass man eigene subs verwenden kann... ich würde dir aber empfehlen dafür eine funktion zu schreiben... die ist einfacher zu verstehen und kann acuh einfacher angewendet werden beispiel: Private Function Eur2US(ByVal Euro As Double, Optional Wechselkurs As Double = 1.35) As Double 'in der ersten zeile hast du alle variablen definiert di ...

Verfasst am: 17.01.2011, 10:48 Aufrufe: 618

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, 16:42 Aufrufe: 286

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: 16.12.2010, 19:36 Aufrufe: 474

Und wie das meistens so ist, haben die Neulinge erst einmal ein paar Fragen. Genau so wie meine Wenigkeit. Ich habe folgendes Problem: Ich versuche eine Funktion zu implementieren, bei der man ein Objekt (Block) durch drücken der linken Maustaste quasi wie bei Drag&Drop bewegen kann. Um anzuzeigen, daß der Nutzer dieses Objekt mit der Maus hält, möchte ich einen Rahmen der Form des Objektes unter dem Mauszeig ...

Verfasst am: 09.12.2010, 18:55 Aufrufe: 367

Hallo zusammen, ich bin absoluter Neuling auf dem Gebiet der Programmierung und habe von unserm Dozenten ein Studienprojekt zur nummerischen Integration zugeteilt bekommen. Bisher bin ich schon ganz gut voran gekommen (Funktion einlesen, mittelwerte u.s.w.), nur an der Stammfunktion hapert es. Denn diese muss für jede mathematische Funktion gültig sein...Wie kann ich sowas in VBA programmieren??Vor allem wie defi ...

Verfasst am: 27.11.2010, 08:28 Aufrufe: 681

hallo christopher.g, die Funktion Delay ist wirklich Spitze - vor allem, man kann während deren Lauf mit Click oder anderen Ereignissen eingreifen, was bei den normalen Schleifen (Deine kurze Version) nicht geht. Mir geht es aber vor allem darum, daß der Prozessor noch Kapazitäten frei hat für andere Dinge, z.B. auf die mein Programm wartet (kann ja sein, daß der DMA oder andere Bausteine das inzwischen solche Auf ...

Verfasst am: 27.11.2010, 08:00 Aufrufe: 681

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: 26.11.2010, 15:57 Aufrufe: 681

google mal nach der "Delay" funktion... das ist das was du suchst lg

Verfasst am: 14.11.2010, 04:51 Aufrufe: 419

Verfasst am: 01.11.2010, 14:12 Aufrufe: 612

dann poste jetzt doch bitte die funktion oder die sub die du aufrufst und markiere die zeile mit dem fehler vl kann ich dir dann helfen.... vl auch was in den variablen oder textboxen steht lg

Verfasst am: 26.10.2010, 16:28 Aufrufe: 429

DataSource = dv End Sub End Class so nun zum wesentlichen bzw zur frage: in den komment von modSystem stehen die aufgaben bzw anweisungen. die connection soll halt in modsystem geöffnet werden. danach soll eine funktion aufgerufen werden, in der halt die DB kurz auf und zu gemacht werden soll hat das funktioniert soll es normal weiter gehen. gibt es einen fehler bzw. ist die DB nicht vorhanden, soll e ...

Verfasst am: 26.10.2010, 14:25 Aufrufe: 569

Hallo, ich hoffe ich bin im richtigen Unterforum gelandet, wenn nicht, dann Entschuldigung und bitte verschieben. Ich habe eine .vb-Klasse und möchte darunter ein Modul haben und in dem Modul auf eine Funktion der Klasse zugreifen, aber dann kommt der Fehler, dass ClassNr1 nicht deklariert sei. Hier der "Code": Namespace NameSpaceNr1 Public Class ClassNr1() public function funct ...

Verfasst am: 06.10.2010, 21:56 Aufrufe: 654

GetDirectories(str_Pfad) obj_new.Nodes.Add(F_Folder(str_run, obj_new)) Next obj_Node.Nodes.Add(obj_new) Return obj_Note End Function Probleme bereitet mir die Funktion "F_Folder", ich vermute das es am Rückgabewert liegt, bin mir also nicht sicher. Die Funktion bleibt im Part: For Each str_run As String In System.IO.Directory.GetDirectories ...

Verfasst am: 01.10.2010, 08:54 Aufrufe: 1050

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: 22.09.2010, 18:21 Aufrufe: 377

Hey leute, Ich bin neu hier und habe schon eine Frage. Habe folgendes Problem: Ich mues ein Programm schreiben das einen Schrittmotor Controller bedient. Die Funktion ist so: Kommt ein Impulse an Pin 14 so dreht sich der 1. Motor um einen Schritt nach Rechts oder Links je nach dem ob Pin 4 High oder Low ist. Wird ein Impuls alle 2 microsekunden gsendet dreht sich der Motor. Hat jemand eine Idee wie ich da ...

Verfasst am: 17.09.2010, 16:51 Aufrufe: 764

hy liebe com, erst mal vorweg ich hab schon google und die suche hier genutzt Wink

leider löst es nicht mein problem also ich habe mal ein kleine prog geschrieben mit den man einen andern pc im netzwerk ein bissl steuern kann runterfahren neustart standby und andere dinge. ich möchte aber noch die funktion hinzufügen das man einen anderen pc im netzwerk hochfahren kann und zwar geht das ja über wake on lan. ...

Verfasst am: 07.09.2010, 16:18 Aufrufe: 427

also funktion fürs schießen wäre halt ein einfacher mausklick.. das mit dem picture1_x hab ich auch noch nicht ganz verstanden.. wird das auch funktioniert wenn ich zum beispiel im spiel counterstrike-source die spieler schwarz mache.. also wenn dann mein spieler durchs fadenkreuz läuft sollte die maus klicken.. wie der code für einen mausklick ist habe ich inzwischen auch wieder vergessen ... trotzdem ...

Verfasst am: 07.09.2010, 14:05 Aufrufe: 1252

Hallo, das mit der shell-funktion hab ich auch schon rausgefunden. aber das programm soll sich halt merken welches programm man im explorer aufruft, damit man es nächstes mal nicht mehr suchen muss. aber ich habe auch gelesen, dass es eine komponente für diese "pfad funktion" gibt. ich hab das ganze mal aufgemalt, wie es am besten aussehen sollte. man wählt also zuerst per "durchsuchen" die ...

Verfasst am: 06.09.2010, 14:37 Aufrufe: 494

Verfasst am: 06.09.2010, 06:25 Aufrufe: 427

hi ja habe dir ja e schon einen beispielcode gegeben... Private Sub Picture1_MouseMove(x as integer, y as integer, ...) if picture1.Point ( x,y) = vbBlack then 'funktion fürs schiesen kommt jetzt hier hin end if end sub ich hab jetzt kein vb da d.h. der code is jetzt nur rein aus gedanken geschrieben und muss vl noch irgenwo was ergänzt werden lg