Прогресс Бар Расчет процентов - PullRequest
Новая
       16

Прогресс Бар Расчет процентов

0 голосов
/ 29 марта 2019

Я новичок в VB6 и работаю над кодом для бизнеса (аукцион крупного рогатого скота).Они хотят, чтобы прогресс показывал на их главной странице процент, оставшийся в продаже.индикатор выполнения будет основан на (Общая оставшаяся / проверенная общая)

Я пытался найти информацию о том, как сделать эту работу на старых форумах и на Youtube, но так как VB6 настолько стар, я ненайти полезную информацию.

Все видео, которые я смотрел, и форумы, которые я прочитал, показывают, что индикатор выполнения движется в зависимости от таймера или кнопки.Мне нужно, чтобы он двигался на основе другой введенной информации (если это имеет смысл).

1 Ответ

0 голосов
/ 30 марта 2019

Документация VB6 ProgressBar находится здесь: https://docs.microsoft.com/en-us/previous-versions/visualstudio/visual-basic-6/aa443485(v%3dvs.60)

ProgressBar находится в библиотеке общих элементов управления, поэтому вам нужно выбрать Microsoft Windows Common Controls 6.0 в списке компонентов панели инструментов, прежде чем он будет доступен на панели инструментов.

Я предпочитаю устанавливать свойство прокрутки для плавной прокрутки.

Использовать его просто, самый простой пример с вашими описаниями может иметь текстовое поле HeadsToSell, кнопку StartAuction и кнопку CowSold. Нажатие кнопки StartAuction устанавливает для свойства ProgressBar Max количество головок, затем для каждой проданной головки нажатие кнопки CowSold уменьшает число доступных головок и обновляет значение ProgressBar. 

Option Explicit

Private CurrentHeadCound As Integer

Private Sub CowSold_Click()
  CurrentHeadCound = CurrentHeadCound - 1
  ProgressBar1.Value = CurrentHeadCound
End Sub

Private Sub StartAuction_Click()

  ProgressBar1.Max = HeadsToSell.Text
  ProgressBar1.Value = ProgressBar1.Max
  CurrentHeadCound = ProgressBar1.Max

End Sub
...