Visual Basic Forum

Verfasst am: 15.02.2012, 14:16 Aufrufe: 183

SelStart = Len(Text1.Text) Text1.SelText = InBuff Datatransfer_Counter = Datatransfer_Counter + 1 'Mit jedem über die Schnittstelle übertragenen Datensatz den Zähler um 1 erhöhen If Datatransfer_Counter = 1 Then frm_Dialog_Check_Data.Show Else MsgBox "Eben wurde die Inprozesskontrolle Nr. " & Datatransfer_Counter & " ...

Verfasst am: 23.08.2011, 21:03 Aufrufe: 204

Hallo Ich habe eine Listview mit mehreren Columnheaders, im letzten steht 1. Wenn ein eintrag doppelt ist, soll dieses 1 auf 2 gehen. ListView1.Columns.Add(Anzahl.Text +1) Wenn ich das benutze fügt der ein neuen Columnheader hinzu aber ich will nur das er die zähl die in der Spalte ist mit +1 multipliziert. Kann mir einer weiterhelfen? Nur das mit dem multiplizieren bekomme ich nicht hin, den rest ...

Verfasst am: 28.01.2010, 21:16 Aufrufe: 1126

Hi habe ein großes Problem (und habe hier nichts gefunden) und zwar versuche ich in Excel folgendes: per click auf einen Button soll sich der Wert einer Zelle E5 erhöhen (bis hierher gehts), dann E4 mit E5 vergleichen wenn E4 gleich E5dann wird counter für E5auf null gesetzt, der aktuelle Wert von E5in einen anderen Tabellenblatt in zB B 11+i gespeichert und in E4 ein neuer Wert aus dem anderen Tabellenblatt Zell ...

Verfasst am: 08.09.2009, 08:58 Aufrufe: 465

Hallo! Ich schreibe grade ein Programm, wo ich aus einer Textdatei eine Zahl auslesen, die folgendermaßen aussieht: 000000. Dann erstelle ich eine Datei mit diesem Namen. Anschließend soll die Zahl in der Textdatei erhöht werden, im Sinne von 000001, 000002, 000003 .... usw. Nun wenn ich die Zahl aber +1 rechne (egal, mit welchem Dateityp die Zahl deklariert ist), speichert er die Zahl im Sinne von: 000000 -> 1 ...

Verfasst am: 15.06.2009, 12:31 Aufrufe: 1392

Also fügt das noch vorher ein:Dim i as longSo. Nun die „If“ Abfrage.If i Mod 2 <> 0 Then<br /> List1.AddItem (i)<br />End ifTheoretisch bräuchten wir diese Überprüfung gar nicht, da wir ja sowieso immer um 2 erhöhen und dadurch nur ungerade Zahlen bekommen.Aber zur Sicherheit lassen wir diese Überprüfung drin.Was wir bei der Listbox verbessern können erkläre ich noch später. Jetzt zeige ic ...

Verfasst am: 29.11.2008, 15:48 Aufrufe: 534

also alles nach neustart in die normalen einstellungen. daher möchte ich ein programm schreiben das mir alles mit einem klick so einrichtet wie ich es habn mlchte. z.b. - von laufwerken eine verknüpfung auf desktop bringen - die systemtöne ausstellen - mausgeschwindigkeit erhöhen und eigtl. noch mehr, fällt mia aber grad nich ein. viel habt ihr ideen was sinnvoll wär. jedenfals die drei ...

Verfasst am: 31.08.2008, 08:21 Aufrufe: 676

Benutz lieber den Modus "Output" und Print zum schreiben.Und zum erhöhen und schreiben der Zahl + Wort brauchst du eine Schleife.For zahl = CInt(Text1.text) to ...next zahl

Verfasst am: 21.08.2008, 19:37 Aufrufe: 2596

Moin, Leute.ich habe mal eine kurze und kleine Frage:Wie kann man die Kkordinate einer PictureBox um 1 erhöhen?Wie man eine neue Location bestimmt weiß ich, aber wie man eine einzelne koordinate erhöht, leider nicht.Bitte um Hilfe.Gruß,Lenny.

Verfasst am: 10.08.2008, 02:47 Aufrufe: 942

Verfasst am: 28.07.2008, 11:46 Aufrufe: 539

(bla;6150)Visual Basic: geht schon,wird dann im gleichen ordner wie die exe gespeichert, aber danke für den code

Verfasst am: 28.07.2008, 10:47 Aufrufe: 539

Verfasst am: 16.07.2008, 17:35 Aufrufe: 868

Verfasst am: 16.07.2008, 14:44 Aufrufe: 868

Kleines Langeweile-Projekt: Hiermit könnt ihr ganz einfach die l33tn3s5 eures Textes mit Hilfe verschiedener Modi erhöhen.Download

Verfasst am: 10.06.2008, 15:42 Aufrufe: 499

Nun wird verglichen, ob das Wort richtig oder falsch ist --> Ist ja hier eigentlich irrelevant.Jedenfalls wird, nachdem auf den Button gedrückt wird, (2.) das nächste Wort in der Listview angezeigt --> Sprich Maus (3.)Doch wie mache ich das?frmMain.Listview1.ListItems.Item(2) ist ja sehr sinnlos.Theoretisch müsste ich das vorherige Listview items in einer Variable speichern, und die Variable immer um 1 erhöhen bis da ...

Verfasst am: 10.05.2008, 15:12 Aufrufe: 2762

Also fügt das noch vorher ein: Dim i as long So. Nun die „If“ Abfrage. If i Mod 2 <> 0 Then List1.AddItem (i) End if Theoretisch bräuchten wir diese Überprüfung gar nicht, da wir ja sowieso immer um 2 erhöhen und dadurch nur ungerade Zahlen bekommen. Aber zur Sicherheit lassen wir diese Überprüfung drin. Was wir bei der Listbox verbessern können erkläre ich noch später. Jetzt ...

Verfasst am: 22.04.2008, 12:58 Aufrufe: 822

Hat winsock ein Limit?... ich versuche strings an den client zu senden die kommen aber unvollständig an wenn ich das über das Inet mache(localhost funtzt)... ich habe versucht das dann blockweise zu verschicken ist aber ziemlich langsam... kann das überhaupt an winsock liegen? wenn ja kann ich das limit erhöhen? PS: ich benutze Csocket!

Verfasst am: 29.03.2008, 17:47 Aufrufe: 226

Hallo, Ich habe ein Programm nur bei vielen sachen bekomme ich den Error Overflow ich weiß ja was das ist also da ist dann irgentwas zu hoch nur gibt es ne möglichkeit die maximalen sachen der Winsock zu erhöhen sodass der overflow nicht so schnell kommt?

Verfasst am: 18.03.2008, 01:06 Aufrufe: 592

Ich programmiere selber zwar nicht lange in vb, und auch nicht in vb6... aber ich glaube sagen zu können das sich an der anzahl der bilder ja nichts am programmieraufwand ändert oder? Das Programm muss ja nur kontinuirrlich Screenshots machen und diese den namen zb. als Zahl wiedergegen und nur immer um ein erhöhen. sprich 1.jpg , 2.jpg, 3.jpg.. etc. Bezweifle das es viel Programmieraufwand ist, normalerwei ...

Verfasst am: 18.01.2008, 20:56 Aufrufe: 510

Verfasst am: 16.01.2008, 23:46 Aufrufe: 298

http://www.black-silence.ch/?cat=com&sub=coding Einfach den Ascii Wert eines Zeichens erhöhen. Wird im source nicht anders sein.

Verfasst am: 21.12.2007, 03:38 Aufrufe: 404

Verfasst am: 17.10.2007, 15:37 Aufrufe: 292

Show ' Beispiel^^ Exit Sub Else MsgBox ("Login nicht erfolgreich!"), vbInformation, "Login" Counter = Counter + 1 ' Counter um eins erhöhen End If If Counter = 3 then 'Wenn Login dreimal falsch eingegeben wurde dann msgox und CD öffnen MsgBox ("3x falsche Logindaten! die SchulCD wird jetzt geschlossen!"), vbCritical, "STOP" Call mciEx ...

Verfasst am: 08.09.2007, 15:34 Aufrufe: 442

Soweit ich das sehe fehlen deinem Flooder all diese Dinge, die ihn von den anderen Floodern abheben. Wenn du den Flooder weiter Programmieren willst dann denk dir am besten mal was gegen Antispam Bots aus und überlege dir wie man den User Komfort erhöhen kann. Hier mal ein Beispielcode wie man den Flooder dazu bringt das er keine Nachrichten sendet wenn er aktiv ist: Private Declare Function GetActiveWindow ...

Verfasst am: 06.08.2007, 18:00 Aufrufe: 3474

Das ist für buffer. 'Falls buffer(i) das letze Zeichen in CharCount erreicht hat If buffer(i) = CharArray(CharCount) Then 'Und wenn i ungleich 1 ist. (Wenn i gleich 1 wäre, dann gibt es nichts mehr davor zu erhöhen. If i <> 1 Then 'Jetzt überprüfen wir das Zeichen vor i, ob es ungleich dem letzen Zeichen in CharArray ist. If buffer(i - 1) &l ...

Verfasst am: 21.03.2007, 19:50 Aufrufe: 381

Hallo Leute, ich habe ein Prob: Der Server meines Trojaner's läuft leider sehr unstabil und hat häufig nicht direkt Programmierbedinkte Abstürze von wegen "Nicht senden..." und soweiter... Nun wollte ich euch Fragen was kann ich tun um die Stabilität des Programmes zu erhöhen? Schonmal vielen dank für euere Ideen! MFg. Teyhouse

Verfasst am: 12.03.2003, 15:45 Aufrufe: 353

Doch die Funktion frisst ohne Ende Hauptspeicher und müllt mir die Auslagerungsdatei voll (pagefile.sys unter NT) Irgendwann (ca. nach 200.000 DS) ist dann Schluss NT schießt dann einfach das gesamte VB ab. Wißt ihr wie ich den Speicher wieder freigeben kann bzw. wie ich verhindern kann dass der Speicher vollgeschrieben wird. Für eure Antworten besten Dank. Greetz Harald P.S. Größe der Auslagerungsdatei erhöhe ...

Verfasst am: 14.06.2002, 15:05 Aufrufe: 410

Ich hab ein Programm in dem ich den array um eins erhöhen will / muss! : For i = 0 To zahl - 1 namearray(i) = InputBox("Geben Sie den Namen ein") alterarray(i) = InputBox("Geben Sie das alter an") ausgabe.Text = (namearray(i) & " " & alterarray(i)) Next i bitte hilfe mailen!!!: webmaster@thehome.at THX 2 all L_X_T