29-03-20, 01:51 AM
PHP كود :
Public Class Form1
Dim AA As Integer = 200
Dim BB As Integer = 100
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim MyTrackBar As New TrackBar
MyTrackBar.Dock = DockStyle.Bottom
MyTrackBar.Minimum = 10
MyTrackBar.Maximum = 190
MyTrackBar.Value = 100
AddHandler MyTrackBar.Scroll, AddressOf MyTrackBar_Scroll
Me.Controls.Add(MyTrackBar)
Me.Text = MyTrackBar.Value & "%"
End Sub
Private Sub MyTrackBar_Scroll(sender As Object, e As EventArgs)
Panel1.Width = AA * (sender.Value / 100)
Panel1.Height = BB * (sender.Value / 100)
Me.Text = sender.Value & "%"
End Sub
End Class
