Visual Basic Forum

Verfasst am: 14.01.2012, 15:45 Aufrufe: 96

Verfasst am: 04.01.2012, 10:13 Aufrufe: 141

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 Wenn ich das Projekt nun deploye und in meinem Browser durch einen klick auf einen Button die Funktion getConnection() aufrufe, stürtzt das Prog ...

Verfasst am: 08.12.2011, 11:12 Aufrufe: 237

Hier mal ein Pseudocode, den ich mir zusammengestellt habe. Da ich die Syntax nicht kenne würde ich gerne wissen, ob sich das mit VB so lösen lässt. Pseudocode: Lese .xls 1 ein Ermittle alle Zeilen und schreibe zähler in (Max1) Lese .xls 2 ein Ermittle alle Zeilen und schreibe zähler in (Max2) Beginne For-Schleife in .xls1 von Zeile i=1 bis Max1 Beginne For-Schleife in .xls2 von Zeile j=1 bis ...

Verfasst am: 02.12.2011, 08:44 Aufrufe: 223

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: 23.11.2011, 08:34 Aufrufe: 224

Guten Tag, ich hab eine Combobox die mir eine Spalte aus meiner Datenbank anzeigt, die Spalte Zeit. In dieser Zeile stehen natürlich Zeiten drin. Es wird jede sekunde ein neuer Datensatz in diese Db geschrieben, also 60 pro min. Ich will aber jetzt in meiner Combobox nicht zeitangaben mit Sekunden stehen haben, sondern nur minuten. Wenn ich jetzt im Format einfach nur die sekundenanzeige rauslösche, habe ich i ...

Verfasst am: 22.11.2011, 18:05 Aufrufe: 200

Text = b If Abstand < 50 And Abstand <> 0 Then speedX(i) *= -1 speedY(i) *= -1 ball_loc_y(i) = ball_loc_y(x) - 25 ' ++++ 'Genau hier ist das Problem. Entweder ich lasse die Zeile mit ball_loc_y(i) stehen 'dann hüpft der ball allerdings nicht mehr ...

Verfasst am: 12.11.2011, 18:47 Aufrufe: 187

Hallo, bin Anfänger und habe eine Frage , kann mir jemand den folgenden Code Zeile für Zeile mal erklären habe es aus meinen Übungen und den verstehe ich nicht ganz. Also bitte keine Lösungen wie man es anders machen kann möchte den hier verstehen. Module Module1 Sub Main() For i As Integer = 1 To 20 For j As Integer = 1 To i Console.Write("*") ...

Verfasst am: 03.11.2011, 10:52 Aufrufe: 325

Open Pfad & "\Speicherplatzbelegung.xls" Set Belegung = ActiveWorkbook Einlesen.Activate s = Mid(Cells(1, 1), 18, 15) Belegung.Activate Cells(3, 3) = s aktivieren funktioniert! Smile

in der zeile s=mid... bekomme ich für s auch den richtigen wert angezeigt beim debuggen! allerdings kommt dieser wert nicht in der anderen excel datei an Sad

weiß j ...

Verfasst am: 29.10.2011, 20:05 Aufrufe: 148

ich habe mir deinen code jetzt nicht zeile für zeile durchgesehen aber beim lesen deiner beschreibeung hab ich mich gefragt warum du nicht einfach nur vbTab verwendest?! Variable = "30" & vbTab & "was weis ich" ja da brauchst du nicht mehr mit leerzeichen arbeiten kommt aber vor dass du in einer zeile die ein bisschen kürze ist ein paar leerzeichen anhängen musst und dann vbta ...

Verfasst am: 25.10.2011, 11:38 Aufrufe: 160

... End Select End Sub Private Sub Command2_Click() For i = 0 to 8 Command1(i).Caption = "" Command1(i).Enabled = True Next Text1.Text = 1 End Sub Select Case müsste da nicht sein aber ist bei großen projekten und längeren prozeduren übersichtlicher weniger fehleranfällig deinerseits und schneller Smile

weil vb nicht bei jeder zeile ...

Verfasst am: 24.10.2011, 22:43 Aufrufe: 160

... mit dem Klick auf den CommandButten der Inhalt der 9 Felder gelöscht werden soll, das Textfeld auf 1 zurückspringen soll, sowie sollen die CommandButten wieder zu beschreiben sein. Nun eben die Frage, wie kann ich den zweiten Teil übersichtlicher darstellen? Wenn ich es wie im ersten Teil mit "Index As Integer" mache, zeigt mir das Programm eine Fehlermeldung an und anschließend wird die erste Zeile ...

Verfasst am: 23.10.2011, 16:57 Aufrufe: 196

Damit meine anschließende Erläuterung verständlich wird, poste ich als erstes einen Beispielabschnitt aus dieser Zwischenablage. Die oberste Zeile stellt nur Spaltennamen zur Verdeutlichung dar, dies wird aber nicht eingelesen. ID Produkt Started At Progress Completed At Status Wiederholbarkeit Level Minimal Maximal Completions Reihe 12336 Oberhemd, blau 2011-10-20 05:01:03 0/0/0/0 2011-10-20 05:01:03 Comple ...

Verfasst am: 18.10.2011, 16:38 Aufrufe: 109

Guten Tag, mein Programm soll etwas aus einer Richtextbox (Zeile für Zeile) ablesen Und nach jeder Zeile einen Button (also einen Link im Webbrowser) betätigen. Kann mir jemand den Code geben? Ich weiß nicht ob das geht.

Verfasst am: 15.10.2011, 09:27 Aufrufe: 196

Hallo Martin, Super Frage, weil so ein Problem habe ich auch. Wenn ich ein Programm entwickle dann auf meinen Rechner. Beim Kunden läuft nur die Runtime (sonst hat der Kunde ja den Quellcode). Wenn dann ein Laufzeitfehler auftritt erfolgt die Meldung mit der Nummer, aber nicht win welcher Zeile oder wo / Routine. Wenn Du das was erfährst bitte ich um Info. Leider kann ich Dir bei diesem Problem nicht helfen, aber wen ...

Verfasst am: 10.08.2011, 13:22 Aufrufe: 363

Jetzt habe ich mir ein kleines Programm gestrickt, das mir zwei Dateien Zeile für Zeile vergleicht und wenn Unterschiede auftreten auflistet. Und siehe da, zwischen funktionierender Datei aus meinem VB6-Programm und der nicht funktionierenden Datei aus meinem VB 2010-Programm gibt es keinerlei Unterschied. Confused

Wo soll denn dann der Unterschied sein, der die funktionierende Datei zur anderen unterscheidet?

Verfasst am: 09.08.2011, 12:25 Aufrufe: 796

Show("Datenbank wurde aktualisiert!", "Erfolg") Catch ex As Exception ds.RejectChanges() MessageBox.Show(ex.Message, "Fehler") End Try End If End Sub verursacht in der Zeile da.Update(ds, "Tabellenname") eine Fehlermeldung: "Objektverweis wurde nicht auf eine Objektinstanz festgelegt." ...

Verfasst am: 08.08.2011, 10:37 Aufrufe: 141

Hallo alle miteinander, gebe zu bin blutiger Anfänger und brauche eueren Rat. Ich rufe via shell ein extrenes Programm auf dieses benötigt aber zum Start einen Benutzer - ich möchte nunmehr das Programm aufrufen und dann gleich den Benutzername plus Return mitschicken wie kann ich das tun? Danke schonmal im Voraus Very Happy

Verfasst am: 14.06.2011, 20:01 Aufrufe: 325

Verfasst am: 07.06.2011, 06:11 Aufrufe: 190

Meine Liste fängt eine neue Zeile an wenn der Inhalt ein Komma , enthält. Ich habe gegoogelt aber wurde nicht wirklich schlauer dadurch. Gibt es eine Möglichkeit dies auszuschalten? Ich habe es momentan so gemacht, dass alle , in der List durch einen . ersetzt werden, nur ist das keine Lösung auf dauer, da auch Passwörter in der List angezeigt werden und falls einer der Passwörter ein , enthält welches durch e ...

Verfasst am: 17.05.2011, 13:05 Aufrufe: 406

Meine Vermutung, dass ich das Excelobjekt nicht richtig schließe/loslasse scheint sich jetzt bestätigt zu haben: Ich habe die prüfroutine laufen lassen und dann eine neue Spalte ganz hinten hizugefügt, in die ich die Fehler aufgelistet habe, die pro Zeile gefunden wurden (habe den Fehlertypen eine ID gegeben). Beim ersten Aufruf funktioniert alles bestens, öffne ich dann eine neue Datei, such mein Programm in dieser ...

Verfasst am: 09.05.2011, 09:32 Aufrufe: 425

Hallo, ich bin neu hier und auch Einsteiger bei vba. Ich habe eine Eingabemaske programmiert und es haut auch soweit alles hin, aber bei dem CommandButton, der eine Zeile mit Daten über TextBoxen ändern soll, klappt dies einfach nicht. Also er liest sich bei einem Klick auf die entsprechende Zeile in der Listbox die Daten in die Textboxen und wenn man in diesen Textboxen etwas ändert, soll die Änderung auch in ...

Verfasst am: 03.05.2011, 18:16 Aufrufe: 259

Hallo zusammen , ich brauche euere Hilfe ich will aus einem Windows Form aus outlook ansprechen und es soll sich ein neues fenster öffnen um eine email zuversenden mit einer betreff zeile und der email addresse ich brauche eure hilfe DANKE Confused

Verfasst am: 25.03.2011, 08:56 Aufrufe: 625

Erstmal Hallo an alle, ich bin neu hier! Ich stehe als VB- Neuling momentan vor einem kleinen Problem, vielleicht habe ich auch einfach nur ein Brett vor dem Kopf. Ich muss ein VB-Skript für Excel schreiben, bei dem eine .csv - Datei geöffnet und die Daten Zeile für Zeile in einen String eingelesen werden. Das Öffnen über einen verknüpften Button funktioniert schon, hier einmal der bisherige Code: Sub OpenC ...

Verfasst am: 18.03.2011, 22:01 Aufrufe: 292

Hallo liebe Programmierergemeinde! Die Eckdaten: Ich schreibe gerade ein Programm, das im Hintergrund eine Exceldatei mitlaufen lässt, in die Daten abgelegt und aus der Daten exportiert werden. Da ich mir VB.NET größtenteils selber beigebracht habe, kann es durchaus passieren, dass ich Anfänger-Fehler mache! Das Problem: Es kann ein Fall auftreten, bei dem eine Zeile herausgelöscht werden muss. Ist ja mit .Cl ...

Verfasst am: 17.03.2011, 14:56 Aufrufe: 490

StreamReader(fs) Dim Var1 As String = w.ReadToEnd 'Die Datei komplett einlesen 'Wenn das fertig ist, den Filestream und den reader wieder schließen w.Close() fs.Close() 'Wir erstellen ein Array aus allen Zeilen, indem wir den String an jeder neuen Zeile splitten Dim loadarray As Array = Var1.Split(New String() {System ...

Verfasst am: 17.03.2011, 14:25 Aufrufe: 490

Length > 6 Then If temp.Remove(6, (temp.Length - 6)) = "File =" Then 'Wenn die 5 ersten Zeichen der ausgelesenen Zeile deinen Suchbegriff ergeben dann: Setting1 = temp.Remove(0, temp.LastIndexOf("=") + 1) ' Entfernen wir alles bis einschließlich dem = und übergeben den Wert Setting1 End If En ...

Verfasst am: 17.03.2011, 13:36 Aufrufe: 490

Beim ausführen des Programms bekomm ich ein ArgumentOutOfRangeException und zwar hier If temp.Remove(5, temp.Length) = "File =" Then ich nehme an an der Zeile mit Parameter wird das Problem dann nochmal auftreten. Den Import der Methode hatte ich schon drin. Ja genau sowas passiert mir immer wenn ich was frei Schnauze schreibe Very Happy

Der remove Aufruf ist ja Nullbasieren, die Zählung fä ...

Verfasst am: 17.03.2011, 13:28 Aufrufe: 490

Funktioniert leider noch nicht Ich gebe dir mal den Inhalt der Settings.ini von dem Bereich der für mich interessant ist: If temp.Remove(5, temp.Length) = "File =" Then ich nehme an an der Zeile mit Parameter wird das Problem dann nochmal auftreten. Den Import der Methode hatte ich schon drin.

Verfasst am: 17.03.2011, 13:14 Aufrufe: 490

... l danke für die schnelle Hilfe aber scheinbar sind 2 Fehler drin "length" ist kein Member von "String" "Var1LastIndexOf" wurde nicht deklariert. Wo und was muss ändern? LG MarkOH Sry da waren ein paar Tippfehler drinn, habs nochmal editiert kannst es wieder versuchen. Achso und du musst, um Dateien einlesen zu können erst noch die Methode importieren, also diese Zeile ...

Verfasst am: 17.03.2011, 12:34 Aufrufe: 615

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 textboxen zuweisen Textbox1.text = w.ReadLine 'Liest die erste Zeile in der Datei und weist den Text der Textbox zu 'Das machen wir jetzt für alle 4 also: Textbox2.text = w ...

Verfasst am: 17.03.2011, 12:24 Aufrufe: 490

ReadToEnd 'Die Datei komplett einlesen 'Wenn das fertig ist, den Filestream und den reader wieder schließen w.Close() fs.Close() Jetzt müssen wir nach deinen Zeilen suchen: 'Wir erstellen ein Array aus allen Zeilen, indem wir den String an jeder neuen Zeile splitten Dim loadarray As Array = Var1.Split(New String() {System.Environment.

Verfasst am: 17.03.2011, 12:03 Aufrufe: 690

DoWork, AddressOf MyBGW_DoWork AddHandler MyBGW(workcount).RunWorkerCompleted, AddressOf MyBGW_RunWorkerCompleted MyBGW(workcount).RunWorkerAsync(Job) End If Next end sub Da ist aber schon was faul, denn ich kriege in der Zeile: MyBGW(workcount) = New System.ComponentModel.BackgroundWorker den Fehler: NullReferenceEcexept ...

Verfasst am: 05.03.2011, 10:22 Aufrufe: 470

hi das ist schon klar weil der code zeile für zeile abgearbeitet wird er stellt die verbinung her mit der ersten ip und dann mit der 2. ip du müsstest aber hergehen und 1. ip verbinden daten abfragen und 2. ip verbinden dann wieder daten abfragen oder für jede ip ein eigens winsock steuerelement oder über den index ansprechen aber ich denke dann wirds aufwendig und vl sogar schwieriger trozdem vi ...

Verfasst am: 26.02.2011, 21:40 Aufrufe: 1120

Setz ein "On Error Do next" in die Zeile darüber und probier es nochmal mit Submit.

Verfasst am: 24.02.2011, 08:01 Aufrufe: 440

Ich habe eine einfache Maske mit Visual Basic 2010 Express und einer Access-Db erstellt. Mittels DataGridView zeige ich die Datensätze an, diese können aber durch eine andere Instanz verändert werden, deshalb möchte ich (zB mittels Timer) mein DataGridView aktualisieren. Problem: Wie kann ich es erreichen, dass die Datensätze in der DataGridView aktualisiert werden OHNE dass der Eingabefokus auf die erste Zeile ...

Verfasst am: 20.02.2011, 08:51 Aufrufe: 422

Hallo zusammen Habe folgendes Problem, für das ich leider nirgends eine Lösung gefunden haben. In meinem Projekt fülle ich einen Tableadapter ab einem Dataset mit folgender Zeile: Me._2010_KontostammTableAdapter.Fill(Me.AlphaFibuDataSet._2010_Kontostamm) Wenn ich nun in den Dateieigenschaften der Datenbank im Projektmappen-Explorer die Eigenschaft "In Ausgabeverzeichnis kopieren" auf &quo ...

Verfasst am: 18.02.2011, 20:09 Aufrufe: 386

Visible = False UserForm1.Show End Sub Private Sub UserForm_Activate() 'Kopiert den Textinhalt aus einer Textdatei in eine Textbox' FNr = FreeFile Open "c:\Documents\test1.txt" _ For Input As #FNr Do While Not EOF(FNr) Line Input #FNr, zw 'optional: überprüfen ob Zeile übernommen werden soll 'If ZeileUebernehmen Then UserForm1.TextBox1.SelT ...

Verfasst am: 09.02.2011, 11:13 Aufrufe: 395

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, 14:51 Aufrufe: 531

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 die du brauchst 'Euro, Wechselkurs und Eur2US 'Optional Wechselkurs = 1.35 hat den grund ... 'w ...

Verfasst am: 04.02.2011, 20:35 Aufrufe: 404

Ich habs bisher so gemacht: Sub DASALoeschen() Loeschen = InputBox("Welcher Datensatz soll gelöscht werden?", "Zu löschender Datensatz eingeben", "z.B. B5:G5") Range(Loeschen).Clear End Sub Ich will aber dass der User die Zahl eintippt der Zeile die gelöscht werden soll. Beispiel: Der User möchte alles was in Zeile A1:G1 löschen. Es kommt d ...

Verfasst am: 03.02.2011, 17:53 Aufrufe: 399

Text) Then ListBox1.Items.Item(0) = ("Hallo x" & TextBox2.Text) Nun zu dem Problem: Ich habe ca. 15 Checkboxen und dazugehörige Anzahlfelder und jeder Textbox eine Zeile in der Listbox zugewiesen, sprich bei Textbox 3 sieht es so aus: If IsNumeric(TextBox3.Text) Then ListBox1.Items.Item(1) = ("Hallo2 x" & TextBox3.Text) Also "Hallo" wird nun in Zeile 1 eingetragen und nach ...

Verfasst am: 31.01.2011, 17:29 Aufrufe: 411

ShowDialog() Exit For Else End If Next End If Kurze Erklärung: Ich will mit meinem Cursor eine Picturebox anklicken die während des Ausführens erst generiert wird, ich schreibe sie zudem in eine Arrayliste um alle Pictureboxen die erstellt wurden zu speichern. Die Zeile If Spieleramzug = 1 And Einheit_setzen_1 = 0 And e.But ...

Verfasst am: 13.01.2011, 06:24 Aufrufe: 545

Ich habe folgendes Problem: Ich benötige eine Datenerfassung die ich mit VB 2008 express edition und Framework 3.5 erstellt habe. In einem Excelblatt (permant geöffnet) gibt es 29 Mess-Stationen (Zeilen) mit jeweils 4 Daten (Leistung, Temperatur,..) die ich in einem Zeitintervall auslese. Ich öffne mit meinem VB Programm dann eine Exceldatei mit 29 Seiten und trage dort entsprechend den Stationen die ausgele ...

Verfasst am: 14.12.2010, 12:57 Aufrufe: 304

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: 09.11.2010, 12:16 Aufrufe: 431

oi wofür brauchst du sowas?! poste mal einen text in dem alles vorkommt dass du brauchst mit beschreibung was aus fett usw werden soll... also 23 ... dann schau ich mir das genauer an weils mich auch grade interessieren würde... dann noch eine frage: gelten dir formatierungen wie größe fett.. für die zeile oder einezelne worte??

Verfasst am: 09.11.2010, 07:00 Aufrufe: 572

bitte verschwende nicht soviel zeit damit wenns nicht so funktioniert wie du es dir vostellst dann machs anders dim strDB() as string strDB(0) = "erste zeile deiner datei" strDB(1) = "zweite zeile deiner datei"

Verfasst am: 08.11.2010, 14:51 Aufrufe: 431

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 schreiben. z.B. {\rtf1\ansi\ansicpg1252\deff0\deflang1031{\fonttbl{\f0\fnil\fcharset0 Ari ...

Verfasst am: 07.11.2010, 12:42 Aufrufe: 542

... eader & vbCrLf & _ strText & vbCrLf & _ "Content-Disposition: attachment; name=""uploaded_file_2""; filename=""" & Me.txtFile1 & """" & vbCrLf & _ strContentHeader & vbCrLf & _ strText & vbCrLf & _ "--AaB03x--" auch habe ich versucht die Erweiterung in der ersten Zeile ...

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: 18.10.2010, 15:15 Aufrufe: 301

hab's gefunden, Zeile 3 muss so aussehen: aRequest = System.Net.HttpWebRequest.Create("http://www.google.de/")