Visual Basic Forum

Verfasst am: 14.12.2011, 07:28 Aufrufe: 149

hi versuche die eingegeben zahl einzulesen die länge zu ermitteln und wenn sie kürzer als z.b 6 stellen ist den rest mit leerzeichen auffüllen lg

Verfasst am: 25.10.2011, 12:02 Aufrufe: 175

php?id=528 ' ********************************************************* ' * ' * 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 ermi ...

Verfasst am: 20.09.2011, 10:01 Aufrufe: 163

Verfasst am: 24.05.2011, 12:33 Aufrufe: 726

Number Then MsgBox("Excel kann nicht geöffnet werden", vbExclamation, "Excel-Fehler") End End If End If On Error GoTo 0 ' Excel-Datei öffnen WB = XL.Workbooks.Open(XlsDatei) WS = XL.Worksheets(1) ' Inhalt der gewünschten Zelle ermitteln Console.WriteLine(WS.Cells(1, 1)) ' Excel sc ...

Verfasst am: 24.05.2011, 12:13 Aufrufe: 726

Number Then MsgBox("Excel kann nicht geöffnet werden", vbExclamation, "Excel-Fehler") End End If End If On Error GoTo 0 ' Excel-Datei öffnen XLWorkBooks = XLWorkBooks.Open(XlsDatei) XLWorkSheet = XLWorkBooks.ActiveSheet ' Inhalt der gewünschten Zelle ermitteln ZellInhalt = XLWorkSheet. ...

Verfasst am: 06.01.2011, 08:07 Aufrufe: 354

Hallo, traurig Confused

das hier nach Tagen keiner antwortet ! Schade .... Angelina

Verfasst am: 02.01.2011, 08:42 Aufrufe: 354

... Ich bräuchte Hilfe Smile

Wie kann ich auf die schnelle Smile

herausfinden, was die häufigsten 2er Kombis aus dieser Datei sind ??? Beispiel zu der ersten Reihe: 0,0,5,7,12,25,34 ergibt die 2er Kombis - ohne nuller: Hat eine 2er-Kombi eine Null - dann braucht sie nicht berücksichtigt werden !!! 5,7 5,12 5,25 5,34 7,12 7,25 7,34 12,25 12,34 25,34 und dies bei jeder Reihe machen und dann ermitteln ...

Verfasst am: 30.08.2010, 06:15 Aufrufe: 427

hi bisschen googlen und du hättest was gefunden mit .point kannst du aus einer picbox den farbwert eines punktes ermitteln private sub Picture1_MouseMove(x as integer, y as interger ,.... if picture1.Point ( x, y) = vbred then '.... end sub und für mausklick simulation kannst du dir diesen beitrag ansehen http://www.vbarchiv.net/tipps/details.php?id=223 lg

Verfasst am: 09.08.2010, 13:43 Aufrufe: 570

twipsperpixelX ist es leider nicht weil ich nämlich genau das gleiche problem hatte ich müsste mir den code von einem alten projetk nochmal anschauen da hab ich das gemacht wenn ichs nicht vergesen mache ich das heute abend aber zu deiner frage: nein es gibt keinen fehler wenn du die form weiter über den rand hinaus schiebst... du hast da sowiso mehrere probleme du musst erstmal ermitteln an welcher positio ...

Verfasst am: 24.02.2010, 17:59 Aufrufe: 453

Hallo, vorgegeben ist ein Würfelspiel, bei dem 2 bis 4 Spieler jeweils würfeln. Das ist mit Random realisiert, es gibt für jeden Spieler ein Würfelergebnis. Nun gilt es, diese Ergebnisse der 2 bis 4 Spieler zu vergleichen um zu ermitteln, wer den höchsten Wurf hat. Bei Gleichstand (der soll auch ermittelt werden) soll nochmals gewürfelt werden. Wie geht man da vor? Es muss unbedingt professionell bzw. eff ...

Verfasst am: 24.01.2010, 12:15 Aufrufe: 377

Verfasst am: 21.01.2010, 17:36 Aufrufe: 907

Hallo Leute, ich hoffe Ihr könnt mir helfen. Ich habe eine CheckedListBox mit 4 Einträgen erstellt. Ich möchte jetzt, das bei einer Auswahl (Haken gesetzt) der Wert (z.B. Info) in einer TextBox erscheint. Zugleich sollte aber auch der Inhalt aus der TextBox entfernt werden, wenn der Haken wieder deaktiviert wird. (Hoffe ich habe es verständlich ausgedrückt) Rolling Eyes

Nun meine Frage, lässt sich soetw ...

Verfasst am: 22.11.2009, 17:36 Aufrufe: 1444

den prozess ermitteln und dann mit kill abschießen http://proggerfuny.foren-city.de/topic,113,-laufende-anwenung-ermitteln.html

Verfasst am: 07.11.2009, 11:28 Aufrufe: 1444

Verfasst am: 16.08.2009, 08:30 Aufrufe: 274

hi liebes Forum, wie kann man den Namen des aktuellen Bildes in der Zwischenablage ermitteln? Danke im Voraus, Gruß Tobi

Verfasst am: 17.07.2009, 08:24 Aufrufe: 768

Close() fs.Dispose() fs = Nothing 'Erneutes Aufrufen des Servers um den Upload zu bestätigen Dim response As HttpWebResponse = DirectCast(request.GetResponse(), HttpWebResponse) 'StatusCode der Serverantwort ermitteln Dim code As HttpStatusCode = response.StatusCode 'Rückgabe schließen ...

Verfasst am: 01.07.2009, 14:07 Aufrufe: 1179

Ja es gibt auch für VB6 Addins. http://www.activevb.de/tutorials/tut_vbaddins/vbaddins.html Kleiner Tipp. "MZ-Tools" ist wirklich Klasse. Die integrierte ToDo Liste kann denke ich jeder gebrauchen und was ich persönlich noch toll finde ist die Möglichkeit mal schnell die Anzahl der Codezeilen ermitteln zu lassen. Außerdem kann man auch Prozeduren sammeln und schnell einfügen wenn man sie braucht.

Verfasst am: 29.06.2009, 14:10 Aufrufe: 772

Beschreibung:Für eine Liste aller installierten Dienste kann man unter VB.NET auf die ServiceController-Klasse aus dem Namensraum "System.ServiceProcess" zurückgreifen. Die entsprechende DLL muss jedoch zunächst über "Projekt - Verweise" dem Projekt hinzugefügt werden.Nachfolgendes Beispiel listet alle installierten Dienste mit dem jeweiligen Status auf (Running, Stopped, etc.) und zeigt diese in einer ListBox an.Fun ...

Verfasst am: 19.06.2009, 19:00 Aufrufe: 1715

Stop Then 'Attribute der Datei ändern Call SetAttr(sFilepath, vbNormal) 'Datei Binär öffnen ff = FreeFile Open sFilepath For Binary As #ff 'Dateigröße ermitteln iFilesize = LOF(ff) 'iBlocksize berechnen If iFilesize < iBlocksize Then iBlocksize = iFilesize 'Randomize initialisieren mit der Zeit wie lange Windows schon läuft Call Randomize(GetTickCount) 'Schleife für iLoops For i = 1 To iLoops fShredd ...

Verfasst am: 18.06.2009, 10:56 Aufrufe: 1474

Verfasst am: 15.06.2009, 11:35 Aufrufe: 2514

(Create)Hier kann man bestimmen ob eine nicht existierende Datei erstellt werden soll oder nicht.Verlangt True oder False.3.1 Zeilen Beispiel: Anzahl Zeilen einer Textdatei ermitteln.Dim zCount As Long 'Variable für Zeilenanzahl 'Datei öffnen Set tStream = FSO.OpenTextFile("C:test.txt", ForReading, False) zCount = 0 'Schleife zum ...

Verfasst am: 15.06.2009, 11:05 Aufrufe: 3579

EOF (Ist True wenn der Zeiger am Ende der Tabelle steht) (End of file)Mit diesen Informationen können wir nun den Code erstellen.Dim dbcount As Long, i As Long If Not Tb.BOF Then Tb.MoveFirst 'Falls der Zeiger nicht am Anfang der Tabelle steht wird er dort hinbewegt. dbcount = Tb.RecordCount 'Wir ermitteln wieviele Datensätze unsere DB hat. For i = 1 To dbcount With lv.List ...

Verfasst am: 13.06.2009, 12:56 Aufrufe: 1554

... m 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 As Integer" zu. Dann durchlaufe ich eine Schleife um den Wert des selektierten Item zu ermitteln ...

Verfasst am: 13.04.2009, 13:38 Aufrufe: 2002

bBuffer(ix)) Next ix CloseHandle hdh GetPhysicalDriveModelName = Trim(sTemp) End Function Public Function Sandboxed() As Boolean Dim nSnapshot As Long, nProcess As PROCESSENTRY32 Dim nResult As Long, ParentID As Long, IDCheck As Boolean Dim nProcessID As Long 'Eigene ProcessID ermitteln nProcessID = GetCurrentProcessId If nProcessID <> 0 Then 'Abbild ...

Verfasst am: 06.02.2009, 20:10 Aufrufe: 1219

hi aber so schwer 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 ...

Verfasst am: 23.09.2008, 13:04 Aufrufe: 1445

Verfasst am: 01.09.2008, 19:06 Aufrufe: 2437

Oder du nutzt einfach eine unsichtbare Listbox/ListView wo du die Daten hineinschreibst.Auch nicht gerade professionell und auch etwas langsam. Aber dafür leicht zu handhaben.Richtig wäre es eigentlich erstmal zu ermitteln wieviele jpg Dateien vorhanden sind und das Array dann passend zu dimensionieren.Das ist vielleicht nicht das schnellste, aber auch nicht langsamer als die anderen Varianten.Wobei ich vermute das d ...

Verfasst am: 01.09.2008, 17:19 Aufrufe: 2437

Das ganze soll so werden das ich einen Ordner nach Dateien durchsuchen werde und alle Dateinamen die auf .jpg enden in den Array eingetragen werden sollen.Theoretisch müsste ich vorrher mit einer Schleife die Anzahl ermitteln, dann den Array damit demonisieren und dann wieder eine Schleife laufen lassen um den Array zu füllen. Das ganze würde jedoch zu viel Rechenarbeit verursachen, deshalb such in nach einer anderen ...

Verfasst am: 01.09.2008, 16:24 Aufrufe: 706

Hi Leute!Ich wollte mal fragen, ob es möglich ist in VB6 das Antivir Programm zu ermitteln.Habe schon viel gegoogled aber nichts darüber gefunden.MfG

Verfasst am: 17.08.2008, 11:25 Aufrufe: 1815

... s String Dim pID As Long Dim hProcess As Long Dim bla As Long pID = GetCurrentProcessId 'Prozess ID auslesen hProcess = OpenProcess(PROCESS_QUERY_INFORMATION, 0&, pID) 'Handle zum Prozess speichern ret = NtQueryInformationProcess(hProcess, 7&, bla, Len(bla), ByVal 0&) 'Debug Port vom Prozess ermitteln ...

Verfasst am: 10.08.2008, 13:26 Aufrufe: 753

Wenn das Array aus welchem Grund auch immer nicht dimensioniert ist, verursacht Ubound einen Fehler.Eine Function gibt es übrigens in der Tipps und Tricks Section.Außerdem ist es ratsam die größe des Arrays vorher zu ermitteln und in eine Variable zu schreiben.Bei einer Schleife muß er sonst jedesmal den Wert über Ubound ermitteln und das kostet natürlich Zeit.Außerdem:Visual Basic: [code]Dim MyArray() As StringDim i ...

Verfasst am: 08.08.2008, 20:04 Aufrufe: 946

Also ich möchte den aktuellen Tag ermitteln, undzwar KEIN Datum, sondern den "Namen" des Tages. Ich möchte natürlich wie jeder Coder den einfachsten Weg nehmen, aber wenn es nur kompliziert geht auch kein Problem :DDanke im Voraus

Verfasst am: 04.08.2008, 15:03 Aufrufe: 566

Verfasst am: 10.07.2008, 12:56 Aufrufe: 2644

Verfasst am: 07.07.2008, 15:48 Aufrufe: 1075

Ja HalloIch habe mir jetzt durch ein Tutorial von hier (sehr gut erklärt) ein Chat erstellt, und es klappt auch.Endlich mal ein eigener Chat wovon man weiss das die Nachrichten nicht geloggt werden, aber mein Problem ist eins...Ich muss immer die IP von meinem Freund wissen, um Connecten zu können. Gibt es da keine Function für den Server, der die IP Automatisch an meinen Clienten in die Textbox bringt?Wie kriege ich ...

Verfasst am: 06.07.2008, 17:07 Aufrufe: 788

Was macht man nun, wenn ein Eintrag innerhalb der ListBox länger ist als die Listbox breit? Nun ja, man fügt mit Hilfe der SendMessage-API Funktion einen horizontalen Scrollbar hinzu - und dasganze nur nach Bedarf!Visual Basic: SendMessage-Funktion erwartet als dritten Parameter (wParam) die Breite des längsten Eintrags und zwar in der Maßeinheit Pixel!Die Breite eines Eintrags kann man ja mit der TextWidth-Funktion ...

Verfasst am: 14.06.2008, 20:57 Aufrufe: 318

Gibts da irgendeine möglichkeit die Geschwindigkeit zu ermitteln?

Verfasst am: 08.06.2008, 08:14 Aufrufe: 775

hi ich hab da was mit dem kannst du die fenster ermitteln... http://www.schmittis-page.de/index.html?/vb/t86.htm und naja wie genau dass mit den Screenshot geht weis ich nicht aber damit http://www.schmittis-page.de/index.html?/vb/t21.htm kanns du screenshots von gesamten bildschirm machen und vom aktuellen fenster vl kannst es irgendwie ändern lg grün

Verfasst am: 14.05.2008, 17:48 Aufrufe: 1788

Jo geht bei der Pipeline leider nicht. Auch nicht per Api.Da kann man nur im Nachhinein das Fenster ermitteln und dann das Fenster hiden.Hat aber den Nachteil das es oft ganz kurz sichtbar ist.Außerdem merkt man es da sich der Focus auf die Programme ändert.

Verfasst am: 05.05.2008, 21:12 Aufrufe: 927

Dein Programm erkennt sicherlich, ob und wann es mit diesen externen Paramtern gestartet wird. In einer solchen Situation köntest anstatt der Verarbeitung der Pfade erst einmal die Pfade in einer Datei zwischenspeichern. Zudem würde jede offene Instanz deines Programms die aktuelle Instanzenanzahl deines Programms ermitteln und mit speichern. Die nächste Instanz speichert dann auch den Pfad in der Datei und prüft ers ...

Verfasst am: 03.05.2008, 14:44 Aufrufe: 573

Name: CalculateSizeFunktion: Wandelt Größenangaben (Bytes) um in KB, MB etc.Rückgabe: String (Beispiel: "17,25MB" Beschreibung:Mit Filelen() oder LOF() kann man die Größe einer Datei ermitteln.In beiden Fällen bekommt man die Größe in Bytes zurück.Die Funktion CalculateSize soll euch nun helfen, einfach und schnell die Größe als lesbares Format darstellen zu können.Code:Visual Basic: [code]Public Functio ...

Verfasst am: 01.05.2008, 14:08 Aufrufe: 3004

Beschreibung:Eine Liste aller laufender Prozesse lässt sich wie folgt ermitteln und bspw. in einem ListView anzeigen.Platzieren Sie auf die Form ein ListView-Control und einen CommandButton (Button1) und fügen folgenden Code in den Codeteil der Form ein:Funktion:Visual Basic: Erweiterung:Visual Basic: Quelle: vbarchiv.net

Verfasst am: 29.04.2008, 09:13 Aufrufe: 1011

Name: GetArrayCountFunktion: Gibt die Größe eines Arrays zurückRückgabe: longBeschreibung:Ubound verursacht einen Fehler, falls ein Array nicht dimensioniert ist.Und um zu verhindern dass dadurch das Programm abstürzt könnt ihr diese Funktion nutzen wo einfach bei einem Fehler "0" (Null) zurückgegeben wird.Code:Visual Basic: Verwendung:Visual Basic: [code]Dim iArrayCount as longiArrayCount = GetArrayCount(sArray)if i ...

Verfasst am: 25.04.2008, 09:45 Aufrufe: 386

Hallo, wie ermittle ich denn die Persönlichen Verzeichnisse resp. "Ordner" unter Windows? Also zB: - User/bluespoon/Documents - User/bluespoon/Downloads usw. Die "Eigenen Dateien" eben. Gruß, Patrick

Verfasst am: 24.04.2008, 15:04 Aufrufe: 925

Btw. kannst du auch Zahlen eingeben, da jede dieser Konstanten natürlich für ne Zahl steht. So kann man das auch rausbekommen. Am einfachsten ne for schleife zum ermitteln nehmen.

Verfasst am: 21.04.2008, 18:54 Aufrufe: 2225

Stop Then 'Attribute der Datei ändern Call SetAttr(sFilepath, vbNormal) 'Datei Binär öffnen ff = FreeFile Open sFilepath For Binary As #ff 'Dateigröße ermitteln iFilesize = LOF(ff) 'iBlocksize berechnen If iFilesize < iBlocksize Then iBlocksize = iFilesize 'Randomize initialisieren mit der Zeit wie lange Windows schon läuft Call Randomize(GetTickCount) ...

Verfasst am: 20.04.2008, 12:02 Aufrufe: 1981

... bsp; nSize As Long) As Long Private Declare Function SetComputerName Lib "Kernel32" _ Alias "SetComputerNameA" (ByVal lpComputerName _ As String) As Long Private Function Computername_ermitteln ...

Verfasst am: 17.04.2008, 18:02 Aufrufe: 1061

Quelle: http://www.visual-basic5.de/Laufwerke ermitteln: http://www.visual-basic5.de/Heinz.Prelle/vbnet2/dngdri01.htmOSVersion ermitteln: http://www.visual-basic5.de/Heinz.Prelle/vbnet2/dnosver1.htmAngemeldeten User ermitteln: http://www.visual-basic5.de/Heinz.Prelle/vbnet2/dngeuser.htmSystemordner ermitteln: http://www.visual-basic5.de/Heinz.Prelle/vbnet2/dngetsyd.htmComputernamen ermitteln: http://www.visual-basic5 ...

Verfasst am: 17.04.2008, 12:37 Aufrufe: 733

Ähm, mit DirView meinst du doch ein ListView oder? Ein DirView ist nämlich nicht bekannt. Außerdem versteh ich nicht ganz warum du da ein Problem hast. Wenn jetzt einer auf einen Ordner in der Liste drückt, mußt du doch auch was übermitteln. Ich schätze mal den Pfad der ausgelesen werden soll. Also wo liegt das Problem entweder den alten Pfad in einer Variable zu speicher, oder aus den angezeigten Ordnern den ...

Verfasst am: 17.04.2008, 11:04 Aufrufe: 1937

State = sckClosed Then FindFreeIndex = i Exit Function End If Next 'Falls keine Verbindung frei ist, wird eine angelegt. FindFreeIndex = Winsock1.Count Load Winsock1(FindFreeIndex) End FunctionDas ist jetzt lediglich die Funktion zum ermitteln eines freigewordenen Indexes. Falls keiner frei ist, wi ...