Не работает 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

Новые блоги и статьи Все статьи Все блоги /
Запустил конкурс "тем и промптов для текстовых квестов созданных почти чисто ИИ" Adler 06.10.2026 Всем привет! За последние три-четыре дня я создал более 16 текстовых квестовых игр используя преимущественно по одному запросу к ИИ на игру. Мне так понравилось смотреть все ветки/ сцены во всех. . .	ИИ не может найти нужный язык в списке Supersumestria 05.10.2026 Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .	Новая последняя моя музыка в SUNO zorxor 05.10.2026 Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .	Nekobox - outbounds[0].transport: unknown transport type: raw damix 01.10.2026 Фикс ошибки Правым кликом по серверу -> отладочная информация -> edit Заменить "net": "raw", на "net": "tcp", Нажать кнопку reload.
Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .	Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .	Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .

Опции темы