Visual Basic Forum

Verfasst am: 05.03.2012, 18:32 Aufrufe: 174

Wie kann man mit VB6 den Schriftgrad eines in einem Word-Dokument markierten Wortes feststellen und dann dieses Wort um einen Bruchteil des ermittelten Punktwerts tieferstellen? Ich möchte diese Prozedur mit einem Makro realisieren, das ich durch eine Tastenkombination starten kann. Danke im Voraus Ernesto

Verfasst am: 22.05.2011, 16:27 Aufrufe: 418

Meine Frage ist auch eine ganz einfache: Ich hab eine For Next schleife wo ich die variable i immer um 1 erhöhe. dann möchte ich diese variable mit einem Wort koppeln um eine variable wie test1, test2, test3 usw. zu erhalten Das anchfolgende Script ist nur ein Beispiel für das was ich erreichen will: <% i=0 for a = 1 to 10 Randomize my_num = Int((rnd*1000))+1 variable = "das ist ein beli ...

Verfasst am: 26.02.2011, 12:57 Aufrufe: 583

Document.Forms(0).loginname.Value = "Name1" WebBrowser1.Document.Forms(0).loginpwd.Value = "Passwort1" On Error Resume Next WebBrowser1.Document.Forms(0).submit.Click End Sub ### Hier werden die Accountdaten eingegeben und der Grafische Anmelde-Button wird geklickt Private Sub Command100_Click() WebBrowser1.Navigate "http://www.schulterglatze.de/truppe/wache/teilnehmen" ...

Verfasst am: 05.02.2011, 11:01 Aufrufe: 376

Hallo Leute, ich wollte wissen wie es möglich ist, ein bestehendes Form (inklusives aller Labels, Button etc.) in eine TabPage zu kopieren. Kopieren ist hier vlt. das falsche Wort. Aber es geht im Prinzip darum das ich ein Form habe, und dieses möchte ich mit einem Shortcut Befehl (ähnlich dem Tabbed Browsing) bei Bedarf mehrmals in einem Tab zur Laufzeit öffnen können. Vlt. hat jemand einen Denkanstoß für mic ...

Verfasst am: 15.02.2010, 15:56 Aufrufe: 409

Danke...hab es jetz mit dem einfachen wort DoEvents hinbekommen Smile

Verfasst am: 03.01.2010, 23:24 Aufrufe: 573

Hallo flompfm, ich muss sagen ich verstehe kaum ein Wort von dem was du da schreibst. Könntest du dir vielleicht, was Grammatik und Rechtschreibung betrifft etwas mehr Mühe geben? Danke. Also wenn ich dich richtig verstehe suchst du den Source Code für einen Passwort Checker also der überprüft ob ein Passwort richtig ist. Korrekt? Viele Grüße

Verfasst am: 29.08.2009, 15:12 Aufrufe: 788

Hallo, ein Wort vorweg: If ist keine Schleife sondern eine Verzweigungsanweisung. Du meinst sicherlich eine For-Schleife oder ? Auch die ist in meinen Augen nicht notwendig. Ich habe es mal mit einem ganz simplen Beispiel probiert: Public Class Form1 Dim clicks As Integer Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click RichTextBox1.T ...

Verfasst am: 25.06.2009, 08:18 Aufrufe: 443

Was%& Geh%§t! 3. Was G%&eht%§! 4. Was Ge%&ht!%§ 5. %§Was Geh%&t! 6. W%§as Geht%&! 7. Wa%§s Geht!%& 8. %&Was%§ Geht! 9. W%&as G%§eht! 10. Wa%&s Ge%§ht! Das Wort ist immer anders aber die Zeichen ändern sich nicht. habs mit Instr(),mid(),left(),right() versucht ich krieg nur die Position des Zeichens im Text raus aber wie ich es verschieben kann weis ich nicht hoffe auf ...

Verfasst am: 15.06.2009, 12:12 Aufrufe: 2715

Besonders welche die der spätere Benutzer auslösen könnte.Z.B. Die Suchfunktion eines Eintrages.Wenn ihr eine Textbox nutzt, wo der Benutzer ein Wort eingeben kann zum suchen, solltet ihr vorher abfragen ob er überhaupt etwas eingeben hat.Am besten so:If Len(Text1.Text) <> 0 Then End ifSo wird überprüft ob Text1.Text länger als null ist.Das ist um einiges schneller als if Text1.

Verfasst am: 08.06.2009, 09:55 Aufrufe: 849

Hallo Zusammen. Ich bin bei der Arbeit mal auf die Idee gekommen, ein Programm zu schreiben, mit welchem ich Englisch lernen kann. Die Idee ist folgendermassen: 3 Labels, 2 Textboxen und 2 Buttons. Das Programm startet, man drückt auf den "Starten"-Button, das Programm baut eine Datenbankverbindung auf und fügt das erste Englische Wort in das 1. Textfeld ein. Danach sollte der User in das 2. Textf ...

Verfasst am: 13.04.2009, 15:27 Aufrufe: 752

Length; // Daten am ENDE auslesen byte[] text = new byte[5]; // hier: Wort mit 5 Buchstaben text[0] = buffer[len - 5]; text[1] = buffer[len - 4]; text[2] = buffer[len - 3]; text[3] = buffer[len - 2]; text[4] = buffer[len - 1]; ...

Verfasst am: 18.11.2008, 21:28 Aufrufe: 1605

Und geboren war der Anagram Builder Das ist eine reine testversion also noch ziemlich verbugt nehm ich an. Obwohl bisher alles einwandfrei lief. Funktionsweise: Ihr trag bei Main-Settings unter ausgangstext das wort ein von dem ihr ein Anagramm haben wollt. Wenn ihr einfach alle buchstabenkombinationen haben wollt lasst ihr den haken darunter weg, falls ihr wirklich nur "richtige" wörter haben wollt ...

Verfasst am: 22.09.2008, 22:03 Aufrufe: 2203

Verfasst am: 21.09.2008, 12:08 Aufrufe: 943

bla hat es doch schon gesagt.Es ist ein Unterschied ob du "batch" sendest oder "batchundtextvonderdatei"Wenn das ganze drüben ankommt und du einfach per select case prüfst ob "batch" gesendet wurde, wird er nur reagieren wenn du auch wirklich nur das Wort "batch" gesendet hast und nicht noch den Text hinten drann.Also du brauchst ein Trennzeichen wo du den Befehl vom Text der Datei dann trennen kannst.

Verfasst am: 20.09.2008, 23:17 Aufrufe: 1064

Wo liegt das Problem? Du musst so oder so die Datei öffnen, um den Inhalt zu lesen. Von daher kannst du auch gleich den kompletten Inhalt in eine Variable laden (@BlAcKfINAl.aT wieso wollt ihr alles in ne Textbox schreiben, man kann das gleiche auch mit einer String-Variable machen) und dein Wort per Replace ersetzten. Da du den Dateinamen ja hast, einfach die Datei wieder öffnen und wieder reinschreiben, falls du so ...

Verfasst am: 20.09.2008, 13:37 Aufrufe: 1064

Les doch einfach die datei ein , schrieb den text in ne textbox und schau dan mit if instr nach dem wort und verwende die Replace Funktion.Wozu direkt in die Datei ? macht ja kein unterschiedMfg

Verfasst am: 20.09.2008, 13:17 Aufrufe: 1064

Also ich hab ne Textdatei, wo ich ein einziges Wort ersetzen willIch hatte die Idee, die Datei einzulesen, das Wort zu suchen und zu ersetzen, die Alte löschen und mit der Neuen zu ersetzenDoch kann man nicht direkt in die Datei schreiben ?

Verfasst am: 19.09.2008, 17:56 Aufrufe: 2410

Verfasst am: 11.09.2008, 14:08 Aufrufe: 824

Verfasst am: 09.09.2008, 21:55 Aufrufe: 824

Verfasst am: 09.09.2008, 19:48 Aufrufe: 1752

Verfasst am: 06.09.2008, 22:39 Aufrufe: 467

Verfasst am: 04.09.2008, 11:00 Aufrufe: 882

Verfasst am: 04.09.2008, 08:44 Aufrufe: 882

Verfasst am: 02.09.2008, 16:59 Aufrufe: 1030

wie kann ich nach einem bestimmten wort in einer textbox suchen? z.B es steht das drin: "Ich gehe zum Aldi" dann sollte man nach "Aldi" suchen und wenn das wort existiert kommt eine msgbox

Verfasst am: 31.08.2008, 08:39 Aufrufe: 676

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: 31.08.2008, 08:11 Aufrufe: 676

.also zb ich mach ne liste...:Private Sub Command1_Click() 'variablen Dim zahl As Integer Dim doppelkomma As String Dim wort As String zahl = Text1.Text wort = Text2.Text doppelkomma = ";" 'liste machen Open App.Path & "Liste.txt" For Binary As #1&l ...

Verfasst am: 28.08.2008, 18:47 Aufrufe: 6696

Verfasst am: 28.08.2008, 18:38 Aufrufe: 6696

Verfasst am: 28.08.2008, 17:53 Aufrufe: 6696

) per Substring deine Wörter extrahieren.Du könntest auch per Schleife die ersten x Zeichen (wobei x die Länge des zu suchenden Wortes ist) aus dem String nehmen, dann vergleichen ob es dein gesuchtes Wort ist. Falls nein einfach die x Zeichen ab der zweiten Stelle nehmen und vergleichen, dann ab der dritten Stelle x Zeichen, und so weiter bist du dein Wort gefunden hast, gleichzeitig hast du dann auch den Index des ...

Verfasst am: 28.08.2008, 05:27 Aufrufe: 6696

hm..ich habe mich schlecht ausgedrückt. Da wo das Wort "Tag" ist, könnte aber auch "Nacht", "Morgen", "Mittag" oder "Abend" Stehen. Also ich weiss nicht nicht was dort steht. Ich dachte da an eine Lösung die folgendes macht:Das Wort "Hallo" suchen, von "Hallo" dann 18(?) zeichen vorwärts und das folgende Wort dann ausgeben.Ich glaube da ist es mit Substring nicht getan.Gruss Anale

Verfasst am: 27.08.2008, 23:54 Aufrufe: 6696

Verfasst am: 26.08.2008, 20:34 Aufrufe: 584

Hey Leute,ich habe 2 Optionbuttons, 2 Textboxen und einen Button. In den Checkboxen sind zBs. die Befehle:a ( Wenn ausgewählt soll in der Textbox2 "Hi" erscheinen )oderb ( Wenn ausgewählt soll in der Textbox2 "Bye" erscheinen )in die Textbox1 kommt ein beliebiges Wort zBs.:Test ( Soll auch "Test" in der Textbox2 erscheinen )Wenn man auf den Button klickt soll in der Textbox2 das Ergebnis rauskommen, also:Wenn a ausge ...

Verfasst am: 26.08.2008, 18:15 Aufrufe: 999

http://de.wikipedia.org/wiki/POP3Ruf die Header in einer Schleife ab. Überprüfe ob das Wort darin enthalten ist und lade die mail runter.Oder du ladest einfach alle mails runter und dursuchst sie dann auf der Festplatte.

Verfasst am: 25.08.2008, 21:32 Aufrufe: 1412

Lol, es heißt "Hangman".Hier mal nen paar Bugs:- Wenn ich die Datei starte und nen neues Wort will, kommt ich hätte gewonnen.- Man kann Buchstaben mehrmals angeben.- Wenn die Wortliste leer ist bekomm ich einen Endlos-Loop von "Du hast gewonnen"-Msgboxen- Danach ist das Programm unstartbar, da nach jedem Start der Loop beginnt und ich keine temp. Dateien sehe.

Verfasst am: 08.08.2008, 13:02 Aufrufe: 427

Verfasst am: 31.07.2008, 11:35 Aufrufe: 391

Hallo,ich habe vor kurzem angefangen mit der Datenbankprogrammierung mit DAO.So nun steh ich vor einer kniffligen Aufgabe.Undzwar möchte ich 2 Spalten nach jeweils verschiedenen Suchwörter durchsuchen.Wird in einer dieser Spalte das Wort gefunden, wird das Feld in einer Listview geaddet.Soetwas wie in der Art:Wenn in Spalte 1 = "Buch" OR in Spalte 2 = "Heft" thenList1.addItem FieldDas alles dann möglichst noch in ein ...

Verfasst am: 26.07.2008, 18:29 Aufrufe: 493

HihoIch habe in der Datei register.log das wort Spectate und nach diesem wort wollte ich die nächsten 43 Zeichen in einer msgbox ausgeben wie kann ich das realisieren?mfgimi-tat0r

Verfasst am: 24.07.2008, 11:09 Aufrufe: 860

hm? Du musst das Inet steuerelement doch in den server packen, also in die server.exe und die server .exe musst du als Resource anhängen;) ließ dir das Tut lieber noch mal genau durch, du hast das glaube ich noch nicht so direckt verstanden :wink:Du hast die Server.exe, darin werden am anfang die (verdammt mir fällt das wort nicht ein -.-) tjoa "Parameter" abgerufen und anstat das da dann stehtz.B. Visual Basic: [ ...

Verfasst am: 16.07.2008, 08:54 Aufrufe: 2485

Hi,ich habe einen langen String (Bsp.:)aufzaehlung = "Buch!-!Heft!-!Stift!-!Auto!-!"Als Trennzeichen der einzelnen Wörter habe ich "!-!"(Leerzeichen geht nicht, da die Wörter selber auch ein Leerzeichen haben könnten)Das wichtige ist das ich nicht weiß wieviele Wörter ich habe.Nun soll mit einer Schleife jedes einzelne Wort in einer Listbox (List1) eingetragen werden.Hoffe mir kann jemand helfen!

Verfasst am: 14.07.2008, 13:07 Aufrufe: 2091

Sieht aus, als ob du Vista hast. VIlleicht gibt es da Kompatibilitätsprobleme (schweres Wort >.

Verfasst am: 14.07.2008, 09:06 Aufrufe: 1057

@imi-tat0rBevor du deine Fragen postest, wäre es nett wenn du dich im Forum etwas umsiehst ob diese Fragen schon gestellt wurden.Und ja das wurden sie schon mehrmals."InStr" ist das Stichwort.InStr gibt dir die Position eines Wortes/Zeichens in einem Text zurück.Beispiel:Visual Basic: [code]Dim sText as stringDim iPos as longsText = "Ich bin ein Text"iPos = InStr(1, sText, "ein")MsgBox iPos[/code]Die msgbox würde dir ...

Verfasst am: 10.07.2008, 18:43 Aufrufe: 453

hallo,dachte meine frage passt hier rein ..also da beim code werden nur wörter oda besser gesagt einzelne zeichen ersetz. und wie kann ich das jetz mahen das ich zb "abc" eingebe und er "zbx" anzeigt? also bei "a" das "z" und wenn ich "ag" hab zb "zg"? :confused: also einzlne zeichen halt auch wenn sie zusammen geschrieben werden bei "hallo" halt "helll" ohne jedes wort einzeld da rein zu schrieben nur halt das "a" m ...

Verfasst am: 08.07.2008, 09:24 Aufrufe: 1147

Eine Reverse Connection oder das benutzen von no-ip hat ja auch nicht automatisch mit Trojanern zu tun.Nur denken immer alle gleich nur an das eine. Genauso bei dem Namen "Rat".Obwohl das Remote Administration tool heißt und eigentlich nichts mit Trojanern zu tun hat, wird ständig dieses Wort benutzt und alle denken auch nur an das wenn sie es irgendwo lesen.

Verfasst am: 04.07.2008, 16:33 Aufrufe: 3310

... in der RichtextBox steht in die Datei Close #1 'Das dürfte jeder wissen End Sub Private Sub Suchen_code_Click() Dim SearchStr As String 'Gesuchter Text Dim FoundPos As Integer 'Fundstelle SearchStr = InputBox("Geben Sie einen Suchbegriff ein", "Suchen") If SearchStr "" Then 'Falls SearchStr nicht leer ist, 'erstes Vorkommen des ganzen Wort ...

Verfasst am: 03.07.2008, 20:45 Aufrufe: 818

oOdas isvoll komisch.Die messagebox zeigt das an:Haustiername:Petname:So müsste es ja auch sein... aber wenn ich nun einstelle, dass die variablen, wenn sie "leer" sind, das wort: "huhu" ausgeben sollen, ändert sich nichts...und es werden immer noch beide formen dargestellt...Und ich kann beim form2 nirgendswo visible auf false stellen...wisst ihr was?ich hör mit diesem projekt auf...Variablen und son zeug is noch ni ...

Verfasst am: 26.06.2008, 16:09 Aufrufe: 751

Was meinst du mit dateiinhalt? oOSoll ich da jedes wort reinschreiben, was sich in der datei befindet? oO

Verfasst am: 16.06.2008, 18:04 Aufrufe: 1031

weiss jemand wie ich folgendes "fixe"?Beispielsweise meine Liste sieht so aus:Muttersprache: Fremdsprache:interessant intéressant, -eHaus maisonIch speichere dies in eine Textdatei.Inhalt:2interessantinéressant, -eHausmaisonNun wenn ich das Projekt lade, wird da wo das Komma ist, das Wort getrennt.Sprich nachher sieht die Liste folgendermassen aus:Muttersprache: ...

Verfasst am: 12.06.2008, 12:57 Aufrufe: 724

lies dir bitte nochmal das erste wort durch was ich geschrieben habe und überleg dir ob du die frage echt stellen willst..