Visual Basic Forum

Verfasst am: 11.05.2012, 11:10 Aufrufe: 34

Guten Tag Forum, ich habe eine Steuerelementarray Tabelle gemacht und dafür eine Scrollfunktion geschrieben. Nur kommt mir die Bildschirmausgabe des Scrollens dieser Tabelle langsam vor. Ich suche deswegen nach einer Methode diese Funktion zu beschleunigen. Ich habe bereits ein Beispiel anderer Art mit CopyMemory gesehen und bin von dem Ergebniss beeindruckt. Meine Frage lautet nun, ob man mithilfe von CopyMemory ...

Verfasst am: 30.04.2012, 14:45 Aufrufe: 91

Hallöchen, ich komme mal gleich zur Sache: Habe einen zweidimensionalen Array und in Position array(0,0) einen Wert gespeichert. Will ich diesen wert abfragen, bekomme ich eine indexoutofrange-meldung. Es ist definitiv ein wert in array(0,0) vorhanden. Was soll das? habe es zuerst mit einer variablen versucht und jetzt sogar fix array(0,0) stehen, aber keine Chance. Woran kann das liegen? Danke schonmal an all ...

Verfasst am: 06.03.2012, 16:00 Aufrufe: 174

Hi meinst Du die Funktion "Tieferstellen" mit Deiner Frage "Gibts da eine Funktion ..."? Wenn ja, ist die Antwort: Ja! Du hast auf folgende Weise Zugang dazu: Format/Zeichen/Zeichenabstand/Position, hier auswählen: Tieferstellen Diese Angaben beziehen sich auf Word 2000, aber ich nehme an, daß es bei den neueren Versionen ähnlich ist. Gruß Ernesto

Verfasst am: 06.03.2012, 15:36 Aufrufe: 174

Verfasst am: 20.02.2012, 11:52 Aufrufe: 171

hi ich kann leider kein vb.net darum kann ich dir da nicht helfen was ich aber weiß! dass du alle fenster in größe und position ändern kannst! da ich vor einiger zeit ein programm geschrieben habe dass mit den fenstern genauso umgeht wie windows 7 und etwas erweitert lg

Verfasst am: 08.01.2012, 16:37 Aufrufe: 213

Hallo, Ich habe 2 Textboxen, txtstring, txtsuch Nun möchte ich einen Text in txtstring eingeben und in txtsuch den Suchbegriff. Nun soll wenn gefunden ,der gefundene Text im txtring markiert werden. Bsp. txtstring = 123456 txtsuch=123 dann soll txtstring= 123 markiert sein, der Rest normal geht das und wenn ja wie habe mit stringcompare versucht, zeigt mir da hja dann die position an, aber wie kriege i ...

Verfasst am: 19.10.2011, 20:46 Aufrufe: 247

Nein, aber erstmals Danke für das Intresse ! Ich meine wenn das Programm zb durch Cklick auf den Min-Botton (oben Rechts) das dann das Programm sich nicht in der Task-Leiste legt sondern im allgemeinen darüber auf dem Desktop. Automatisch und vom Betriebssystem vergebene Position. Ich möchte nun aber das ich die Position bestimmen kann wo das Programm in der verkeinerten Form sich Positioniert. Wie ist daß möglich ? ...

Verfasst am: 18.10.2011, 10:12 Aufrufe: 247

wie meinst du das minimal position festlegen?? meinst du jetzt in der taskleiste ?!

Verfasst am: 15.10.2011, 10:20 Aufrufe: 247

Hallo an euch allen, ich habe ein Problem : immer dann wenn ich ein bestimmtes (von mir selbst gecodet) VB Programm mit der Standart Schaltfläche minimieren will legt es sich unten links auf dem Desktop. Soweit so gut (soll so sein). Ich möchte aber das die Minimal Position von mir festgelegt werden kann. Ist so was möglich ?? bin schon lange daran am suchen. kann einfach nichts finden. Aber vieleicht weis ja einer v ...

Verfasst am: 24.09.2011, 22:56 Aufrufe: 238

ich hab eine minimap geadded, funktioniert auch alles - wenn ich eine unit bewege dann wird die alte position nicht gelöscht! wie kann ich hier dem programm sagen, es soll nur die aktuelle position zeichen - aber die alten sofort wieder löschen auser die einheit bewegt sich nicht mehr ? Public Sub drawminimap(z) tempa = mapwidth / 70 tempb = mapheight / 70 minimap.ForeColor = vbGreen minimap.

Verfasst am: 20.07.2011, 12:53 Aufrufe: 874

Hallo liebe Leute vom visual-basic-forum.de, wie im Titel kurz erwähnt geht es darum den Cursor neu zu positionieren - jedoch nicht an einer festen Stelle (x, y) bzw. (600, 670), sondern am liebsten auf die Position, an der ein bestimmtes Label befindlich ist. Mein Vorhaben:Ich progge ein kleines Spielchen, welches im großen und ganzen auf MouseOver basiert. Ziel ist es mit der Maus bzw. mit dem Cursor von ei ...

Verfasst am: 27.06.2011, 12:48 Aufrufe: 408

Hallo Freunde. Hab alles soweit selber hinbekommen. "MousePosition" oder "Cursor.Position" funktionieren bei der Maus eigentlich ganz einfach. "MousePosition" funktioniert nur innerhalb einer Windows.Form, aber "Cursor.Position" funktioniert auch aus eigenen Klassen oder Modulen heraus. KeyboardStatus habe ich auch hinbekommen, aber dies ist ja ein heikles Thema und über ...

Verfasst am: 07.06.2011, 17:53 Aufrufe: 568

... Code, der die Download Zeit berechnet und der den Download pausieren und ihn danach auch wieder weiterlaufen lässt. Vielleicht kann euch das hier ja weiterhelfen, denn dies sind die momentanen Codes für (Die Download-Geschwindigkeit,Status,Weite und Link), so ähnlich könnte dann ja auch vielleicht der Code für den Download Dauer Berechner aussehen: Public Sub ChangeTexts(ByVal length As Long, ByVal position ...

Verfasst am: 18.03.2011, 23:50 Aufrufe: 488

Das hier könnte dich interessieren: http://openbook.galileocomputing.de/einstieg_vb_2010/einstieg_vb_2010_kap_01_004.htm#mj651a2a87e99a42b931d915a5547e76a4 Da gehts darum, wie man die Position von Steuerelementen verändern kann. Könnte eine Grundlage für ein Spiel sein.

Verfasst am: 03.02.2011, 18:53 Aufrufe: 479

... nach Veränderung des Anzahlfeldes überschrieben und "Hallo2" in Zeile 2 Aber wenn ich nun zuerst Checkbox2 checke und "Hallo2" nun an erste stelle in der Listbox steht kann ich keine Zahl eintragen in das Textfeld, da mir dann sofort einen Fehler bekomme... ist ja auch logisch, da ich "Hallo2" nur die zweite Zeile in der Listbox zugewiesen habe... Wie kann ich nun die Position ...

Verfasst am: 31.01.2011, 18:29 Aufrufe: 509

Hallo erstmal, ich bin neu im Forum und hauptsächlich wegen einer Denkblockade oder eines komplexeren Problemes hier. Ich zeige euch erstmal einen Code Ausschnitt: If Spieleramzug = 1 And Einheit_setzen_1 = 0 And e.Button = Windows.Forms.MouseButtons.Left Then Dim newPictureBox As PictureBox = New PictureBox() For Each temp As PictureBox In Liste If Cursor.Posit ...

Verfasst am: 20.01.2011, 08:33 Aufrufe: 566

die einfachste möglichkeit ist ist garantiert nicht die schönste aber du sparst die einen haufen code und nerven du nimmst dir eine picturebox in der größe des captchafeldes und fügst in die picbox das webbrowsersteuerelement ein jetzt noch paar mal herum probieren und schieben und irgendwann hast du genau die position des captchafeldes gefunden lg

Verfasst am: 30.12.2010, 19:56 Aufrufe: 1272

... - Amount of macros was limited - UPPER-/lowercase was distinguished (for the macro commands) - Recent file with the same content could exist twice - Characters Counter, Words Counter and Lines Counter weren't refreshed if an arrow key is or was pressed Changed: - Stretched the security query (so that longer translations won't be cut) - Rearranged the format of the timestamp - Shifted the position ...

Verfasst am: 14.12.2010, 08:43 Aufrufe: 1203

in den Ordnern liegt enthalten) Leider erstellt der code jedoch nur EIN Label. Ich bin es schrittweise durchgegangen. Im ersten durchgang ist es bei der ersten position (verändert sich bei jedem durchlauf). Läuft der code komplet duch, ist genau ein Label im Panel mit den zuletzt gefundenen Ordner als Text. Ich vermute eigendlich, das er den vorgegebenen Namen der labels nicht ändert und es nur immer verschiebt.

Verfasst am: 03.11.2010, 11:14 Aufrufe: 1158

. mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0) mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0) end sub 'vorher noch den cursor richtig positionieren cursour.position = new point(xposytion, ypostion) 'du kannst auch zwischen down und up eine andere position angeben 'dann wird verschieben simuliert ;-) tastenkombinationen sind auch kein problem SendKeys ("{ ...

Verfasst am: 04.09.2010, 11:37 Aufrufe: 350

Hallo, hab's mittlerweile selbst gelöst: Der Code Dim temp As Point = Me.tv_Keywords.PointToClient(Cursor.Position) Dim tn As TreeNode = Me.tv_Keywords.GetNodeAt(temp) If Not tn Is Nothing AndAlso temp.X < tn.Bounds.Left Then ... fragt ab, ob der Klick links vom Textbereich des TreeNodes (nur dieser wird von TreeNode.Bounds beschrieben erfolgte.

Verfasst am: 29.08.2010, 09:43 Aufrufe: 553

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: 09.08.2010, 14:43 Aufrufe: 632

twipsperpixelX ist es leider nicht weil ich nämlich genau das gleiche problem hatte ich müsste mir den code von einem alten projetk nochmal anschauen da hab ich das gemacht wenn ichs nicht vergesen mache ich das heute abend aber zu deiner frage: nein es gibt keinen fehler wenn du die form weiter über den rand hinaus schiebst... du hast da sowiso mehrere probleme du musst erstmal ermitteln an welcher positio ...

Verfasst am: 01.08.2010, 17:43 Aufrufe: 407

Hallo, hab da ne Form, die meine sogenannte Hauptform ist. Nun hab ich da noch mehrere andere Forms, die ebenfalls visible=true sind. Nun, wenn ich die Hauptform auf dem Bildschirm verschiebe, ändert sich zwar die Position der Hauptform, die Nebenformen bleiben aber leider an ihrem ursprünglichen Punkt stehen. Kann ich das irgendwie anprogrammieren, dass die Formen der Hauptform folgen?? Danke für eure Mithilfe

Verfasst am: 16.07.2010, 11:02 Aufrufe: 544

- Schreiben Sie ein Makro welches das aktuelle Ranking wieder löscht, um neue Daten weiterer Mitarbeiter hinzuzufügen. Soweit mal zur Aufgabenstellung. Ich habe mir überlegt die Daten aus der Spalte B (also die Umsätze) in ein Array zu schreiben welches dann sortiert wird und die jeweilige Positionierung in die jeweilige Zeile schreibt. (Er muss sich also merken welcher Wert wo steht). Er soll also NICHT de ...

Verfasst am: 24.02.2010, 20:18 Aufrufe: 635

Auf einem Formular befinden sich 2 Panels. Diese möchte ich mit mehreren Buttons variabel "füllen" - Größe und Position sind unterschiedlich. Fülle ich das erste Panel mit Panel.add funktionert das, sobald ich das zweite Panel füllen will stellt er nur noch Blödsinn in beiden Panels dar (bzw. im 1. Panel überhaupt nicht mehr). Kommentiere ich das Befüllen des 1. Panels aus, füllt er das 2. Panel wie ...

Verfasst am: 03.02.2010, 13:34 Aufrufe: 1010

... che ich mir echt fast den Kopf! Sad

Es wäre nett wenn mit jemand helfen könnte!? Die Frage lautet so: Mit der Eigenschaft Cells(Zeile, Spalte) kann man auf einzelne Zel-len eines Range- Objektes zugreifen: Range("a1:c3").Cells(2,2) ist die Zelle B2. Schreiben Sie eine Routine, die aus einer aufsteigen-den Zahlenreihe (A1:A100) das Zahlenpaar mit der geringsten Dif-ferenz findet. Geben Sie die Position ...

Verfasst am: 14.12.2009, 19:57 Aufrufe: 451

Hi, wie kann ich ein Control im TabelLayoutPanel ansprechen, dass sich an einer bestimmten Position befindet, von der also Spaltennr. und Reihennr. bekannt sind? Gruß Kaloschle

Verfasst am: 22.11.2009, 16:28 Aufrufe: 1804

Spieleprogrammierung mit XNA - Teil 3Willkommen zum dritten Tutorial,mir ist grad langweilig, also hab ich das dritte schon geschrieben. :DIn diesem Teil geht es um die erste Textur, die wir anzeigen wollen.Ich gehe vom Source aus Tutorial Nummer 2 aus, also bitte ladet das Projekt schonmal Wink

3.1 Neue Variablen!Mit neuen Funktionen kommen auf neue Variablen zum Einsatz. Das ist auch bei XNA so.Folgende Variablen ...

Verfasst am: 17.11.2009, 12:57 Aufrufe: 1921

... ; <> "" Then ' Existiert die Datei ? Kill sFilename & "-Orig" ' Textdatei schließen End If Name sFilename As sFilename & "-Orig" 'Original Datei umbennen Set objStream = CreateObject("ADODB.Stream") 'Stream erzeugen With objStream .Open 'Öffen .Position ...

Verfasst am: 17.11.2009, 12:54 Aufrufe: 2711

... ; <> "" Then ' Existiert die Datei ? Kill sFilename & "-Orig" ' Textdatei schließen End If Name sFilename As sFilename & "-Orig" 'Original Datei umbennen Set objStream = CreateObject("ADODB.Stream") 'Stream erzeugen With objStream .Open 'Öffen .Position ...

Verfasst am: 14.11.2009, 15:55 Aufrufe: 647

Halli Hallo, Ich programmier gerade für mein Spiel , welches ich im Informatik - Unterricht erstelle eine Highscoreliste. Nur stecke ich gerade bei der IF-Funktion fest , wo die jeweilige Position der erzielten Punkte in ein textlabel eingetragen wird Nur ist ein Dreher in meiner If Funktion drinne. Hier ist mal die If - Funktion: If erreichtp.Caption >= punkte1.Caption Then name2.Caption = name1.C ...

Verfasst am: 03.10.2009, 16:54 Aufrufe: 941

Die gesamte Markierung soll dann ausgeschnitten werden. Rest des Macros wo es hinkopiert werden soll habe ich bereits.Das ganze soll solange wiederholt werden, bis der erste Text nicht mehr gefunden wurde.Ich wollte das mit Range lösen, scheitere aber daran, die Position von Text1 an Range Start und von Text2 an Range End zu übergeben.Kann mir bitte jemand helfen? Oder gibt es eine einfachere Lösung?Ich hoffe das ist ...

Verfasst am: 25.06.2009, 08:18 Aufrufe: 443

Verfasst am: 19.06.2009, 20:00 Aufrufe: 1800

" könnt ihr Informationen von der Funktion während dem überschreiben zurückerhalten.fShredder.ActLoop - Gibt zurück bei der wievielten Wiederholung er ist.fShredder.ActPosition - Gibt zurück an welcher Position in der Datei er sich gerade befindet.fShredder.bStop - Kann auf True gesetzt werden um das ganze abzubrechen.Wichtiges über die Function1. Es wird überprüft ob es sich wirklich um eine Datei handelt und ob sie ...

Verfasst am: 15.06.2009, 12:16 Aufrufe: 1921

Der Code funktioniert so, dass er die Datei Stückchenweise einliest und versendet.Da das Winsock Control immer nur eine gewisse Menge an Bytes auf einmal versenden kann (65535Bytes max), können wir auch nicht größere Stücke auslesen.Hier mal die wichtigsten Variablen:pos zeigt immer unsere letze Position in der Datei an. Mit 1 fangen wir natürlich an.bytes übergibt die Anzahl an Bytes, die immer ausgelesen werden sol ...

Verfasst am: 16.04.2009, 11:38 Aufrufe: 429

Hallo ich komme nicht weiter. Das form wird mit Form_Position.Show() geöffnet. Das Form wird aber erst angezeigt wen die Schleife erfühlt worden ist. Hat jemand ein Idee. Public Class Form_Position Private Sub Form_Position_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim oComPort As New ComPort Me.lblNPosition.Text = "Fahrzeug " & ...

Verfasst am: 09.04.2009, 10:38 Aufrufe: 906

") < Liefert 7, da 7 zeichen in dem Array sind. und das mit den Trennzeichen: Du machst es einfach so. Wenn du weist, wieviele eINTRÄGE DIEN array hat, dan machst du eine schöleife und nimmst I immer als Array Position. Hallo123=hall123 & meinarray(i) & "#" Wenn du das wieder auslesen willst machst du eine Spilt Funktion. Wenn du noch hilfe brauchst kannste dir ja meine PM ...

Verfasst am: 06.04.2009, 18:25 Aufrufe: 854

Die Steuerung erfolgt über eine mechanische Hardware (ähnlich wie ein Joystick, wird per USB angeschlossen, Programmierung dafür steht weitgehend). Diese Hardware liefert exakte X/Y Positionen, die werden dann noch per Programm und eine Lookup-table auf die X/Y Koordinaten des Bildes umgerechnet. Aufgabe ist es nun, den entsprechenden Bildausschnitt passend zur mit der Hardware angesteuerten X/Y Koordinate mögli ...

Verfasst am: 23.03.2009, 20:01 Aufrufe: 645

du kannst den "zeiger" auf eine bestimmte position setzen... Seek-Anweisung Legt in einer mit der Open-Anweisung geöffneten Datei die Position für den nächsten Lese- oder Schreibvorgang fest. Syntax Seek

Verfasst am: 24.02.2009, 15:17 Aufrufe: 1841

hi speicher doch einfach den ganzen inhalt der textdatei in eine variable. mit der "instr" funktion kannst du schaun an welcher position dein schlüsselwort steht bis zu dieser position in die nächste variable und den rest bis zum ende der textdatei in die 3. variable und dancah wieder zusammensetzten variable2 + dein text + variable 3.... lg

Verfasst am: 02.09.2008, 12:10 Aufrufe: 2522

1220281141 ist ein Timestamp.2008-09-01 16:59:01Ich würde mal sagen auf dem server wird die Position des offenen Kreises + Timestamp gespeichert.Wenn man dann klickt werden die Koordinaten wohin man geklickt hat mit der Position des offenen Kreises verglichen auf dem server.Da der timestamp natürlich nie gleich ist, ändert sich das captcha auch ständig.Wer Lust hat kann ja vielleicht den Algo rausfinden wie das captc ...

Verfasst am: 31.08.2008, 15:15 Aufrufe: 1344

Verfasst am: 19.08.2008, 19:35 Aufrufe: 487

und zwar Private Sub Label2_Change() call function End Sub ich möchte jedes mal wenn sich das label ändert eine function aufrufen die function... da bräuchte ich in der variable1 die zahl was vor dem ändern im label stand und in der variable 2 die zahl die die jetzt im label steht... (die zahl = die cursor position) wisst ihr was ich meine??? könnt ihr mir vl weiterhelfen??? danke schon mal im vorraus l ...

Verfasst am: 19.08.2008, 10:20 Aufrufe: 1621

attribute { font-family: "Arial", "Helvetica", "Sans-Serif"; color: #000000; font-weight: bold; font-size: 12;} #icon { position: absolute; top: -145px; left: 47px; z-index: 99; _top: -145px} #text { position: relative; top: 67px; left: 10px; z-index: 99; } #wrapper { position: relative; z-index: 99; } #wrapper99 { position: relative; z-index: 98; } ...

Verfasst am: 31.07.2008, 10:07 Aufrufe: 869

Klick in eine zufällige Richtung bewegt. Außerdem wird bei einem Klick die Kugel schneller und kleiner, was den Schwierigkeitsgrad natürlich pro Klick (auf die Kugel) erhöht. Außerdem startet jede Kugel auf einer anderen Position. Dazu habe ich 10 Images angelegt und jeweils eine Version der Kugel reingesetzt (War mir zu kompliziert der Kugel zu sagen, dass sie wo anders neu auftauchen soll). Wenn man eine Kugel ange ...

Verfasst am: 22.07.2008, 11:28 Aufrufe: 611

Problem dabei ist, wenn du schon einmal zu Ende gelesen hast, und du ihn von der Position aus wieder zum Ende lesen lässt, kann er nichts mehr lesen, da er ja schon am Ende angekommen ist, ergo musst du den Stream wieder auf den Anfang setzen Wink

Verfasst am: 20.07.2008, 21:34 Aufrufe: 598

Winsock sendet nur 1024 Buchstaben, um sicher zugehen dass alles gesendet wird nehmen wir 1000 Buchstaben als BlockDim zahl as IntegerDim deinString as Stringzahl = 1doServer.SendData "Packet1" & Mid(deinString, zahl, 1000) zahl = zahl + 1000 ' Position ändernLoop until zahl + 1000 >= Len(deinString)Server.SendData "Packet2" & Right(DeinString, Länge - zahl + 1)Jetzt muss dein Server das machen bei dataarrvial:winsck ...

Verfasst am: 14.07.2008, 19:42 Aufrufe: 397

Nabend :wink:wollte mal fragen, ob es möglich ist, die Postition und Größe eines aktiven Fensters auslesen kann?

Verfasst am: 14.07.2008, 09:06 Aufrufe: 1057