---

Hallo Forum,
arbeite gerade das Buch "Visual Basic 6.0 Startpaket" durch, und kann ein Beispiel nicht nachvollziehen , weil es bei mir nicht funktioniert.
Ich soll einen Rahmen erstellen und darin 3 Optionsfelder anordnen die den selben Namen haben.
Leider will das bei mir überhaupt nicht klappen.
Ich bekomme immer eine Fehlermeldung
"Eigenschaft Name konnte nicht gesetzt werden. Mehrdeutiger Name.", und das wars auch schon.
Müßte das grundsätzlich im IV8 gehen oder mach ich was falsch?

------------------
Gruß
Hans-Peter

Der Wahnsinn in Sachen Musik.

  Das Saxregister

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

HAllo Hans-Peter,

wenn ich's richtig verstehe, ist das ein VB- bzw. ein Verstaendnisproblem. Elemente koennen in VB nicht denselben Namen haben - aber dieselbe Caption. Die Eigenschaft 'Name' muss unikat sein, z.B. Option1, Option2 usw. hingegen koennen alle die Caption "MeineOption" haben.

Wenn's das nicht war, musst Du halt Dein Beispiel mal hier aufspielen.

Gruesse,

Paul

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Paul,
ich habe das Beispiel
1. in Visual Basic 6 und
2. im Visual Basic vom Inventor probiert.

Vorgehensweise:
1. Rahmen erstellt
2. 3 Optinsbutton in den Rahmen eingefügt
3. Caption geändert beim
  1. auf "groß", beim
  2. auf "mitte" und beim
  3. auf "klein".
4. Namen Eigenschaft geändert beim
  1. auf OptionGröße beim
  2. auf OtionsGröße beim
  3. auf OptionGröße

In Visual Basic 6 kommt ein Dialogfeld in dem Gefragt wird ob man ein Steuerelementefeld erstellen will.
Wenn man mit Ja antwortet können alle 3 Buttons den selben Namen haben.

Im Inventor kommt nur eine Fehlermeldung die besagt das gleiche Namen nicht erstellt werden können.

Warum geht es im Visual Basic 6 und im Inventor nicht?

------------------
Gruß
Hans-Peter

Der Wahnsinn in Sachen Musik.

  Das Saxregister

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi Hans-Peter..

Grundsätzlich sollten GLEICH Elemente unterschiedlichew Namen haben!
z.B.
optGross
optMittel
optKlein
usw...

Beim erstellen eine Feldes benennt VB die Objekte intern um..
Option1(0)
Option1(1)
usw.....

LG

Andreas

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Da stimm ich Dir zu, aber ...

Wenn alle 3 den selben Namen haben und in einem Listenfeld sind,
kann ich jeden einzelnen Button mit dem Index ansprechen und in einer Schleife abfragen ob er True oder False ist.

------------------
Gruß
Hans-Peter

Der Wahnsinn in Sachen Musik.

  Das Saxregister

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

MicrosoftVisualBasic.pdf

Hallo Leute,
hier mein Beispiel, erstellt in Visual Basic.
Es funktioniert dort auch, nur IV hab ich die
Probleme mit den gleichen Namen.

------------------
Gruß
Hans-Peter

Der Wahnsinn in Sachen Musik.

  Das Saxregister

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Hans-Peter,

der Grund ist (wahrscheinlich - hab's nicht probiert) dass in IV NICHT VB sondern VBA im Einsatz ist - da geht einiges nicht, was in VB geht.

Sorry, dass ich keine besseren Nachrichten habe.

Gruesse,

Paul

www.morecam.ch/cad.htm

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Du kannst es so zu eine Gruppe fassen:

Code:

---

Me.OptionButton1.GroupName = "Gruppe1"
Me.OptionButton2.GroupName = "Gruppe1"
Me.OptionButton3.GroupName = "Gruppe1"

---

So hast du den gleichen Effekt, wie wenn du in VB bist, und die gleichnamige Steuerelemente hast, die sich nur durch den Index unterscheiden.

------------------
Grüße daywa1k3r

[Diese Nachricht wurde von daywa1k3r am 17. Mrz. 2004 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo daywa1k3r,
nicht so schnell.
Ich bin gerade erst am Anfang.

Wie sollte dann die Schleife aussehen?.

Private Sub SchaltflFertig_Click()
    Me.OptionOrtsgröße1.GroupName = "Gruppe1"
    Me.OptionOrtsgröße2.GroupName = "Gruppe1"
    Me.OptionOrtsgröße3.GroupName = "Gruppe1"

    Dim Zähler As Integer
    Dim Option1 As Integer
   
    For Zähler = 0 To 2
        If OptionOrtsgröße(Zähler).Value = True Then
            Exit For
        End If
    Next Zähler
   
    Option1 = Zähler
   
    MsgBox "Sie haben im ersten Rahmen Option" + Str$(Option1 + 1) + " gewählt"
   
End Sub

Im VB wird automatisch der erste Button als True dargestellt, wie mach ich das in VBA?

------------------
Gruß
Hans-Peter
 
Der Wahnsinn in Sachen Musik.

   Das Saxregister

[Diese Nachricht wurde von SHP am 17. Mrz. 2004 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

UserForm1.zip

Ok, das mit Gruppen kannst vergessen. VBA checkt schon dass die Option Buttons in gleichem Frame sind und schaltet die schon um. Ich hab dich falsch verstanden.

So elegant mit der Schleife geht in VBA natürlich nicht. Aber trotzdem ein Beispiel, wie du den Option Button Caption rausbekommst. Klar kannst du es auch mit:

Code:

---

If Me.Option1.Value = True Then MsgBox Me.Option1.Caption

---

machen, aber die Methode ist nicht flexibel. Die kleine Funktion die ich dir geschrieben habe erwartet als Parameter ein Frame, und liefert die die Caption zurück. Nutzlich, wenn du nicht soviel Tippen willst, und nicht weisst wie viele Options in dem Frame du hast. Ausserdem wenn du sagst, dass du erst damit anfängst, ist immer nicht schlecht über solche Code Schnipsel nachzudenken.

Code:

---

Private Sub CommandButton1_Click()
    MsgBox Get_Option_Name(Me.Frame1)
End Sub

Private Sub UserForm_Initialize()
    Me.OptionButton1.Value = 1
End Sub

Private Function Get_Option_Name(oFrame As Frame) As String
    Dim oOption As OptionButton
 
    For Each oOption In oFrame.Controls
        If oOption.Value = True Then
            Get_Option_Name = oOption.Caption
            Exit Function
        End If
    Next
End Function

---

Wenn du unbedingt einen Index von den Option Button brauchst dann lass halt einfach eine Laufvariable in Get_Option_Name mit laufen.

------------------
Grüße daywa1k3r

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Danke erstmal,
werd ich morgen probieren.
Wozu oder wie verwende ich die Datei "UserForm1.frx"?

------------------
Gruß
Hans-Peter

Der Wahnsinn in Sachen Musik.

  Das Saxregister

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo daywalker,
habs noch gleich probiert.

Nur noch eine Frage.
Wofür steht das "Me." in Me.OptionButton1.Value = 1 ?

------------------
Gruß
Hans-Peter

Der Wahnsinn in Sachen Musik.

  Das Saxregister

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Me bezieht sich auf die Form. Kannst auch weg lassen, aber ich habs gerne wenn die ganze Kacke gleich aufgelistet wird. Dann muss ich nicht viel überlegen wie die Steuerelemente heissen.

Die Datei: UserForm1.frx ist die Form die du in Inventor VBA laden kannst und es ausprobieren.

------------------
Grüße daywa1k3r

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP