События при нажатии и отпуска левой кнопки мыши

@andrsh · Регистрация: 01.08.2016

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

пытаюсь создать свою кнопку какой-то другой формы. Сделал для начала в виде элипса. Пока только в классе формы обкатываю. форму элипса сделал, градиентом залил. При нажатии кнопка должна менять заливку. При отпускании опять возвращаться в исходное состояние. При нажатии правой и центральной кнопки мыши градиент изменяется как надо. При работе с левой кнопкой ерунда какая то получается. Может кто чего подскажет дельное?? приложение выкладываю. Там много закоменнтированных кодов это я экспериментировал. И еще нет кстати так любой контрол можно любой формы сделать. нет еще анимации как у настоящей кнопки то есть видимость нажатия. что можно сделать?

@January29 · 07.08.2022, 22:51

он у вас на .NET 6 что ли

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

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

События при нажатии и отпуска левой кнопки мыши

ну как пример

VB.NET
1
2
3
4
5
6
7
8
9
10
11
Private Sub Button1_MouseDown(sender As Object, e As MouseEventArgs) Handles Button1.MouseDown
    If e.Button = MouseButtons.Left Then ' Если нажата левая кнопка
        Label1.Text = "нажата левая кнопка мыши"
    End If
End Sub
 
Private Sub Button1_MouseUp(sender As Object, e As MouseEventArgs) Handles Button1.MouseUp
    If e.Button = MouseButtons.Left Then ' Если отпустили левую кнопку
        Label1.Text = "отпустили левую кнопку мыши"
    End If
End Sub

@andrsh · 07.08.2022, 22:59 **[ТС]**

January29, ну да. ниже 5 не ставится. как винд переустановил вместе с студией

Добавлено через 1 минуту
January29, сейчас попробую хотя правая и центральные кнопки работают нормально

Добавлено через 3 минуты
промигивает что-то но не то. Когда при моих кодах правой и центральной держишь то и цвет держится а когда отпускаешь то возвращается в норму. Левой же нет промаргивает и все.

Добавлено через 2 минуты
Вот кодоблудие мое:

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
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
[SPOILER]Imports System.Drawing
Imports System.Drawing.Drawing2D
Imports System.Windows.Forms
Public Class Form1
    Dim Brs1 As PathGradientBrush
    Dim rec As Rectangle
    Dim pat As GraphicsPath
    Dim patel As GraphicsPath
    Dim col1 As Color()
    Dim BTgr1, BTgr2 As Graphics
    Private Sub BTT2_Paint(sender As Object, e As PaintEventArgs) Handles BT.Paint
        rec = New Rectangle(10, 10, 380, 180)
        pat = New GraphicsPath
        pat.AddEllipse(rec)
        BT.Region = New Region(pat)
        Brs1 = New PathGradientBrush(pat)
        Brs1.CenterPoint = New PointF(BT.Width / 2, BT.Height / 2)
        Brs1.CenterColor = Color.Gold
        col1 = New Color() {Color.FromArgb(55, 0, 0)}
        Brs1.SurroundColors = col1
        Brs1.FocusScales = New PointF(0.5, 0.5)
        Brs1.SetSigmaBellShape(0.4, 0.9)
        e.Graphics.FillRectangle(Brs1, rec)
    End Sub
 
    'Private Sub BT_MouseMove(sender As Object, e As MouseEventArgs) Handles BT.MouseMove
    '    BTgr = BT.CreateGraphics
    '    Brs1 = New PathGradientBrush(pat)
    '    Brs1.CenterPoint = New PointF(BT.Width / 2, BT.Height / 2)
    '    Brs1.CenterColor = Color.Aqua
    '    col1 = New Color() {Color.FromArgb(100, 0, 0)}
    '    Brs1.SurroundColors = col1
    '    Brs1.FocusScales = New PointF(0.5, 0.5)
    '    Brs1.SetSigmaBellShape(0.4, 0.9)
    '    BTgr.FillRectangle(Brs1, rec)
    'End Sub
 
    Private Sub BT_MouseUp(ByVal sender As Object, ByVal e As MouseEventArgs) Handles BT.MouseUp
        'BTgr = BT.CreateGraphics
        'Brs1 = New PathGradientBrush(pat)
        'Brs1.CenterPoint = New PointF(BT.Width / 2, BT.Height / 2)
        'Brs1.CenterColor = Color.Aqua
        'col1 = New Color() {Color.FromArgb(100, 0, 0)}
        'Brs1.SurroundColors = col1
        'Brs1.FocusScales = New PointF(0.5, 0.5)
        'Brs1.SetSigmaBellShape(0.4, 0.9)
        'BTgr.FillRectangle(Brs1, rec)
 
        BTgr2 = BT.CreateGraphics
        Brs1 = New PathGradientBrush(pat)
        Brs1.CenterPoint = New PointF(BT.Width / 2, BT.Height / 2)
        Brs1.CenterColor = Color.Gold
        col1 = New Color() {Color.FromArgb(55, 0, 0)}
        Brs1.SurroundColors = col1
        Brs1.FocusScales = New PointF(0.5, 0.5)
        Brs1.SetSigmaBellShape(0.4, 0.9)
        BTgr2.FillRectangle(Brs1, rec)
    End Sub
 
    Private Sub BT_MouseDown(ByVal sender As Object, ByVal e As MouseEventArgs) Handles BT.MouseDown
        'BTgr = BT.CreateGraphics
        'Brs1 = New PathGradientBrush(pat)
        'Brs1.CenterPoint = New PointF(BT.Width / 2, BT.Height / 2)
        'Brs1.CenterColor = Color.Gold
        'col1 = New Color() {Color.FromArgb(55, 0, 0)}
        'Brs1.SurroundColors = col1
        'Brs1.FocusScales = New PointF(0.5, 0.5)
        'Brs1.SetSigmaBellShape(0.4, 0.9)
        'BTgr.FillRectangle(Brs1, rec)
 
        If e.Button = MouseButtons.Left Then
            BTgr1 = BT.CreateGraphics
            Brs1 = New PathGradientBrush(pat)
            Brs1.CenterPoint = New PointF(BT.Width / 2, BT.Height / 2)
            Brs1.CenterColor = Color.Blue
            col1 = New Color() {Color.FromArgb(255, 0, 255, 255)}
            Brs1.SurroundColors = col1
            'Brs1.FocusScales = New PointF(0.1, 0.1)
            'Brs1.SetSigmaBellShape(0.9, 0.9)
            BTgr1.FillRectangle(Brs1, rec)
        End If
    End Sub
 
    'Private Sub BT_MouseWheel(sender As Object, e As MouseEventArgs) Handles BT.MouseWheel
    '    BTgr = BT.CreateGraphics
    '    Brs1 = New PathGradientBrush(pat)
    '    Brs1.CenterPoint = New PointF(BT.Width / 2, BT.Height / 2)
    '    Brs1.CenterColor = Color.Blue
    '    col1 = New Color() {Color.FromArgb(100, 0, 0)}
    '    Brs1.SurroundColors = col1
    '    Brs1.FocusScales = New PointF(0.5, 0.5)
    '    Brs1.SetSigmaBellShape(0.4, 0.9)
    '    BTgr.FillRectangle(Brs1, rec)
    'End Sub
 
    'Private Sub BT_MouseHover(sender As Object, e As EventArgs) Handles BT.MouseHover
    '    BTgr = BT.CreateGraphics
    '    Brs1 = New PathGradientBrush(pat)
    '    Brs1.CenterPoint = New PointF(BT.Width / 2, BT.Height / 2)
    '    Brs1.CenterColor = Color.Blue
    '    col1 = New Color() {Color.FromArgb(100, 0, 0)}
    '    Brs1.SurroundColors = col1
    '    Brs1.FocusScales = New PointF(0.5, 0.5)
    '    Brs1.SetSigmaBellShape(0.4, 0.9)
    '    BTgr.FillRectangle(Brs1, rec)
    'End Sub
 
    'Private Sub BT_MouseEnter(sender As Object, e As EventArgs) Handles BT.MouseEnter
    '    BTgr = BT.CreateGraphics
    '    Brs1 = New PathGradientBrush(pat)
    '    Brs1.CenterPoint = New PointF(BT.Width / 2, BT.Height / 2)
    '    Brs1.CenterColor = Color.Aqua
    '    col1 = New Color() {Color.FromArgb(100, 0, 0)}
    '    Brs1.SurroundColors = col1
    '    Brs1.FocusScales = New PointF(0.5, 0.5)
    '    Brs1.SetSigmaBellShape(0.4, 0.9)
    '    BTgr.FillRectangle(Brs1, rec)
    'End Sub
 
    'Private Sub BT_KeyDown(sender As Object, e As KeyEventArgs) Handles BT.KeyDown
 
    '    BTgr1 = BT.CreateGraphics
    '    Brs1 = New PathGradientBrush(pat)
    '    Brs1.CenterPoint = New PointF(BT.Width / 2, BT.Height / 2)
    '    Brs1.CenterColor = Color.Aqua
    '    col1 = New Color() {Color.FromArgb(100, 0, 0)}
    '    Brs1.SurroundColors = col1
    '    Brs1.FocusScales = New PointF(0.5, 0.5)
    '    Brs1.SetSigmaBellShape(0.4, 0.9)
    '    BTgr1.FillRectangle(Brs1, rec)
    'End Sub
 
    '    Private Sub BT_Click(sender As Object, e As EventArgs) Handles BT.Click
    '        BTgr = BT.CreateGraphics
    '        Brs1 = New PathGradientBrush(pat)
    '        Brs1.CenterPoint = New PointF(BT.Width / 2, BT.Height / 2)
    '        Brs1.CenterColor = Color.Aqua
    '        col1 = New Color() {Color.FromArgb(100, 0, 0)}
    '        Brs1.SurroundColors = col1
    '        Brs1.FocusScales = New PointF(0.5, 0.5)
    '        Brs1.SetSigmaBellShape(0.4, 0.9)
    '        BTgr.FillRectangle(Brs1, rec)
    '    End Sub
End Class
'BTgr = BT.CreateGraphics
'Brs1 = New PathGradientBrush(pat)
'Brs1.CenterPoint = New PointF(BT.Width / 2, BT.Height / 2)
'Brs1.CenterColor = Color.Aqua
'col1 = New Color() {Color.FromArgb(100, 0, 0)}
'Brs1.SurroundColors = col1
'Brs1.FocusScales = New PointF(0.5, 0.5)
'Brs1.SetSigmaBellShape(0.4, 0.9)
'BTgr.FillRectangle(Brs1, rec)
 
'BTgr = BT.CreateGraphics
'Brs1 = New PathGradientBrush(pat)
'Brs1.CenterPoint = New PointF(BT.Width / 2, BT.Height / 2)
'Brs1.CenterColor = Color.Gold
'col1 = New Color() {Color.FromArgb(55, 0, 0)}
'Brs1.SurroundColors = col1
'Brs1.FocusScales = New PointF(0.5, 0.5)
'Brs1.SetSigmaBellShape(0.4, 0.9)
'BTgr.FillRectangle(Brs1, rec)[/SPOILER]

@January29 · 07.08.2022, 23:09

andrsh, вот как пример

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
Private Sub Button1_MouseDown(sender As Object, e As MouseEventArgs) Handles Button1.MouseDown
 
    If e.Button = MouseButtons.Left Then ' Если нажата левая кнопка
        Label1.Text = "нажата левая кнопка мыши"
    End If
 
    If e.Button = MouseButtons.Middle Then ' Если нажата центральная кнопка
        Label1.Text = "нажата центральную кнопка мыши"
    End If
 
    If e.Button = MouseButtons.Right Then ' Если нажата правая кнопка
        Label1.Text = "нажата правая кнопка мыши"
    End If
End Sub
 
Private Sub Button1_MouseUp(sender As Object, e As MouseEventArgs) Handles Button1.MouseUp
 
    ' но если после отпускания должно возвратится в исходное, то это можно убрать и поставить один код.
 
    If e.Button = MouseButtons.Left Then ' Если отпустили левую кнопку
        Label1.Text = "отпустили левую кнопку мыши"
    End If
 
    If e.Button = MouseButtons.Middle Then ' Если отпустили центральную кнопку
        Label1.Text = "отпустили центральную кнопку мыши"
    End If
 
    If e.Button = MouseButtons.Right Then ' Если отпустили правую кнопку
        Label1.Text = "отпустили правую кнопку мыши"
    End If
End Sub

@andrsh · 07.08.2022, 23:12 **[ТС]**

January29, пробовал все тоже самое промаргивает и все. Непонятно в чем причина.

@January29 · 07.08.2022, 23:16

andrsh, У вас скорей всего Paint перебивает отрисовку

@andrsh · 07.08.2022, 23:19 **[ТС]**

Добавил лейбл. Текст в лейбле меняется нормально цвет нет, хотя с правой кнопкой работает нормально. Менял даже мышку. Все равно 0.

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

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

У вас скорей всего Paint перебивает отрисовку

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

Добавлено через 1 минуту
Для интереса если время не жалко попробуй у себя пересоздай. Может чего получится.

@January29 · 07.08.2022, 23:27

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

ну а с другими кнопками мыши то нет

У меня тоже нет, а когда нажал на левую сразу пошло на Paint попробуйте так

VB.NET
1
2
3
4
5
6
7
8
9
    Dim Bool As Boolean ' как пример создали
 
    Private Sub Button1_Paint(sender As Object, e As PaintEventArgs) Handles Button1.Paint
        If Bool Then Exit Sub
        ' Ваш код с чем то
        ' ~~~
        ' ~~~
        Bool = False
    End Sub

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

@andrsh · 07.08.2022, 23:35 **[ТС]**

VB.NET
1
If Bool Then Exit Sub

чему Bool должен быть равен?
Если так написать то при нажатии левой вообще ничего не рисует а при нажатии правой все нормально.

VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 Dim Bool As Boolean = True
    Private Sub BT_Paint(sender As Object, e As PaintEventArgs) Handles BT.Paint
        If Bool = False Then Exit Sub
        rec = New Rectangle(10, 10, 380, 180)
        pat = New GraphicsPath
        pat.AddEllipse(rec)
        BT.Region = New Region(pat)
        Brs1 = New PathGradientBrush(pat)
        Brs1.CenterPoint = New PointF(BT.Width / 2, BT.Height / 2)
        Brs1.CenterColor = Color.Gold
        col1 = New Color() {Color.FromArgb(55, 0, 0)}
        Brs1.SurroundColors = col1
        Brs1.FocusScales = New PointF(0.5, 0.5)
        Brs1.SetSigmaBellShape(0.4, 0.9)
        e.Graphics.FillRectangle(Brs1, rec)
        Bool = False
    End Sub

@January29 · 07.08.2022, 23:46

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

чему Bool должен быть равен?

первая строка

VB.NET
1
Dim Bool As Boolean ' объявили по умолчанию будет False

третью строку

VB.NET
1
2
 ' здесь идет проверка если True то выход из Paint у нас она пока False исполнится код
If Bool Then Exit Sub

строка 16 надо поставить True извиняюсь перепутал

VB.NET
1
Bool = True

@andrsh · 08.08.2022, 00:01 **[ТС]**

Не все что то не то. Ладно завтра буду разбираться

@January29 · 08.08.2022, 17:54

andrsh, попробуйте так, если я правильно понял рисовать кнопку под именем ВТ, должен поработать.

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

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
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        PaintsButton(Color.Gold, 55) ' при загрузки прорисовка кнопки
    End Sub
 
    Private Sub BT_MouseDown(sender As Object, e As MouseEventArgs) Handles BT.MouseDown
        PaintsButton(Color.Aqua, 100) ' изменяем цвета в событиях мыши когда нажали кнопку
    End Sub
 
    Private Sub BT_MouseUp(sender As Object, e As MouseEventArgs) Handles BT.MouseUp
        PaintsButton(Color.Gold, 55) ' изменяем цвета в событиях мыши когда отпустили кнопку
    End Sub
 
    Private Sub BT_Paint(sender As Object, e As PaintEventArgs) Handles BT.Paint
        e.Graphics.FillRectangle(Brs1, rec)
    End Sub
 
    Private Sub PaintsButton(Colors As Color, intFromArgb As Integer)
        rec = New Rectangle(10, 10, 380, 180)
        pat = New GraphicsPath
        pat.AddEllipse(rec)
        BT.Region = New Region(pat)
        Brs1 = New PathGradientBrush(pat)
        Brs1.CenterPoint = New PointF(BT.Width / 2, BT.Height / 2)
        Brs1.CenterColor = Colors
        col1 = New Color() {Color.FromArgb(intFromArgb, 0, 0)}
        Brs1.SurroundColors = col1
        Brs1.FocusScales = New PointF(0.5, 0.5)
        Brs1.SetSigmaBellShape(0.4, 0.9)
        BT.Invalidate()
    End Sub

@andrsh · 08.08.2022, 21:35 **[ТС]**

January29, Мысль может и правильная только я хотел создать пользовательский контрол. чтобы добавлять на формы. кнопку можно сделать любой формы также как лейбл и текстбокс по этому подобию . В книге Трусова об этом почитал. Сделал я свой контрол добавил на форму и результат тотже. правая и центральная кнопки нормально работают а левая нет. Так что в загрузке формы ну как совсем уже крайняк. Спасибо за помощь.

@Winney · 09.08.2022, 19:37

andrsh, а можно код этого проекта? Подход через UserControl в целом верный, хотелось бы глянуть что ж все таки не так

@andrsh · 09.08.2022, 19:46 **[ТС]**

Winney, Код вобщем то тот же что я выкладывал. Вот класс пользовательского контрола:

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
49
50
51
Imports System.Drawing
Imports System.Drawing.Drawing2D
Imports System.Windows.Forms
Public Class BAT1
    Dim Brs1 As PathGradientBrush
    Dim rec As Rectangle
    Dim pat As GraphicsPath
    Dim patel As GraphicsPath
    Dim col1 As Color()
    Dim BTgr1, BTgr2 As Graphics
    Private Sub BT_Paint(sender As Object, e As PaintEventArgs) Handles BT.Paint
        rec = New Rectangle(10, 10, 380, 180)
        pat = New GraphicsPath
        pat.AddEllipse(rec)
        BT.Region = New Region(pat)
        Brs1 = New PathGradientBrush(pat)
        Brs1.CenterPoint = New PointF(BT.Width / 2, BT.Height / 2)
        Brs1.CenterColor = Color.Gold
        col1 = New Color() {Color.FromArgb(55, 0, 0)}
        Brs1.SurroundColors = col1
        Brs1.FocusScales = New PointF(0.5, 0.5)
        Brs1.SetSigmaBellShape(0.4, 0.9)
        e.Graphics.FillRectangle(Brs1, rec)
 
    End Sub
    Private Sub BT_MouseUp(ByVal sender As Object, ByVal e As MouseEventArgs) Handles BT.MouseUp
 
        BTgr2 = BT.CreateGraphics
        Brs1 = New PathGradientBrush(pat)
        Brs1.CenterPoint = New PointF(BT.Width / 2, BT.Height / 2)
        Brs1.CenterColor = Color.Gold
        col1 = New Color() {Color.FromArgb(55, 0, 0)}
        Brs1.SurroundColors = col1
        Brs1.FocusScales = New PointF(0.5, 0.5)
        Brs1.SetSigmaBellShape(0.4, 0.9)
        BTgr2.FillRectangle(Brs1, rec)
    End Sub
    Private Sub BT_MouseDown(ByVal sender As Object, ByVal e As MouseEventArgs) Handles BT.MouseDown
 
        BTgr1 = BT.CreateGraphics
        Brs1 = New PathGradientBrush(pat)
        Brs1.CenterPoint = New PointF(BT.Width / 2, BT.Height / 2)
        Brs1.CenterColor = Color.Blue
        col1 = New Color() {Color.FromArgb(255, 0, 255, 255)}
        Brs1.SurroundColors = col1
        'Brs1.FocusScales = New PointF(0.1, 0.1)
        'Brs1.SetSigmaBellShape(0.9, 0.9)
        BTgr1.FillRectangle(Brs1, rec)
 
    End Sub
End Class

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

@Winney · 09.08.2022, 19:52

andrsh, посмотрите здесь
Очень похоже на вашу задачу. Там подход к контролу классически верный

@andrsh · 09.08.2022, 19:53 **[ТС]**

вот сам проект полностью

@Winney · 09.08.2022, 20:02

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

@andrsh · 09.08.2022, 20:14 **[ТС]**

Winney, посмотрел видео клаасс!! Как то оно мне не попалось ранее наверное плохо искал. Хотя я стал пробовать вариант из книги. Я бы таким путем наверное не пошел. Надо попробовать по тому методу создать какие то фигурные кнопки.

Добавлено через 1 минуту
Winney, Обязательно попробую по тому методу из видео!!

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .	Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»	SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .

@andrsh 266 / 217 / 54 Регистрация: 01.08.2016 Сообщений: 836
	07.08.2022, 23:12 [ТС]
	January29, пробовал все тоже самое промаргивает и все. Непонятно в чем причина. 0

@January29 3257 / 3271 / 556 Регистрация: 17.02.2019 Сообщений: 5,181
	07.08.2022, 23:16
	andrsh, У вас скорей всего Paint перебивает отрисовку 0

@andrsh 266 / 217 / 54 Регистрация: 01.08.2016 Сообщений: 836
	08.08.2022, 00:01 [ТС]
	Не все что то не то. Ладно завтра буду разбираться 0

@andrsh 266 / 217 / 54 Регистрация: 01.08.2016 Сообщений: 836
	08.08.2022, 21:35 [ТС]
	January29, Мысль может и правильная только я хотел создать пользовательский контрол. чтобы добавлять на формы. кнопку можно сделать любой формы также как лейбл и текстбокс по этому подобию . В книге Трусова об этом почитал. Сделал я свой контрол добавил на форму и результат тотже. правая и центральная кнопки нормально работают а левая нет. Так что в загрузке формы ну как совсем уже крайняк. Спасибо за помощь. 0

@Winney 307 / 248 / 40 Регистрация: 28.09.2013 Сообщений: 600
	09.08.2022, 19:37
	andrsh, а можно код этого проекта? Подход через UserControl в целом верный, хотелось бы глянуть что ж все таки не так 0

@Winney 307 / 248 / 40 Регистрация: 28.09.2013 Сообщений: 600
	09.08.2022, 19:52
	andrsh, посмотрите здесь Очень похоже на вашу задачу. Там подход к контролу классически верный 1

@Winney 307 / 248 / 40 Регистрация: 28.09.2013 Сообщений: 600
	09.08.2022, 20:02
	andrsh, посмотрите пожалуйста приведенный мною пример и попробуйте переработать проект в соответствии с рекомендациями. Если не выйдет - будем разбираться. 0

@andrsh 266 / 217 / 54 Регистрация: 01.08.2016 Сообщений: 836
	09.08.2022, 20:14 [ТС]
	Winney, посмотрел видео клаасс!! Как то оно мне не попалось ранее наверное плохо искал. Хотя я стал пробовать вариант из книги. Я бы таким путем наверное не пошел. Надо попробовать по тому методу создать какие то фигурные кнопки. Добавлено через 1 минуту Winney, Обязательно попробую по тому методу из видео!! 0