Visual Basic Forum

Verfasst am: 23.04.2012, 18:32 Aufrufe: 67

Hallo zusammen , habe ein problem eine rtf datei per ftp zu uploaden. genauergesagt wird die datei upgeloadet aber die darin befindlichen bilder sind weg. ich hänge hier schon 2 monate ohne ergebnis . Mad

hier der zuständige code : Public Sub Upload() Dim pfad As String Dim datei As String Dim dateiname As String Dim open As String Dim requestStream As ...

Verfasst am: 02.04.2012, 13:06 Aufrufe: 148

Hallo, ich habe ein Makro in einer Excel-Datei einwandfrei durchlaufen lassen. Dann wollte ich eine bestimmte Tabelle "Einzel_Nachweis_gesamt" in dieser Datei anklicken. Plötzlich bekomme ich die Meldung: "Excel reagiert nicht mehr" und ich muss Excel neu starten. Wenn ich dagegen auf andere Tabellen anklicke, bekomme ich diesen Fehler nicht. Es scheint so, dass die VBA-Code zu dieser Tabe ...

Verfasst am: 13.02.2012, 17:10 Aufrufe: 196

Salü zusammen Als absoluter Neuling versuche ich in einem Word Dokument relative Bildverknüpfungen einzufügen. Das müsste doch so gehen: (aber nur, wenn die Dokus immer aus demselben Pfad stammen, und der abzuschneidende Pfadanteil des absoluten Pfades genau die richtige Länge(53 Zeichen) hat). Mein Problem ist, dass INCLUDEPICTURE offenbar keine Srtingvariablen mag..... Mad

Wie kann ich dem sonst aus einer ...

Verfasst am: 10.08.2011, 08:34 Aufrufe: 542

Hallo alle zusammen! In unserem Betrieb haben wir ein selbst gestricktes Programm welches für verschiedene Körper Abwicklungen im DXF-Format ausgibt. Die DXF-Dateien können von einem Zeichenprogramm (ProFirst) geöffnet und bearbeitet werden und letztendlich in der Werkstatt vom Plasmaschneider automatisch zugeschnitten werden. Da das Programm mit Visual Basic 6.0 geschrieben wurde und wir der Zeit nicht ganz ...

Verfasst am: 27.07.2011, 11:29 Aufrufe: 807

Hallo Zusammen, habe schon die Suche verwendet aber nichts gefunden was meinen Thema betrifft. Ich arbeite mit VB2010 Express. Es geht um die Erstellung einer INI.Datei. Ich habe ein Programm, mitdem ich das Volumen, Gewicht, Prozentualen Füllstand und Wandstärkenauslegung von Tanklagern berechnen kann und möchte diese Werte, bzw das komplette Programm mithilfe einer INI Datei speichern. Meine Frage: Ansich ...

Verfasst am: 20.07.2011, 17:09 Aufrufe: 774

Hallo zusammen, ich habe das Problem, dass ich aus einem beliebigen Forumular den Inhalt von Textboxen in eine Excel-Datei packen will. Heißt also das ich zb. Hallo in die Textbox eingebe und auf einen Button drücke. Damit speichert VB die Daten aus der Textbox in bestimmte Zellen von Excel. Ich habe auch schon gegoogelt und folgenden Programmcode entdeckt: Visual Basic Quellcode Public Class Form1 Dim ...

Verfasst am: 19.07.2011, 19:27 Aufrufe: 628

Ich will mich hier erstmal vorstellen, ich bin neu.. =) und komm aus Ulm (Baden Württemberg) ich bin auf dem Gebiet Vb.net noch ein neuling so mein Problem... ich habe einen Server bei dem ich mit mehrer clients konekten will und vom Server aus an jeden client gleichzeitig daten senden kann Ich habe es hinbekommen das sich ein client konekten kann aber keine zwei oder drei=)... das wäre auf jedenfal ...

Verfasst am: 21.05.2011, 16:46 Aufrufe: 847

Hallo, mit folgendem Code lasse ich Dateien aus einem Ordner in einer Listview anzeigen: Hier der Code: Dim dlgFolderOpen As New FolderBrowserDialog() If dlgFolderOpen.ShowDialog() = DialogResult.OK Then Dim Auswahl As String = dlgFolderOpen.SelectedPath Dim directory As New System.IO.DirectoryInfo(Auswahl) For Each Datei As System.IO.Fil ...

Verfasst am: 21.04.2011, 00:50 Aufrufe: 368

Hoffe das hilft dir.... 'Erstellt einen Dialog zur Auswahl von Ordnern Dim obj_Folder As New FolderBrowserDialog Dim str_Folder As String 'Sorgt 100% dafür das du einen Button für "Neuen Ordner anlegen" hast obj_Folder.ShowNewFolderButton = True 'Wenn Dialog mit Ok beendet If obj_Folder.ShowDialog = Windows.Forms.DialogResult.OK Then 'Versuche den Ordner zu erstellen, könnte ja sein das das nich ...

Verfasst am: 25.03.2011, 01:11 Aufrufe: 1244

Imports System.IO Imports System.Net Imports System.ComponentModel Public Class Form1 Dim watch As Long Private th As BackgroundWorker Dim speed1 As Long = 0 Dim speed2 As Long = 0 Dim Temp As String = Environment.GetEnvironmentVariable("Temp") Dim Patcherver As String = "1.0" Dim MyPfad As String = Path.GetDirectoryName(Application.Executa ...

Verfasst am: 17.03.2011, 13:34 Aufrufe: 864

Also du gehst wie folgt vor: Wir müssen dem Programm erstmal sagen, dass er was einlesen soll und was er einlesen soll, das geht so: Dim fs As IO.FileStream = New IO.FileStream( _ "DeineDatei.txt", IO.FileMode.Open, _ IO.FileAccess.Read) Dim w As IO.StreamReader = New IO.StreamReader(fs) ' Nun können wir Zeilen einlesen und auch gleich deinen textbo ...

Verfasst am: 16.03.2011, 20:40 Aufrufe: 313

Hallo zusammen, hab da mal ne Frage. :Ich habe den Text meherer RTB`s in eine Datei gespeichert die ich "TEST" nenne, diese Datei "TEST" wird mir in einer Listbox angezeigt. nun möchte ich mit Click auf "TEST" in der Listbox den Text wieder in die RTB`s einlesen. Kann mir da jemand helfen ???????

Verfasst am: 15.03.2011, 21:37 Aufrufe: 426

Verfasst am: 07.03.2011, 20:07 Aufrufe: 477

Hallo. Bin hier Neuling und hoffe ich mach da alles richtig. Ich hab da nen Code den ich ändern wollte. Leider kenn ich die passenden Befehle nicht. Im Programm soll die Abfrage von CPU.M(100, 5) permanent abgefragt werden. Wenn = True dann soll die testdatei.txt erstellt werden. Und was ja warscheinlich von selbst geht. Wenn CPU.M(100, 5) erneut True wird dann soll die Datei erneut erstellt werden. ...

Verfasst am: 07.03.2011, 15:38 Aufrufe: 383

Ich möchte das du Progressbar nur startet wenn eine korrekte Icq Nummer in die Textbox eingegeben wurde! Und das es nicht zu starten geht wenn man nur "a" oder sowas eintippt! Das mit Textbox oben da meinte ich eine Text Datei!

Verfasst am: 09.02.2011, 15:23 Aufrufe: 483

Hab' das Problem mit Hilfe von anderen VB-Forum gelöst! For Each Line As String in IO.File.ReadAllLines("Pfad\Datei.txt") If Line.Contains("Zeichenfolge") Then Label1.Text = Line End If Next

Verfasst am: 31.01.2011, 21:36 Aufrufe: 463

Verfasst am: 18.12.2010, 15:25 Aufrufe: 607

Hallo, ich öffne eine JPG-Datei änder nur die Auflösung und er speichert die mir z.b. Statt 24 Bit wie das Original ist mit 32 Bit ab. Dadurch ist die Datei statt 100 km fast 2 MB gross. Folgendes nutze ich um die Datei zu ändern und zu speichern. Danke im Voraus mfg Pascal Dim bild As New Bitmap(OpenFileDialog1.FileName) Dim bild_dest As New Bitmap( _ CInt( ...

Verfasst am: 07.11.2010, 13:42 Aufrufe: 613

Jetzt habe ich doch noch eine weitere Frage dazu: Mein Code zum Versenden einer Datei über ein html Formular mit VB sieht wie folgt aus: Private Sub cmdUpload_Click() Dim aPostData() As Byte Dim vPostData As Variant Dim vUrl As Variant Dim vHeaders As Variant Dim strText As String Dim strContentHeader As String Dim strBody As String Dim nFile As Integer Me.txtFile1.Text = "D& ...

Verfasst am: 29.09.2010, 12:50 Aufrufe: 621

gib den text in einer txt datei aus und diese öffnest dann mit shell ist zwar nicht ganz das was du suchst aber würde acuh gehen lg

Verfasst am: 06.09.2010, 11:15 Aufrufe: 455

Hallo, die Frage ist, wie kann ich das realisieren? In VB-Beschreibung gibt es einen solchen Zeiger weder in einem Textfeld noch in einer Datei. Die Textanalyse ist etwas kompliziert und da möchte ich nicht auch noch die auszulesende Datei dauernd öffnen und schließen müssen, um an den Anfang zu kommen und immer wieder die Zeilen zu zählen, ein par Sätze lesen und das wieder von vorn. Genauso interessant wäre es, ...

Verfasst am: 29.08.2010, 09:43 Aufrufe: 554

ich habe gesucht, aber leider nichts gefunden. Beim zeilenweisen einlesen eines Textes aus einer Datei in ein Textfeld wird der Text nur bis zum Ende des Textfeldes angezeigt. Ich möchte aber gerne, das wärend der Eingabe der Text gescrollt wird, also über das Textfeld wandert und immer die gerade eingelesene Zeile gesehen werden kann, der Cursor also immer sichtbar ist. Ist das in VB6 möglich? MfG

Verfasst am: 22.04.2010, 10:25 Aufrufe: 965

hi na klar bleibt die datei leer wennst mit for output öffnen möchtest weil dann die datei erstellt wird Wink

probiers mal mit Dim x As Double Dim sText As String Dim FileLength f = "c:\test.txt" Open f For Input As #1 FileLength = LOF(1) t = Input(FileLength, #1) 'ganze datei einlesen Close #1 sText = "Test!" x = InStr(1, t, sText) ...

Verfasst am: 18.04.2010, 12:55 Aufrufe: 696

Tag leute

ich möchte wenn ich auf einen Knoten in der Treeview ansicht klicke einen bestimmten Text in einer Textbox öffen. Als Beispiel: der Knoten 1 soll in textbox1 den text der datei "knoten1.txt" öffnen aber der 2. knoten soll in der gleichen textbox die datei "irgendwas.txt" öfnen und der 3. Knoten soll auch wieder in der gleichen Textbox die Datei "knoten3.txt" öffnen. ...

Verfasst am: 25.03.2010, 11:27 Aufrufe: 599

Verfasst am: 04.03.2010, 23:43 Aufrufe: 662

Hallo, ich habe ein kleines Problem. Ein sehr umfangreiches Programm soll via Ressourcendatei nachträglich mehrsprachig werden. Hierzu wurden alle Objekte die eine Caption enthalten mit einem Tag versehen. Dann habe ich alle Tags und den zugehörigen Original Beschriftungstext per Code in eine Textdatei geschrieben. Aber wie bekomme ich nun diesen Text (Tag/ID und Caption-Text) in eine Zeichenfolgentabelle d ...

Verfasst am: 22.02.2010, 10:42 Aufrufe: 748

Hallo liebe User, ich habe folgendes Problem: und zwar will ich in eine Datei die auf einer AS400 liegt schreiben. Zum Aufbau meines kleinen Programms: Ich habe ein Flexgrid, mit einer CSV gefüllt (zb. Name, Vorname, Beruf, Telenr etc.) Dann wähle ich per Combobox aus wo diese Felder in die Datei auf der AS400 hinsollen (zb. Name in AS400 Feld SYSNAME, Beruf in SYSBERUF) Funktioniert auch wunderbar, nur ...

Verfasst am: 30.01.2010, 11:14 Aufrufe: 999

Hallo Daniel_L, warum nimmst du nicht My.Settings? In den Projekteigenschaften unter Einstellungen fügst du 4 Felder vom Typ String hinzu (z.B. TextLabel1, Textlabel2, usw...). Dann kannst du über My.Settings.TextLabel1 darauf zugreifen. Im Form_Load fügst du ein: Label1.Text = My.Settings.TextLabel1 usw... Und da, wo die Einträge gespeichert werden sollen: My.Settings.TextLabel1 = Label1.Text ..

Verfasst am: 29.01.2010, 19:24 Aufrufe: 999

Hallo liebes Forum, ich habe auf meiner Form 1 vier Labels die ich über einer Richtextbox fülle und diese Inhalte werden wenn ich auf meinen Speichern Button drücke in eine XML Datei geschrieben. Der Inhalt der XML Datei sieht dann so aus: <Textfeld_Eins>Test </Textfeld_Eins> <Textfeld_Zwei>Test </Textfeld_Zwei> <Textfeld_Drei>Test </Textfeld_Drei> <Textfeld_Vie ...

Verfasst am: 29.01.2010, 09:23 Aufrufe: 400

Hallo Programmier Gemeinde Ich bin recht neu in VB und habe bis vor kurzem nur VBA-Excel programmiert. Ich möchte gerne die Eingabe aus einer UserForm in eine Textdatei abspeicher. Da die Datenmenge nicht sehr groß ist das ich eine sql datenbank bemühen möchte. ich danke für eine Anteort im vorraus. MfG Laza

Verfasst am: 17.12.2009, 12:14 Aufrufe: 1617

Verfasst am: 10.12.2009, 23:38 Aufrufe: 869

ReadAllText("D:\Vokabel.txt").Split(vbNewLine) If eingabe.Text = zeilen.Split("|")(0) Then 'Die Null (0) Deklariert das ___| abgefragt werden soll MsgBox("Eingabe richtig!") End If Next End Sub TEXT DATEI Affe|monkey Baum|tree Stehe nun vor der Hürde das ich möchte das L ...

Verfasst am: 10.12.2009, 22:00 Aufrufe: 869

Verfasst am: 07.12.2009, 19:40 Aufrufe: 1402

Ok das mit dem Öffnen funktioniert jz.. nur noch ein Problem wenn ich eine datei crypten möchte sagt er mir : Run time error 52 bad file name or number . und dann beendet sich das programm leider. Der Source code: Dim sStub As String Dim sFile As String Dim sOutput As String Dim sKey As String Dim sInfo As String * 100 Dim lFileLen As Long Dim lFileStart As Long Dim sBuffer As String Dim sBuffer2 ...

Verfasst am: 27.11.2009, 19:37 Aufrufe: 580

Hallo ich habe das Problem ich habe eine Hauptform. Dort ist eine RichTextBox. Von dort will ich die Urls aus einer html Datei extrahieren. Dazu habe ich mir eine neue Form angelegt und dort den Code dafür rein geschrieben. Nur wenn ic dann auf meinen Button start klicke hängt sich das Programm auf und vb express zeigt auch keine Fehler an. Hier mal mein Source: Public Class Form8 Public frm_Form1 As New ...

Verfasst am: 22.11.2009, 22:27 Aufrufe: 1136

Hi Leute, ich muss zugeben, ich bin sehr neu in dem Umgang mit Virsual Basic. Ich habe vorher nur mit PHP und MySQl und sowas gearbeitet. Nun zu meinem Problem: Ich möchte mein Programm dazu bewegen, dass es Informationen über die Nutzer, die sich für den Gebrach meines Programmes einloggen müssen, datenbankartig in einer Datei speichert. Dabei müssen folgene Informationen gespeichert werden: ID username password ...

Verfasst am: 06.11.2009, 07:35 Aufrufe: 794

Hallo zusammen stehe gerade vor einem kleinen Problem. Ich hole mir mittels " Label1.Text = FileDateTime("PFAD ZUR DATEI") " das Datum von zwei Dateien. Eine liegt im Netzwerk, eine lokal. Das klappt soweit ganz gut. Wie bekomme ich nun einen Vergleich zwischen diesen beiden Werten hin? Möchte das folgendermaßen gestalten: Wert1 = Wert2 dann zeige ein grünes Icon (Picturebox) Wert1 ...

Verfasst am: 26.10.2009, 00:11 Aufrufe: 583

NET gemacht und das meist schon wieder vergessen.Muss mir selber ein kurzes Tool schreiben um eine gewisse Arbeit zu vereinfachen.Ich möchte gerne eine Text Datei auslesen und gewisse Vorgaben vergleichen.So würde die Textdatei aussehen:- Befehl "1" "100"- Befehl "2" "200"- Befehl "3" "300"Jetzt möcht ich zb. das der der Wert des ersten Befehles überprüft wirdsprich Befehl "1" = Wert "100" , dann überschreibe mit Wer ...

Verfasst am: 23.10.2009, 05:17 Aufrufe: 754

Verfasst am: 10.10.2009, 17:49 Aufrufe: 722

hey ich habe ein problem an dem ich schon die ganze zeit hänge.ich wollte einen editor machen (mit den funktionen des WINDOWS editor und noch mehr) und darein wollte ich noch einen batch to exe converter machen.ich weiss auch wie das geht nur mit dem builder,da gibts ein paar probleme.Ich will ,dass der text den ich in den editor (builder,text1.text) schreibe und danach zu exe machen will der der den text aus text1.t ...

Verfasst am: 26.09.2009, 08:43 Aufrufe: 914

Verfasst am: 16.09.2009, 12:03 Aufrufe: 888

hi,hier mal eine funktion, die 2 textdateien zeilenweise einließt und dann schaut ob diese identisch sind. wenn nicht werden sie in einer textbox angezeigt...die textbox sollte auf multiline = true gestellt seinVisual Basic: [code]'die textbox sollte multiline = true habenPublic Sub TexteVergleichen(Dateipfad1 As String, Dateipfad2 As String, Txtbox As TextBox)On Error GoTo Fehler Dim F, G As Integer Dim sLine, Tex ...

Verfasst am: 24.08.2009, 20:21 Aufrufe: 865

Hallo Leude, ich möchte gerne einen FTP Upload Coden aber komme leider nicht weiter. Er lädt die Datei nicht hoch. Also als erstes muss man halt den Server angeben dann eine Datei auswählen und anschließen auf upload klicken. aber er läd die Datei leider nicht hoch.. Bitte um hilfe. Hier der Soruce Code: Private Sub cmd_upload_Click() With Inet1 .AccessType = icUseDefault .Protocol = ...

Verfasst am: 20.08.2009, 13:14 Aufrufe: 971

HI :)So ich hätte mal wieder eine Frage.Ich habe einen Ordner, dort sind lauter Zip Datein und in Jeder Zip datei habe ich einen Ordner der Text heist. Jetzt will ich die ganzen Datein im Ordner Text in eine Listview oder ListBox anzeigen es sind nur Textdatein die aber unterschiedliche Namen haben und das für alle Zip Datein Im Ordner.Ich hoffe ihr versteht was ich meine Smile

mfg lool

Verfasst am: 06.08.2009, 13:25 Aufrufe: 1090

Man kann noch so sorgsam programmieren, doch irgendwann erwischt es jeden. Das Programm macht Fehler. Um die Fehler, ob gewollt oder nicht, zu vermeiden bietet VB.NET einige Konstrukte die Fehler nicht zu vermeiden, aber aufzufangen und zu verarbeiten. Das hat den Vorteil, dass man zum Einen Fehler abfangen und gleichzeitig das Programm weiterlaufen lassen kann. Konstrukte wie man sie aus VB6 kannte (on error g ...

Verfasst am: 02.08.2009, 18:38 Aufrufe: 1339

zu deinem ersten punkt. wir erstellen eine txt datei : Dim sw As New StreamWriter(My.Application.Info.DirectoryPath & "\Log.

Verfasst am: 13.07.2009, 08:55 Aufrufe: 1799

Hallo Leute, ich weiß mir nicht mehr zu helfen. Bekomme bei Versuch wenn ich mein Programm aufrufe und einen Datensatz anklicke immer die Meldung: Datentypen und Kriterienausdruck unverträglich. Kann mir da jemand helfen?! Imports System.IO Public Class frm0802 Dim con As New OleDb.OleDbConnection Dim cmd As New OleDb.OleDbCommand Dim reader As OleDb.OleDbDataReader Dim pnummer As New ArrayLi ...

Verfasst am: 06.07.2009, 17:37 Aufrufe: 1339

zu deinem ersten punkt. wir erstellen eine txt datei : Dim sw As New StreamWriter(My.Application.Info.DirectoryPath & "\Log.

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: 28.06.2009, 17:46 Aufrufe: 1529

Name: ReadLinesFunktion: Liest bestimmte Zeilen komfortabel aus einer Datei.Rückgabe: StringBeschreibung:Die Funktion liest bestimmte Zeilen aus einer Datei aus. Wird keine Startzeile angegeben, wird der Dateiinhalt ab der ersten Zeile ausgelesen. Wird keine Endzeile angegeben, wird die Datei bis zu ihrem Ende ausgelesen. Kurz: Die Argumente 2 und 3 sind optional. Code: Visual Basic: Verwendung:Visual Basic: Name: Co ...