Программа в VBA

@Алиса Дмитриева · Регистрация: 07.04.2018

Студворк — интернет-сервис помощи студентам

Как сделать так , чтобы в Label9.Caption высвечивались слова введённые в текстбоксах ,а не сами переменные, которым мы присвоили заданные текстбоксы?

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Private Sub CommandButton1_Click()
Dim a As Integer
Dim b, c, d, e, f, k, l, m, n, o, p, r, s As String
a = TextBox1.Text
b = TextBox2.Text
c = TextBox3.Text
d = TextBox4.Text
e = TextBox5.Text
f = TextBox6.Text
k = TextBox7.Text
l = TextBox8.Text
m = TextBox9.Text
n = TextBox10.Text
o = TextBox11.Text
p = TextBox12.Text
r = TextBox13.Text
If a > 3 Then s = "f: k / b . m" Else
s = "b, c, d f: k"
Label9.Caption = s
End Sub

@fever brain · 05.05.2018, 17:44

Сообщение от Алиса Дмитриева

Как сделать так , чтобы в Label9.Caption высвечивались слова введённые в текстбоксах

Ну ппц, на какой швейной фабрике вас бейсиком пользоваться учили

s = b & vblf & c & vblf & d & vblf & f & vblf & k (или s = b & " " & c & " " & d & " " & f & " " & k )

Добавлено через 7 минут
там вообще, если уж нагорожденно 1000 текстовых полей для ввода можно было сделать метод перебора
цикл For Each [var] in Controls складываем s = s & vblf & [var] (s = s & " " & [var] )

msgbox s

@Алиса Дмитриева · 05.05.2018, 17:50 **[ТС]**

Что-то не то. Рассмотрим этом пример. Я ввожу в b = TextBox2.Text: книга, а c = TextBox3.Text: рассказ. В результате мне нужно, чтобы вышло , если выполняется условие, то книга // рассказ, иначе книга : рассказ (чтобы выводило само содержимое текст боксов, и именно с такими символами между этими словами)

Visual Basic
1
2
3
4
5
6
7
8
9
Private Sub CommandButton1_Click()
Dim a As Integer
Dim b, c, s As String
a = TextBox1.Text
b = TextBox2.Text
c = TextBox3.Text
If a > 3 Then s = "b // c" Else s = "b : c"
Label9.Caption = s
End Sub

@fever brain · 05.05.2018, 18:28

То что в кавычках если находится в коде, является строкой, строкой также может быть переменная
которая может хранить этот текст вот два одинаковых вывода

msgbox "123"

s="123"

msgbox s

вот мне интересно, на кого вы учитесь, на атомного подводника ?

Остап Бонд · 05.05.2018, 18:43

Сообщение от Алиса Дмитриева

s = "b // c"

Visual Basic
1
s=b & " // " & c

fever brain, чего кричать-то на блондинок

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++ 8Observer8 17.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip	Символические и жёсткие ссылки в Linux. algri14 15.03.2026 Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая ссылка» (hard link),. . .	[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ФедосеевПавел 14.03.2026 Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .	делаю науч статью по влиянию грибов на сукцессию anaschu 13.03.2026 прикрепляю статью
SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .	Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .	Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .

@fever brain oh my god 1456 / 796 / 161 Регистрация: 05.01.2016 Сообщений: 2,307 Записей в блоге: 8
	05.05.2018, 18:28
	То что в кавычках если находится в коде, является строкой, строкой также может быть переменная которая может хранить этот текст вот два одинаковых вывода msgbox "123" s="123" msgbox s вот мне интересно, на кого вы учитесь, на атомного подводника ? 3

Опции темы