Не работает ProgressBar в событии таймера

@Sac Svipe · Регистрация: 02.08.2012

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

Что случилось я не знаю! Когда запускаю готовую программу, там все работает нормально, ПРЕКРАСНО!

А когда копирую код и вставляю, то ничего не работает! ПОЧЕМУ?

Вот код:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub Form_Load()
 
End Sub
 
Private Sub ProgressBar1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
 
End Sub
 
Private Sub Timer1_Timer()
    ProgressBar1.Value = ProgressBar1.Value + 1
        If ProgressBar1.Value = 100 Then
            Unload Me
            Form2.Show
        End If
End Sub

И сама программа:

Прогресс.rar

Памирыч · 09.10.2012, 20:13

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

Проверьте пожалуста

Что там проверять - это же исходники, 5 строк кода

@gaw · 09.10.2012, 20:32

м кому интересно, нашел у себя
/копи в блокнот ---> сохранить как Form1.frm

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
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   3390
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   4200
   LinkTopic       =   "Form1"
   ScaleHeight     =   3390
   ScaleWidth      =   4200
   StartUpPosition =   3  'Windows Default
   Begin VB.Timer Timer1 
      Left            =   0
      Top             =   3600
   End
   Begin VB.CommandButton Command1 
      Height          =   495
      Left            =   3480
      TabIndex        =   0
      Top             =   240
      Width           =   495
   End
   Begin VB.Shape Shape1 
      Height          =   255
      Index           =   0
      Left            =   1920
      Top             =   1440
      Visible         =   0   'False
      Width           =   255
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim k%
 
 
 
'на форме Command1,Shape1(0),Timer1
'==================================
Private Sub Form_Load()
Timer1.Interval = 100
Timer1.Enabled = False
End Sub
Sub kf(k%, Rk%, h, v, d, r%, g%, b%)
'     '--------------> коэф
pi = 4 * Atn(1)
angle = 2 * pi / k
rs = 2 * pi * Rk / (k + 1) '(k)
     
'     '--------------> коорд
With Shape1(0)
x0 = .Left: y0 = .Top
.BackStyle = 1
.Shape = 3
.BorderStyle = 0
.Visible = False
.Move x0, y0, rs, rs
End With
 
'     '--------------> постр
On Error Resume Next
For i = 1 To k
Load Shape1(i)
With Shape1(i)
.Move x0 + h * (Rk * Sin(i * angle - d * pi / 2)), y0 + v * (Rk * Cos(i * angle))
.ZOrder 1
cl = 255 * i / k
.BackColor = RGB((1.1 + r) * cl, (1.1 + g) * cl, (1.1 + b) * cl)
End With
Next i
End Sub
Private Sub Command1_Click()
 
'     '--------------> вид , направление вращения
'       'k количество
'          'Rk  радиус
'              'h----> 0,1,-1     горизонтальное 2,-2 овал
'                 'v----> 0,1,-1       вертикальное
'                    'd----> 0,1,-1        диагональное
'                     ' r  g  b  'цвет
'Call kf(8, Rk, h, v, d, r, g, b)
Call kf(12, 400, 1, 1, 0, 0, 1, 0)
 
Timer1.Enabled = Not (Timer1.Enabled)
For i = 1 To Shape1.Count - 1
 Shape1(i).Visible = Timer1.Enabled
Next i
End Sub
 
Private Sub Timer1_Timer()
i = 1
tbc = Shape1(1).BackColor
For i = 1 To Shape1.Count - 2
Shape1(i).BackColor = Shape1(i + 1).BackColor
Next i
Shape1(Shape1.Count - 1).BackColor = tbc
End Sub

Новые блоги и статьи Все статьи Все блоги /
Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .	Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .	Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .
Программа опроса у.з. расходомера SLS-720F Argus19 02.09.2026 Программа опроса у. з. расходомера SLS-720F Программа опрашивает один раз в минуту три ультразвуковых расходомера SLS-720F через интерфейс RS-485 по протоколу Modbus RTU. Опрашиваются регистры. . .	Hyper-V: Компьютер должен поддерживать доверенный платформенный модуль 2.0. Maks 31.08.2026 При установке Windows 11 на виртуальную машину Hyper-V 2-го поколения вылезла такая ошибка: Решение: в параметрах виртуальной машины, в разделе "Безопасность" (Security) активировать флаг. . .	Архитектура биовида Стива в Майнкрафте: Зачем бонобо кубический каннибализм anaschu 30.08.2026 Кубический Вагинокапитализм в Minecraft: Математический инвариант ОДУ и рок Стивов-бонобо Главная задача разработанной «Модели Всего» — наглядно продемонстрировать наличие системной «судьбы». . .	Оттачиваю умение писать js программы. russiannick 30.08.2026 Проектом выходного дня стало написание Книги шифров Виженера. Итогом стала версия 200, синий туман. Синий туман назван так, потому что замораживает текст под собой. Нажатие синих кнопок управляют. . .