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
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
|
'
' Created by SharpDevelop.
' User:
' Date: 12/01/2005
' Time: 11:45
'
' To change this template use Tools | Options | Coding | Edit Standard Headers.
'
Imports System
Imports System.Drawing
Imports System.Windows.Forms
Namespace zone1
Public Class MainForm
Inherits System.Windows.Forms.Form
Private labelhaut As System.Windows.Forms.Label
Private labelmilieu As System.Windows.Forms.Label
Private labelbas As System.Windows.Forms.Label
Private label1 As System.Windows.Forms.Label
Public Shared Sub Main
Dim fMainForm As New MainForm
fMainForm.ShowDialog()
End Sub
Public Sub New()
MyBase.New
'
' The Me.InitializeComponent call is required for Windows Forms designer support.
'
Me.InitializeComponent
'
' TODO : Add constructor code after InitializeComponents
'
End Sub
#Region " Windows Forms Designer generated code "
' This method is required for Windows Forms designer support.
' Do not change the method contents inside the source code editor. The Forms designer might
' not be able to load this method if it was changed manually.
Private Sub InitializeComponent()
Me.label1 = New System.Windows.Forms.Label
Me.labelbas = New System.Windows.Forms.Label
Me.labelmilieu = New System.Windows.Forms.Label
Me.labelhaut = New System.Windows.Forms.Label
Me.SuspendLayout
'
'label1
'
Me.label1.BackColor = System.Drawing.Color.Transparent
Me.label1.Location = New System.Drawing.Point(360, 88)
Me.label1.Name = "label1"
Me.label1.Size = New System.Drawing.Size(184, 136)
Me.label1.TabIndex = 3
Me.label1.Text = "label1"
'
'labelbas
'
Me.labelbas.BackColor = System.Drawing.Color.Gray
Me.labelbas.Location = New System.Drawing.Point(160, 216)
Me.labelbas.Name = "labelbas"
Me.labelbas.Size = New System.Drawing.Size(128, 8)
Me.labelbas.TabIndex = 1
Me.labelbas.Text = "label2"
AddHandler Me.labelbas.MouseUp, AddressOf Me.LabelbasMouseUp
AddHandler Me.labelbas.MouseMove, AddressOf Me.LabelbasMouseMove
AddHandler Me.labelbas.MouseDown, AddressOf Me.LabelbasMouseDown
'
'labelmilieu
'
Me.labelmilieu.BackColor = System.Drawing.SystemColors.ActiveCaption
Me.labelmilieu.Location = New System.Drawing.Point(160, 128)
Me.labelmilieu.Name = "labelmilieu"
Me.labelmilieu.Size = New System.Drawing.Size(128, 88)
Me.labelmilieu.TabIndex = 0
Me.labelmilieu.Text = "label1"
AddHandler Me.labelmilieu.MouseUp, AddressOf Me.LabelmilieuMouseUp
AddHandler Me.labelmilieu.MouseMove, AddressOf Me.LabelmilieuMouseMove
AddHandler Me.labelmilieu.MouseDown, AddressOf Me.LabelmilieuMouseDown
'
'labelhaut
'
Me.labelhaut.BackColor = System.Drawing.Color.IndianRed
Me.labelhaut.Location = New System.Drawing.Point(160, 120)
Me.labelhaut.Name = "labelhaut"
Me.labelhaut.Size = New System.Drawing.Size(128, 8)
Me.labelhaut.TabIndex = 2
Me.labelhaut.Text = "label3"
AddHandler Me.labelhaut.MouseMove, AddressOf Me.LabelhautMouseMove
AddHandler Me.labelhaut.MouseDown, AddressOf Me.LabelhautMouseDown
'
'MainForm
'
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.ClientSize = New System.Drawing.Size(608, 398)
Me.Controls.Add(Me.label1)
Me.Controls.Add(Me.labelhaut)
Me.Controls.Add(Me.labelbas)
Me.Controls.Add(Me.labelmilieu)
Me.Name = "MainForm"
Me.Text = "MainForm"
Me.ResumeLayout(false)
End Sub
#End Region
Private Xp, Yp As Integer
Private Sub LabelMilieuMouseDown(sender As System.Object, e As System.Windows.Forms.MouseEventArgs)
Xp = e.x
Yp = e.y
End Sub
Private Sub LabelHautMouseDown(sender As System.Object, e As System.Windows.Forms.MouseEventArgs)
Xp = e.x
Yp = e.y
End Sub
Private Sub LabelBasMouseDown(sender As System.Object, e As System.Windows.Forms.MouseEventArgs)
Xp = e.x
Yp = e.y
End Sub
Private Sub LabelMilieuMouseMove(sender As System.Object, e As System.Windows.Forms.MouseEventArgs)
'deplace le label
Dim LabelTop, LabelLeft as integer
'MessageBox.Show("Bonjour")
If e.Button = MouseButtons.Left Then
LabelTop = LabelMilieu.Top - Yp + e.y
LabelLeft = LabelMilieu.Left - Xp + e.x
Me.LabelMilieu.Top = LabelTop
Me.LabelMilieu.Left = LabelLeft
Me.LabelHaut.Top = LabelTop - 8
Me.LabelHaut.Left = LabelLeft
Me.LabelBas.Top = LabelTop + LabelMilieu.Height
Me.LabelBas.Left = LabelLeft
end if
End Sub
Private Sub LabelHautMouseMove(sender As System.Object, e As System.Windows.Forms.MouseEventArgs)
'redimensionne le label
Dim AgrandissementY as Integer
Dim NewHeight As Integer
If e.Button = MouseButtons.Left Then
AgrandissementY = - Yp + e.y
NewHeight = Me.LabelMilieu.Height - AgrandissementY
if NewHeight < 16 then 'empeche que le label soit inférieur à 16px
Me.LabelMilieu.Height = 16
Me.LabelMilieu.Top = Me.LabelBas.Top - 16
Me.LabelHaut.Top = Me.LabelMilieu.Top - 8
Else
Me.LabelHaut.Top = Me.LabelHaut.Top + AgrandissementY
Me.LabelMilieu.Top = Me.LabelMilieu.Top + AgrandissementY
Me.LabelMilieu.Height = NewHeight
end if
End if
End Sub
Private Sub LabelBasMouseMove(sender As System.Object, e As System.Windows.Forms.MouseEventArgs)
'redimensionne le label
Dim AgrandissementY as Integer
Dim NewHeight As Integer
If e.Button = MouseButtons.Left Then
AgrandissementY = - Yp + e.y
NewHeight = Me.LabelMilieu.Height + AgrandissementY
if NewHeight < 16 then 'empeche que le label soit inférieur à 16px
Me.LabelMilieu.Height = 16
Me.LabelBas.Top = Me.LabelMilieu.Top + 16
Else
Me.LabelBas.Top = Me.LabelBas.Top + AgrandissementY
Me.LabelMilieu.Height = NewHeight
End if
End if
End Sub
Private Sub LabelmilieuMouseUp(sender As System.Object, e As System.Windows.Forms.MouseEventArgs)
End Sub
Private Sub LabelbasMouseUp(sender As System.Object, e As System.Windows.Forms.MouseEventArgs)
End Sub
End Class
End Namespace |
[VB.NET] [#Develop] Label redimensionnable
Répondre avec citation
Partager