Задать вопрос
@Kiamran03

Как добавить несколько строк в TextBox?

Доброго времени суток! Суть такова:
Задали сделать программку в windows forms на языке vba - калькулятор блюд для расчёта стоимости этих самых блюд. я написал простенькую программку, которую смог написать в силу своих нулевых знаний, код и вид формы прикреплю ниже.
Теперь мне нужно что бы при выборе нескольких блюд, в textbox'е отображался список этих самых блюд, но как это сделать? Увы я не знаю, я даже не знаю как это загуглить) Подскажите пожалуйста, заранее спасибо

Программный код:
Public Class Form1

    Dim sum As Integer
    Dim i = 0


    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        sum = 300 + sum
        i += 1

    End Sub

    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
        sum += 230
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        sum += 350
    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        sum += 230
    End Sub

    Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
        sum += 190
    End Sub

    Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
        sum += 520
    End Sub

    Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click
        sum += 330
    End Sub

    Private Sub Button9_Click(sender As Object, e As EventArgs) Handles Button9.Click
        sum += 50
    End Sub

    Private Sub Button10_Click(sender As Object, e As EventArgs) Handles Button10.Click
        sum += 70
    End Sub

    Private Sub Button11_Click(sender As Object, e As EventArgs) Handles Button11.Click
        sum += 90
    End Sub
    Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
        MsgBox(sum)
        sum = 0
    End Sub

    Private Sub Button12_Click(sender As Object, e As EventArgs) Handles Button12.Click
        sum = 0
    End Sub

End Class


Вид формы:
6294351f96f37700149192.png
  • Вопрос задан
  • 101 просмотр
Подписаться 1 Простой Комментировать
Пригласить эксперта
Ваш ответ на вопрос

Войдите, чтобы написать ответ

Похожие вопросы