Как использовать ProgressBar? - Visual Basic .NET

  1. Помогите с прогресс баром. Вот что надо сделать: 1.Запускается таймер интервалом 1 мин. 2.После истечения интервала он добавляет в ProgressBar 60 процентов и запускает 2 таймер. 3. 2-таймер 2 минуты работает и после истечения этого времени добавляет 40 процентов в бар. 4.После заполнения прогресс бара выводится msgbox с текстом "ProgressBar заполнен" Поможете-подкормлю плюшкой и лучшим ответом


textual

Код:

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.Timer1.Interval = 60000
        Me.Timer1.Start()
    End Sub
 
    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        Select Case Me.ProgressBar1.Value
            Case 0
                Me.Timer1.Interval = Me.Timer1.Interval * 2
                Me.ProgressBar1.Value = 60
            Case 60
                Me.ProgressBar1.Value = Me.ProgressBar1.Value + 40
                Me.Timer1.Dispose()
MsgBox("ProgressBar заполнен")
End Select
    End Sub


Похожие ответы
  1. Только начинаю осваивать VB, метод тыка и загугливания не помог..хочу сохранить конечное положение перемещаемых объектов но не могу врубиться как использовать My.Settings для сохранения т.к ни разу не видел как оно должно выглядеть\происходить: -при отладке программы в VB перемещенный объект ,после завершения отладки , и на конструкторе формы должен занять новое положение? - или позиции сохраняются только в скомпилированной версии? -Сохранение происходит автоматический или требуется командная кнопка?( и с загрузкой тоже самое) Извините за явно глупые вопросы но, мог бы кто нибудь помочь и скинуть какой нибудь примерчик с реализованным примером... Ну вобще никак въехать не могу... или ссылку откуда такой можно скачать.

  1. Доброго времени. Хочу, чтобы программка работала на компьютерах , на которых microsoft.oficce.interop.excel библиотека отсутствует. Импорты убрал, всем переменным поставил тип object. Осталась одна нерешенная проблема. Не могу использовать перечисления (enumeration). Не знаю, с какой стороны к ним подступиться. Допустим, вот такой код, определяющий номер последней строки (без объявлений, вроде и так все понятно):vb.net1 2 3 4 5 6         Excel = CreateObject("Excel.Application")         Excel.DisplayAlerts = False         WorkBook = Excel.Workbooks.Open(Files)         ExSheet = WorkBook.ActiveSheet           Dim laststring As Integer = ExSheet.Cells(Excel.Rows.Count, 1).End(Excel.XlDirection.xlUp).RowРугается на Excel.XlDirection - говорит, нет такого для класса Application Ну, и соответственно, вот в такой строке ругается на XLCellType с тем же диагнозом.vb.net1        ExSheet.Cells.SpecialCells(Excel.XlCellType.xlCellTypeLastCell).RowКак их правильно задействовать?

  1. Доброго времени! Вопрос теоретический - зачем нужен оператор New? Грамотно ли его использовать в блоке объявлений? Чем по сути отличаются эти две записи:vb.net1 2     Public L_L As New List(Of Long())     Public L_L As List(Of Long())Я посмотрел МСДН, и знаю, что этот оператор создает новый экземпляр класса, но как это работает - не совсем понимаю. Чем новый экземпляр отличается от обычного объявления?

  1. Здравствуйте, подскажите кодом, хочу залить на сервер txt файл с одним словом в XOR кодировке, программа должна получить это слово с сервера и раскодировать для работы в программе

  1. Всем привет. Появилась такая проблема: Нужно получить дату через интернет и вставить в сравнение дат. Если я делаю так:vb.net1 2 3 4 5 6 7 Dim dater As New WebClient Dim dated As Date '(пробовал еще long и string) dated = dater.DownloadString(New Uri("http://ru*****.com/" & Form1.TextBox1.Text & "/date.php"))   Dim D1 As Date D1 = Date.Now Label2.Text = "Осталось " & DateDiff(DateInterval.Day, D1, dated) & " дней"То программа вообще перестает дальше выполнять код, но не завершается. А если сделатьvb.net1 2 Dim D2 as Date D2 = #11/21/2015#и заменить вместо "dated" в результате, То ошибки уже не будет. Как получить эту дату через веб страницу?

  1. Привет! Ребят, помогите разобраться в чем загвоздка. Создал простенькую dll и хотел ее попробовать использовать, не получилось. Проблема в том, что процедура из dll не видна. Код dllvb.net1 2 3 4 5 6 7 8 9 10 11 Public Class MainClass       Class SubClass1         Sub ShowMessageBox(ByVal title As String, ByVal text As String)             MsgBox(text, MsgBoxStyle.Information, title)        End Sub       End Class   End Class Код формыvb.net1 2 3 4 5 6 7 8 Imports MyDLL.MainClass Public Class Form1       Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click         SubClass1.' SubClass1 нормально виден, дальше после точки ничего из подсказок не выскакивает.     End Sub   End ClassПробовал в dll делать класс и процедуру Public, тоже не помогло. Что не так?

  1. Всем привет! На картинку хотел наложить водяной знак в виде текста, всё работает, кроме одного. Пытался выбрать шрифт и не получилось, за место Minion Pro выводится дефолтный шрифт, похожий на Arial. Вот так пытался выбрать шрифт(название и размер шрифта):vb.net1 Dim stringFont As New Font("Minion Pro", 15)В чем загвоздка?

  1. Нужно каким то образом вызвать окно проводника что бы пользователь указывал место нахождение нужного файла и что бы его полное имя(включая расширение) указывалось в textbox после того как он его выбрал. Может кто чем помочь?

  1. Не по теме: "Как незаметно день за днем год пролетает Вот уж и март за февралем скоро растает Будто вчера мела пурга выли метели А на полях уже снега вдруг потемнели" А. Суханов Всё знающие форумчане, будьте добры-подскажите! Необходимо в отчете использовать значение переменной. Переменная глобальная, прописана в модуле. Создаю отчет, на него цепляю текстовое поле- а дальше....? Свойство -выражение - переменные - .... (пусто, прописываю в наглую- ругается, говорит что я баран- обидно,да)

  1. Здравствуйте. Помогите в решении проблемы! Дело в том, что мне необходимо, чтобы моя программа упаковывала не только сама себя, но и мою программу для проверки Microsoft .NET Framework 4.0, а так же базу данных в SFX архив. Возможно при создании SFX архива в программе WinRar запускается отдельная библиотека, которая и позволяет создавать самораспаковывающийся архив. Может кто-то встречался с возможностью создания программным путем, без таскания за собой WinRar, такого архива? Есть ли что-то другое для решения моей проблемы? В моем случае разницы нет, что использовать SFX или что-то подобное. Главное все программно упаковать, а потом, на другом компе после распаковки запустить первой программу проверки наличия Microsoft .NET Framework 4.0!