Форум программистов, компьютерный форум, киберфорум
Наши страницы
Visual Basic .NET
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Visual Basic .NET Как перезапустить приложение (рестарт)? https://www.cyberforum.ru/vb-net/thread343179.html
Подскажите пожалуйста как перезапустить приложение?
Почти прозрачная форма с непрозрачными на ней элементами управления Visual Basic .NET
Здравствуйте. Подскажите можно ли в VS сделать полностью прозрачную форму, такую как на изображении? Я думаю что средствами VB такого не сделать.
Как узнать внешний IP другого компьютера Visual Basic .NET
Здравствуйте всем! Если сможете - помогите, пожалуйста. Как можно узнать IP адрес другого компьютера? Причем этот IP высылался мне на мою электронную почту или в отдельный текстовый документ на...
Visual Basic .NET Как сделать поиск определенного слова по базе и вывести все данные в TextBox? Как сделать поиск определенного слова (допустим возьмем из текстбокса) по базе и вывести все данные в текстбокс. Т.е. если ищем слово "Москва", то нам приходят данные со всей строки где есть "Москва" https://www.cyberforum.ru/vb-net/thread342988.html
Visual Basic .NET Хранение в БД графических файлов https://www.cyberforum.ru/vb-net/thread342987.html
В ячейках Access можно хранить несколько картинок(файлов) в одной ячейке. Вопрос - как мне вытащить нужную(к примеру 2-ую картинку из 3 строки 2 столбца) ? И как мне вывести картинку к примеру в...
Visual Basic .NET Работа с INI-файлами
Какими средствами и как можно работать с ини файлами?
Visual Basic .NET Как считать из БД несколько ячеек сразу?
Как мне считать(ну и вывести к примеру в текстбокс) информацию из 5 строки или, например, 3 столбца полностью все ячейки
Visual Basic .NET Работа с базой данных Access: Считать информацию с определенной ячейки Я прочитал все разделы Лукина о БД... и не понял. Ничего не понял, как то оно все расплывчато (я ничего не курил, правда:D) Вообщем я так и не понял как работать с БД. Все что я освоил и уяснил это... https://www.cyberforum.ru/vb-net/thread342971.html
Visual Basic .NET Сворачивание формы без бордюра по клике на ее иконку в панели задач https://www.cyberforum.ru/vb-net/thread342940.html
Здравствуйте, подскажите как сворачивать форму по клику по иконке на панели задач, если моя форма Me.FormBorderStyle = Windows.Forms.FormBorderStyle.None так как сейчас по нажатию на иконку на...
Visual Basic .NET Две пары горячих клавиш в неактивном приложении в Этой теме обсуждалось как сделать горячие клавиши для приложения. Получилось в итоге, но получилось лишь с одной парой. А вот как сделать чтобы приожение не имело фокус и можно было бы одной... https://www.cyberforum.ru/vb-net/thread342909.html
Yury Komar
Модератор
Эксперт .NET
2956 / 2681 / 431
Регистрация: 27.01.2014
Сообщений: 4,952
11.05.2019, 04:59 0

Visual Basic .NET FAQ. Готовые решения, полезные коды

11.05.2019, 04:59. Просмотров 338324. Ответов 211
Метки (Все метки)

Ответ

Круговой ProgressBar (Circle ProgressBar)

На просторах нашел код отрисовки кругового прогресс бара.
С ним можно сделать отображение прогресса более современным.

vb.net
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Private Sub DrawProgress(g As Graphics, rect As Rectangle, percentage As Single)
    'work out the angles for each arc
    Dim progressAngle = CSng(360 / 100 * percentage)
    Dim remainderAngle = 360 - progressAngle
 
    'create pens to use for the arcs
    Using progressPen As New Pen(Color.LightSeaGreen, 2), remainderPen As New Pen(Color.LightGray, 2)
        'set the smoothing to high quality for better output
        g.SmoothingMode = Drawing2D.SmoothingMode.AntiAlias
        'draw the blue and white arcs
        g.DrawArc(progressPen, rect, -90, progressAngle)
        g.DrawArc(remainderPen, rect, progressAngle - 90, remainderAngle)
    End Using
 
    'draw the text in the centre by working out how big it is and adjusting the co-ordinates accordingly
    Using fnt As New Font(Me.Font.FontFamily, 14)
        Dim text As String = percentage.ToString + "%"
        Dim textSize = g.MeasureString(text, fnt)
        Dim textPoint As New Point(CInt(rect.Left + (rect.Width / 2) - (textSize.Width / 2)), CInt(rect.Top + (rect.Height / 2) - (textSize.Height / 2)))
        'now we have all the values draw the text
        g.DrawString(text, fnt, Brushes.Black, textPoint)
    End Using
End Sub

Использование
vb.net
1
2
3
4
5
Private Sub Form1_Paint(sender As Object, e As PaintEventArgs) Handles Me.Paint
    DrawProgress(e.Graphics, New Rectangle(5, 5, 60, 60), 40)
    DrawProgress(e.Graphics, New Rectangle(80, 5, 60, 60), 80)
    DrawProgress(e.Graphics, New Rectangle(155, 5, 60, 60), 57)
End Sub


Вернуться к обсуждению:
Visual Basic .NET FAQ. Готовые решения, полезные коды
10
Изображения
 
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
11.05.2019, 04:59

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Хорошие учебники по Visual Basic Net
Подскажите пожалуйста хорошие учебники по visual basic net,спасибо

Аналог TStringList в Visual Basic.NET
Здравствуйте все! Помогите разобраться мне надо строки в текстовом файле сохранять в виде списка...

Литература и ресурсы по Visual Basic .NET
Литература по Visual Basic.NET 1. Виктор Зиборов "Visual Basic 2010 на примерах" Издательство:...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.