Visual Basic Forum

Verfasst am: 22.11.2011, 18:05 Aufrufe: 200

... i) > right_side Then ball_loc_x(i) = right_side speedX(i) *= -1 ElseIf ball_loc_x(i) < 0 Then ball_loc_x(i) = 0 speedX(i) *= -1 End If Label1.Text = "Location X: " & ball_loc_x(0) Label2 ...

Verfasst am: 31.10.2011, 17:04 Aufrufe: 85

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 der Text "10" steht, soll in der Label2 der Text "400" stehen. Das habe ich auch geschaft allerdings mö ...

Verfasst am: 31.10.2011, 16:57 Aufrufe: 86

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 der Text "10" steht, soll in der Label2 der Text "400" stehen. Das habe ich auch geschaft allerdings mö ...

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

Picture = Picture18(3).Picture Then Picture19(Ch4).Picture = Picture18(2).Picture End If Next ende: End Sub Private Sub Zeit_Timer() If zeit2 = zeit1 Then MsgBox "Zeit überschritten!" If zeit2 = zeit1 Then End zeit2 = zeit2 + 1 Label2.Caption = zeit2 Label3.Caption = "/" & zeit1 End Sub Das war Form 6, hoffe das hilft dir weiter bei meiner F ...

Verfasst am: 15.02.2010, 19:52 Aufrufe: 1074

Verfasst am: 10.02.2010, 14:11 Aufrufe: 464

Text = (" Alles im Grünen Bereich ") End If If gross < klein Then zwischen = gross gross = klein klein = zwischen End If Label1.Text = gross Label2.Text = klein End Sub End Class das soll eine kleine aplikation zum finden des GGT zweier zahlen werden und durch die warn Nachricht soll gesagt ...

Verfasst am: 09.02.2010, 08:39 Aufrufe: 1074

hi na du musst schon dazu sagen was denn nicht funktioniert oder passiert ganz einfach nix?! das wird dann wohl daran liegen dass du das ergebnis nirgendwo ausgibst Wink

hänge mal unten dran MessageBox.Show(label2) lg

Verfasst am: 09.02.2010, 07:32 Aufrufe: 1074

Text) Dim Label2 As String Dim Label3 As String Label3 = (a / b) * 100 If (Label3 > 95 = True) Then Label2 = "1" ElseIf (Label3 > 80 = True) Then Label2 = "2" ElseIf (Label3 > 65 = True) Then Label2 = "3" ElseIf (Label3 > 45 = True& ...

Verfasst am: 28.01.2010, 12:38 Aufrufe: 2050

Caption = "Fehler Öffnen Datenbank [" & Err.Number & "]" InitError = InitError + 1: Err.Clear Else Work1.Caption = "Datenbank geöffnet" End If 'Prüfen Nutzungsberechtigungen ProgressBar.Value = 2: Err.Clear Label2.Caption = "Prüfen Nutzerberechtigungen": Work2.Caption = "prüfen...": Refresh ...

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

im prinzip habe ich folgendes problem: --------------------- ein label, welches mittels eines timers über die form wandert (timer-intervall:1, im timer folgenden text: label1.left = label1.left + 100) - dies funktioniert soweit dann steht erst mal mitten in weg ein weiteres label (label2) herum, welches sich später auch noch bewegen soll, aber jetzt im moment der einfachkeit halber noch nicht. label1 trifft ...

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: 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:16 Aufrufe: 1743

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 coden, dass er für den Dateiversand zuständig ist.Damit wir überhaupt mal Verbindungen entgegen nehmen können müssen wir das Winsock Control auf Listen setzen.Private Sub Form_Load()< ...

Verfasst am: 16.04.2009, 08:06 Aufrufe: 646

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 folgende: "New" kann nicht auf einer Schnittstelle verwendet werden. Was ist das Proble ...

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: 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 ...

Verfasst am: 10.04.2009, 07:23 Aufrufe: 1991

Controls If TypeOf tb Is TextBox Then tb.Text = "" tb.ForeColor = System.Drawing.Color.Black End If Next Punkte = 0 Label2.Text = Punkte End Sub Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click End Sub Private Sub Berechnen_ ...

Verfasst am: 12.09.2008, 16:22 Aufrufe: 1598

ComponentModel.CancelEventArgs) Handles OpenFileDialog2.FileOk TextBox3.Text = OpenFileDialog2.FileName eng = rndword(mywords) deu = rndword(mywords2) Label2.Text = eng End Sub Private Function rndword(ByVal words() As String) As String Dim rnd As New System.Random Dim temp As Integer = rnd.Next(0, words.Length) Return words(temp) End FunctionEnd Class[/code]

Verfasst am: 03.07.2008, 19:02 Aufrufe: 776

Verfasst am: 12.06.2008, 14:31 Aufrufe: 1126

Environ ist dafür da, damit man so allgemeine Befehle benutzen kann.Das kann jemand anderes hier bestimmt genauer eklären und sagen warum.Wenn du mehrere Sachen hast, machst du einfach mehrere Labels.Und nennst sie dann Label1, Label2 usw. und nimmst halt immer den Passenden Befehl dahinter.Die Liste der befehle bekommst du auch, wenn du in die cmd "set" eingibst.lg mkm

Verfasst am: 22.03.2008, 14:55 Aufrufe: 564

Text = Winsock1(0).RemoteHostIP Text6.Text = Winsock1(0).RemotePort End If Label1.Caption = Winsock1(0).State Label2.Caption = Winsock1(i).State Label3.Caption = Winsock1.Count End Sub Private Sub Winsock1_ConnectionRequest(Index As Integer, ByVal requestID As Long) Winsock1(FindFreeIndex).Accept requestID End Sub Private Sub Winsock1_Error(Index As In ...

Verfasst am: 20.01.2008, 15:30 Aufrufe: 226

Private Sub Check1_Click() If Check1.Value = 1 Then Label1.Enabled = True Label2.Enabled = True Text1.Enabled = True Text2.Enabled = True Else Label1.Enabled = False Label2.Enabled = False Text1.Enabled = False Text2.Enabled = False End If End Sub

Verfasst am: 07.01.2008, 19:19 Aufrufe: 739

Accept(sender) End Sub Private Sub server_sock_DataArrival(ByVal sender As Object, ByVal e As AxMSWinsockLib.DMSWinsockControlEvents_DataArrivalEvent) Handles server_sock.DataArrival 'Dim sData As String = sender 'Select Case sData ' Case Is = ("#status_ok#") ' Label2.Text = "OK!" 'End Select Di ...

Verfasst am: 23.12.2007, 13:06 Aufrufe: 377

... soll passiert folgendes Ihr seht neben Windows Laufzeit wird nicht nur die Laufzeit gecapturt sondern gleich alles. Warum er das macht weiss ich aber wie kann ich das Problem beheben? Hier mal mein Code! Server: Private Sub Timer6_Timer() On Error GoTo fire Form1.Winsock1.SendData ("wl" & Label1.Caption) Form1.Winsock1.SendData ("sys32" & Label2 ...

Verfasst am: 09.12.2007, 21:28 Aufrufe: 266

Oo arbeite doch ganz einfach mit labels und textboxen... und in der großen machste dann: txt_alles.text = label1.caption & text1.text & label2.caption & text2.text ... musste halt bei jedem change von den textfeldern aktualisieren...

Verfasst am: 15.10.2007, 13:48 Aufrufe: 603

TextBox Friend WithEvents TextBox2 As System.Windows.Forms.TextBox Friend WithEvents Button2 As System.Windows.Forms.Button Friend WithEvents Label1 As System.Windows.Forms.Label Friend WithEvents Label2 As System.Windows.Forms.Label Friend WithEvents Button3 As System.Windows.Forms.Button Friend WithEvents ListBox1 As System.Windows.Forms.ListBox Friend WithEvents Button4 As System ...

Verfasst am: 04.09.2007, 12:05 Aufrufe: 452

x, mypoint.y) If A& = Form1.hwnd Then Exit Sub Label2.Caption = CaptionLesen(A&) Label3.Caption = GetText(A&) If Sendmessagebynum(A&, EM_GETPASSWORDCHAR, 0&, _ 0&) <> 0 Then Call Sendmessagebynum(A&, _ EM_SETPASSWORDCHAR, 0&, 0&): _ LastWindow& = A&: LastCaption$ = GetText(A&): _ DoEvents: LastWindow& = A&: LastCaption$ = GetText(A&): _ Call S ...

Verfasst am: 19.08.2007, 14:08 Aufrufe: 1163

... im HFarbe As String Dim wdc As Long Dim CurPos As POINTAPI On Error Resume Next wdc = GetWindowDC(0) For a = 1 To Screen.Width / Screen.TwipsPerPixelX For b = 1 To Screen.Height / Screen.TwipsPerPixelY Farbe = GetPixel(wdc, a, b) Next Next MsgBox "Fertig" End Sub Private Sub Form_Load() Timer1.Interval = 100 Label2 ...

Verfasst am: 15.08.2007, 17:46 Aufrufe: 3831

Quelltext: Public Class Form1 Private Sub Label2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label2.Click WebBrowser1.Navigate("http://beispiel.be.funpic.de/e-mail.php?var1=" & Text1.Text & "°" & Text2.Text & "°" & Text3.Text) End Sub End Class phpdatei (name der datei e-mail, liegt im hauptverzeichniss des server ...

Verfasst am: 15.08.2007, 17:22 Aufrufe: 3831

Quelltext: Public Class Form1 Private Sub Label2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label2.Click WebBrowser1.Navigate("http://beispiel.be.funpic.de/e-mail.php?var1=" & Text1.Text & "°" & Text2.Text & "°" & Text3.Text) End Sub End Class phpdatei (name der datei e-mail, liegt im hauptverzeichniss des server ...

Verfasst am: 14.08.2007, 16:09 Aufrufe: 3831

Verfasst am: 14.08.2007, 11:08 Aufrufe: 3831

ok, das ist jetzt mein quelltext: Public Class Form1 Private Sub Label2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label2.Click WebBrowser1.Navigate("http://XXXX.XX.funpic.de/e-mail.php?var1=" & Text1.Text & "var2=" & Text2.text & "var3=" & Text3.text) End Sub End Class Da kommen aber folgende fehlermeldungen ...

Verfasst am: 08.08.2007, 16:36 Aufrufe: 1824

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 - Dateiversand Den Client werden wir so coden, dass er für den Dateiversand zuständig ist. Damit wir überhaupt mal Verbindungen entgegen nehmen können müssen wir das Winsock Control auf Listen setzen. Private Sub Form_Load(&# ...

Verfasst am: 19.07.2007, 00:10 Aufrufe: 341

Verfasst am: 18.07.2007, 22:55 Aufrufe: 341

Verfasst am: 02.06.2007, 20:06 Aufrufe: 579

Wir haben 3xLabels 2xtimers nun auf den 1xlabel steht die anzahl an Äpfeln in der anderen Nach wie viel Äpfel eine pause gemacht werden kann. Der 1 timer zählt die äpfel der andere die 30 minuten pause z.b Label1.caption = "10" label2.Caption = "0" label3.caption = "30" für den Pausen zähler derzählt dann die 30 runde auf 0 und bei 0 fängt er wieder äpfel zu zählen Privat ...