Visual Basic Forum

Verfasst am: 06.12.2011, 09:03 Aufrufe: 181

Verfasst am: 22.11.2011, 18:05 Aufrufe: 200

... ; + 25) If a = 0 Or b = 0 Then If b = 0 Then Abstand = Abs(a) If a = 0 Then Abstand = Abs(b) Else Abstand = Sqrt((Abs(a) ^ 2) + (Abs(b) ^ 2)) End If Label1 ...

Verfasst am: 31.10.2011, 17:04 Aufrufe: 85

Hallo ich wollte mal fragen, weil ich das nicht selbst hinbekomme ob mir jemand einen sogenannten Umrechner schreiben kann. Er sollte so funktionieren: Button1: -100% = Wenn in der TextBox1 der Text "410" steht, soll in der Label1 der Text "10,00€" stehen. Bis dahin hab ich es geschaft allerdings will ich es auch zwischen drin haben: von 1 - 410... Button2: -100% = Wenn in der TextBox2 d ...

Verfasst am: 31.10.2011, 16:57 Aufrufe: 86

Hallo ich wollte mal fragen, weil ich das nicht selbst hinbekomme ob mir jemand einen sogenannten Umrechner schreiben kann. Er sollte so funktionieren: Button1: -100% = Wenn in der TextBox1 der Text "410" steht, soll in der Label1 der Text "10,00€" stehen. Bis dahin hab ich es geschaft allerdings will ich es auch zwischen drin haben: von 1 - 410... Button2: -100% = Wenn in der TextBox2 d ...

Verfasst am: 21.08.2011, 10:42 Aufrufe: 158

Hallo, mein Name ist Marcus und ich bin "Anfänger" in .net. Hier meine Frage: ich habe eine Variable Feld(0,0) inhalt ist "Label1" Feld(0,1) inhalt ist "Mein Name" Feld(1,0) inhalt ist "Label2" Feld(1,1) inhalt ist "Meine Email" ich möchte nun per Schleife label1.text = "Mein Name" label2.text = "Meine Email" setzen ...

Verfasst am: 27.06.2011, 07:47 Aufrufe: 856

aber ich denke man wird per hand den code nochmals durchgehen müssen da der konverter sicher nicht alles richtig umschreiben wird (nehme ich an) weiters was noch hinzu kommt ist dass eingesessene programmierer von vb6 mit dem umstieg auf vb.net anfänglich sicher probleme haben der syntax ist zwar recht ähnlich aber es sind die kleinigkeiten die die leute an den rand der verzweiflung bringen z.b. vb6: l ...

Verfasst am: 21.05.2011, 15:46 Aufrufe: 693

mp3" Then ListView1.Items.Add(Datei.Name) 'Dateien aus selektierten Ordner in Listview1 laden Label1.Text = (dlgFolderOpen.SelectedPath) End If Next End If Jetzt möchte ich aber noch die Icons wie im VLC Player (siehe Bild) angezeigt werden, also das Cover (siehe Bild) von der Musikdatei. Wenn kein Cover (Icon) ...

Verfasst am: 09.02.2011, 14:23 Aufrufe: 395

Hab' das Problem mit Hilfe von anderen VB-Forum gelöst! For Each Line As String in IO.File.ReadAllLines("Pfad\Datei.txt") If Line.Contains("Zeichenfolge") Then Label1.Text = Line End If Next

Verfasst am: 09.02.2011, 11:13 Aufrufe: 395

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: 03.12.2010, 15:17 Aufrufe: 509

Verfasst am: 18.10.2010, 14:58 Aufrufe: 301

0, ja wirklich) löst folgender Code in Zeile 4 eine 'System.NullReferenceException' aus (Der Objektverweis wurde nicht auf eine Objektinstanz festgelegt.): Dim aRequest As System.Net.HttpWebRequest Dim aResponse As System.Net.HttpWebResponse aRequest.Create("http://www.google.de") aResponse = aRequest.GetResponse Me.Label1.Text = aResponse.Server.ToString was mache ich hier falsch, wie gehts richt ...

Verfasst am: 28.09.2010, 18:49 Aufrufe: 830

Ich habe 2 Exen also 2 Verschiedene Projecte die ich zusammenhängen will. Das mit Form2.Label1.text = Form1.Textbox1.Text hab ich auch schon rausgefunden nur leider nicht das was ich brauche

Verfasst am: 28.09.2010, 09:39 Aufrufe: 830

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: 27.09.2010, 16:50 Aufrufe: 697

Verfasst am: 31.08.2010, 17:41 Aufrufe: 416

ja hab ich ja e geschrieben das es fast gleich funktioniert nur in vb.net gibts kein caption mehr form1.Label1.Text = Form2.Text1.Text

Verfasst am: 31.08.2010, 14:36 Aufrufe: 416

hi ja fast gleich form1.Label1.Text = Form2.Text2.Text sicher bin iich mir jetzt zwar nicht da ich nur ganz kurz vb.net gecodet hab

Verfasst am: 31.08.2010, 06:29 Aufrufe: 416

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 betreffende Steuerelement also Form1.Label1.Caption = Form2.Te ...

Verfasst am: 30.08.2010, 11:55 Aufrufe: 416

hi wenn du das computerübergreifend machen möchtest wirst du wohl auf winsock zurückgreifen müssen wenns aber nur im projekt ist... kein problem form2.Label1.Caption = Form1.text1.text lg

Verfasst am: 30.03.2010, 08:28 Aufrufe: 319

Dazu füge ich jeweils ein UserControl mit mehreren Labels und einem Progressbar in eine Listbox ein. Den eingefügten UserControls habe ich Namen gegeben. Nun meine Frage: Wie kann ich die Labels oder die Progressbars der UserControls in der Listbox ansprechen?? Für die Standart-Controls auf z.B. einem Form1 kann man ja schreiben: Form1.Controls.("Label1").Text... Gibt es sowas auch für noch nicht erzeugt ...

Verfasst am: 30.03.2010, 08:16 Aufrufe: 327

Dazu füge ich jeweils ein UserControl mit mehreren Labels und einem Progressbar in eine Listbox ein. Den eingefügten UserControls habe ich Namen gegeben. Nun meine Frage: Wie kann ich die Labels oder die Progressbars der UserControls in der Listbox ansprechen?? Für die Standart-Controls auf z.B. einem Form1 kann man ja schreiben: Form1.Controls.("Label1").Text... Gibt es sowas auch für noch nicht erzeugt ...

Verfasst am: 04.03.2010, 19:22 Aufrufe: 354

hi du musst dich bisschen genauer ausdrücken was meinst du mit fokusieren? wenn du ihn aktivierst? z.b. sowas?! Private Sub Option1_Click() If Option1.Value = True Then Option1.Caption = "Aktiv" 'oder Label1.Caption = "Aktiv" End If End Sub

Verfasst am: 25.02.2010, 17:35 Aufrufe: 455

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, 14:11 Aufrufe: 464

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 zwischen = gross gross = klein klein = zwischen End If Label1.Text = gross La ...

Verfasst am: 09.02.2010, 14:05 Aufrufe: 656

Verfasst am: 30.01.2010, 10:14 Aufrufe: 897

Hallo Daniel_L, warum nimmst du nicht My.Settings? In den Projekteigenschaften unter Einstellungen fügst du 4 Felder vom Typ String hinzu (z.B. TextLabel1, Textlabel2, usw...). Dann kannst du über My.Settings.TextLabel1 darauf zugreifen. Im Form_Load fügst du ein: Label1.Text = My.Settings.TextLabel1 usw... Und da, wo die Einträge gespeichert werden sollen: My.Settings.TextLabel1 = Label1.Text ..

Verfasst am: 28.01.2010, 12:38 Aufrufe: 2050

Visible = False CheckError = True End If End Function Private Sub Form_Activate() 'Aktivieren Form On Error Resume Next InitError = 0 Refresh WorkShow Work, "Stop", True 'Öffnen Datenbank Set conORCL = New ADODB.Connection conORCL.ConnectionTimeout = 15 conORCL.CursorLocation = adUseClient ProgressBar.Value = 1: Err.Clear If TypDatenbank = 1 Then Label1.Capti ...

Verfasst am: 10.12.2009, 22:38 Aufrufe: 586

ReadAllText("D:\Vokabel.txt").Split(vbNewLine) If eingabe.Text = zeilen.Split("|")(0) Then 'Die Null (0) Deklariert das ___| abgefragt werden soll MsgBox("Eingabe richtig!") End If Next End Sub TEXT DATEI Affe|monkey Baum|tree Stehe nun vor der Hürde das ich möchte das L ...

Verfasst am: 09.12.2009, 08:48 Aufrufe: 662

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, 20:50 Aufrufe: 662

... aar 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 wandert (timer-intervall:1, im timer folgenden text: label1 ...

Verfasst am: 27.11.2009, 18:37 Aufrufe: 534

Text <> "href=" Then mypos2 = InStr(mypos + 9, searchstring, searchchar, CompareMethod.Text) Else MsgBox("Bitte laden sie eine Html Datei!", MsgBoxStyle.Critical, "Bitte laden sie eine Html Datei!") End If Label1.Text = CStr(mypos) Label2.Text = CStr(mypos2) If myposold > mypos2 Then Exit Do Else L ...

Verfasst am: 16.11.2009, 15:50 Aufrufe: 600

noch einfacher gehts mit dem index label1(1).caption

Verfasst am: 07.11.2009, 11:28 Aufrufe: 1443

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

Verfasst am: 06.11.2009, 06:35 Aufrufe: 709

Hallo zusammen stehe gerade vor einem kleinen Problem. Ich hole mir mittels " Label1.Text = FileDateTime("PFAD ZUR DATEI") " das Datum von zwei Dateien. Eine liegt im Netzwerk, eine lokal. Das klappt soweit ganz gut. Wie bekomme ich nun einen Vergleich zwischen diesen beiden Werten hin? Möchte das folgendermaßen gestalten: Wert1 = Wert2 dann zeige ein grünes Icon (Picturebox) Wert1 ...

Verfasst am: 02.11.2009, 20:25 Aufrufe: 389

.. deshalb passiert nichts und im code könntest du ein bisschen was ändern... wenn du den code z.b. im click event vom button hinschreibst tust du dir wahrscheinlich leichter... private sub Button1_Click... if RadioButton1.checked = True then Label1.Caption = textbox1.Text & ... 'wenn du vb6 benützt Label1.Text = .... 'wenn du vb.net verwendest... ...

Verfasst am: 02.11.2009, 19:49 Aufrufe: 389

Hallo zusammen, Bin hier ganz Neu, deshalb Entschuldiege ich mich falls es so einen Beitrag schon gibt, ich komme mit der Suchfunktion nicht zurechnt jedenfalls hat sie mir nichts genaus zu diesem Thema sagen können. Problem: Ich will eine If Option schreiben: Private Sub Label1 (...) If RadioButton1.checked = True Then (schreibe in Label1 = textbox1.text & " / " & ...

Verfasst am: 28.10.2009, 15:46 Aufrufe: 522

Close End Sub Private Sub Command3_Click() Dim msgs As String msgs = Text1.Text clt.SendData msgs End Sub Server Private Sub Command1_Click() srv.LocalPort = "123" srv.Listen Label1.Caption = "Server ON" End Sub Private Sub Command2_Click() srv.Close Label1.Caption = "SERVER OFF" End Sub Private Sub srv_ConnectionRequest( ...

Verfasst am: 19.10.2009, 14:28 Aufrufe: 1195

Ein cooler Text-Effekt.Verwenung:Private oMatrix As New clsMatrix() Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click oMatrix.Start(Label1, "Neuer, längerer Text.") End SubDownload

Verfasst am: 02.09.2009, 07:37 Aufrufe: 748

Object, ByVal e As System.EventArgs) Handles Button2.Click Timer1.Stop() End Sub Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick RichTextBox1.Text = RichTextBox1.Text & "Hallo" & clicks & vbNewLine Label1.Text = clicks clicks = clicks + 1 End Sub End Class PS: Ich habe mal noch einen zweiten Button zum beenden ei ...

Verfasst am: 29.08.2009, 14:12 Aufrufe: 748

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.Text = "Hallo" & clicks Label1.Text = clicks clicks ...

Verfasst am: 15.08.2009, 07:29 Aufrufe: 489

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: 16.07.2009, 11:08 Aufrufe: 710

Stop() End Sub Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick Dim Ts As TimeSpan = Date.Now.Subtract(StartTime) Label1.Text = Ts.Hours.ToString("00") & ":" & _ Ts.Minutes.ToString("00") & ":" & _ ...

Verfasst am: 16.07.2009, 11:06 Aufrufe: 710

Start() 'Code End Sub Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick Dim Ts As TimeSpan = Date.Now.Subtract(StartTime) Label1.Text = Ts.Hours.ToString("00") & ":" & _ Ts.Minutes.ToString("00") & ":" & _ ...

Verfasst am: 21.06.2009, 13:40 Aufrufe: 310

Heyho;).. So...hab folgenden Code: If Me.colordialog1.ShowDialog = DialogResult.OK Then Label1.ForeColor = colordialog1.Color End If Nun möchte ich das in Label2 die Hexadezimalzahl der Farbe von Label1 steht. Wie kann ich das anstellen? Freue mich über Hilfe! Mfg # VooDoo

Verfasst am: 15.06.2009, 11:31 Aufrufe: 1156

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

Verfasst am: 15.06.2009, 11:16 Aufrufe: 1743

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: 12.06.2009, 20:19 Aufrufe: 575

show machen. EDIT: Habe jetzt mal weiter getestet und habe eine nicht ganz schöne Lösung gefunden: Dim a As Integer Dim fnew(1000) As New Form2 Private Sub Command1_Click() a = a + 1 fnew(a).Show fnew(a).Label1.Caption = a End Sub Private Sub Command2_Click() fnew(1).Label1.Caption = "test1" End Sub Private Sub Command3_Click() fnew ...

Verfasst am: 16.04.2009, 08:06 Aufrufe: 646

CurrentRegion.Rows.Count xlZelle.Offset(intZeilen, 0).Value = intZeilen xlZelle.Offset(intZeilen, 1).Value = Today() xlZelle.Offset(intZeilen, 2).Value = _ Label1.Text xlZelle.Offset(intZeilen, 3).Value = Label2.Text xlMappe.Save() xlMappe.Close() xlApp.Quit() Es gibt mir aber eine Fehlermeldung bei xlApp = New Excel.Application und zwar fol ...

Verfasst am: 15.04.2009, 12:30 Aufrufe: 646

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, 09:44 Aufrufe: 646

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, 17:29 Aufrufe: 646

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 Textbox eingegeben hat usw.... also wie kann ich das machen? Labe ...