Visual Basic Forum

Verfasst am: 20.02.2012, 15:43 Aufrufe: 156

Wie soll ich es denn aber sonst anstellen? Eine If....Then....Else - Schleife ist auch nicht schön. Mit Case geht es besser! Smile

Verfasst am: 20.02.2012, 11:58 Aufrufe: 156

das sind mehrdimensionale arrays darin habe ich noch kaum erfahrung aber sonst wenns select case sein muss select case combobox1 case "Deutschland": combobox2.clear combobox2.Add "Berlin .... Case "whatever": end select glaub mir das wird mühsam

Verfasst am: 19.02.2012, 16:51 Aufrufe: 156

Ich versuche mich schon den ganzen Tag daran, ComboBoxen in Abhängigkeit zu bringen.... Ich möchte in ComboBox1 zB. "Deutschland" stehen haben... ....in ComboBox2 dann zB. "Berlin", "Bayern", "Thüringen"...... ....in ComboBox3 dann bei der Auswahl Berlin "Berlin", Bayern "München", Thüringen "Erfurt".... Kann mir einer helfen?

Verfasst am: 27.10.2011, 07:32 Aufrufe: 246

hi! warum lässt du select case nicht einfach weg? If Command1(0).Caption = "X" And Command1(1).Caption = "X" And Command1(2).Caption = "X" Then MsgBox "Spieler 1 hat gewonnen!" elseif Command1(0).Caption = "O" And Command1(1).Caption = "O" And Command1(2).Caption = "X" Then ...

Verfasst am: 26.10.2011, 19:29 Aufrufe: 246

Ich habe da noch mal eine Frage und zwar sollen wir zusätzlich zum Spiel am Ende noch durch eine MsgBox verdeutlichen, welcher Spieler gewonnen hat. Aber egal, was mir einfällt und ausprobiere funktioniert nicht so wirklich. Meine derzeitige Überlegung lautet wie folgt: Select Case Command1(Index).Caption Case 1: If Command1(0).Caption = "X" And Command1(1).Caption ...

Verfasst am: 25.10.2011, 12:38 Aufrufe: 246

hi also man kann auch den ersten teil schöner gestalten.... Private Sub Command1_Click(Index As Integer) Select Case Text1.Text Case 1 : Command1(Index).Caption = "X" Text1.Text = "2" Command1(Index).Enabled = False Case 2: Command1(Index).Caption = "O" Text1.Text = "1&q ...

Verfasst am: 09.09.2011, 08:54 Aufrufe: 587

As shortly getting a collectable is opened, that collectable tends to lowering of worth also to the may possibly be mentioned for DVDs. If anime DVDs are purchased utilized or once the package deal should be opened, it's really vital that you frequently preserve that saved safely inside the case. If your anime movement image purchase didn't consist of the protective , you'll would would rather purchase substitut ...

Verfasst am: 21.07.2011, 19:29 Aufrufe: 703

Das Ganze soll ein Spiel werden und mit dem Button gestartet werden, ggf. auch beendet. Steuern über Pfeile: Schritt 1 Protected Overrides Function isinputkey(ByVal keyData As System.Windows.Forms.Keys) As Boolean Select keyData Case Keys.Up, Keys.Down, Keys.Left, Keys.Right Return True End Select End Function Schritt 2 Private Sub Form1_ ...

Verfasst am: 19.07.2011, 19:27 Aufrufe: 628

Thread(AddressOf mainserver) mainthread.Start(c) End While End Sub Private Sub mainserver(ByVal con As Connection) Do Try For Each c As Connection In list ' an alle clients weitersenden. funktion = Split(con.streamr.ReadLine, "|") Select Case fu ...

Verfasst am: 22.06.2011, 07:40 Aufrufe: 613

Für alle, die es interessiert: Ich habe nicht die TabStrip-KOmponente benutzt, sondern ssTab ! und mit ssTab1.Tab bekomme ich den Index der Tabs. Wenn man jetzt die Listviews und Flexgrids nicht IN die Tabs legt, sondern diese wie einen Tabstrip behandelt, kann man recht einfach über select case die verschiedenen Felder beliebig füllen. Hat mir schätzungsweise 15 Seiten Quellcode gespart! Also habe den ssTab ...

Verfasst am: 15.02.2011, 15:24 Aufrufe: 1086

Message) End Try End Sub Private Sub ActiveDocument_PausedPrinting(ByVal Reason As LabelManager2.enumPausedReasonPrinting, ByRef refCancel As Integer) Dim Message As String = "Fehler beim Druck: " + MyActiveDocument.Name Select Case Reason Case LabelManager2.enumPausedReasonPrinting.lppxCommunicationError Message += " Kommunikationsfehl ...

Verfasst am: 02.02.2011, 00:18 Aufrufe: 640

ScaleMode = vbPixels .BorderStyle = vbBSNone .Move 0, 0, 7, 7 .BackColor = vbRed .AutoRedraw = True Select Case i Case Is = 0, 3 .MousePointer = vbSizeNS 'ObenUnten Case Is = 1, 2 .MousePointer = vbSizeWE 'LinksRechts Case Is = 4, 7 .MousePointer = vbSizeNWSE 'LinksOben RechtsUnten Case Is = 5, 6 ...

Verfasst am: 29.01.2011, 20:42 Aufrufe: 640

Tag = objectCounter nObjekt.Visible = True objectCounter = objectCounter + 1 End Sub Private Sub nObjekt_mouseDown(button As Integer, shift As Integer, X As Single, Y As Single) if button = vbLeftButton then select case nObjekt.tag case = 0 ' je nach Button sollen hier andere Werte in bestehende Variablen geschrieben werden case = 1 ...

Verfasst am: 25.08.2010, 15:05 Aufrufe: 1209

... NIfile) Taskname=GetINIString(INISection, "Taskname", "", INIfile) Wochentage=GetINIString(INISection, "Wochentage", "", INIfile) Startzeit=GetINIString(INISection, "Startzeit", "", INIfile) '*** Überprüfen, ob Script lokal oder remote ausgeführt werden soll *** If GetOSVersion = WXP Then '*** Für Windows XP und Windows 2003 *** If Ucase ...

Verfasst am: 25.08.2010, 13:50 Aufrufe: 1209

ja dann füg doch einfach unten an dein script sowas wie select Case OS case "WinXP": Prozedur oder funktionsaufruf für task case "win7": die ander funktion end select kannst damit vl was anfangen?

Verfasst am: 25.08.2010, 08:56 Aufrufe: 1209

Verfasst am: 05.08.2010, 09:32 Aufrufe: 1029

... #41; ReDim A1(0) Dim A2() ReDim A2(0) Dim A3() ReDim A3(0) Dim A4() ReDim A4(0) Dim A5() ReDim A5(0) Dim A6() ReDim A6(0) Dim A7() ReDim A7(0) Dim A8() ReDim A8(0) Dim A9() ReDim A9(0) Dim A10() ReDim A10(0) For i = 1 To 990628 Select Case ...

Verfasst am: 01.07.2010, 10:39 Aufrufe: 503

Danke Private Sub Worksheet_Change(ByVal Target As Range) Set I = Intersect(Target, Range("A6:O66")) If Not I Is Nothing Then Select Case Target Case 10 To 19: NewColor = 3 Case 110 To 119: NewColor = 3 Case 20 To 29: NewColor = 8 Case 120 To 129: NewColor = 8 Case 30 To 39: NewColor = 4 Case 130 To 139: NewColor = 4 Case 40 To 49: NewColor ...

Verfasst am: 09.06.2010, 20:51 Aufrufe: 970

Invoke(New MethodInvoker(AddressOf Auswertung)) Else Dim Selectbuffer() As String = Split(readbuffer, "$") Select Case Selectbuffer(0) Case "/functionTaskmgr" taskmgrbuffer = readbuffer Taskmgr() Case Else MsgBox(S ...

Verfasst am: 04.05.2010, 12:20 Aufrufe: 507

Formular. & inhalt & .BackColor <-- Das "&" verbindet 2 String oder String und Variable usw.... Musst deinen Button als Control dimensionieren oder eine if abfrage einbauen, oder gar Select Case

Verfasst am: 22.02.2010, 22:10 Aufrufe: 981

SelectedValueChanged Dim text as String 'Der Text aus der CheckedListbox Dim o as Object 'Das Object aus der CheckedListbox dim i as Integer Richtextbox1.clear() text="" i=1 For each o in CheckedListBox.CheckedItems text=o.tostring Select Case i Case 1 Richtextbox1.AppendText(text) Case Else Richtextbox1.AppendText(", "+text) End Select i+=1 Next End Sub Das funktionier ...

Verfasst am: 05.02.2010, 06:06 Aufrufe: 491

hallo ich habs gestern lange probiert aber nein ich habs nicht geschafft und ich glaube auch nicht dass das möglich ist was su aber machen könntest du schreibst selcet case in eine eigene sub Public Sub fLoad(index As Integer) Select Case index Case 0: frm_main.Show Case 1: frm_1.Show End Select End Sub z.B. und aufrufen tust dus ganz einfach mit ...

Verfasst am: 04.02.2010, 12:16 Aufrufe: 491

Verienfacht geschgildert gibt e ein Startformular (frmStart) von dem aus ich die anderen Formuare aufrufen will. Die anderen Formulare heißen frm0, frm1, frm2, frm3, frm4... Der Aufruf erfolgt über indizierte Buttons. Ich weiß also das wievielte (Index) Formular ich aufrufen will (z.B. das fünfte Formular -> frm5). Bisher habe ich das so realisiert: Select Case Index Case 0 Load frm0 frm0.show ...

Verfasst am: 03.02.2010, 11:35 Aufrufe: 549

Erstmal an freundliches Hallo an alle, weil ich mich grad neu angemeldet hab Wink

Ich erstelle im Moment ein Brettspiel und hab mal eine Frage: Ich versuche mit einem Select Case PictureBoxen rauszusuchen, die ein bestimmtes Bild zugewiesen bekommen sollen. Die PictureBoxen heißen P1-P31 und bspweise bei PBox 1 und 2 soll ein Bild "plus" aus den Ressourcen zugewiesen werden. Select Case FeldZahl ...

Verfasst am: 13.11.2009, 20:51 Aufrufe: 2708

Verfasst am: 28.10.2009, 16:04 Aufrufe: 520

... chon in VB6 übersetzt, nur da wos im die "Wurst" geht komm ich einfach nicht weiter Könnt ihr mir bitte helfen? konfig$ = "100001101111" werte! = 0 'Ger„t konfigurieren und Messwerte holen Counter% = 0 Do b% = 2048 vout% = 0 For I% = 12 To 1 Step -1 OUT outadr%, (&HFE And INP(outadr%)) 'DTR auf 0 setzen Select Case ...

Verfasst am: 25.09.2009, 18:19 Aufrufe: 493

Hmja das Event macht Probleme, da es sich selbst aktiviert...Unwichtiges weggekürzt:Visual Basic:

Verfasst am: 22.08.2009, 15:33 Aufrufe: 1003

Moin Du brauchst da glaube ich keine Variable, eher eine Konstante! Versuchs mal mit: Select Case True Hoffe das hilft, kann das grad nicht testen, da ich am iPod online bin. StarTrekkker

Verfasst am: 15.07.2009, 08:54 Aufrufe: 1003

Leider weiß ich nicht genau wie ich das anstellen soll. Mir fehlt eine Variable. 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 ...

Verfasst am: 09.07.2009, 17:37 Aufrufe: 751

net möglich ist solche tools wie freecap oder sockscap nachzucoden.FreeCap -- is a program for transparency redirect connections from programs through SOCKS server. In fact that some programs hasn't native SOCKS support (for example Internet Explorer), In this case FreeCap will be helpful, transparently redirect all connections requests through SOCKS server.Diese Programme kann man für jede beliebige anwendung benutz ...

Verfasst am: 29.06.2009, 15:26 Aufrufe: 1459

Beschreibung:Mit der Funktion kann damit einige Fenstereffekte erzeugen. U.a. Einfaden, Ausfaden, Schieben, Rollen... Falls der Effekt nicht mit der Windows-Version kompatibel ist, oder ein anderer Fehler auftritt, wird die Form trotzdem ein-/ausgeblendet. Genauere Beschreibung zur Handhabung im Quellcode.Funktion:Visual Basic: Beschreibung der Parameter:Fenster: die Form die animiert werden sollArt:EINBLENDEN: Fenst ...

Verfasst am: 29.06.2009, 15:06 Aufrufe: 1748

Beschreibung: Mit Zuhilfename der API-Funktion SendMessage lässt sich der Monitor in den StandBy-Modus schalten und auch wieder einschalten. Erstellen Sie ein neues Windows-Forms Projekt und platzieren auf die Form einen Button, um den Monitor in den StandBy-Zustand zu versetzen. Mit Hilfe eines Timers wird der Monitor dann nach 10 Sekunden autom. wieder "reaktiviert".Funktion: Visual Basic: Quelle: vbarchiv.net

Verfasst am: 29.06.2009, 14:16 Aufrufe: 835

Beschreibung: Das ist eine Kryptographieklasse die die Verschlüsselungsalgorithmen aus den .NET Frameworkzusammenfasst und in einfach anzuwendenen Funktionen kapselt.Es gibt für jedes Szenario eine passende Funktion z.B. wenn man eine Datei von der Festplatte direkt in ein Bytearray entschlüsseln will oder wenn man ein Bytearray verschlüsseln will und das Ergebnis in ein anderes Bytearray speichern wil ...

Verfasst am: 18.06.2009, 16:21 Aufrufe: 959

Verfasst am: 18.06.2009, 13:00 Aufrufe: 904

... x(lhKey&, SubKey, 0, KEY_ALL_ACCESS, lhKeyOpen&) If l& <> ERROR_SUCCESS Then Exit Function l& = RegQueryValueExNULL(lhKeyOpen&, Name, 0&, lTyp&, 0&, cch&) If l& <> ERROR_SUCCESS Then Exit Function Select Case ...

Verfasst am: 18.06.2009, 11:59 Aufrufe: 895

Rückgabe: True oder FalseVisual Basic: [code]Public Function check_hash(ByVal Hash As String) As BooleanDim i As Integer, x As Long, bol As BooleanIf Len(Hash) = 32 Or Len(Hash) = 40 Then For i = 1 To Len(Hash) x = Asc(Mid$(Hash, i, 1)) Select Case (x) Case 48 To 57 bol = True Case 97 To 102 bol = True Case Else bol = False Exit For End Select Next iElse bol = FalseEnd Ifcheck_hash = bo ...

Verfasst am: 17.06.2009, 13:09 Aufrufe: 1807

Code: Private Sub TextBox1_KeyPress(ByVal sender As Object, _ ByVal e As System.Windows.Forms.KeyPressEventArgs) _ Handles TextBox1.KeyPress '<- Names der Textbox Select Case Asc(e.KeyChar) Case 48 To 57, 8, 32 ' Zahlen, Backspace und Space zulassen Case Else ' alle anderen Eingaben unterdrü ...

Verfasst am: 15.06.2009, 19:01 Aufrufe: 976

Eine Alternative zu If then Else ist Select case.Das ist dann vorteilhafter, wenn mehr als 2 Möglichkeiten zur Auswahl stehen.Passwort: "vb-x.org"Download

Verfasst am: 15.06.2009, 18:27 Aufrufe: 1115

Enabled = False i = 0 btnStart.Text = "Start" Select Case cmbFunktion.SelectedIndex &n ...

Verfasst am: 15.06.2009, 12:55 Aufrufe: 695

Thema: Enums nutzenAutor: exe-cuteHier ein TUT fuer das benutzen eines Enums.Mit einem enum gelingt folgendes:Lets go:Enum:Die sub:(mir faellt grade auf, bei Case Mogen is die MassageBox Falsch. Ich denk aba das wird jeder cheggen.)Dies ist nun ein beispiel, zu welches man ein enum benutzen kann. EIn enum hat jedoch nicht immer die werte 1,2 oder 3.Meist haben sie laengere werte die man sich nicht alle merken moechte ...

Verfasst am: 15.06.2009, 12:15 Aufrufe: 2133

Private Sub List1_men_Click(Index As Integer) End SubWie ihr seht wird uns jetzt ein Index übergeben, wenn der Benutzer auf einen Eintrag klickt.Mit diesem Index könnt ihr dann auf den Eintrag zugreifen und abfragen was ihr benötigt.Hier ein Beispiel:Private Sub List1_men_Click(Index As Integer) Select case Index Case 1 Text1.Text = ...

Verfasst am: 30.05.2009, 18:51 Aufrufe: 1039

GetModules()(0)).ToInt32, 0) End If End Sub Public Sub UnhookKeyboard() If (IsHooked()) Then Call UnhookWindowsHookEx(miKeyboardHandle) End Sub Private Function BlockKeyCombination( _ ByVal Hookstruct As KBDLLHookStruct) As Boolean Dim bResult As Boolean = False If mbBlockKeys Then Select Case Hookstr ...

Verfasst am: 22.05.2009, 08:17 Aufrufe: 609

Top = "3840" Then Pfeil.Top = "480" Else Pfeil.Top = Pfeil.Top + 240 End If End If Left: If GetAsyncKeyState(KeyCodeConstants.vbKeyLeft) Then Select Case Pfeil.Top Case "480" If Value.Caption = "1" Then Value.Caption = "0" Else Value.Caption = "1" End If End Select End If Right: If GetAsyncKeyState ...

Verfasst am: 23.04.2009, 22:55 Aufrufe: 1004

Hier ein TUT fuer das benutzen eines Enums. Mit einem enum gelingt folgendes: Lets go: Enum: Die sub: (mir faellt grade auf, bei Case Mogen is die MassageBox Falsch. Ich denk aba das wird jeder cheggen.) Dies ist nun ein beispiel, zu welches man ein enum benutzen kann. EIn enum hat jedoch nicht immer die werte 1,2 oder 3. Meist haben sie laengere werte die man sich nicht alle merken moechte. Ihr ...

Verfasst am: 15.04.2009, 14:01 Aufrufe: 686

Marduk hat recht, Select Case Anweisung ist das, was du bruachst ;D Wüsste nicht, warum du es anders lösen solltest, wenn es damit so einfach geht. lg ZiuX

Verfasst am: 15.04.2009, 11:30 Aufrufe: 686

Wenn ich dich richtig verstanden habe, hilft dir die Select Case Anweisung weiter. http://openbook.galileocomputing.de/vb_net/msvb020006.htm#Rxxmsvb020006256DieSelectCaseVerzweigung

Verfasst am: 05.04.2009, 15:08 Aufrufe: 2141

) Mensch zieht <-> Computer tippt\n\n"); // e=(Abgesicherte Eingabe von Menü) do { printf("Auswahl: "); e=scanf("%d", &menue); fflush(stdin); } while(!e || menue<1 || menue>3); // Eingrenzung für die eingabe von 1-3 //srand((unsigned)time(NULL)); switch(menue) { // Computer zieht <-> Mensch tippt case 1: /*system("color 0E&q ...

Verfasst am: 26.02.2009, 18:24 Aufrufe: 1607

Wie benutze ich den ASP? "Active Server Pages (ASP) ist eine von Microsoft entwickelte SSI-Nachfolgetechnologie, die mit Einsatz einer Skriptsprache wie VBScript, Perl oder JScript serverseitig Webseiten erzeugt." Nehmen wir mal an ich habe so eien Prozedure: Private Sub generieren_Click() Static generieren As Long generieren = generieren + 1 Select Case generieren Case 1: name_tx ...

Verfasst am: 26.02.2009, 15:40 Aufrufe: 2462

Falls in der eingelesen Zeile außer Fail} auch noch eine Komponente enthalten ist wird die Sourcecodedatei die die Protokolldatei erstellt und ebenfalls zeilenweise eingelesen und in eine Variable gespeichert. Wenn die Komponente mit der Fehlermessung im Sourcecode gefunden wird sollen über die Methode append und einem Select Case unterschiedliche Messungen für diese Komponente eingefügt werden um heraus zu finde ...

Verfasst am: 17.02.2009, 21:48 Aufrufe: 1307

hi du musst die variable ausserhalb deiner prozedur deklarieren aber das ist jetzt was anderes zu deiner ersten frage... case 33: name_txt.text = "WasWeisDennIchWasFürEinName" alter_txt.text = "WasWeisDennIchWieGroß" 'und da... 'sagst du dann einfach dass deine Variable Null ist... generieren = 0 end select und wenn du nachher wieder auf den button klickst wird wieder p ...