Ошибка при вызове процедуры из другой формы

@AoHeaven · Регистрация: 26.04.2021

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

Здраствуйте, прошу помощи. Ранее, я задавал вопрос о том, как вызывать процедуру с другой формы. Я вроде всё понял и всё вроде было хорошо до того, как я столкнулся с этой ошибкой. Вот сама ошибка:

Ошибка при вызове процедуры из другой формы

Вот код программы (подпрограмма на форме MainForm):

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
Public Sub DarkTheme(DT As Object)
    DT.LTitle.BackColor = vbBlack
    DT.CBox.BackColor = vbBlack
    DT.LDesc_1.BackColor = vbBlack
    DT.TBData_1.BackColor = vbBlack
    DT.LDesc_2.BackColor = vbBlack
    DT.TBData_2.BackColor = vbBlack
    DT.LDesc_3.BackColor = vbBlack
    DT.TBData_3.BackColor = vbBlack
    DT.LDesc_4.BackColor = vbBlack
    DT.TBData_4.BackColor = vbBlack
    DT.LResult.BackColor = vbBlack
'    DT.OMode_1.BackColor = vbBlack
'    DT.OMode_2.BackColor = vbBlack
'    DT.OMode_3.BackColor = vbBlack
'    DT.OMode_4.BackColor = vbBlack
    
    DT.LTitle.ForeColor = vbWhite
    DT.CBox.ForeColor = vbWhite
    DT.LDesc_1.ForeColor = vbWhite
    DT.TBData_1.ForeColor = vbWhite
    DT.LDesc_2.ForeColor = vbWhite
    DT.TBData_2.ForeColor = vbWhite
    DT.LDesc_3.ForeColor = vbWhite
    DT.TBData_3.ForeColor = vbWhite
    DT.LDesc_4.ForeColor = vbWhite
    DT.TBData_4.ForeColor = vbWhite
    DT.LResult.ForeColor = vbWhite
'    DT.OMode_1.ForeColor = vbWhite
'    DT.OMode_2.ForeColor = vbWhite
'    DT.OMode_3.ForeColor = vbWhite
'    DT.OMode_4.ForeColor = vbWhite
End Sub
 
Public Sub LightTheme(LTH As Object)
    LTH.LTitle.BackColor = vbWhite
    LTH.CBox.BackColor = vbWhite
    LTH.LDesc_1.BackColor = vbWhite
    LTH.TBData_1.BackColor = vbWhite
    LTH.LDesc_2.BackColor = vbWhite
    LTH.TBData_2.BackColor = vbWhite
    LTH.LDesc_3.BackColor = vbWhite
    LTH.TBData_3.BackColor = vbWhite
    LTH.LDesc_4.BackColor = vbWhite
    LTH.TBData_4.BackColor = vbWhite
    LTH.LResult.BackColor = vbWhite
'    LT.OMode_1.BackColor = vbWhite
'    LT.OMode_2.BackColor = vbWhite
'    LT.OMode_3.BackColor = vbWhite
'    LT.OMode_4.BackColor = vbWhite
    
    LTH.LTitle.ForeColor = vbBlack
    LTH.CBox.ForeColor = vbBlack
    LTH.LDesc_1.ForeColor = vbBlack
    LTH.TBData_1.ForeColor = vbBlack
    LTH.LDesc_2.ForeColor = vbBlack
    LTH.TBData_2.ForeColor = vbBlack
    LTH.LDesc_3.ForeColor = vbBlack
    LTH.TBData_3.ForeColor = vbBlack
    LTH.LDesc_4.ForeColor = vbBlack
    LTH.TBData_4.ForeColor = vbBlack
    LTH.LResult.ForeColor = vbBlack
'    LT.OMode_1.ForeColor = vbBlack
'    LT.OMode_2.ForeColor = vbBlack
'    LT.OMode_3.ForeColor = vbBlack
'    LT.OMode_4.ForeColor = vbBlack
End Sub

Вот код формы TriangleModeForm:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Dim Theme As String
 
Private Sub CBConfirmButtonTriMode_1_Click()
    TriangleModeForm.Hide
    TriangleForm.Show
End Sub
 
Private Sub Form_Activate()
'Відновлення теми
SettingsFile = FreeFile
Open (App.Path & "\SettingsFile.txt") For Input As #SettingsFile
Line Input #SettingsFile, Theme
Close #SettingsFile
    
SettingsForm.ThemeState = Val(Theme)
    
'Налаштування теми
    If SettingsForm.ThemeState = 1 Then
        'Налаштування темної теми
        TriangleModeForm.BackColor = &H0&
        Call MainForm.DarkTheme(Me)
 
    ElseIf SettingsForm.ThemeState = 0 Then
        'Налаштування світлої теми
        TriangleModeForm.BackColor = &HFFFFFF
        Call MainForm.LightTheme(Me)
    End If
End Sub

Буду рад получению помощи.

@AoHeaven · 14.12.2021, 09:44 **[ТС]**

Вот сама программа:
Program_2.zip

I can · 14.12.2021, 10:10

Program_3.rar

I can · 14.12.2021, 11:15

Убрал бесконечные повторения однотипного кода

I can · 14.12.2021, 11:21

---

@AoHeaven · 14.12.2021, 12:22 **[ТС]**

Спасибо большое

Добавлено через 5 минут
Осталось понять как подпрограмма SwitchTheme работает

I can · 14.12.2021, 12:24

AoHeaven, я не знаю, может вы делаете так по заданию, но я бы сократил количество форм раз в 10

Можно сделать одну форму расчёта для всех фигур и тел, а не для каждой свою.

@AoHeaven · 14.12.2021, 12:30 **[ТС]**

Я бы сократил, было бы только время. Это программа для курсовой работы, сдавать нужно уже завтра

В пятницу будет защита

I can · 14.12.2021, 12:36

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

как подпрограмма SwitchTheme работает

Немного комментариев

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
' Метод переключает тему для формы
' ------ Параметры ----------------
' DT       - форма, для которой нужно поменять тему
' numTheme - номер темы, по умолчанию 0 - светлая
' ----------------------------------------------------------------------
Public Sub SwitchTheme(DT As Object, Optional numTheme As Integer = 0)
    Dim c As Control
    On Error Resume Next ' Пропускаем ошибки
    For Each c In DT.Controls ' перебираем все контролы на форме
    
       Select Case numTheme
       
           Case 0 ' светлая тема
               c.BackColor = vbWhite  ' цвет фона элемента управления
               c.ForeColor = vbBlack  ' цвет шрифта
               DT.BackColor = vbWhite ' цвет формы
               
           Case 1 'тёмная тема
              c.BackColor = vbBlack   ' цвет фона элемента управления
              c.ForeColor = vbWhite   ' цвет шрифта
              DT.BackColor = vbBlack  ' цвет формы
              
       End Select
 
    Next c
 
End Sub

'

И еще один совет: чтобы поменять цвет кнопки, нужно установить в конструкторе её свойство Style = Graphical, именно в конструкторе, в коде не прокатит.

@AoHeaven · 14.12.2021, 13:09 **[ТС]**

Понял, спасибо

Новые блоги и статьи Все статьи Все блоги /
http://iceja.net/ сервер решения полиномов iceja 18.01.2026 Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .	Первый деплой lagorue 16.01.2026 Не спеша развернул своё 1ое приложение в kubernetes. А дальше мне интересно создать 1фронтэнд приложения и 2 бэкэнд приложения развернуть 2 деплоя в кубере получится 2 сервиса и что-бы они. . .	Расчёт переходных процессов в цепи постоянного тока igorrr37 16.01.2026 / * Дана цепь постоянного тока с R, L, C, k(ключ), U, E, J. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа, решает её и находит: токи, напряжения и их 1 и 2 производные при t = 0;. . .	Восстановить юзерскрипты Greasemonkey из бэкапа браузера damix 15.01.2026 Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .
Изучаю kubernetes lagorue 13.01.2026 А пригодятся-ли мне знания kubernetes в России?	Сукцессия микоризы: основная теория в виде двух уравнений. anaschu 11.01.2026 https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/	WordPad для Windows 11 Jel 10.01.2026 WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .	Classic Notepad for Windows 11 Jel 10.01.2026 Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .

@AoHeaven 4 / 4 / 2 Регистрация: 26.04.2021 Сообщений: 84
	14.12.2021, 09:44 [ТС]
	Вот сама программа: Program_2.zip 0

I can sleep 4924 / 4573 / 840 Регистрация: 13.04.2015 Сообщений: 9,722
	14.12.2021, 10:10
	Program_3.rar 0

@AoHeaven 4 / 4 / 2 Регистрация: 26.04.2021 Сообщений: 84
	14.12.2021, 12:22 [ТС]
	Спасибо большое Добавлено через 5 минут Осталось понять как подпрограмма SwitchTheme работает 0

I can sleep 4924 / 4573 / 840 Регистрация: 13.04.2015 Сообщений: 9,722
	14.12.2021, 12:24
	AoHeaven, я не знаю, может вы делаете так по заданию, но я бы сократил количество форм раз в 10 Можно сделать одну форму расчёта для всех фигур и тел, а не для каждой свою. 0

@AoHeaven 4 / 4 / 2 Регистрация: 26.04.2021 Сообщений: 84
	14.12.2021, 12:30 [ТС]
	Я бы сократил, было бы только время. Это программа для курсовой работы, сдавать нужно уже завтра В пятницу будет защита 0

@AoHeaven 4 / 4 / 2 Регистрация: 26.04.2021 Сообщений: 84
	14.12.2021, 13:09 [ТС]
	Понял, спасибо 0

Ошибка при вызове процедуры из другой формы

Решение