Visual Basic

Всем привет:
вот смотрите формуляр:
Пожалуйста зарегистрируйся для просмотра данной ссылки на страницу.

Ну вот так у меня в коде:

Private Sub cmdRechnen_Click()
mDauer = txtMietdauer.Text
If optKlein.Value = True Then
mGP = 40
End If
If optOber.Value = True Then
mGP = 130
End If
If optMittel.Value = True Then
mGP = 70
End If

If optAuto.Value = True Then
mGetriebe = 8
End If

If optSchalt.Value = True Then
mGetriebe = 0
End If

If chkVollkasko.Value = True Then
mVollkasko = 6
Else
mVollkasko = 0
End If

mGesamt = (mGP + mGetriebe + mVollkasko) * mDauer
lblAusgabe.Caption = mGesamt

End Sub

проблема, что Frame: GETRIEBE он вообще не берет во внимание... как правильно ему прописать, что бы он тоже проверял этот Фрэйм???

а что у тебя значит "Me."????

что то у меня твой вариант вообще не пашет...

ты можешь мне подсказать, как мне к Frame "Getriebe" обратиться. так то он считает, просто вот про Getriebe забывает....
я уже и Frame2.optAuto.value писал, всё равно говорит, что не так.....

Цитата

Со слов пользователя kisaru

If Not IsNull(Me.txtDauer) Then
mDauer = Me.txtDauer.Text
Else
mDauer = 0
End If

mDauer = Me.txtDauer.Text

последняя строчка всё что может случиться выше забивает...

Показать весь код

это было предложиние Technologа, а не моё, для меня это тоже не понятно...
моё смотри выше

Как мне иначе сгруппировать Optionsbuttons, когда одни относятся к Типу автомобиля (т.е. можно выбрать одну из 1ого Фрэйма)
другие к Коробке передач (ручная или Автомат) опять таки выбор нужной из другой группы (фрэйм 2)
есть другие варианты

Цитата

Со слов пользователя Technolog

dron126
Что конкретно в моем решении не работает? Ошибку выдает? Какую?

итак, у меня если что Visual Basic 6. с 2005 не работал, не знаю есть ли различия...

в твоем он мне начинает ошибку выдавать сразу при первой строчке:

Private Sub cmdRechnen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdRechnen.Click
а именно "handles"
ну и т.д.
короче вообще не хочет ничего решать...

а у меня оказывается проблема не в Getriebe, а в Checkbox. то есть он не хочет Vollkasko плюсовать....

всё сделал.... блин.. слава богу!!!:))))
спасибо Технолог!!!:)

вот конечный код:

Private Sub cmdRechnen_Click()
mDauer = txtMietdauer.Text

    If chkVollkasko.Value = 1 Then
        mVollkasko = 6
    Else
        mVollkasko = 0
    End If

    mGesamt = (mGP + mGetriebe + mVollkasko) * mDauer
    lblAusgabe.Caption = mGesamt

End Sub


Private Sub optAuto_Click()
    mGetriebe = 8
End Sub


Private Sub optKlein_Click()
    mGP = 40
End Sub


Private Sub optMittel_Click()
    mGP = 70
End Sub


Private Sub optOber_Click()
    mGP = 130
End Sub


Private Sub optSchalt_Click()
    mGetriebe = 0
End Sub