VB in 21Tagen Problem...

Dieses Thema im Forum "Programmierung & Entwicklung" wurde erstellt von Inder, 12. April 2006 .

  1. Diese Seite verwendet Cookies. Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies. Weitere Informationen
  1. #1 12. April 2006
    Also ich muss in der Berufsschule irgendwann auch VB6 lernen, also hab ich damit schonmal zu hause angefangen. Bin jetzt bei Tag 7 und mache die Übung am Ende.


    Das ist die Aufgabe. Ich hatte gestern auch alles gemacht. Habe ein Prog gemacht mit 3 Sendern, wenn man einen angeklickt hat und dann auf "OK" ging, hat der Informationen angezeigt, aber in falscher Reihenfolge.

    1. Sender -> Infos vom 2.
    2. Sender -> Infos vom 1.
    3. Sender -> Infos vom 1.

    Dann sag der Code so aus:

    Code:
     Private Sub Command1_Click()
     Select Case Radio
     Case optSunshine = True
     intAntwort = MsgBox("Dieser Sender spielt Elektronische Musik jeder Art", vbInformation + vbOKOnly, "Sunshine Live")
     Case optSputnik = True
     ntAntwort = MsgBox("Dieser Sender spielt vorwiegend kommerzielle Musik", vbInformation + vbOKOnly, "MDR Sputnik")
     Case optBrocken = True
     intAntwort = MsgBox("Dieser Sender spielt die Hits der 70er, 80er, 90er und von Heute", vbInformation + vbOKOnly, "Radio Brocken")
     Case Else
     intAntwort = MsgBox("Du musst schon einen Sender auswählen, sonst kann ich keine Informationen darüber geben!", vbExclamation, "Halt!")
     End Select
    End Sub

    Dann habe ich "Select Case Radio" in "Select Case Command1" geändert und es hat alles einwandfrei funktioniert. Dann habe ich gedacht, da fehlt n "Beenden" button, also schnell noch einen reingehauen und seitdem geht nix mehr. Wenn ich den wieder rausnehme, geht trotzdem nix mehr ?(

    {bild-down: http://www.onlinestuffs.com/pictureupload/thumbnail2/3dec02b9feb2fcd04bf8b50e8d6084cb.jpg}
    {bild-down: http://www.onlinestuffs.com/pictureupload/thumbnail2/e9060bd5d0215718f7ca2ba2753367ca.jpg}
    {bild-down: http://www.onlinestuffs.com/pictureupload/thumbnail2/a33af31440fcecf08555998b06a03b9d.jpg}


    Jetzt kommen diese Fehlermeldungen.

    Kann einer mal nach der Anleitung solch eine Applikation schreiben?

    Ach und noch was...

    zu 1. auf dem Bild: erklärt mal einer wieso "Index As Integer"...trotz Buch werd ich daraus nicht schlau.
    zu 2. auf dem Bild: hier hab ich halt das command1 durch cmdOk ersetzt, aber sollte ja egal sein wie ich den Button bezeichne...
     

  2. Anzeige
  3. #2 12. April 2006
    Hoi,

    1. Wieso is der OK-Button den ein Steuerelemente-Feld? Der sollte doch normal nur n ganz Normaler Button sein

    2. Was ist "Radio" für eine Variable? Welchen Wert hat die bei der Prozedur?

    3. Im Anhang is ein Projekt, das müsste funktionieren ;)
     
  4. #3 12. April 2006
    hmm...das ist ja das gleiche nur dass du If/Else benutzt und ich das mit Selct Case machen wollte. Aber bei mir ging es nicht...

    {bild-down: http://www.onlinestuffs.com/pictureupload/thumbnail2/e9060bd5d0215718f7ca2ba2753367ca.jpg}



    zu 1. Hääää??? Ich hab den Button links aus der Objektleiste genommen und einfach reingesetzt. Kein Plan wie das zu nem Steuerelementfeld wird und wie das n Button bleibt.

    zu2. Radio hatte ich einfach das reingesetzt, weil ich nicht wusste wie ich die Select CAse Anweisung anfangen soll, da hab ich einfach irgendwas reingeschrieben. Als es dann nicht ging, hab ich ja "Select Case cmdOK" draus gemacht.

    zu 3. ja das Projekt funktioniert, aber ich wollte es halt wie schon oben erwähnt mit Select Case statt mit If/Else machen...


    //edit: ach ja bin (noch) der absolute Noob auf dem gebiet, also behandelt mich auch so und setzt kein Grundwissen vorraus.
     

  5. Videos zum Thema
Die Seite wird geladen...
Similar Threads - 21Tagen Problem
  1. Antworten:
    4
    Aufrufe:
    7.589
  2. Antworten:
    5
    Aufrufe:
    2.502
  3. Antworten:
    0
    Aufrufe:
    2.694
  4. Antworten:
    1
    Aufrufe:
    1.672
  5. Antworten:
    13
    Aufrufe:
    7.368