Как можно сделать масштабирование изображения на PictureBox?

@Yanik1987 · Регистрация: 07.04.2015

Студворк — интернет-сервис помощи студентам

Подскажите, как можно сделать масштабирование изображения на PictureBox. Нужен TrackBar, и в зависимости от движения вправо-влево, нужно увеличить-уменьшить изображение. Кто делал, помогите.

@Yury Komar · 19.05.2015, 11:18

Как вариант сглаживание правда не знаю как убрать

VB.NET
1
2
3
4
5
6
7
8
9
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim bm As New Bitmap(PB.Image, PB.Image.Width + 50, PB.Image.Height + 50)
        PB.Image = bm
    End Sub
 
    Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
        Dim bm As New Bitmap(PB.Image, PB.Image.Width - 50, PB.Image.Height - 50)
        PB.Image = bm
    End Sub

@Yanik1987 · 19.05.2015, 14:25 **[ТС]**

Вариант интересный, можно увеличить-уменьшить пропорционально если задать проценты
Dim bm As New Bitmap(PB.Image, PB.Image.Width + 50%, PB.Image.Height + 50%)
но как без потерь качества?

@Petr_S · 19.05.2015, 15:06

Yury Komar, у Вас картинка будет масштабироваться каждый раз, и каждый раз будет ухудшаться ее качество.

Можно сделать свой контрол на основе PictureBox или UserControl.

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
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
Public Class UC
    Inherits UserControl
 
    Private _Image As Image = Nothing
    Public Property Image As Image
        Get
            Return _Image
        End Get
        Set(ByVal value As Image)
            _Image = value
            Me.Refresh()
        End Set
    End Property
 
    Private _ImageScale As Integer = 100
    Public Property ImageScale As Integer
        Get
            Return _ImageScale
        End Get
        Set(ByVal value As Integer)
            _ImageScale = Math.Max(value, 1)
            Me.Refresh()
        End Set
    End Property
 
    Sub New()
        Me.SetStyle(ControlStyles.OptimizedDoubleBuffer, True)
        Me.SetStyle(ControlStyles.UserPaint, True)
        Me.SetStyle(ControlStyles.AllPaintingInWmPaint, True)
        Me.SetStyle(ControlStyles.SupportsTransparentBackColor, True)
        Me.SetStyle(ControlStyles.ResizeRedraw, True)
    End Sub
 
    Protected Overrides Sub OnPaint(ByVal e As System.Windows.Forms.PaintEventArgs)
        MyBase.OnPaint(e)
 
        If _Image Is Nothing Then Return
 
        Dim s As Double = Math.Min(Me.Width / _Image.Width, Me.Height / _Image.Height) * _ImageScale / 100
        Dim w As Double = _Image.Width * s
        Dim h As Double = _Image.Height * s
 
        e.Graphics.DrawImage(_Image, New RectangleF((Me.Width - w) / 2, (Me.Height - h) / 2, w, h))
    End Sub
End Class

@Yury Komar · 19.05.2015, 17:57

Yanik1987, как вариант можно не делать повторное масшиабирование, а вычислять конечный размер картинки после прокрутки и применять к вновь загруженному, например из файла или ресурсов и тогда качество не будет страдать при каждом изменении размера.

Добавлено через 3 минуты

VB.NET
1
2
Dim BM As New Bitmap(My.Resourses.КАРТИНКА, PB.Image.Width + 50%, PB.Image.Height + 50%)
PB.Image = BM

тоесть при каждой процедуре масшиабирования использовать оригинал изображения, но размеры брать из ранее измененного изображения.

@Yanik1987 · 19.05.2015, 20:56 **[ТС]**

Спасибо, только, не совсем понимаю как работает свой контролл. Может работающий исходник есть?

@Petr_S · 19.05.2015, 23:16

Сообщение от Yanik1987

не совсем понимаю как работает свой контролл

А что не получается?
Исходника нет.
1. Поместите на форму TrackBar с именем TrackBar1 и UC с именем Uc1
2. Код для Form1:

VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Uc1.BackColor = Color.LightGreen
        Uc1.Size = New Size(150, 150)
        Uc1.Image = Image.FromFile(путь_к_файлу)
 
        TrackBar1.Minimum = 1
        TrackBar1.Maximum = 300
        TrackBar1.Value = Uc1.ImageScale
    End Sub
 
    Private Sub TrackBar1_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TrackBar1.ValueChanged
        Uc1.ImageScale = TrackBar1.Value
    End Sub

@Yury Komar · 20.05.2015, 08:46

Yanik1987, Вот мой пример, очень простой и качество не хромает как в первом моем посте.
Происходит путем применения нового размера к ПЕРВОНАЧАЛЬНОМУ изображению избегая потери качества при каждом изменении содержимого PictureBox

Кликните здесь для просмотра всего текста

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
24
25
26
27
28
29
30
31
32
Dim Original As Image
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Try
            Dim BM As New Bitmap(Original, PB.Image.Width + 100%, PB.Image.Height + 100%)
            PB.Image = BM
        Catch ex As Exception
            Dim BM As New Bitmap(Original, Original.Width - 75%, Original.Height - 75%)
            PB.Image = BM
        End Try
 
    End Sub
 
    Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
        Try
            Dim BM As New Bitmap(Original, PB.Image.Width - 100%, PB.Image.Height - 100%)
            PB.Image = BM
        Catch ex As Exception
            PB.Image = Nothing
        End Try
    End Sub
 
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        CB.Items.Add("Палитра")
        CB.Items.Add("Диск в огне")
        CB.Text = "Палитра"
    End Sub
 
    Private Sub CB_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles CB.SelectedIndexChanged
        If CB.SelectedIndex = 0 Then PB.Image = My.Resources._1
        If CB.SelectedIndex = 1 Then PB.Image = My.Resources.burn_cd_512
        Original = PB.Image
    End Sub

@Yury Komar · 20.05.2015, 10:10

вот только пробовал убирать сглаживание таким образом, не получается, может кто знает в чем причина?

Мой пробы?

VB.NET
1
2
3
4
5
6
7
Public Sub УбратьСглаживание(Картинка As Bitmap)
        Dim G As Graphics = Graphics.FromImage(Картинка)
        G.SmoothingMode = System.Drawing.Drawing2D.SmoothingMode.None
        G.InterpolationMode = System.Drawing.Drawing2D.InterpolationMode.NearestNeighbor
        G.PixelOffsetMode = System.Drawing.Drawing2D.PixelOffsetMode.Half
        G.Dispose()
    End Sub

@Petr_S · 20.05.2015, 11:01

Сообщение от Yury Komar

убирать сглаживание таким образом, не получается

Таким образом ничего не будет убираться. Вы задаете режимы графического объекта. Т.е. Между 5й и 6й строками должно происходить рисование - G.DrawImage(...

Добавлено через 8 минут
Вставьте в код моего контрола, начиная с 43 строки:

VB.NET
1
2
3
        e.Graphics.SmoothingMode = System.Drawing.Drawing2D.SmoothingMode.None
        e.Graphics.InterpolationMode = System.Drawing.Drawing2D.InterpolationMode.NearestNeighbor
        e.Graphics.PixelOffsetMode = System.Drawing.Drawing2D.PixelOffsetMode.Half

И посмотрите, что будет.

@Yury Komar · 20.05.2015, 12:54

Petr_S, А как на моем примере это сделать?

@Yury Komar · 20.05.2015, 13:26

Petr_S, Yanik1987, без сторонних и доп контролов решил проблему:

Вот готовое решение:

Кликните здесь для просмотра всего текста

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
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
Public Class Form1
    Dim Original As Image
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Try
            Dim BM As New Bitmap(Original, PB.Image.Width + 100%, PB.Image.Height + 100%)
            PB.Image = BM
        Catch ex As Exception
        End Try
    End Sub
 
    Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
        Try
            Dim BM As New Bitmap(Original, PB.Image.Width - 100%, PB.Image.Height - 100%)
            PB.Image = BM
        Catch ex As Exception
        End Try
    End Sub
 
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        CB.Items.Add("Палитра")
        CB.Items.Add("Диск в огне")
        CB.Text = "Палитра"
    End Sub
 
    Private Sub CB_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles CB.SelectedIndexChanged
        If CB.SelectedIndex = 0 Then PB.Image = My.Resources._1
        If CB.SelectedIndex = 1 Then PB.Image = My.Resources.burn_cd_512
        Original = PB.Image
    End Sub
 
    Private Sub PB_Paint(sender As System.Object, e As System.Windows.Forms.PaintEventArgs) Handles PB.Paint
        'Убрать Сглаживание
        e.Graphics.SmoothingMode = System.Drawing.Drawing2D.SmoothingMode.None
        e.Graphics.InterpolationMode = System.Drawing.Drawing2D.InterpolationMode.NearestNeighbor
        e.Graphics.PixelOffsetMode = System.Drawing.Drawing2D.PixelOffsetMode.Half
        e.Graphics.DrawImage(Original, New RectangleF((sender.Width - sender.image.width) / 2, (sender.Height - sender.image.height) / 2, sender.image.width, sender.image.height))
    End Sub
End Class

@Petr_S · 20.05.2015, 19:37

Yury Komar, у меня картинка, при масштабе меньше 100%, двоится (см. скриншот). Двоится потому, что сначала PictureBox отрисовывает, что у него в свойстве Image, а потом происходит отрисовка отмасштабированной картинки в Sub PB_Paint.

Решение без двоения.

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
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
Public Class Form1
    Dim ImageScale As Integer = 100
    Dim Image As Image
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        ImageScale += 10
        PB.Refresh()
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        ImageScale = Math.Max(ImageScale - 10, 0)
        PB.Refresh()
    End Sub
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        CB.Items.Add("Палитра")
        CB.Items.Add("Диск в огне")
        CB.Text = "Палитра"
    End Sub
 
    Private Sub CB_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CB.SelectedIndexChanged
        Select Case CB.SelectedItem.ToString
            Case "Палитра"
                Image = My.Resources._1
 
            Case Else '"Диск в огне"
                Image = My.Resources.burn_cd_512
 
        End Select
 
        ImageScale = 100
 
        PB.Refresh()
    End Sub
 
    Private Sub PB_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles PB.Paint
        If Image Is Nothing Or ImageScale <= 0 Then Return
 
        Dim w As Double = Image.Width * ImageScale / 100
        Dim h As Double = Image.Height * ImageScale / 100
 
        e.Graphics.SmoothingMode = System.Drawing.Drawing2D.SmoothingMode.None
        e.Graphics.InterpolationMode = System.Drawing.Drawing2D.InterpolationMode.NearestNeighbor
        e.Graphics.PixelOffsetMode = System.Drawing.Drawing2D.PixelOffsetMode.Half
 
        e.Graphics.DrawImage(Image, New RectangleF((PB.Width - w) / 2, (PB.Height - h) / 2, w, h))
    End Sub
End Class

@Yanik1987 · 20.05.2015, 20:40 **[ТС]**

Yury Komar, не понимаю, почему при масштабировании у меня картинка меняет размеры не пропорционально. В чем проблема?
Код:

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
24
25
26
27
28
29
30
31
32
33
34
    Dim d_OD As New OpenFileDialog
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If d_OD.ShowDialog = Windows.Forms.DialogResult.OK Then
            PictureBox1.Image = Image.FromFile(d_OD.FileName)
            PictureBox1.SizeMode = PictureBoxSizeMode.CenterImage
        End If
        Original = PictureBox1.Image
    End Sub
 
    Dim I As Integer
    Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal g As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.Click
        Dim TB As New TextBox With {.Left = 1000, .Top = I * 20 + 15, .Parent = Me, .Width = 50, .Text = g.X.ToString & ", " & g.Y.ToString}
        I += 1
    End Sub
 
    Dim Original As Image
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Try
            Dim BM As New Bitmap(Original, PictureBox1.Image.Width + 100%, PictureBox1.Image.Height + 100%)
            PictureBox1.Image = BM
        Catch ex As Exception
            Dim BM As New Bitmap(Original, Original.Width - 50%, Original.Height - 50%)
            PictureBox1.Image = BM
        End Try
    End Sub
 
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click, Button3.SizeChanged
        Try
            Dim BM As New Bitmap(Original, PictureBox1.Image.Width - 50%, PictureBox1.Image.Height - 50%)
            PictureBox1.Image = BM
        Catch ex As Exception
            PictureBox1.Image = Nothing
        End Try
    End Sub

@Yury Komar · 21.05.2015, 06:12

Yanik1987, потому что изображение не квадратное берете...

для ширины прибавляй например 100, а для высоты половинный размер, тоесть 50..

Добавлено через 2 часа 34 минуты
Ну и окончательное решение, это отказ от кнопок и производить увеличение при помощи прокрутки колёсика мышки

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
24
25
26
    Private Sub PB_MouseMove(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles PB.MouseMove
        PB.Focus() 'Установить фокус на изображение для возможности чтения положения колесика мышки
    End Sub
 
    Private Sub PB_MouseWheel(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles PB.MouseWheel
        If e.Delta > 0 Then 'Прокрутка колесика вверх
            ImageScale += 50
            PB.Refresh()
        Else 'Прокрутка колесика вниз
            ImageScale = Math.Max(ImageScale - 50, 10)
            PB.Refresh()
        End If
    End Sub
 
    Private Sub PB_Paint(sender As System.Object, e As System.Windows.Forms.PaintEventArgs) Handles PB.Paint
        If Image Is Nothing Or ImageScale <= 0 Then Return
 
        'Вычисление нового размера изображения
        Dim w As Double = Image.Width * ImageScale / 100 : Dim h As Double = Image.Height * ImageScale / 100
 
        'Убираем сглаживание изображения
        e.Graphics.InterpolationMode = System.Drawing.Drawing2D.InterpolationMode.NearestNeighbor
 
        'Рисуем изображение с новым размером
        e.Graphics.DrawImage(Image, New RectangleF((PB.Width - w) / 2, (PB.Height - h) / 2, w, h))
    End Sub

@Petr_S · 21.05.2015, 23:43

Сообщение от Yury Komar

VB.NET
1
2
3
 Private Sub PB_MouseMove(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles PB.MouseMove
 PB.Focus() 'Установить фокус на изображение для возможности чтения положения колесика мышки
 End Sub

Yury Komar, у Вас при любом перемещении мыши (хоть на 1 пиксель) по PictureBox будет постоянно вызываться метод PB.Focus()
Лучше заменить на:

VB.NET
1
2
3
    Private Sub PB_MouseEnter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PB.MouseEnter
        PB.Focus() 'Установить фокус на изображение для возможности чтения положения колесика мышки
    End Sub

Мышь вошла в видимую часть PictureBox -> один раз установили фокус.

@Yury Komar · 22.05.2015, 01:34

Petr_S, согласен, так будет лучше...

@Vifly · 23.05.2015, 12:43

Такой вопрос, как сделать так чтобы при масштабировании изображения кнопки которые находятся собственно на нём не изменяли своё положение, то есть, я хочу сделать что-то вроде инструмента Лупа? Буду благодарен!

Добавлено через 1 час 59 минут
Точнее дело в том, что сам ПБ изменяет свои размеры, а кнопки остаются на старых координатах и уже не подходят под новые размеры ПБ, на сколько надо сдвигать кнопки?

@Yury Komar · 23.05.2015, 15:15

Vifly, куда сдвигать? Пооожение кнопок можешь настроить в их свойстве Anchor...

@Vifly · 23.05.2015, 15:19

Получается я делаю приложение-карту, на карте расположено множество кнопок - они выполняют роль иконок зданий, как бы я наношу условные обозначения, так вот, после увеличения/уменьшения ПБ кнопки разумеется остаются на своём старом расположении, что меня не устраивает, на карте они уже в неправильном месте находятся и мне надо подогнать расположение этих самых кнопок под новый размер ПБ, чтобы опять всё было на своём месте. Я буду нереально благодарен вам, если поможете, мучаюсь уже довольно-таки долго

Новые блоги и статьи Все статьи Все блоги /
Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .	Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .
Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .	Фото: Daniel Greenwood kumehtar 13.11.2025	Расскажи мне о Мире, бродяга kumehtar 12.11.2025 — Расскажи мне о Мире, бродяга, Ты же видел моря и метели. Как сменялись короны и стяги, Как эпохи стрелою летели. - Этот мир — это крылья и горы, Снег и пламя, любовь и тревоги, И бескрайние. . .

@Yanik1987 6 / 6 / 3 Регистрация: 07.04.2015 Сообщений: 123

	Как можно сделать масштабирование изображения на PictureBox? 18.05.2015, 17:51. Показов 14009. Ответов 39 Метки нет (Все метки) Подскажите, как можно сделать масштабирование изображения на PictureBox. Нужен TrackBar, и в зависимости от движения вправо-влево, нужно увеличить-уменьшить изображение. Кто делал, помогите. 0

@Yanik1987 6 / 6 / 3 Регистрация: 07.04.2015 Сообщений: 123
	19.05.2015, 14:25 [ТС]
	Вариант интересный, можно увеличить-уменьшить пропорционально если задать проценты Dim bm As New Bitmap(PB.Image, PB.Image.Width + 50%, PB.Image.Height + 50%) но как без потерь качества? 1

@Yanik1987 6 / 6 / 3 Регистрация: 07.04.2015 Сообщений: 123
	19.05.2015, 20:56 [ТС]
	Спасибо, только, не совсем понимаю как работает свой контролл. Может работающий исходник есть? 1

@Yury Komar Модератор 4356 / 3426 / 512 Регистрация: 27.01.2014 Сообщений: 6,257
	20.05.2015, 12:54
	Petr_S, А как на моем примере это сделать? 0

@Yury Komar Модератор 4356 / 3426 / 512 Регистрация: 27.01.2014 Сообщений: 6,257
	22.05.2015, 01:34
	Petr_S, согласен, так будет лучше... 0

@Vifly 0 / -3 / 1 Регистрация: 22.05.2015 Сообщений: 88
	23.05.2015, 12:43
	Такой вопрос, как сделать так чтобы при масштабировании изображения кнопки которые находятся собственно на нём не изменяли своё положение, то есть, я хочу сделать что-то вроде инструмента Лупа? Буду благодарен! Добавлено через 1 час 59 минут Точнее дело в том, что сам ПБ изменяет свои размеры, а кнопки остаются на старых координатах и уже не подходят под новые размеры ПБ, на сколько надо сдвигать кнопки? 0

@Yury Komar Модератор 4356 / 3426 / 512 Регистрация: 27.01.2014 Сообщений: 6,257
	23.05.2015, 15:15
	Vifly, куда сдвигать? Пооожение кнопок можешь настроить в их свойстве Anchor... 0

@Vifly 0 / -3 / 1 Регистрация: 22.05.2015 Сообщений: 88
	23.05.2015, 15:19
	Получается я делаю приложение-карту, на карте расположено множество кнопок - они выполняют роль иконок зданий, как бы я наношу условные обозначения, так вот, после увеличения/уменьшения ПБ кнопки разумеется остаются на своём старом расположении, что меня не устраивает, на карте они уже в неправильном месте находятся и мне надо подогнать расположение этих самых кнопок под новый размер ПБ, чтобы опять всё было на своём месте. Я буду нереально благодарен вам, если поможете, мучаюсь уже довольно-таки долго 0