изменение расчета процентов на основании изменения суммы

[DMITRIY_78]

Ребята Здравствуйте! помогите понять как сделать так что бы после ввода процентов, если изменить сумму "тело" займа в TextBox2, то автоматически изменялось все кроме процентной ставки, пример прикрепил

[Serge_Bliznykov]

Если правильно понял, то функцию изменения суммы запишите так:

Private Sub TextBox2_Change()
    Dim f As Double
    If TextBox2 > 0 Then
        TextBox3.Enabled = True
        TextBox3.BackColor = &H80000005
        If Len(Trim(TextBox3.Text)) > 0 Then
            f = CDbl(TextBox3.Text)
            If f > 0 Then
                Call TextBox3_Change
            End If
        End If
    End If
End Sub

[DMITRIY_78]

именно так и поняли, спасибо большое

[DMITRIY_78]

а где кнопошка спасибо?

[Serge_Bliznykov]

тут это называется "Отзыв": кнопка с изображением весом - правее от индикатора присутствия под ником в нужном сообщении.

[DMITRIY_78]

Здравствуйте! вы знаете стал разбирать код и не понимаю вот эту строку, поясните пожалуйста!

Call TextBox3_Change

[Serge_Bliznykov]

Добрый день.

Сообщение от DMITRIY_78

и не понимаю вот эту строку, поясните пожалуйста!

Call TextBox3_Change

Всё очень просто. Это вызов метода, который и пересчитывает/выводит сумму.
У Вас это всё выполняется в процедуре, назначенной на изменение поля TextBox3 (где вводится процентная ставка). Если там изменить значение, то вызовется процедура TextBox3_Change и пересчитает сумму.

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

p.s. по хорошему, конечно, нужно не так.
нужно код пересчёта вынести в отдельную процедуру и потом его вызывать там, где надо - в TextBox2_Change, TextBox3_Change...

[DMITRIY_78]

Сообщение от Serge_Bliznykov

Добрый день.
вынести в отдельную процедуру

вы правы я как то своим скудным умишком к этому и пришел, вот поэтому попросил вас разъяснить вас, спасибо за пояснения!