Форум программистов, компьютерный форум, киберфорум
VBA
Форум программистов и сисадминов Киберфорум > Форум программистов > Basic > VBA
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск  
 
2 из 2 « 1 2
 
Рейтинг 4.57/21: Рейтинг темы: голосов - 21, средняя оценка - 4.57
34 / 31 / 1
Регистрация: 06.01.2017
Сообщений: 300

Суррогат Progress Bar

05.04.2018, 12:18. Показов 4701. Ответов 28
Метки нет (Все метки)
Студворк — интернет-сервис помощи студентам
Поскольку Progress Bar использовать не так-то просто в силу разных причин, а кроме того, он не всегда вполне информативен, создал простенький, но удобный суррогат, может быть, кому-то пригодится.

Описание задачи:
Предположим, надо обработать несколько однотипных файлов, назовём их Объектами.
С каждым Объектом надо проделать несколько операций, которые могут занимать много времени.
Чтобы юзеру не было скучно, попытаемся отобразить состояние процесса.
В начале создаётся простенькая форма с одним единственным компонентом ListBox:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

VERSION 5.00
Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} uf_ProcessStatus 
   Caption         =   "Processing status"
   ClientHeight    =   1980
   ClientLeft      =   45
   ClientTop       =   375
   ClientWidth     =   10425
   OleObjectBlob   =   "uf_ProcessStatus.frx":0000
   ShowModal       =   0   'False
   StartUpPosition =   1  'CenterOwner
End
Attribute VB_Name = "uf_ProcessStatus"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Далее, пишутся функции Активации Формы и Указания Статуса операции:

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

Option Explicit
Public pbRowCount As Long
Public pbColCount As Long
 
Sub ProcessingBarCreate(ByVal pbBandRows As Variant, ByVal pbBandCols As Variant)
 Dim r As Long, c As Long
 
 pbRowCount = UBound(pbBandRows)
 pbColCount = UBound(pbBandCols)
 With uf_ProcessStatus
  With .lbx_Process
   .ColumnCount = pbColCount + 1
   .AddItem
   For c = 1 To pbColCount:   .Column(c, 0) = pbBandCols(c):   Next c
   For r = 1 To pbRowCount
    .AddItem
    .Column(0, r) = pbBandRows(r)
    For c = 1 To pbColCount + 1
     .Column(c, r) = ""
    Next c
   Next r
  End With
 End With
  
 uf_ProcessStatus.Show (False)
 
End Sub
'--------------------------------------------------------
Sub ProcessingBarStatus(ByVal r As Long, ByVal c As Long, ByVal Status As String)
 With uf_ProcessStatus.lbx_Process
  .Column(c, r) = Status
 End With
End Sub
Параметры функции Активации это описание строки объектов и колонки операций, это, соответственно, нулевая строка и нулевая колонка ListBox"а.
Далее определяются размеры таблицы и заполняются её ячейки, причем на этапе активации только строка объектов и колонка операций, остальные ячейки пустые.
Функция Указания Статуса операции вписывает в заданную ячейку требуемый Статус.

Далее маленький код, имитирующий решение задачи, здесь, вместо собственно операций, выводится MsgBox.
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

Sub ProcessStatusExample()
 Dim pbBandRows As Variant
 Dim pbBandCols As Variant
 Dim p As Long, c As Long
 
 pbBandCols = Array("", "ÝÎ-1", "ÝÎ-2", "ÝÎ-3", "ÝÎ-4", "Ñóììà"):
 pbBandRows = Array("", "Äîáû÷à", "Ñòàòóñû ñêâàæèí", "Config"):
 Call ProcessingBarCreate(pbBandRows, pbBandCols)
 uf_ProcessStatus.Top = 1
 uf_ProcessStatus.Left = 1
 For p = 1 To pbColCount
  c = 1
  Call ProcessingBarStatus(c, p, "Processing"):  MsgBox ("Íàæìè")
  Call ProcessingBarStatus(c, p, "Done")
  c = 2
  Call ProcessingBarStatus(c, p, "Processing"):  MsgBox ("Íàæìè")
  Call ProcessingBarStatus(c, p, "Done")
  c = 3
  Call ProcessingBarStatus(c, p, "Processing"):  MsgBox ("Íàæìè")
  Call ProcessingBarStatus(c, p, "Done")
 Next p
 Unload uf_ProcessStatus
 
End Sub
====================
Пользуясь случаем, хочу задать два вопроса:

1. Как подогнать размеры ListBox"а и Формы, чтобы не торчало ничего и не появлялись скроллинги?
2. Есть ли возможность разлиновать таблицу?
0
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
 05.04.2018, 12:18
Ответы с готовыми решениями:

Как сделать Progress-bar???
Когда нажимаем на сохранение документа в левом нижнем углу Excel'a появляется прогресс бар. Хотелось бы использовать такой же, когда...

Можно ли переделать Progress bar в Track bar?
Можно ли переделать Progress bar в Track bar? От прогресбара нужно всего лишь, что бы можно было перемещать внутри его (заливку) ползунок.

Progress Bar
Допустим, нужно сделать так чтобы после нажатия на кнопку, прогресс бар начинал свою работу, и после завершения выдавал Сообщение(Message...

28
oh my god
 Аватар для fever brain
1456 / 796 / 161
Регистрация: 05.01.2016
Сообщений: 2,307
Записей в блоге: 8
08.04.2018, 16:28
Студворк — интернет-сервис помощи студентам
Странно при добавлении на форму возникают ошибки
Но я нашел в интернете более позднюю версию этого компонента VBCCR15.OCX
теперь никаких ошибок вот ссылка

манифест
Code
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

<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0">
   <file name="VBCCR15.OCX">
      <typelib tlbid="{43C88BE4-8BE0-4661-B06E-9A2F6AD0D267}" version="1.0" flags="control" helpdir="" />
      <comClass clsid="{2163FEB2-DB6D-4F09-A5F4-4D5CFCD6F755}" tlbid="{43C88BE4-8BE0-4661-B06E-9A2F6AD0D267}" threadingModel="Apartment" progid="VBCCR15.CommonDialog" />
      <comClass clsid="{FC1B6E45-D427-43E2-B863-CB35D4B369AD}" tlbid="{43C88BE4-8BE0-4661-B06E-9A2F6AD0D267}" threadingModel="Apartment" />
      <comClass clsid="{214585AD-E4D7-45C9-B71F-694B5D486595}" tlbid="{43C88BE4-8BE0-4661-B06E-9A2F6AD0D267}" threadingModel="Apartment" progid="VBCCR15.UpDown" />
      <comClass clsid="{1E1B7C15-EB5B-4689-8C53-DA0075A649E6}" tlbid="{43C88BE4-8BE0-4661-B06E-9A2F6AD0D267}" threadingModel="Apartment" />
      <comClass clsid="{AF6F377B-CC9D-4FC1-B390-34D07AF3E2B6}" tlbid="{43C88BE4-8BE0-4661-B06E-9A2F6AD0D267}" threadingModel="Apartment" progid="VBCCR15.TreeView" />
      <comClass clsid="{EC5A94A1-BB78-42C2-A9A3-700FD307E4D4}" tlbid="{43C88BE4-8BE0-4661-B06E-9A2F6AD0D267}" threadingModel="Apartment" />
      <comClass clsid="{20C61319-FF3C-4CA8-8222-D11BCF0BA49A}" tlbid="{43C88BE4-8BE0-4661-B06E-9A2F6AD0D267}" threadingModel="Apartment" progid="VBCCR15.ToolBar" />
      <comClass clsid="{0B6AF105-98E4-4902-A0ED-1C7C6D0871CC}" tlbid="{43C88BE4-8BE0-4661-B06E-9A2F6AD0D267}" threadingModel="Apartment" />
      <comClass clsid="{C91C69CA-E8A4-41AB-AA9D-1E4714EC1188}" tlbid="{43C88BE4-8BE0-4661-B06E-9A2F6AD0D267}" threadingModel="Apartment" progid="VBCCR15.TextBoxW" />
      <comClass clsid="{6F6FD4D0-EA77-45D5-9E04-D764E885A1E0}" tlbid="{43C88BE4-8BE0-4661-B06E-9A2F6AD0D267}" threadingModel="Apartment" />
      <comClass clsid="{59F866D5-C8DC-4FEB-8BB8-37FC007A0A94}" tlbid="{43C88BE4-8BE0-4661-B06E-9A2F6AD0D267}" threadingModel="Apartment" />
      <comClass clsid="{B327051C-9DC0-4B61-A662-4926B9DA2F72}" tlbid="{43C88BE4-8BE0-4661-B06E-9A2F6AD0D267}" threadingModel="Apartment" progid="VBCCR15.TabStrip" />
      <comClass clsid="{5EA7C2E1-29BA-4E5C-AA01-EF5D5F365468}" tlbid="{43C88BE4-8BE0-4661-B06E-9A2F6AD0D267}" threadingModel="Apartment" />
      <comClass clsid="{2E163C43-932C-4604-9550-B21D552E8A4A}" tlbid="{43C88BE4-8BE0-4661-B06E-9A2F6AD0D267}" threadingModel="Apartment" progid="VBCCR15.SysInfo" />
      <comClass clsid="{D888C075-F1A6-4A29-B7F4-C274BDC6A2D5}" tlbid="{43C88BE4-8BE0-4661-B06E-9A2F6AD0D267}" threadingModel="Apartment" />
      <comClass clsid="{2F9AC32E-17E7-4821-A446-4DC9460CF1A6}" tlbid="{43C88BE4-8BE0-4661-B06E-9A2F6AD0D267}" threadingModel="Apartment" />
      <comClass clsid="{3A9875F6-3400-4939-8BC7-5B0FEA75965F}" tlbid="{43C88BE4-8BE0-4661-B06E-9A2F6AD0D267}" threadingModel="Apartment" progid="VBCCR15.StatusBar" />
      <comClass clsid="{2FD77D73-58E3-485A-9B96-A799C1DE3798}" tlbid="{43C88BE4-8BE0-4661-B06E-9A2F6AD0D267}" threadingModel="Apartment" progid="VBCCR15.SpinBox" />
      <comClass clsid="{4FEA3F7B-17EB-4C76-A931-77E8006D877F}" tlbid="{43C88BE4-8BE0-4661-B06E-9A2F6AD0D267}" threadingModel="Apartment" />
      <comClass clsid="{4236EDE9-ADB3-45F7-9B0F-FA21399A1337}" tlbid="{43C88BE4-8BE0-4661-B06E-9A2F6AD0D267}" threadingModel="Apartment" />
      <comClass clsid="{3548F8C8-872E-44B0-A22F-32F6C16702BB}" tlbid="{43C88BE4-8BE0-4661-B06E-9A2F6AD0D267}" threadingModel="Apartment" progid="VBCCR15.Slider" />
      <comClass clsid="{EA37D603-60FE-4C3B-9229-854D41D8820A}" tlbid="{43C88BE4-8BE0-4661-B06E-9A2F6AD0D267}" threadingModel="Apartment" />
      <comClass clsid="{1CD1D146-B601-4F7A-8A4A-B06B011629B0}" tlbid="{43C88BE4-8BE0-4661-B06E-9A2F6AD0D267}" threadingModel="Apartment" />
      <comClass clsid="{197B0B79-13C3-44CB-AEBE-8E725CC43126}" tlbid="{43C88BE4-8BE0-4661-B06E-9A2F6AD0D267}" threadingModel="Apartment" progid="VBCCR15.RichTextBox" />
      <comClass clsid="{2C98927D-29FA-42DE-B34C-ABD7A0CAACA1}" tlbid="{43C88BE4-8BE0-4661-B06E-9A2F6AD0D267}" threadingModel="Apartment" progid="VBCCR15.ProgressBar" />
      <comClass clsid="{D0414922-5BC4-4DA1-838D-05DE85DCC8CF}" tlbid="{43C88BE4-8BE0-4661-B06E-9A2F6AD0D267}" threadingModel="Apartment" />
      <comClass clsid="{6653C476-D3C1-45C5-B419-8ED942B8409B}" tlbid="{43C88BE4-8BE0-4661-B06E-9A2F6AD0D267}" threadingModel="Apartment" progid="VBCCR15.Pager" />
      <comClass clsid="{6711403A-407E-4B67-A99B-4182FE29BE6E}" tlbid="{43C88BE4-8BE0-4661-B06E-9A2F6AD0D267}" threadingModel="Apartment" />
      <comClass clsid="{9F453F7A-8F29-41DE-94D4-7CFC58B9FE6F}" tlbid="{43C88BE4-8BE0-4661-B06E-9A2F6AD0D267}" threadingModel="Apartment" progid="VBCCR15.OptionButtonW" />
      <comClass clsid="{71FAC1D0-9675-4A7F-8427-9853DBA4AFEB}" tlbid="{43C88BE4-8BE0-4661-B06E-9A2F6AD0D267}" threadingModel="Apartment" />
      <comClass clsid="{DA48E815-46BE-419F-9ACC-07CE5173F93C}" tlbid="{43C88BE4-8BE0-4661-B06E-9A2F6AD0D267}" threadingModel="Apartment" progid="VBCCR15.MonthView" />
      <comClass clsid="{42E3B081-17BB-4BC5-B66B-B3D450F8F99D}" tlbid="{43C88BE4-8BE0-4661-B06E-9A2F6AD0D267}" threadingModel="Apartment" progid="VBCCR15.MCIWnd" />
      <comClass clsid="{AB01C4FC-599C-4502-98DD-3AA65838712A}" tlbid="{43C88BE4-8BE0-4661-B06E-9A2F6AD0D267}" threadingModel="Apartment" />
      <comClass clsid="{B6D36A4C-DAC6-41A7-9F0B-754EFCFF4712}" tlbid="{43C88BE4-8BE0-4661-B06E-9A2F6AD0D267}" threadingModel="Apartment" progid="VBCCR15.ListView" />
      <comClass clsid="{F3F84601-F514-4D5D-A27F-D8E6C0915023}" tlbid="{43C88BE4-8BE0-4661-B06E-9A2F6AD0D267}" threadingModel="Apartment" />
      <comClass clsid="{4C5F5C5F-D93D-452C-87AA-D90084F2010A}" tlbid="{43C88BE4-8BE0-4661-B06E-9A2F6AD0D267}" threadingModel="Apartment" />
      <comClass clsid="{25CC0A45-CAC9-43E0-BEFC-C1120B04871F}" tlbid="{43C88BE4-8BE0-4661-B06E-9A2F6AD0D267}" threadingModel="Apartment" progid="VBCCR15.ListBoxW" />
      <comClass clsid="{5C236753-BC7D-4241-B7E7-2F29B1E71DDC}" tlbid="{43C88BE4-8BE0-4661-B06E-9A2F6AD0D267}" threadingModel="Apartment" progid="VBCCR15.LabelW" />
      <comClass clsid="{239341E1-91C5-46F5-882E-9CA50368ACC7}" tlbid="{43C88BE4-8BE0-4661-B06E-9A2F6AD0D267}" threadingModel="Apartment" progid="VBCCR15.IPAddress" />
      <comClass clsid="{821714A4-2026-4697-8078-EACB90B8B356}" tlbid="{43C88BE4-8BE0-4661-B06E-9A2F6AD0D267}" threadingModel="Apartment" />
      <comClass clsid="{C097F532-5FE5-4529-AB97-5DBD3C242BEC}" tlbid="{43C88BE4-8BE0-4661-B06E-9A2F6AD0D267}" threadingModel="Apartment" progid="VBCCR15.ImageList" />
      <comClass clsid="{43C6AF72-C75F-4ECD-A0CF-0721148706DB}" tlbid="{43C88BE4-8BE0-4661-B06E-9A2F6AD0D267}" threadingModel="Apartment" />
      <comClass clsid="{2DA0F5F4-8F66-41F5-8645-0807C7CE1FB9}" tlbid="{43C88BE4-8BE0-4661-B06E-9A2F6AD0D267}" threadingModel="Apartment" progid="VBCCR15.ImageCombo" />
      <comClass clsid="{C01DF71A-7F63-458E-8A01-49C96EF3D129}" tlbid="{43C88BE4-8BE0-4661-B06E-9A2F6AD0D267}" threadingModel="Apartment" />
      <comClass clsid="{9B22CD66-C4E8-4A70-B855-F204EA2AC72D}" tlbid="{43C88BE4-8BE0-4661-B06E-9A2F6AD0D267}" threadingModel="Apartment" progid="VBCCR15.HotKey" />
      <comClass clsid="{9C898EC1-C2C5-4FC8-B040-1025BB418BB8}" tlbid="{43C88BE4-8BE0-4661-B06E-9A2F6AD0D267}" threadingModel="Apartment" progid="VBCCR15.FrameW" />
      <comClass clsid="{D3C9D00B-678B-4B28-8634-06D3DC86F15C}" tlbid="{43C88BE4-8BE0-4661-B06E-9A2F6AD0D267}" threadingModel="Apartment" />
      <comClass clsid="{6F9DA411-AA81-45F5-951E-74D8706B5342}" tlbid="{43C88BE4-8BE0-4661-B06E-9A2F6AD0D267}" threadingModel="Apartment" progid="VBCCR15.DTPicker" />
      <comClass clsid="{9D12F268-087F-40E8-9BE5-E9095284F64F}" tlbid="{43C88BE4-8BE0-4661-B06E-9A2F6AD0D267}" threadingModel="Apartment" progid="VBCCR15.CoolBar" />
      <comClass clsid="{2A03B60A-901F-4F9B-A72F-8E58DB5A9CD0}" tlbid="{43C88BE4-8BE0-4661-B06E-9A2F6AD0D267}" threadingModel="Apartment" />
      <comClass clsid="{C32B7B56-2A0C-401E-9D4D-5DCF36F09877}" tlbid="{43C88BE4-8BE0-4661-B06E-9A2F6AD0D267}" threadingModel="Apartment" />
      <comClass clsid="{83DB24AF-04ED-4E5B-A81B-643E70D97A01}" tlbid="{43C88BE4-8BE0-4661-B06E-9A2F6AD0D267}" threadingModel="Apartment" progid="VBCCR15.CommandButtonW" />
      <comClass clsid="{80405A8D-E934-4F34-8478-986ED9D63120}" tlbid="{43C88BE4-8BE0-4661-B06E-9A2F6AD0D267}" threadingModel="Apartment" progid="VBCCR15.ComboBoxW" />
      <comClass clsid="{0AC94B6D-2CD7-48C3-97BE-9EE133CD4840}" tlbid="{43C88BE4-8BE0-4661-B06E-9A2F6AD0D267}" threadingModel="Apartment" progid="VBCCR15.CheckBoxW" />
      <comClass clsid="{D74FC1A3-A9F5-4750-956C-64E2B3A43668}" tlbid="{43C88BE4-8BE0-4661-B06E-9A2F6AD0D267}" threadingModel="Apartment" />
      <comClass clsid="{7109278C-28B0-4A26-8B77-2AEEAD70530A}" tlbid="{43C88BE4-8BE0-4661-B06E-9A2F6AD0D267}" threadingModel="Apartment" progid="VBCCR15.Animation" />
      <comClass clsid="{4C39C8D9-7305-4AC8-A71B-A7BAE7D2AD19}" tlbid="{43C88BE4-8BE0-4661-B06E-9A2F6AD0D267}" threadingModel="Apartment" progid="VBCCR15.LinkLabel" />
      <comClass clsid="{E8464747-E74C-4078-B20D-ACCC158B5A16}" tlbid="{43C88BE4-8BE0-4661-B06E-9A2F6AD0D267}" threadingModel="Apartment" />
      <comClass clsid="{51FAB9E3-ED18-47DE-9161-0D49722F491E}" tlbid="{43C88BE4-8BE0-4661-B06E-9A2F6AD0D267}" threadingModel="Apartment" progid="VBCCR15.CommandLink" />
      <comClass clsid="{35B03FFF-160B-4B49-AEF0-9C6C2DBED9E5}" tlbid="{43C88BE4-8BE0-4661-B06E-9A2F6AD0D267}" threadingModel="Apartment" />
   </file>
</assembly>
Миниатюры
Суррогат Progress Bar  
Вложения
Тип файла: rar VBCCR15.OCX.rar (1.50 Мб, 34 просмотров)
0
oh my god
 Аватар для fever brain
1456 / 796 / 161
Регистрация: 05.01.2016
Сообщений: 2,307
Записей в блоге: 8
08.04.2018, 16:57
Цитата Сообщение от MU-GK Посмотреть сообщение
Какое имя дать файлу с "манифестом"?
EXCEL.EXE.manifest

кстати, с манифестом кнопки гораздо симпатичнее смотрятся, активируются визуальные стили
Миниатюры
Суррогат Progress Bar  
Вложения
Тип файла: rar EXCEL.rar (2.3 Кб, 33 просмотров)
1
oh my god
 Аватар для fever brain
1456 / 796 / 161
Регистрация: 05.01.2016
Сообщений: 2,307
Записей в блоге: 8
08.04.2018, 17:02
у меня офис 2003 папка с программами C:\Program Files\Microsoft Office\OFFICE11

вот туда я и переместил, если у тебя офис 2007 то возможно папка будет такой: C:\Program Files\Microsoft Office\Office12
0
Супер-модератор
Эксперт функциональных языков программированияЭксперт Python
 Аватар для Catstail
38226 / 21158 / 4314
Регистрация: 12.02.2012
Сообщений: 34,773
Записей в блоге: 14
08.04.2018, 17:59
Цитата Сообщение от MU-GK Посмотреть сообщение
получение хэндлов и прочее, что начисто убивало сам смысл Паскаля вообще и Delphi в частности.
- хотите взаимодействовать с OS Windows - придется "получать хэндлы". Без этого никак. И Паскаль с Дельфи тут не при чем совершенно.
0
34 / 31 / 1
Регистрация: 06.01.2017
Сообщений: 300
08.04.2018, 20:12  [ТС]
Ну так можно было бы сделать нормальную оболочку.
Вынести в один или несколько модулей, только и всего.

Паскаль ведь и задумывался для того, чтобы инженер мог писать сложные программы, не заморачиваясь изучением системных тонкостей, мог сосредоточиться на сути - вычисление, ветвление алгоритмов, переходы и пр. Вместо этого предлагают, по сути, изучать Си и Ассемблер. Тогда проще просто писать на Си.
0
Супер-модератор
Эксперт функциональных языков программированияЭксперт Python
 Аватар для Catstail
38226 / 21158 / 4314
Регистрация: 12.02.2012
Сообщений: 34,773
Записей в блоге: 14
10.04.2018, 15:17
Цитата Сообщение от MU-GK Посмотреть сообщение
Паскаль ведь и задумывался для того, чтобы инженер мог писать сложные программы
- на самом деле Вирт придумал Паскаль только для обучения программированию.
0
34 / 31 / 1
Регистрация: 06.01.2017
Сообщений: 300
10.04.2018, 16:04  [ТС]
Ну в общем да, я знаю.
Но уж Delphi всегда прокламируется как супер-язык.

Он и вправду супер, но вот такие досадные недоработки обесценивают ...
0
Супер-модератор
Эксперт функциональных языков программированияЭксперт Python
 Аватар для Catstail
38226 / 21158 / 4314
Регистрация: 12.02.2012
Сообщений: 34,773
Записей в блоге: 14
11.04.2018, 06:49
Цитата Сообщение от MU-GK Посмотреть сообщение
Он и вправду супер, но вот такие досадные недоработки обесценивают ...
- опять-таки. Взаимодействие с конкретной ОС - не прерогатива языка. Язык может быть реализован в разных ОС.
0
34 / 31 / 1
Регистрация: 06.01.2017
Сообщений: 300
20.04.2018, 19:11  [ТС]
Нет-нет, не передергивайте.
Конкретно Delphi это под Windows.
Реализация в Linux называется Kylix.

А вставки на C и Assembler изображается в учебниках по Delphi.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
 20.04.2018, 19:11

Progress Bar
Вот. Нашел способ как сделать прогресс бар. Думаю будет интересно. -declarations section- Const NPB_TWOLINE% = 1 1 is for the...

Progress bar?
Доброе время суток! Подскажите, пожалуйста, что лучше использовать? Программа простая, к заданному значению прибавляется другое...

progress bar
Написала код для простенького web браузера вот код brouser.h #ifndef BROWSER_H #define BROWSER_H #include...

Progress Bar
Подскажите как сделать чтоб например я создал Progress Bar и один Button. И когда я нажимаю на Button Progress Bar не полностью проходил а...

Progress Bar
помогите плиз не могу понять почему мне подчёркует AnsiString Folder и другие . void FolderSize(AnsiString Folder,int...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
29
Ответ Создать тему
2 из 2 « 1 2
Новые блоги и статьи
Запустил конкурс "тем и промптов для текстовых квестов созданных почти чисто ИИ"
Adler 06.10.2026
Всем привет! За последние три-четыре дня я создал более 16 текстовых квестовых игр используя преимущественно по одному запросу к ИИ на игру. Мне так понравилось смотреть все ветки/ сцены во всех. . .
ИИ не может найти нужный язык в списке
Supersumestria 05.10.2026
Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .
Новая последняя моя музыка в SUNO
zorxor 05.10.2026
Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .
Программный домашний кинотеатр
russiannick 27.09.2026
Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .
Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого
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 и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Поддержать - Реклама - Условия использования - Обратная связь
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru