Visual Basic Forum

Verfasst am: 27.10.2011, 06:32 Aufrufe: 160

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, 18:29 Aufrufe: 160

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, 11:38 Aufrufe: 160

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: 21.07.2011, 18:29 Aufrufe: 589

Hallo zusammen, ich will gerne mit Pfeilen eine Form (OvalShape) bewegen, gleichzeitig aber brauche ich auch einen Button. 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, ...

Verfasst am: 19.07.2011, 18:27 Aufrufe: 543

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, 06:40 Aufrufe: 533

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, 14:24 Aufrufe: 864

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: 01.02.2011, 23:18 Aufrufe: 544

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, 19:42 Aufrufe: 544

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, 14:05 Aufrufe: 950

Shell") Set WshSysEnv = WshShell.Environment("SYSTEM") 'tmp2 = "PROCESSOR_ARCHITECTURE: " & WshSysEnv("PROCESSOR_ARCHITECTURE") Select Case LCase(WshSysEnv("PROCESSOR_ARCHITECTURE")) Case "x86" OS = OS & "-32" Case "amd64" OS = OS & "-64" End Select Set WshShell = Nothing Set WshSysEnv = Nothing ' ...

Verfasst am: 25.08.2010, 12:50 Aufrufe: 950

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, 07:56 Aufrufe: 950

Shell") Set WshSysEnv = WshShell.Environment("SYSTEM") 'tmp2 = "PROCESSOR_ARCHITECTURE: " & WshSysEnv("PROCESSOR_ARCHITECTURE") Select Case LCase(WshSysEnv("PROCESSOR_ARCHITECTURE")) Case "x86" OS = OS & "-32" Case "amd64" OS = OS & "-64" End Select Set WshShell = Nothing Set WshSysEnv = Nothing ' ...

Verfasst am: 05.08.2010, 08:32 Aufrufe: 868

... #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, 09:39 Aufrufe: 472

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, 19:51 Aufrufe: 868

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, 11:20 Aufrufe: 468

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, 21:10 Aufrufe: 907

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, 05:06 Aufrufe: 434

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, 11:16 Aufrufe: 434

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, 10:35 Aufrufe: 518

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, 19:51 Aufrufe: 2380

Verfasst am: 28.10.2009, 15:04 Aufrufe: 493

... 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, 17:19 Aufrufe: 458

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

Verfasst am: 22.08.2009, 14:33 Aufrufe: 898

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, 07:54 Aufrufe: 898

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: 29.06.2009, 14:26 Aufrufe: 1359

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, 14:06 Aufrufe: 1640

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, 13:16 Aufrufe: 757

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, 15:21 Aufrufe: 867

Verfasst am: 18.06.2009, 12:00 Aufrufe: 830

... 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, 10:59 Aufrufe: 810

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, 12:09 Aufrufe: 1686

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, 18:01 Aufrufe: 884

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, 17:27 Aufrufe: 1014

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

Verfasst am: 15.06.2009, 11:15 Aufrufe: 1847

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, 17:51 Aufrufe: 964

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, 07:17 Aufrufe: 576

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: 15.04.2009, 13:01 Aufrufe: 646

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, 10:30 Aufrufe: 646

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

Verfasst am: 26.02.2009, 17:24 Aufrufe: 1558

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, 14:40 Aufrufe: 2393

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, 20:48 Aufrufe: 1273

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

Verfasst am: 17.02.2009, 20:45 Aufrufe: 1273

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

Verfasst am: 17.02.2009, 17:58 Aufrufe: 1273

So mein nächstes Probleme wäre Folgendes.... Private Sub generieren_Click() Static generieren As Long generieren = generieren + 1 Select Case generieren Case 1: name_txt.Text = "Martin" alter_txt.Text = "18" Case 2: name_txt.Text = "Pascal" alter_txt.Text = "16" End Select End Sub Fragen: 1. Also erscheint alles doch wie mache ich wenn ich zum ...

Verfasst am: 17.02.2009, 14:48 Aufrufe: 1273

So habs versucht ich hab jedoch ein problem bei "Select Case x"... wie soll x heißen? Soll das den namen von cmd beeinhalten? oder von txt.. Ich denk mal von "cmd" habs auch so ausprobiert folgendes is bei rausgekommen: cmd = "generieren" (name) name_txt alter_txt Ich hab ersmal nur zwei als übung.... Mein code sieht so aus: Private Sub generieren_Click() generieren = ...

Verfasst am: 17.02.2009, 14:36 Aufrufe: 1273

hi ja jetzt weis ich was du meinst... bei einer kleinigkeit hast du mich falsch verstanden ich meinte dass du eine textbox auf die form machst du der den namen "txt_name", "txt_alter" und "txt_größe" gibst weist du was ich meine? also für eine solche aktion kannst brauchst du ein paar sachen -) Variable -) Select Case ja das wars schon Am anfang musst du dir überlegen ...

Verfasst am: 17.02.2009, 14:26 Aufrufe: 1273

hi ja jetzt weis ich was du meinst... bei einer kleinigkeit hast du mich falsch verstanden ich meinte dass du eine textbox auf die form machst du der den namen "txt_name", "txt_alter" und "txt_größe" gibst weist du was ich meine? also für eine solche aktion kannst brauchst du ein paar sachen -) Variable -) Select Case ja das wars schon Am anfang musst du dir überlegen ...

Verfasst am: 17.02.2009, 12:10 Aufrufe: 3928

avi" Dim a As Byte a = InputBox("") Select Case a Case 1 Shell vlc & folder & name, vbNormalFocus 'Dieser Teil geht nicht bzw zeigt VB nen Fehler obwohl der Movie geöffnet wird" Case 2 Shell ("C:\Programme\VideoLAN\VLC\vlc.

Verfasst am: 17.02.2009, 09:44 Aufrufe: 3928

avi" Dim a As Byte a = InputBox("") Select Case a Case 1 Shell vlc & folder & name, vbNormalFocus 'Dieser Teil geht nicht bzw zeigt VB nen Fehler obwohl der Movie geöffnet wird" Case 2 Shell ("C:\Programme\VideoLAN\VLC\vlc.

Verfasst am: 16.02.2009, 14:15 Aufrufe: 3928

avi" Dim a As Byte a = InputBox("") Select Case a Case 1 Shell (vlc & " " & """ & folder & "\" & name) 'Dieser Teil geht nicht bzw zeigt VB nen Fehler obwohl der Movie geöffnet wird Case 2 Shell ("C:\Programme\VideoLAN\VLC\vlc.