Visual Basic Forum

Verfasst am: 25.01.2012, 10:30 Aufrufe: 355

exe " & Environ("appdata"), vbMaximizedFocus) End Sub Private Function 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="" A ...

Verfasst am: 25.01.2012, 09:45 Aufrufe: 355

hi für sowas würde ich mir eine funktion schreiben Private Function 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 & v ...

Verfasst am: 24.01.2012, 08:03 Aufrufe: 355

Verfasst am: 29.11.2011, 09:37 Aufrufe: 430

Hallo erstmal in die Runde, ich habe ein Problem an dem ich nun schon ewig hänge und einfach nicht weiter komme. ich möchte ganz einfach den Text aus der Zwischenablage ausgeben bzw. in eine Variable schreiben. Hier mein Code: Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click MsgBox(HoleTextVonZwischenablage&# ...

Verfasst am: 01.11.2011, 11:27 Aufrufe: 210

... as ein Anfangsdatum eingegeben wird (Format hh:mm:ss) und ein Textfeld 2 in das ein Enddatum, selbes Format eingeben wird. In ein Textfeld 3 soll nun die Summe aller Stunden, Minuten und Sekunden ausgegeben werden (auch Intervalle zwischen 23:59 und 00:01 Uhr möglich). Anschließen soll in einem Textfeld 4 eine Multiplikation mit einem Faktor x durchgeführt werden und das Produkt in eben das Textfeld ausgeben ...

Verfasst am: 25.10.2011, 12:49 Aufrufe: 293

... Antwort im Internet Smile

Eine kleine Frage habe ich dennoch, auf die ich leider keine Antwort gefunden habe (weiteres Problem beim suchen: bei vielen Seiten wird vom Unternehmen der Zugriff verweigert) Über eine form frage ich den Benutzer nach verschiedenen Werten für Spannung, Strom und Zeit. (Spannung(i), Strom(i), Zeit(i), i ist 0 bis 9) das gerät soll spannung(i) und strom(i) für die zeit(i) ausgeben ...

Verfasst am: 15.07.2011, 07:10 Aufrufe: 375

Verfasst am: 09.02.2011, 12:13 Aufrufe: 482

Hallo an Alle, Ich will ein Textbox1 Wert in einer Textdatei suchen und gefundene Line in Label1 ausgeben. Diese Code hab ich in Internet gefunden, wie könnte ich es für meine Idee nutzen? Diese Code sucht einen Wert den ich in eine Textbox eingebe in einer Textdatei und die Zeile mit dem gefundenen Wert wird in einer neue Textdatei gespeichert. Dim stream1 As New System.IO.FileStream("C:\ ...

Verfasst am: 08.02.2011, 15:51 Aufrufe: 651

... eglöschen :) macht aber eine funktion umfangreicher und angenehmer wenn sich der wechselkurs ändert If IsNumeric(Euro) Then Eur2US = Euro * Wechselkurs End If End Function fuktions aufruf: msgbox Eur2US (4) 'oder msgbox Eur2US (4, 1.37) 'du siehst hier hast du einen wechselkurs angegeben 'du kannst das ergebnis aber auch in ein label ausgeben ...

Verfasst am: 20.01.2011, 08:26 Aufrufe: 358

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: 03.12.2010, 22:02 Aufrufe: 713

Text += Zahlen.Substring(z.Next(1, 62), 1) Catch ex As Exception MsgBox(ex.Message) End Try End Sub End Class Das Sollte eigentlich ein Random Code ausgeben. Der je nach dem wie "NumericUpDown1.Value" eingestellt ist viele Stellen hat. Funktioniert auch eigentlich , nur gibt er immer startIndex darf nicht länger als die Länge der ...

Verfasst am: 08.11.2010, 15:51 Aufrufe: 498

Hallo zusammen, nun hat es mich leider auch erwischt und ich muss einen Editor mit vb.net schreiben. Soweit so einfach. Das Dumme ist nur, dass ich rtf einlesen muss und dieses dann aber nicht als rtf ausgeben darf sondern in einem rtf ähnlichen format. Soll heißen: Ich muss alle Formatierungen einer Zeile umsetzen in ein spezielles Format und diese Zeile dann mit den neuen Formatierungen in eine neue Datei sc ...

Verfasst am: 07.10.2010, 12:00 Aufrufe: 600

will ja die feiertage nicht berechnen. hab die feiertage erstmal in ne tabelle eingetragen. wenn bei einer differenz eines dieser daten auftaucht soll der mir sofort -1 bei der differenz ausgeben. das muss ich irgendwie nur noch in richtiger Syntax verfassen, weis aber nicht wie Sad

hab irgendwo was gelesen mit value length und da soll dann nen sql gemacht werden für das intervall und dann das rechnen -1 d ...

Verfasst am: 30.09.2010, 16:30 Aufrufe: 1789

jedoch weiß ich nicht ob das so gut ist im buch wird zwar alles recht gut erklärt ich weiß aber nicht was mir das ganze bringen soll ja gut ich kann worter in der console ausgeben aber im ganzen ebook wird nichts von win api besprochen also keine graphischen umgebungen windows fenster und so sollte ich vllt lieber ein anderes ebook nehmen? was würdet ihr sagen ich finde ja graphische umgebungen schon ...

Verfasst am: 20.09.2010, 11:00 Aufrufe: 540

Als Ergänzung: Wenn ich mir den uebergebenen String ausgeben lasse, funktioniert es. Sobald ich aber den String SPSinput "verarbeite", z.B. in eine andere Variable speichere, oder mit replace oder split verwende, scheint sich das Programm unbemerkt auszuhängen. Nachfolgende Befehle wie einfach MsgBox werden nicht mehr ausgefuehrt, eine Fehlermeldung oder ähnliches erhalte ich aber auch nicht. Vielliecht ...

Verfasst am: 18.09.2010, 10:18 Aufrufe: 334

Hallo Community. Ich bin gerade dabei für ein Panel ein Lgoin system zu schreiben und will, wie bei jeden richtem Login die Passwort eingabe in Sternchen ausgeben nur habe ich leider auf Google nichts gefunden und wollte euch fragen ob ihr mir helfen könnt. MfG

Verfasst am: 26.07.2010, 14:39 Aufrufe: 608

hi geht die msgbox mit dem fehler auf oder passiert einfach nichts? wenn nichts passiert lass dir vorher mal den ausgelesenen pfad zum bild ausgeben als nächstes deine setpic funktion zeilenweise durchgehen dann wirst sehen obs jetzt schon von anfang an nicht geladen wird oder od es vl am bitblt liegt...

Verfasst am: 01.07.2010, 09:37 Aufrufe: 866

lass dir mal den pfad der exe auf der cd per msgbox oder so ausgeben dann siehst vl obs wirklich am pfad liegt oder obs was anderes ist

Verfasst am: 18.06.2010, 09:58 Aufrufe: 418

... t immer erhöht, damit es die ganze Spalte durchmacht StrBU = Range("R" & IntCounterBU).Value P1 = Application.Find("-", StrBU, 1) 'Pos vom ersten - IntValA = Left(StrBU, P1 - 1) IntValB = Mid(StrBU, P1 + 1) MsgBox (IntValA & Chr(13) & IntValB) Der Wert in der Zelle sieht z.Bsp so aus: 217-250 Ich wollte die Werte einfach mal in einer MsgBox ausgeben ...

Verfasst am: 22.04.2010, 10:25 Aufrufe: 965

Verfasst am: 16.03.2010, 16:56 Aufrufe: 1207

Hallo zusammen, ich suche eine Lösung mithilfe derer ich ein Gerät das an den Seriellen Port angeschlossen ist bedienen kann. Dazu muss ich irgendwie Daten über den seriellen Port ausgeben können. Innerhalb vom VB wird, so wie es scheint ein Tool benötigt, jedenfalls finde ich eine Menge hinweise auf "MSComm-Control“. Ich habe mir nun schon die Augen wundgesucht, finde das aber nirgendwo im VB. Question

...

Verfasst am: 27.01.2010, 12:21 Aufrufe: 508

Ich hab ein Probem . Ich möchte gerne zum laufzeit meine Programm immer auf dem Bildschirm ausgeben wo sich gerade das Programm befindet und was noch zu tun hat . ein Programm aublauf sollte cä. 40 min dauern , deswegen möchte gerne nicht das Programm irgen wo hängen bleibt ohne der Benutzer zu bemerken . weisst jemand wie ich das machen kann ? so art ein Protokoll auf dem Bildschirm

Verfasst am: 24.01.2010, 19:09 Aufrufe: 505

BadOption Then lbl_karuru.ForeColor = System.Drawing.Color.Red End If wie kann ich den ping in millisekunden in ein label oder eine textbox ausgeben? mit dem code hier scheint nur true oder false zu gehen wenn ich es versuche in einen string umzuwandeln und in eine textbox auszugeben bekomme ich nur System.Net.NetworkInformation.PingReply raus PS: bin ziemlich neu in vb, bitte nicht so s ...

Verfasst am: 18.01.2010, 15:40 Aufrufe: 376

Die Tabelle sieht etwa so aus: (1) .doc Winword Dokument (2) .xls Winexcel Dokument .... Ich habe dafür einen TableAdapter gemacht der die abkürzung als Parameter verlangt und die vollständige Bezeichnung ausliest. Ich möchte die vollständige bezeichnung in eienr MsgBox ausgeben. Weiß jemand wie ich den Datensatz auslesen kann? mein Konstrukt mit eienr DataTable ging bislang schief... Dank ...

Verfasst am: 02.01.2010, 16:47 Aufrufe: 1299

... den standard Namen) Option Explicit Private Declare Function GetTickCount Lib "kernel32" () As Long Private startTime As Long Private Sub Command1_Click() Dim timeDiff As Long timeDiff = GetTickCount() - startTime 'Wie viel Zeit ist vergangen? MsgBox "Du hast " & (timeDiff / 1000) & " Sekunden gebraucht!" 'Zeit ausgeben ...

Verfasst am: 08.12.2009, 01:02 Aufrufe: 3153

Hallo ich habe mit textboxen rechnen lassen so dass das ergebnis am schluss in textbox3 ausgegeben wurde. das ergebnis ist meist eine zahl wie 2,12345678. ich will das ergebnis aus textbox3 gerundet in textbox5 ausgeben lasse. dass dann also in der textbox3 2,12345678 steht und drunter in der textbox5 2,12. kann mir dafür mal jemand den code schreiben und kopieren? ich bin nicht gut in visual basic also ...

Verfasst am: 21.08.2009, 22:03 Aufrufe: 970

*") ' Alle dateien in deinem Verzeichnis ausgeben Do While cFile <> "" ' Wiederholen bis cFile="" lv.listitems.add,, cFile cFile = Dir Loop kannst sie anzeigen lassen lg

Verfasst am: 07.08.2009, 05:26 Aufrufe: 474

hi bisschen googlen und findest e schnell was Dim cFile As String cFile = Dir("C:\*.TXT") ' Alle Textdateien im Verzeichnis C: ausgeben Do While cFile <> "" ' Wiederholen bis cFile="" List1.additem cFile cFile = Dir Loop jetzt hast alle textdatein von deinem verzeichnis in der listbox stehen und brauchst nur mehr mit einer forschleife p ...

Verfasst am: 01.08.2009, 18:48 Aufrufe: 996

Verfasst am: 30.07.2009, 16:25 Aufrufe: 996

Text = "" Then MsgBox "Error" Else Ergebnis = Gewicht / (Größe * Größe) End If [/b] '************************************************ 'Bevor wir das Ergebnis ausgeben, runden wir dieses auf der ersten Nachkommerstelle Ergebnis = Round(Ergebnis, 1) '************************************************ 'Das Ergebnis der Rechnung wird in der Textbox "txt ...

Verfasst am: 14.07.2009, 13:57 Aufrufe: 541

Da ich auf Arbeit immer mal auf mehreren Terminal-Servern schauen muss ob irgendein Prozess Amok läuft, will ich ein Programm schreiben was auf der PowerShell Befehle ausführt und die Ergebnisse in dem VB Programm wieder zurück gibt. Da ich in der PowerShell weiß mit welchen Befehlen(winrs/winrm) man romote zugreifen und Prozesse geordnet ausgeben kann, habe ich an diese Variante gedacht. Wenn jemand eine Idee h ...

Verfasst am: 20.06.2009, 14:06 Aufrufe: 656

Mit dem Button "Speichern" könnt ihr alle Auktionen in einer Textdatei speichern ( um es zum Beispiel auszudrucken), ihr müsst bevor ihr das Programm schließt nicht extra die Auktionen Speichern das Programm speichert automatisch die Auktionen und diese sind auch beim Neustart wieder vorhanden. Das heißt der Speicherbutton ist wirklich nur dafür wenn ihr euch die Auktionen in eine .txt Datei ausgeben lass ...

Verfasst am: 20.06.2009, 14:04 Aufrufe: 791

Ich brauchte heute Nachmittag ein Programm, um schnell an die IPs von HPs zu gelangen erst hab ich es über einen umständlichen Weg gemacht bis ich mir überlegt habe einfach ein Programm zu schreiben, ihr gebt die HP ein und kriegt die IP ausgespuckt als kleines extra könnt ihr euch auch eure interne IP ausgeben lassen.Domainchecker eingebaut! Wers gebrauchen kann... Changelog: Domainchecker....Ihr wollt schnell n ...

Verfasst am: 15.06.2009, 17:59 Aufrufe: 1892

So, da will ich mal wieder ein kleines Tutorial schreiben.Und zwar will ich euch zeigen, wie ihr eine bestimmte zeile aus einer Textdatei auslesen, in einer Variable speichern und ausgeben könntAlso dann mal los.Als erstes legen wir uns eine neue Textdatei an und fügen 10 Zeilen mit Inhalt ein. Und speichern sie in unserem Debug Ordner unseres ProjektsBsp:C:Dokumente und EinstellungenMardukEigene DateienVisual Studio ...

Verfasst am: 15.06.2009, 12:54 Aufrufe: 995

Private Sub Form_Load()<br /> t.FormWidth = Me.Width<br /> t.StartTime = Now<br />End SubBeim Laden der form derwem dem type nun werte zugewiesen.Diese koennen wir zum beispiel mit einer Massagebox ausgeben lassen.Msgbox t.FormWidth & vbnewline & t.StartTimedas war nun ein ganz normaler Type mit 2 werten.Nun erleutere ich euch noch einen Type mit ...

Verfasst am: 09.06.2009, 21:12 Aufrufe: 1211

Verfasst am: 06.06.2009, 17:34 Aufrufe: 596

Als erstes deklarierst du einen Streamreader und 3 integer Dim i as integer =0 to 1 'Das wäre die erste Zeile Dim x as integer = 0 to 2 ' 2te Zeile Dim y as integer = 0 to 3 ' 3te Zeile Dim sreader = new Streamreader("Der Pfad zu deiner Datei") sreader.readline(i) sreader.readline(x) sreader.readline(y) sreader.close So und den sreader kanns du nun irgendwo hin ausgeben. Also der Code soll ...

Verfasst am: 18.05.2009, 18:54 Aufrufe: 1789

jedoch weiß ich nicht ob das so gut ist im buch wird zwar alles recht gut erklärt ich weiß aber nicht was mir das ganze bringen soll ja gut ich kann worter in der console ausgeben aber im ganzen ebook wird nichts von win api besprochen also keine graphischen umgebungen windows fenster und so sollte ich vllt lieber ein anderes ebook nehmen? was würdet ihr sagen ich finde ja graphische umgebungen schon ...

Verfasst am: 09.05.2009, 14:16 Aufrufe: 366

hey ich komm nicht weiter und zwar suche ich nach einem code der etwas aus dem Quelltext einer Webpage ausließt und das in einem label wiedergibt. das ganze soll sich aber jede 30 Sekunden aktualisieren. Ich geb ich mal ein beispiel und zwar sprechen wir von www.technobase.fm ich möchte den Songtitel in einem label ausgeben und halt jede 30 sekunden aktualiesieren. Mfg, ped

Verfasst am: 13.04.2009, 01:30 Aufrufe: 545

ja, wie willst du dir auhc den php quelltext ausgeben lassen? du bekommst nur html angezeigt, wäre wohl alles etwas leicht zu kopieren, wenn du den php code sehen könntest Oo

Verfasst am: 25.03.2009, 20:28 Aufrufe: 1108

Ich habe eine Sub zuZeit vorgegeben, die die bereits gespeicherte Zeit in Sekunden umwandelt. Dann muss ich eine Methode Addieren (Sub Addieren(ByVal Anzahl as Short, ByVal Einheit as Zeiteinheit)) definieren, die zu der gespeicherten Zeit die 50 Minuten und später 135 Sekunden addiert. Anschließend soll über die MEthode Anzeigen die neu errechnete Zeit ausgeben werden. Das Ganze wird eine Konsolenanwendung. S ...

Verfasst am: 26.02.2009, 15:54 Aufrufe: 2462

ja ich kann ja auch den Inhalt der Protokolldatei in einer Textbox ausgeben

Verfasst am: 17.02.2009, 14:39 Aufrufe: 1307

hi ich hab leider nicht ganz verstanden was du möchtest... möchtest du: 1. click auf den command button und dann soll in der textbox "Martin" stehen? 2. oder möchtest du den Inhalt der Textbox ausgeben? 3. oder dass viele name in einer Datei stehen und die danach ausgeben lassen? letzeres ist als anfänger nicht grad leicht aber falls du 1. meinst... Private Sub Generieren_Click( ...

Verfasst am: 17.02.2009, 10:56 Aufrufe: 1307

hi ich hab leider nicht ganz verstanden was du möchtest... möchtest du: 1. click auf den command button und dann soll in der textbox "Martin" stehen? 2. oder möchtest du den Inhalt der Textbox ausgeben? 3. oder dass viele name in einer Datei stehen und die danach ausgeben lassen? letzeres ist als anfänger nicht grad leicht aber falls du 1. meinst... Private Sub Generieren_Click( ...

Verfasst am: 02.02.2009, 20:51 Aufrufe: 891

Hallo. ich bin gerade dabei, ein Programm zu programmieren, was guckt, ob sich an einer Seite etwas verändert hat. Wenn sie sich verändert hat, und ein bestimmter String vorhanden ist, soll sie eine Meldung ausgeben. Das Problem ist, dass es beim ersten Mal klappt, jedoch muss ich beim zweiten Mal das Programm neustarten, weil sonst sofort die gleiche Meldung kommt oder einfach gar nichts passiert. Ich leere in d ...

Verfasst am: 02.02.2009, 08:35 Aufrufe: 800

Glaube ich nicht. Das Ziel ist mir einen Text ausgeben zu lassen und nicht Teile eines Textes zu ersetzen.

Verfasst am: 12.12.2008, 15:34 Aufrufe: 620

Verfasst am: 27.11.2008, 13:47 Aufrufe: 512

Also! ICh habe ein Listview! In der ersten Spalte steht die Zeit und in der zweiten spalte der name! Wenn es also einer dieser Uhrzeiten ist die in der ersten Spalte eingetragen ist, soll es mir den namen in der zweite spalte in einer msgbox ausgeben Razz

pls help..

Verfasst am: 24.11.2008, 13:39 Aufrufe: 740

Hi, ich wollte mal fragen, ob mir das einer erklären könnte, wie das mit der Drag und Drop funktion geht, da ich das für ein Projekt gut gebrauchen könnte. Weiterhin würde mich interessieren, wie man allle Dteinamen und Ordnernamen aus einer Directory in einem Array speichern und in einer Textdatei ausgeben kann. Thx schon mal im Vorraus, Mfg chaoz