Visual Basic Forum

Verfasst am: 07.02.2012, 21:33 Aufrufe: 38

Leider aber nur beim zweiten mal d.h. der zuerst eingegebene Ort ist im DataGrid erst zu sehen wenn der nächste Ort eingegeben wurde. Beispiel: Name: Mayer Ort: Viersen im DataGrid ist kein Ort zu sehen. Nächster Datensatz: Name: Müller Ort: Hamburg Im DataGrid ist jetzt der Ort Viersen, aber nicht Hamburg, aufgelistet. Und so weiter. Im Code kann also kein Fehler sein und ich vermutete daher ein Zeitpro ...

Verfasst am: 01.12.2011, 20:36 Aufrufe: 224

Immoment mach ich das noch so, dass wenn die Taste gedrückt wird, dass dann was passiert. Hab auch schon in anderen Foren gefragt, die konnten mir allerdings nicht wirklich helfen. Als Beispiel Do If GetAsyncKeyState(Keys.Space) = KeyPressed Then Do Until GetAsyncKeyState(Keys.Space) = KeyPressed 'Hier der Befehl Loop E ...

Verfasst am: 04.11.2011, 00:15 Aufrufe: 87

Hallo zusammen, ich habe ein Problem und komme wirklich nicht mehr weiter. Es geht darum das ich einen Wert habe, wie zum beispiel 10. Dieser Wert soll mit mind. 2 anbietern verglichen werden. Also, Anbieter A kostet von 8 bis 20 10€ und Anbieter B kostet von 8 bis 20 aber nur 9,80€. Nach einem Buttonklick soll er mir wiedergeben für welchen ich mich entscheiden soll. also für den günstigeren... Ich hoffe ich ...

Verfasst am: 23.10.2011, 16:57 Aufrufe: 198

Es geht hier um das Einlesen eines Textblocks aus einer Zwischenablage und der anschließenden Auswertung. Das Einlesen funktioniert auch wunderbar, es hapert hier aber an der Auswertung. 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 ...

Verfasst am: 11.10.2011, 11:14 Aufrufe: 338

... nn per Tab auf den Absendenbutton getippt wird und, dass dann wiederholt wird. Nochmal zum Verständnis ein Ablauf: Öffne Webseite=>Springe ins erste Eingabefeld=>Text eingeben=>Springe ins nächste Eingabefeld=>Text eingeben=>Auf den Antwortbutton springe der gleich danach kommt=>Klicken (Enter)=>Schließe Tab=>Loop (Wiederholen) Ich bin bei mir bisher nur so weit gekommen: Dim Beispiel ...

Verfasst am: 30.09.2011, 06:59 Aufrufe: 355

Beispiel: Tabelle: cad_formel Felder: formel_nr (int), beschreibung(text) Tabelleninhalt: 1 abcd 2 abcdefghi 3 abcdef Meine Abfrage: Private Sub Command1_Click() Dim en As rdoEnvironment Dim QD As rdoQuery Dim cn As rdoConnection Dim rs As rdoResultset Dim SQL As String Dim con As String Dim i As Long Dim j As Long Dim t As String Dim iColsize As Long ...

Verfasst am: 20.09.2011, 10:01 Aufrufe: 163

Geben Sie es als Dualzahl an? antwort: 2^4 = 16 , 110101 = 1*2^0 + 0*2^1 + 1*2^2 + 0*2^3 + 1*2^4 + 1*2^5 = 53 aber wie geht das mit der 1011010,112 ??? Aufgabe 9 9.1 Wann spricht man in der Datenverarbeitung von einem "direkten Zugriff"? 9.2 Nennen Sie ein Beispiel aus der Datenverarbeitung, wo der "direkte Zugriff" eine Rolle spielt. antwort: 9.1wenn die Festlatte nicht abgesucht we ...

Verfasst am: 05.09.2011, 09:15 Aufrufe: 2410

Hallo, ich habe nach deinem Beispiel einen Text im Listview gesucht. Diesen möchte ich jetzt rot färben: For i = 1 To UserFormList.ListView1.ListItems.Count If StrComp(UserFormList.ListView1.ListItems(i).SubItems(7), "***Auftrag", vbTextCompare) = 0 Then UserFormList.

Verfasst am: 09.08.2011, 12:25 Aufrufe: 798

Hallo liebe Gemeinde, ich habe mich mit dem folgenden Quellcode recht strikt an ein Beispiel aus dem Buch VisualBasic 2008 (Doberenz, Gewinnus) gehalten. Nur dass es dort für OLE beschrieben war. Folgender Code: Public Sub MySQLwrite(ByRef ds As DataSet) Dim cb As MySqlCommandBuilder = New MySqlCommandBuilder(da) MySQLcnn.Open() da.Update(ds, "Produktcode") M ...

Verfasst am: 15.07.2011, 06:10 Aufrufe: 296

... r mehr ausgeben outputstring = "Sehr geehrte/r Herr/Frau/Firma " & FamName & "!" & vbnewline & _ "Betrifft Abriss des Hauses: " & Adresse open "C:\Brief_" & format$(i, "0000") & ".txt" for output as #1 print #1, Outputstring close #1 next Das war jetzt nur ein beispiel ...

Verfasst am: 25.06.2011, 13:01 Aufrufe: 350

Hallo Leute, seit Windows Vista wurde der Removable Storage Manager (RSM) aus dem OS entfernt. Somit ist die Backup-Unterstützung mit Bandlaufwerks vom OS nicht mehr direkt möglich (früher ntbackup o.ä.) - Microsoft sagt man soll sich an Dritthersteller von Backupsoftware wenden. Naja, über die Win32 API ist das TapeDrive aber weiterhin ansprechbar, denke ich. So nun ich vor ein Programm zu schreiben um TapeDri ...

Verfasst am: 17.06.2011, 10:15 Aufrufe: 434

hier das Beispiel: Tbl_firma ID (Autowert) , Firmenname, Land 1, FirmaA, 1 2, FirmaB, 2 3, FirmaC, 3 4, FirmaD, 3 Tbl_land ID (Autowert), Land 1, Deutschland 2, ...

Verfasst am: 13.06.2011, 09:51 Aufrufe: 426

Hallo, ich bin Newbee in VB2010 und suche ein komplettes Beispiel in VB2010 ( Winform ) in dem ich nachvollziehen kann, wie ich aus einer App heraus auf SQL zugreife, Daten auslese, ändere, anlege. Wäre prima, wenn jemand so ein Beispiel hätte. Danke Reiner Confused

Verfasst am: 24.05.2011, 06:23 Aufrufe: 545

windows.forms festgelegt werden. Die Anwendung muss mit aktiviertem Debuggen kompiliert werden. Zum Beispiel: <configuration> <system.windows.forms jitDebugging="true" /> </configuration> Wenn das JIT-Debuggen aktiviert ist, werden alle nicht behandelten Ausnahmen an den JIT-Debugger gesendet, der auf dem Computer registriert ist, und nicht in diesem Dialogfeld behand ...

Verfasst am: 22.05.2011, 15:27 Aufrufe: 330

Verfasst am: 17.05.2011, 09:12 Aufrufe: 439

Sieht nett aus!! werd ich vl noch testen was ein Großes Plus ist ist mal ein Programm dass nicht schon jeder geschrieben hat wie einen webbrowser zum Beispiel... mfg cg

Verfasst am: 11.05.2011, 01:27 Aufrufe: 551

Hi mmee, deine Anfrage ist zwar schon einige Tage alt, aber hier kann ich dir ein Beispiel geben wie du deine HEX-Werte in 2er Blöcke formatieren kannst. Zum Testen must du "Text1", "Text2" und "Command1" auf deine Form platzieren. Private Sub Command1_Click() 'HEX-Wert in 2er Blöcke formatieren 'Text1 : der HEX-Wert der formatiert werden soll 'Text2 & ...

Verfasst am: 18.03.2011, 13:15 Aufrufe: 243

wenn ich auf den Button drücke möchte ich die Control Inhalte aller Controls auslesen. Ich scheitere aber schon an dem Versuch nur den Inhalt einer Textbox der Klasse GeneralInformations auszulesen. Beispiel Code: Public Class GeneralInformation Public Function txtProjectNumber() As TextBox Dim _ProjectNumber As TextBox = New TextBox _ProjectNumber.ID = "txtProjectNumber" ...

Verfasst am: 04.03.2011, 11:58 Aufrufe: 325

Ich mache grade aus Just-For-Fun ein Fake Hack für Icq aber ich scheitere an folgendem: Ich möchte die Progressbar nur starten lassen wenn es eine Icq Nummer ist,also nicht zum Beispiel 217453223(so eine gibt es ja NICHT) Und leider startet es auch noch wenn ich einen Buchstaben eingebe! Wie kann ich die beiden Probleme Beheben? mfg~screest~

Verfasst am: 08.02.2011, 14:51 Aufrufe: 533

.. 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 ... ...

Verfasst am: 07.02.2011, 09:48 Aufrufe: 353

Die eine soll numerisch sortiert werden! Die andere ist mit Namen versehen die dann automatisch mit sortiert werden sollen. Zb. Max Mustermann 4,0 Zum beispiel 8,2 Maxine Musermann 5,6 ---- SORTIEREN ---- Max Mustermann 4,0 Maxine Musermann 5,6 Zum beispiel 8,2 Also die Namen sollen bei den Entsprechenden Werten bleiben! Ich glaube das macht man mit Index oder so ähnlich! Hat jemand ein Codebe ...

Verfasst am: 06.02.2011, 10:05 Aufrufe: 401

Soweit so gut... Funktioniert prima, aber das Wegschreiben der Daten ist leider sehr sehr langsam. Beispiel: die DB-Tabelle heisst t_Message. WebserviceTabs_dotNetDataSetTableAdapters stellt mir DotNet wegen der Datenquelle zur Verfügung. WSResult ist das Ergebnis des Webservice. Dim oM_A = New WebserviceTabs_dotNetDataSetTableAdapters.t_MessageTableAdapter For lngI = 0 ...

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

Hallo zusammen, ich mache nach langer Zeit mal wieder was in VB6. Jetzt habe ich das Problem, dass Sub's automatisch aufgerufen werden, ohne dass das im Programmablauf vorgesehen ist. Beispiel: Ich habe mehrere Combo-Boxen auf dem Formular, die ich aus verschiedenen Recordsets fülle. Zu jeder gibt es eine ComboX_Click(), in der ich nach Auswahl eines Wertes, das zugehörige Recordset positioniere: Private ...

Verfasst am: 05.01.2011, 22:43 Aufrufe: 497

Okay.. Blicke aber nicht ganz durch.. könntest du mir mein Beispiel ersetzen? Command1_Click() WebBrowser1.Navigate "www.google.de" << hier soll nun eine 1-sekündige Pause gemacht werden (zum Laden etc.) WebBrowser1.Navigate "www.youtube.com" Hab extra die bekannten Adressen genommen und hoffe das wird nicht als Werbung gewertet Very Happy

EDIT: oder.... Busy bedeutet ...

Verfasst am: 02.01.2011, 08:42 Aufrufe: 354

Hallo und frohes neues Jahr wünscht Euch Angelina Smile

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 ...

Verfasst am: 24.12.2010, 21:15 Aufrufe: 564

... re Zellen mit einander verbinden? Einige Sachen habe ich bereits selber rausgefunden z.B. -Die Farbe einer Zelle bestimmen DataGridView1.Rows(3).Cells(2).Style.BackColor = Color.Yellow -Die Schriftart einer Zelle formatieren. DataGridView1.Rows(4).Cells(3).Style.Font = New Font("Arial", 12, FontStyle.Bold) Zu den Fragen 1 – 5 hab ich leider nichts gefunden. Über einen Code beispiel ...

Verfasst am: 14.12.2010, 15:55 Aufrufe: 505

Zu meinem Projekt will ich nicht all zu viel verraten, aber wenn ihr noch relevate Informationen benötigt, kann ich damit dienen. Nun mein aktuelles Problem. Ich möchte gerne Tastaturschläge simulieren. Zum Beispiel, dass mein Programm den Buchstaben A sendet. Nur nicht über SendKeys, dann kann man erkennen, dass ein Programm die Buchstaben gesandt hat. Ich habe mir das so vorgestellt, dass das Programm übe ...

Verfasst am: 03.12.2010, 14:10 Aufrufe: 347

HALLO ICH WOLLTE MAL FRAGEN OB ES MÖGLICH IST ZUM BEISPIEL BEI EIN SPAMMER DEN EINGEBENDEN TEXT IN DER combobox1 SOFORT KLICK BUTTON AN DEN CHAT ZU SENDEN OHNE DEN CHAT ANZUKLICKEN UND MEIN PROBLEM AUSERDEM IST DAS WENN ICH ES SO MACHE SIEHE CODE: Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Timer1.Enabl ...

Verfasst am: 01.12.2010, 18:37 Aufrufe: 511

Verfasst am: 30.11.2010, 18:41 Aufrufe: 537

Verfasst am: 15.11.2010, 15:05 Aufrufe: 548

ich möchte zum beispiel firefox in die anwendung die ich in visual basic programmiere einbetten also das wenn ich zum beispiel die Form1 in 2 fenster teile links firefox und rechts internet explorer eingebetet werden und nicht extra geöffnet werden. so das nur eine exe ist von 3 exen

Verfasst am: 06.11.2010, 14:39 Aufrufe: 713

schau du lädst die komponente "Microsoft Internet Controls" danach ziehst du einfach das webbrowser steuerelement auf deine form webbrowser1.Navigate "zuDerSeite" wenn die seite fertig gelade ist kannst du das formular ausfüllen lassen dazu.. schaust du dir den Quelltext der seite an... irgendwo hast du dann mal zum beispiel "<input type="text" name="Username&q ...

Verfasst am: 03.11.2010, 20:03 Aufrufe: 658

hallo ich möchte ein form erstellen mit der ich Textdokument mit dem von mir in der textbox angegebenen namen start zahl und endzahl zum beispiel: aerox1 aerox2 aerox3 aerox4 aerox5 aerox6 aerox7 aerox8 aerox9 aerox10 also soviele wie ich möchte es sollte dann das textdokument auf dem destop erstellen bitte um hilfe bin noch nicht so fit mit visual basic danke im vorraus

Verfasst am: 03.11.2010, 18:24 Aufrufe: 537

Verfasst am: 02.11.2010, 20:38 Aufrufe: 537

ich habe eine frage und zwar möchte ich das wenn ich auf ein button klick das sich bild datein die ich in der frorm speicher will unter den name hallo 1 hallo 2 und hallo 2 hallo 1 = gpg bild/ hallo 2 = gif bild /hallo 3 =PNG-Bild die sich unter den namen hallo 1 hallo 2 und hallo 3 schon in "C:\Programs\ ...... befinden ersetzten ist das möglich und wenn ja könnte mir jemand ein beispiel geben ...

Verfasst am: 07.10.2010, 06:05 Aufrufe: 523

hab gehört das ich ne liste erstellen soll und dann ne abfrage zu dem zeitraum von bis machen soll. falls dann diese abfrage true ausfällt soll - des ergebnisses gerechnet werden. Könnte mir jemand nen konkretes beispiel fürn 1.11.2010 geben?? wäre echt dankbar Das der code den ich bis jetzt habe : Public Sub CTRL73_5_Clicked(ByVal sender As Object, ByVal e As ClickedEventArgs) ...

Verfasst am: 06.10.2010, 21:56 Aufrufe: 654

Die Funktion bleibt im Part: For Each str_run As String In System.IO.Directory.GetDirectories(str_Pfad) obj_new.Nodes.Add(F_Folder(str_run, obj_new)) Next Unendlich hängen. Wie kann ich das also lösen? Aus den Erklärungen auf MSDN bin ich nicht ganz schlau geworden und auch nicht aus den Beispiel Projekten wie man per TreeView den Windows-Datei-Explorer nachbilden kann ...

Verfasst am: 05.10.2010, 10:20 Aufrufe: 397

Suche ein beispiel wie ich FTP Dateien in einen listview anzeigen lassen kann das was in den Dateien steht ebenfalls in einen Listview oder Textbox und die inhaltwerte zb: Online = 0 Mit einer Value Textbox und verändern des inhalts der datei auf 1 ändern kann Online = 1

Verfasst am: 02.10.2010, 02:04 Aufrufe: 313

hallo leute ich bin leider noch ein anfänger und deshalb beschäftige ich mich mit einen text crypter und habe auch schon mein erstes problem. Sad

Warnung 2 Die TextBox1-Variable wird verwendet, bevor ihr ein Wert zugewiesen wird. Zur Laufzeit kann eine Nullverweisausnahme auftreten. beispiel: TextBox2 = Replace(TextBox1, encrypta, "srgae") ich komm nicht weiter bitte um hilfe ...

Verfasst am: 28.09.2010, 09:39 Aufrufe: 831

hi sieh dir einfach tutorials zu winsock chat an da wir dir alles erklärt für dein beispiel an deinem pc hast du eine exe mit form1 und form2 oder hast zu 2 exen? erste variante is kein problem form2.Label1.Text = Form1.Textbox1.Text lg

Verfasst am: 23.09.2010, 06:58 Aufrufe: 377

Hallo, das hilft dir bestimmt weiter: http://www.lvr.com/parport.htm Da gibt es einen Abschnitt 'Programming Tools for Port I/O and Interrupts' da kann man sich eine DLL herunterladen und ein VB6 Beispiel gibt es auch. Gruß Charly

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: 01.09.2010, 10:34 Aufrufe: 323

schon mal strg c strg v probiert?? anundfürsich kannst du steuerelement von einer form in die nächste kopieren... bedenke aber wenn du steuerelemente mit gleichem namen hast werden sie nur mehr über den index ansprechbar lg edit: noch ein tipp Wink

verlagere deine steuerelemente bei so einem vorhaben in einen container... also eine picturebox zum beispiel somit brauchst du nicht jedest steuerelement ...

Verfasst am: 31.08.2010, 17:16 Aufrufe: 457

Ich möchte Figuren verwenden, die z.B. bei Tetris vorkommen, die in eineim Rechteck oder ähnliche Form hineinpassen. D.h. es sollen z.B. in die Form (z.B. Rechteck) bereits einige Figuren liegen und die übriggebliebenen Figuren sollen dann in das Rechteck passen. Hoffe da kann mir jemand weiterhelfen, wie ich soetwas realisieren könnte oder vielleicht gibt es da schon ein Beispiel dazu. Vielen Dank für jede ...

Verfasst am: 31.08.2010, 06:29 Aufrufe: 416

. um in einem label einen text anzuzeigen nimmst du ".Caption" bei einem textfeld -> ".Text" nochmal das beispiel genauer beschrieben... in deinem Projekt hast du jetzt mal angenommen Form1 und Form2 auf Form1 liegt ein Label (Label1) und auf Form2 ein Textfeld (Text1) und du willst im Label1 den Text vom Textfeld anzeigen lassen dann sprichst du erst die form an und dann das betr ...

Verfasst am: 25.08.2010, 10:10 Aufrufe: 811

FullName) Catch ex As Exception End Try End Sub übergeben tu ich direkt aus der Connect Klasse die das Visual Studio beim erstellen eines gemeinsamen Add-Ins automatisch erstellt. Da übergebe ich einfach ein neues FileInfo Object mit dem Pfad zur Datei und die aktuell geöffnete Applikation (also word in diesem Beispiel) als Object. Damit öffnen sich die Dateien direkt in der Office App ...

Verfasst am: 06.08.2010, 08:34 Aufrufe: 747

Guten Tag, ich benötige eine Lösung (welche mir auch Geld wert ist), mit der ich Daten aus ca. 3000 E-Mails herauslesen und auflisten lassen kann, bzw. von den Daten, welche ich in Outlook 2003 per E-Mail mit PDF-Anhang (Beispiel kann ich schicken) versandt hatte, herauslesen: Minimum: Der E-Mail-Adresse des Empfängers, die Anrede, der Nachname. Jedes E-Mail beginnt so: Sehr geehrter Herr …. Oder Sehr ge ...

Verfasst am: 04.08.2010, 07:38 Aufrufe: 868

... t sStr(i) = sStr(j) Then Print #2, sStr(i) & " " & sStr(j) Next Next Close #2 Hallo, sorry konnte mich erst jetzt wieder melden. Nochmals danke danke danke hat alles gut funktioniert Very Happy

Nun versuche ich verzweifelt - als Anfängerin in VB6 - eine Datei zu zählen. Ich habe eine txt Datei dort sind 990628 Werte eingetragen. Beispiel ...

Verfasst am: 03.08.2010, 08:59 Aufrufe: 868

01 02 03 04 05 06 01 02 03 04 05 07 01 02 03 04 05 06 09 10 11 12 13 14 01 02 03 04 05 07 09 10 11 12 13 14 usw. Ausgabe wieder in eine txt. Datei schreiben PS: Wenn in einer neu erstellten Zeile jedoch mindestens 2 Zahlen gleich sind, dann wird diese nicht übernommen! Laut Beispiel würden dann nur diese Zeilen verbleiben: 01 02 03 04 05 06 09 10 11 12 13 14 01 02 03 04 05 07 09 10 11 12 13 14 Wer ...