Visual Basic Forum

Verfasst am: 22.07.2011, 19:12 Aufrufe: 456

nicht so mein Codestil ist: ------------------------------------------------------------------------------------------------------------------------------------------------------ If TextBox1.Text = Nothing Then MsgBox("Bitte Vereinsnamen angeben!") Exit Sub End If 'RadioButton1.Checked = False 'RadioButton2.Checked = False 'RadioButt ...

Verfasst am: 22.07.2011, 18:54 Aufrufe: 456

. du 5 ifabfragen ineinander die alle das gleiche auslösen.... wenns schon so sein muss dann doch ein bisschen eleganger! If RadioButton1.Checked = True or _ RadioButton2.Checked = True or _ RadioButton3.Checked = True or _ RadioButton4.Checked = True or _ RadioButton5.Checked = True or _ RadioButton6.Checked = True then timer1.Start() end if ich hoffe du konntest mit meiner ...

Verfasst am: 22.07.2011, 13:51 Aufrufe: 456

Ich habe dafür 6Radiobuttons angelegt um auswählen zu können wie viel sie haben wollen[Taler oder Stars]! Hier ist mein Source-Code: ------------------------------------------------------------------------------------------------------------------------------------------------------ If TextBox1.Text = Nothing Then MsgBox("Bitte Vereinsnamen angeben!") Else RadioButton1.Checked = False Rad ...

Verfasst am: 02.01.2011, 10:35 Aufrufe: 637

mach das mit focus geht bei checkbox und radiobutton: WebBrowser1.Document.GetElementById("id_der_checkbox").Focus() SendKeys.Send(" ") und für radiobutton: fPrivate Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged If RadioButton1.Checked = True Then If RadioButton2.C ...

Verfasst am: 20.01.2010, 12:21 Aufrufe: 430

hi ja gibt es auch wenn du die menüitems über den index ansprichst du erstells eben eine untermenüs wzeit --> index 0 wzeit --> index 1 wzeit --> index 2 wzeit --> index 3 und wenn du dann auf das menü klickst hast du wzeit_click(index as integer) oder so for i = 0 to wzeit.count -1 if i = index then wzeit(i).checked = true else wzeit(i).checked = false next end s ...

Verfasst am: 19.01.2010, 15:06 Aufrufe: 430

hi zum einen wenn du mit eine forum nicht zufrieden bist dann kannst dir ja jeder zeit ein anderes suchen und zum zweiten hast dir den code ja e schon selbst geschrieben... wzeit1_click() 'oder was auch immer me.wzeit1.checked = True me.wzeit2.checked = false me.wzeit3.checked = false '... end sub

Verfasst am: 17.01.2010, 16:13 Aufrufe: 430

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: 22.08.2009, 14:28 Aufrufe: 904

Frage = TxtFrage.Text For i as Integer = 0 to 5 Fragen(Fragen.Length - 1).Antworten(i) = TxtArray(i).Text If Radios(i).Checked Then Fragen(Fragen.Length - 1).Lösung = TxtArray(i).Text End If Next i End Sub ' XML-Part Sub XML_Basteln() Dim Writer As Xml.XmlTextWriter = New Xml.XmlTextWriter("C:\DeineXMLD ...

Verfasst am: 15.07.2009, 07:54 Aufrufe: 897

Ich hoffe mir kann jemand helfen. Hier mal der Code den ich schon habe: Function Tage() As Integer Select Case [b](was müsste hier her?)[/b] Case rb3Tage.Checked = True WDH = 64800 Case rb25Tage.Checked = True WDH = 540000 Case rb100Tage.Checked = True WDH = 2160000 End S ...

Verfasst am: 05.07.2009, 19:39 Aufrufe: 1819

Beschreibung: Dieser Tipp zeigt, wie man zur Laufzeit Tabs zu einem TabControl hinzufügen und diese auch wieder entfernen kann. Funktion: Visual Basic: Beispielprojekt: http://www.activevb.de/tipps/vbnetdownloads/tipp0057.zip Quelle: activevb.de

Verfasst am: 15.06.2009, 11:15 Aufrufe: 1846

Caption Case 2 Text2.Text = List1_men.Caption End select End Sub6. Häkchen vor einen Eintrag setzenHäkchen setzen kann man einfach überList1_men(1).Checked = TrueUnd deaktivieren natürlich über False.So könnt ihr dem Benutzer zeigen welche Option gerade aktiv ist.Das war es wieder mal.Ich hoffe ihr könnt eure Programme um eine interessante Fu ...

Verfasst am: 28.12.2008, 15:27 Aufrufe: 1203

aber wenn ich die checkbox nun deaktiviere und ich dann text hinzufüge hab ich immernoch das problem das di9e text box wieder an den anfang des textes scrollt wenn ein text dazukommt -.-' da bräuchte ich nochmal hilfe... Ps: habs so gelöst If scroll_text.Checked = True Then txt_c.Focus() txt_c.Select() txt_c.ScrollToCaret() txt_c.DeselectAll() ...

Verfasst am: 20.09.2008, 22:45 Aufrufe: 681

g;8607)hast jetzt meinen code überhaupt probiert???oder weist e schon wo der fehler liegt????Visual Basic: geht leider auch nicht Public Class p0227 Dim AusgabeLand As String Dim AusgabeOrt As String Dim Option1 As String Private Sub optJapan_CheckedChange ...

Verfasst am: 20.09.2008, 03:44 Aufrufe: 681

Verfasst am: 20.09.2008, 00:46 Aufrufe: 681

Verfasst am: 20.09.2008, 00:34 Aufrufe: 681

(noname;8604)Du hast meinen Code nicht ganz kopiert :wink:ups, geht aber dennnoch nicht:Public Class p0227 Dim AusgabeLand As String Dim AusgabeOrt As String Dim Option1 As String Private Sub optJapan_CheckedChanged(ByVal sender As System.Object, ByVal ...

Verfasst am: 20.09.2008, 00:02 Aufrufe: 681

(noname;8595)Visual Basic: der jetzige Source:Public Class p0227 Dim AusgabeLand As String Dim AusgabeOrt As String Dim Option1 As String Private Sub optJapan_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles _<b ...

Verfasst am: 19.09.2008, 19:15 Aufrufe: 681

Verfasst am: 19.09.2008, 18:47 Aufrufe: 681

Verfasst am: 19.09.2008, 17:21 Aufrufe: 681

nun habe ich noch Checkboxen reingemacht da gibt es dort einen fehler:[COLOR=Orange]ElseIf chkMieten.Checked & chkKaufen.Checked = True Then[/COLOR]Public Class p0227 Dim AusgabeLand As String Dim AusgabeOrt As String Dim Option1 As String ...

Verfasst am: 23.08.2008, 18:28 Aufrufe: 615

Verfasst am: 03.07.2008, 19:02 Aufrufe: 776

Object, ByVal e As System.EventArgs) Handles Button1.Click If RadioButton1.Checked = True Then varHaustiername = "Katze" Else If RadioButton2.Checked = True Then varHaustiername = "Maus" Else If RadioButton3.Checked = True Then varHaustiername = "Hund" End If End If End If RadioButto ...

Verfasst am: 02.07.2008, 15:46 Aufrufe: 534

Object, ByVal e As System.EventArgs) Handles Button1.Click If RadioButton1.Checked = True Then Dim varHaustiername As String = "Katze" Else If RadioButton2.Checked = True Then Dim varHaustiername As String = "Maus" Else If RadioButton3.Checked = True Then Dim varHaustiername As String = "Hund" RadioButto ...

Verfasst am: 28.06.2008, 21:11 Aufrufe: 1664

Verfasst am: 05.05.2008, 18:38 Aufrufe: 1409

Hour & ":" & My.Computer.Clock.LocalTime.Minute) Then If CheckBox1.Checked = False Then sound.URL = My.Application.Info.DirectoryPath & "datawecker.mp3" ...

Verfasst am: 28.03.2008, 21:35 Aufrufe: 1932

Columns.Add("Check Status") und das die einträge: Dim AccountAdding As New ListViewItem("testuser@googlemail.com") AccountAdding.SubItems.Add("pass") AccountAdding.SubItems.Add("Non Checked") Jetzt möchte ich im Prinzip den Account Status also (..)AccountAdding.SubItems.Add("Non Checked") (..) in ei ...

Verfasst am: 10.02.2008, 19:26 Aufrufe: 1269

nein schreibgeschützt sind sie nicht. es wird ja immer nur eine der beiden dateien gelöscht.... naja und checked sind die auch die checkboxen also zumindest im Builder...

Verfasst am: 09.02.2008, 02:40 Aufrufe: 274

Verfasst am: 10.11.2007, 15:30 Aufrufe: 435

Also ich mache //START BUTTON // Dim RANDOM as Integer If CHeckBox1.Checked Then random = blubla 'Halt random Zahl erzeugen. Muss noch genauer schauen wie:P. else Random = "" 'Soll leer sein wenn die Checkbox nicht aktiv ist. end if Dann kommt der Timer Code und ich weiss nicht wie diese Variable an den Timer übergeben wird. /Class Start also die vom Timer // A ...

Verfasst am: 06.09.2007, 13:59 Aufrufe: 618

thx @ schieGG ich habe es jetzt geschafft! hier der code (zum besseren nachvollziehen fast der ganze code von checkbox1_checkedchanged): Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged Dim state As String If CheckBox1.Checked = True Then state = "True" Else state = ...

Verfasst am: 05.09.2007, 16:30 Aufrufe: 1533

... p;nbsp;<a href=/advanced_search?hl=de>Erweiterte Suche</a>   <a href=/preferences?hl=de>Einstellungen</a>   <a href=/language_tools?hl=de>Sprachtools</a></td></tr><tr><td align=center colspan=3>Suche: <input id=all type=radio name=meta value="" checked ...

Verfasst am: 01.09.2007, 19:20 Aufrufe: 300

Damit er auch was lernt: Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click If RadioButton1.Checked = True Then Form2.show() Else MsgBox("Bitte RadioButton1 auswählen, um Form2 anzuzeigen!") End If End Sub

Verfasst am: 27.08.2007, 17:55 Aufrufe: 516

Verfasst am: 27.08.2007, 16:30 Aufrufe: 516

wo kann ich den code hier einbauen weill immer wenn ich die checkbox anhacke kommt bei mir nix an Sad

meinst du, dass wenn du die checkbox checkst, die seite aufgerufen wird? das wäre dann so: Public Class Form1 Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged If CheckBox1.Checked = True Then WebBrowser ...

Verfasst am: 21.08.2007, 18:00 Aufrufe: 973

Dim files(5) As String sollte den Fehler beheben, ein array braucht nämlich eine gewisse größe(hier 6 Felder) Dann kannst du auch deine Deklarationen so schreiben. dim eins, zwei, ... as string und noch ein bisschen kürzen with.fileReader One = .ReadLine() two = .ReadLine() ... end with Dann kannst du deine Bedinungen so schreiben. If RadioButton1.Checked Then ... ElseIf RadioButton2.Check ...

Verfasst am: 21.08.2007, 15:24 Aufrufe: 973

ReadLine() If RadioButton1.Checked Then one = writethree two = writeone Three = writefive four = writetwo Five = Writefour End If If RadioButton2.Checked Then one = Writefive two = Writetwo Three = Writethree four = Writeone Five = Writefour End If ...

Verfasst am: 31.07.2007, 20:31 Aufrufe: 1034

... l hier der Quellcode : [code]<td align="left" width="177"><label for="step1:salutation">Anrede*</label></td> <td align="left" width="451"> <label><input type="radio" name="step1:salutation" checked ...

Verfasst am: 26.07.2007, 20:23 Aufrufe: 394

Aha...wenn du .NET hast dann kann das mit dem in die Datei schreiben gar nicht funktionieren. Zu den Checkboxen: Bsp: die Checkbox hat folgende Eigenschaften: Checkbox.checked checkbox.checkstate checkbox.text .checked: Gibt an ob das Element überhautpt ausgewählt ist, also ob ein Häkchen drin ist. .checkedstate: Es gibt zwei verschiedene Auswahlhäkchen. 1. ein Haken 2. ein Quadrat. .text: Das ist die ...

Verfasst am: 19.07.2007, 16:52 Aufrufe: 541

jo hi ich bin mir nicht sicher aber bei front page 03 (was ich bestize), wenn man dort eine chekbox einfügt kann man mit doppelklick auswählen aktiviert oder deaktiviert: <INPUT TYPE=CHECKBOX NAME="test" checked value="123"> checked = Aktiviert und deaktiviert: <INPUT TYPE=CHECKBOX NAME="test" value="123"> is halt html aber wenn du die richt ...

Verfasst am: 19.07.2007, 16:10 Aufrufe: 541

Probier mal value ="" Somit sendest du ja kein value für die Checkbox. Wie siehts denn aus wenn du die Checkbox ausgewählt ist. So in etwa wie bei den Radio-Buttons auf der GoogleStartseite...also value = "lr=lang_de"... Ich seh grad, dass beim ausgewählten der value verwendet wird value="" checked. Vielleicht is was dabei was dir hilft Rolling Eyes

Verfasst am: 30.05.2007, 19:21 Aufrufe: 401

SelLength = Len(Text1(Index)) End Sub Public Sub aylar() Dim i, basay basay = Val(Month(Text1(7))) For i = 0 To 11 Check1(i).Value = Unchecked Next If basay > Val(Text1(4)) Then Exit Sub For i = basay - 1 To Val(Text1(4)) Check1(i).Value = Checked Next Label17 = Format(Val(Text1(3)) + Val(Format(Text1(6), "#")), "###,###") & "YTL" End Sub [/code] Ich bek ...

Verfasst am: 26.04.2007, 20:58 Aufrufe: 579

Enabled = False floder_strg_enter.Enabled = False floder_start währe der button Razz

aber da wird einfach nur der text geändert floder_start.Text = "Stop" nebenbei hab jetzt auch alles so umgebaut, das man nciht immer die gleiche nachricht verschickt Wink

einfach If floder_enter.Checked Then Call SendKeys.Send(floder_text.Text) Call SendKeys.Send(&qu ...

Verfasst am: 25.04.2007, 22:31 Aufrufe: 579

Enabled = True floder_timer1.Enabled = False End Sub Private Sub floder_timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles floder_timer2.Tick If floder_enter.Checked Then Call SendKeys.Send(floder_text.Text) Call SendKeys.Send("{ENTER}") floder_flodings.Text = floder_flodings ...

Verfasst am: 28.03.2007, 18:23 Aufrufe: 1843

Caption Case 2 Text2.Text = List1_men.Caption End select End Sub 6. Häkchen vor einen Eintrag setzen Häkchen setzen kann man einfach über List1_men(1).Checked = True Und deaktivieren natürlich über False. So könnt ihr dem Benutzer zeigen welche Option gerade aktiv ist. Das war es wieder mal. Ich hoffe ihr könnt eure Programme um eine interessante Funktion erweitern und habt was ...