Visual Basic Forum

Verfasst am: 02.02.2012, 09:01 Aufrufe: 703

Hmm tatsächlich Smile

Hab den Button jetzt einfach kurzer Hand in ein Label geändert, funktioniert einwandfrei. Vielen Dank Marxeo

Verfasst am: 01.02.2012, 08:28 Aufrufe: 703

hi es funktioniert deshalb nicht weil der button den Focus hat die form benötigt den focus deshalb steht ja ... Form1_KeyDown Wink

Entweder du entfernst den button machst stattdessen ein label dass du hervor hebst oder fängst deine tastenanschläge systemweit ab! viel erfolg

Verfasst am: 26.01.2012, 10:17 Aufrufe: 590

Hallo zusammen, ich habe ein Formular erstellt, welches verschiedene Steuerelemente beinhaltet. Beispielsweise sind dort Label, Textboxen, Checkboxen etc. vorhanden. Diese Steuerelemente (Controls) sind in einem TabControls auf verschiedene Tabs verteilt. Nun möchte ich eine Schleife erstellen, die durch die Form geht, alle Controls ermittelt und dann abfragt, um welchen Typ es sich handelt. Wenn ich das habe ...

Verfasst am: 12.10.2011, 09:35 Aufrufe: 175

Hi, hab ein Programm geschrieben, die bei "favoriten hinzufügen" button klick in eine picturebox die website vorschau anzeigt und ein label mit der url. funktioniert soweit ganz gut, Jetzt ist mein Problem das wenn ich schon ein Lesezeichen gesetzt habe z.b google.de und ich möchte z.b emp.de als Lesezeichen, dann soll er beim button klick das vorschaubild von emp.de in die zweite picturebox setzten (mit de ...

Verfasst am: 25.09.2011, 17:33 Aufrufe: 238

versuche mal ein transparentes label

Verfasst am: 08.08.2011, 15:13 Aufrufe: 272

Hallo zusammen, Ich versuche jetzt schon lange herauszufinden wie ich mit dem "AxWindowsMediaPlayer" den Current Song eines Icecast Streaming auslesen kann.. und denn in einem Label anzeigen kann. Besten Dank schon im Voraus...

Verfasst am: 20.07.2011, 12:53 Aufrufe: 873

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: 15.02.2011, 15:24 Aufrufe: 1086

.. Parameters: refCancel = Integer User must assign this parameter to 1 to abort process. Nun meine Frage: Wie muss ich den RefVal refcancel definieren? Mein Code sieht so aus: Private WithEvents CodesoftApplication As LabelManager2.Application = Nothing Private WithEvents MyActiveDocument As LabelManager2.Document = Nothing Private Sub LblDruck_Click(ByVal sender As System.Object, ByVal e As System ...

Verfasst am: 09.02.2011, 12:13 Aufrufe: 482

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, 15:51 Aufrufe: 651

... ja auch weglöschen :) macht aber eine funktion umfangreicher und angenehmer wenn sich der wechselkurs ändert If IsNumeric(Euro) Then Eur2US = Euro * Wechselkurs End If End Function fuktions aufruf: msgbox Eur2US (4) 'oder msgbox Eur2US (4, 1.37) 'du siehst hier hast du einen wechselkurs angegeben 'du kannst das ergebnis aber auch in ein label ...

Verfasst am: 01.01.2011, 22:50 Aufrufe: 3449

Verfasst am: 14.12.2010, 12:30 Aufrufe: 1201

Verfasst am: 14.12.2010, 08:43 Aufrufe: 1201

Folgene Situation: Ich möchte eine Application schreiben, bei der man einen Ordener Auswählt und die Unterordner (in meinem Fall Filme) einließt. Bis hierher funktioniert es. Während er in der Do-Schleife jeden einzelnen Ordner findet, soll zu jedem Ordnernamen (entspricht Filmnamen) ein Label in ein Panel eingefügt werden (soll später das Titelbild welches jew. in den Ordnern liegt enthalten) Leider erstell ...

Verfasst am: 31.08.2010, 07:29 Aufrufe: 464

was heist denn "wo finde ich die caption funktion" ?! das ist ja keine funktion steuerelemente haben verschiedene eigenschaften... 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 ...

Verfasst am: 09.06.2010, 19:17 Aufrufe: 1028

wtb@web.de) gleichzeitig mit dem Klick auf Button 1 soll die Progress Bar 1 beginnen zu laden. Wenn sie fertig geladen hat soll in Label 1 der Text "Ready!" angezeigt werden. Bei klick auf Button 2 soll das Programm geschlossen werden. Wäre nett wenn sich jemand als Freiwillig erklärt und mir den code dazu schreib und ihn mir schickt sodass ich ihn nur noch einfügen muss! bei Interesse schickt mir einfac ...

Verfasst am: 24.03.2010, 14:46 Aufrufe: 596

hey wollte mal fragen wozu mann den Speicher "Timer" benutzen kann ? hab heute in Info ne Stoppuhr Programmiert da meinte mein lehrer noch zu mir das des alles einfacher gehen würde wenn ich Dim X as Timer mache allerdings hab ich da auch schon keine ahnung mehr wozu mir das weiterhelfen soll ich kann den Speicher nicht in nem Label anzeigen und auch nicht auf 0 oder ähnliches stellen ...

Verfasst am: 25.02.2010, 18:35 Aufrufe: 510

hi @ all titel sagt ja alles. ich will ein fenster programmieren das beim click auf einen button den text des labels ändert. soweit kein problem aber irgendwie hauen die if abfragen nicht hin und ich habe keine ahnung mehr warum. button1 = Nein button2= Ja hier die sourcen If Label1.Text = "text 1" Then Label1.Text = "text2" ElseIf Label1.Text = "text2" Then ...

Verfasst am: 10.02.2010, 15:11 Aufrufe: 501

Click gross = TextBox1.Text klein = TextBox2.Text If gross <= 0 Or klein <= 0 Then Label3.Text = ("Bitte nur Positive zahlen die größer als 0 sind !") End If If gross > 0 And klein > 0 Then Label3.Text = (" Alles im Grünen Bereich ") End If If gross < klein Then ...

Verfasst am: 09.02.2010, 18:13 Aufrufe: 1205

Danke erstmal, es funkt, aber ich möchte auch das der User seine zensur im label und seine zensur im label sehen kann. Sad

Verfasst am: 09.02.2010, 12:51 Aufrufe: 701

moin ich habe eine aufgabe undzwar soll ich ein Programm schreiben das den Benzin Verbrauch pro 100km und die daraus enstehen kosten für die lezte Tankperiode also die zeit zwischen der lezten und der derzeitigen Tanken berechnet. Lösen wollte ich es do die zahlen sollen in die TextBoxen eingetragen werden und mit einem klick auf den butten soll das ergebniss in einem label angezeigt werden. das Problem is nur ...

Verfasst am: 24.01.2010, 19:09 Aufrufe: 505

BadOption Then lbl_karuru.ForeColor = System.Drawing.Color.Red End If wie kann ich den ping in millisekunden in ein label oder eine textbox ausgeben? mit dem code hier scheint nur true oder false zu gehen wenn ich es versuche in einen string umzuwandeln und in eine textbox auszugeben bekomme ich nur System.Net.NetworkInformation.PingReply raus PS: bin ziemlich neu in vb, bitte nicht so s ...

Verfasst am: 17.01.2010, 19:01 Aufrufe: 587

Hallo ! Ich habe ein Programm mit einem Listview-Element, das als eine Art Warenkorb für ein Kassenprogramm fungiert und hat mehrere Spalten (Artikelnr, Bezeichnung, Einzel- und Gesamtpreis) Nun habe ich meinen Büchern entnommen, dass man mit der Eigenschaft Labeledit Eingaben zulassen kann, allerdings nur für das Label, also die erste Spalte. Der Nutzer soll aber auch den Einzelpreis ändern können. Ist d ...

Verfasst am: 24.12.2009, 23:51 Aufrufe: 503

hi stell den interval auf 1000 millisek d.h. 1 sek lass z.b. ein label mitzählen wieviele sekunden vergangen sind und bei label change prüfst du dann halt ob 900 sek vorbei sind 3600 sek 10 sek und 50 sek lg und frohe weihnachten

Verfasst am: 14.12.2009, 21:27 Aufrufe: 466

Hallo VB-Profis, ich hab vor kurzem angefangen vb6 zu erlernen, und hätte eine frage bezüglich eines Problems! Ziel ist es durch einen Button(bn_start) zufällige Matheaufgaben z.B.(4+6) auszulösen die in einem Label(lb_aufgabe) angezeigt werden, die antwort will ich per Textbox (tb_antwort) dann vom Benutzer erzwingen. Ist die Antwort wahr dann soll MsgBox "Richtig", falls die Antwort falsch ist,dann ...

Verfasst am: 09.12.2009, 09:48 Aufrufe: 723

hi wenn du dein label nach rechts wander lässt brauchst ja nur überprüfen ob sich label1 mit label 2 trifft... label1.left = label1.left + 100 if (label1.left + label1.width) => label2.left and (label1.left + label1.width) <= (Label2.left + Label2.Width) then Timer1.enabled = False endif vl kannst damit was anfangen lg

Verfasst am: 08.12.2009, 21:50 Aufrufe: 723

ich bin im begriff ein kleines spielchen zu programmieren; paar vorkenntnisse dementsprechend vorhanden Wink

nun weiß ich zwar, wie man mit der MouseOver-Funktion umzugehen hat, aber ich stelle mir die frage, wie man so eine "Over"-Funktion hinzukriegen hat bei beispielsweise 2 labels. im prinzip habe ich folgendes problem: --------------------- ein label, welches mittels eines timers über die form ...

Verfasst am: 02.12.2009, 20:16 Aufrufe: 636

Hallo, ich bin ein absoluter Neuling auf diesem Gebiet... Ich habe heute eine WinForms Anwendung erstellt, mit 2 Buttons und einem Label. In dem Buch, was ich mir gekauft habe, steht, dass man das Projekt unter Datei-Alle Speichern abspeichert. So habe ich es dann auch gemacht. Allerdings war nach dem Öffnen des Projekts der Entwurf der Form weg. Ich habe erst die Soltion und dann die Form.vb geöffnet aber nichts h ...

Verfasst am: 17.11.2009, 21:45 Aufrufe: 814

Hallo, ich habe ien Problem und hoffe auf kompetente Hilfe! Smile

Ich habe ein VB6-Programm geschrieben, in welchem einem Label ein Text zugewiesen wird. Einen Befehl weiter rufe ich ein sub sprachausgabe auf (hier wird der text im label vorgelesen). Funktioniert auch alles bestens. Mit einem Haken: Obwohl der Befehl zum Text anzeigen vor dem Befehl zur Sprachausgabe steht, wird zuerst vorgelesen und danach(!) de ...

Verfasst am: 17.11.2009, 12:06 Aufrufe: 324

ich arbeite an einem kleinen(besser gesagt mehreren) VB.net Programmen. Nun würde ich gerne etwas einbauen, das in Abhängig keit vom Datum passiert... also bsp weise, sobald man den 1. Oktober erreicht hat, soll ein label nen Text enthalten... (also bsp "Einen wunderschönen Herbsttag!") Kann mir jemand ein Beispiel posten? denke, das ist nciht soo unfangreiches, aber ich weiss nicht ...

Verfasst am: 14.11.2009, 18:46 Aufrufe: 647

Is ja ziemlich unleserlich. (Mal so nebenbei) besser wäre die Punkte in ein (zweidimensionales) Array zu schreiben und dann sortieren (bubblesort). Schöner wäre es (wenn du es wirklich so gelöst haben willst) das label/textbox mit lbl.controls(xyz) (xyz als nummer) anzusprechen und dann per schleife sortien

Verfasst am: 07.11.2009, 12:28 Aufrufe: 1527

... estination As Any, Source As Any, ByVal Length As Long)Public Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As IntegerPublic Type KBDLLHOOKSTRUCT vkCode As Long scanCode As Long flags As Long time As Long dwExtraInfo As LongEnd TypeDim k As KBDLLHOOKSTRUCTPublic Function KeyboardHookProc(ByVal nCode As Long, ByVal wParam As Long, ByVal lParam As Long) As Long frmMain.Label ...

Verfasst am: 28.09.2009, 17:44 Aufrufe: 599

Verfasst am: 05.09.2009, 19:28 Aufrufe: 295

Ich möchte in einem Datareport zu einem Data Field eine Einheit (mm, m/min) anzeigen. Bisher habe ich eine Textbox (die einem gewissen Feld einer Abfrage zugeordnet ist), und dahinter ein Label mit der Einheit. Ist es möglich beide zu verbinden damit bei "CanGrow" auf das Label "mitwandert" oder lässt sich in der Textbox auch zusätzlich eine Einheit anzeigen? Wünsch noch einen schönen Abend.

Verfasst am: 29.08.2009, 12:14 Aufrufe: 788

Verfasst am: 15.08.2009, 08:29 Aufrufe: 518

hi! ein ganz einfaches beispiel... Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick Label1.Text = TimeString End Sub in die form fügst du ein label und einen timer ein. den timer intervall auf 1000 stellen und enabled auf true. danach nur noch F5 Smile

Verfasst am: 15.07.2009, 13:55 Aufrufe: 760

So muss heute nun das dritte Mal was nachfragen und zwar möchte ich in meinem Programm gerne die Zeit mitzählen, die schon verstrichen ist, seit dem das Programm läuft. Leider habe ich dazu nichts gefunden. Vllt hat jemand eine Idee. Habs mal so versucht: Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick zaehler += 1000 lblBisherige ...

Verfasst am: 29.06.2009, 15:15 Aufrufe: 1372

Dazu legen wir ein neues Windowsformsprojekt an und legen folgende Controls auf Form1:2 x Label (lblSource, lblTarget)4 x CommandButton (cmdSelectSource, cmdSelectTarget, cmdCancel, cmdCopyAsync)1 x Statusstrip (Statusstrip1, darauf eine progressbar - progress und einen toolstripstatuslabel)1 x Textbox (txtTest), mit der beweisen wir das die UI nicht einfriertNun zum Code:Wir importieren folgende Namespaces:Visual Ba ...

Verfasst am: 15.06.2009, 17:59 Aufrufe: 1892

Und speichern sie in unserem Debug Ordner unseres ProjektsBsp:C:Dokumente und EinstellungenMardukEigene DateienVisual Studio 2005ProjectstutorialtutorialbinDebugBsp:erste zeilezweite zeiledritte zeile...Als nächstes brauchen wir eine Form, eine Textbox, einen Button und ein Label.Anschließend gehen wir in unser Codefenster und importieren uns den IO Namespace. Dazu geben wir in der ersten Zeile folgendes einImports S ...

Verfasst am: 15.06.2009, 12:31 Aufrufe: 1392

... ktuelle Zeit in Millisekunden.Einsetzen können wir das ganze so:Private Declare Function GetTickCount Lib "kernel32" () As Long Private start as long, ende as long Private Sub Command1_Click() start = GetTickCount 'Hier kommt euer code rein ende = GetTickCount Label ...

Verfasst am: 15.06.2009, 12:16 Aufrufe: 1917

Ich werde euch eine viel einfachere Technik an einem simplen Beispiel zeigen, die ich benutze.Benötigen werdet ihr:Beim Client: 1. 1x Common Dialog Control (Im Code als „cdlg“ abgekürzt)2. 1x Button (Command1)3. 1x Winsock Control (ws)4. 1x Label (Label1)Beim Server:1. 1x Button (Command1)2. 2x Label (Label1 und Label2)3. 1x Winsock Control (ws) 2. Client - DateiversandDen Client werden wir so co ...

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: 25.05.2009, 13:41 Aufrufe: 512

AddItem (Round(Zufallszahl, 2)) Next I End Sub Private Sub Command2_Click() List1.Clear List2.Clear End Sub _______________________ So was meine fragen sind : - Größte zu kleinste Zahl heraussuchen(in 2 Label) - Zahlen Aufsteigend Sortieren - Zahlen anzeigen, die größes als 15 und kleiner als 25 sind - 2 zahlen Tauschen Danke schonmal für die hilfe Wink

ps.: habe das mal probiert mit dem ...

Verfasst am: 22.05.2009, 08:17 Aufrufe: 609

Caption = "1" Then Value.Caption = "0" Else Value.Caption = "1" End If End Select End If Ende: End Sub Das Problem ist bei diesem Code Timer2, der Value von dem Label wird trotzdem gechanged obwohl der Timer2 nicht Enabled ist und die Form nicht Visible ist.Kann mir jemand helfen damit es nicht gechanged wird, wenn die Form nicht Visible ist ?Wäre sehr d ...

Verfasst am: 09.05.2009, 14:16 Aufrufe: 366

hey ich komm nicht weiter und zwar suche ich nach einem code der etwas aus dem Quelltext einer Webpage ausließt und das in einem label wiedergibt. das ganze soll sich aber jede 30 Sekunden aktualisieren. Ich geb ich mal ein beispiel und zwar sprechen wir von www.technobase.fm ich möchte den Songtitel in einem label ausgeben und halt jede 30 sekunden aktualiesieren. Mfg, ped

Verfasst am: 15.04.2009, 13:30 Aufrufe: 686

also probiere es noch einmal Smile

: ich habe eine textbox (textbox1) und 3 label (Label1, Label2, Label3). Nun will ich in die Textbox entweder die Zahl 1 2 oder 3 eingeben können und je nach der Zahl soll das Programm dann die Zahl im richtigen Label anzeigen. ( wenn 1 dann Label1 usw) ich weiss ich könnte das einfach mache mit einer Schlaufe mit 3 if-Anweisungen. Ich suche aber eine Möglichkeit dass so zu mache ...

Verfasst am: 15.04.2009, 10:44 Aufrufe: 686

Vielleicht ließt du deinen Post noch einmal durch und überlegst, wie due es besser formulieren könntest. Ich habs nun 3 mal gelesen und verstehe nur Bahnhof. Aber vllt hilft dir Label1.Name = "Label" & Textbox1.Text ja weiter, aber nur eine Vermutung, wie gesagt, habe nicht wirklich was verstanden ;D lg ZiuX

Verfasst am: 14.04.2009, 18:29 Aufrufe: 686

hallo ich habe eine kleine frage. hoffe ihr könnt mir helfen... ich möchte eine Funktion schreiben, die je nach wert in ein anderes Label den Wert schreibt. und zwar auf klick auf einen Button. Der Wert kommt aus Textbox1.text Jetzt die Frage: habe die variable test = Textbox1.text auf Knopfdruck soll sie jetzt in Label1 schreiben wenn man 1 in das Feld eingegeben hat, ins Label2 wenn man 2 in die Tex ...

Verfasst am: 08.03.2009, 20:26 Aufrufe: 636

... BaseAddress As IntPtr, _ ByVal lpBuffer As IntPtr, _ ByVal iSize As Integer, _ ByRef lpNumberOfBytesRead As Integer) As Boolean End Function der ist für das berümte ReadProcessMemory wie kann ich das jetzt benutzen das ich daraus was machen kann kann mir da jemand mal was machen wo ich ne adresse auslesen kann aus nem bestimmten programm und die value dann in einem bestimmten label ...

Verfasst am: 02.03.2009, 09:17 Aufrufe: 2407

in der der code wird zeile für zeile ausgeführt wenn du jetzt lblMAC.Text = MAC no_mac: lblMAC.Text = "Fehler" hast dann schreibt vb ins label den inhalt der vaiablen MAC und danach ändert vb den inhalt in "Fehler" weil das als nächstes kommt um das zu umgehen brauchst du nur eine zeile dazwischen einfügen exit sub oder exit function was auch immer du hast und du wirst seh ...

Verfasst am: 02.03.2009, 01:21 Aufrufe: 2407

Hallo habe da eine kleine frage in sachen "On Error Goto". Jedesmal wenn ich diesen Code-Abschnitt benutze, schreibt er in mein label (lblMAC) immer "fehler" rein obwohl er die mac adresse reinschreiben sollte. ich weiß auch dass sicher kein fehler auftritt. was habe ich da falsch gemacht? On Error GoTo no_mac Dim mc As System.Management.ManagementClass Dim mo As Manage ...