Attachment 170704 Details for Bug 322421

Testcase (VB.net sourcecode)

Module1.vb (text/plain), 1.06 KB, created by Thomas Wiest on 2006-10-23 00:33:00 UTC

(hide)

Description:

Filename:

MIME Type:

Creator: Thomas Wiest

Created: 2006-10-23 00:33:00 UTC

Size: 1.06 KB

patch

obsolete

>Module Module1
>    Public Sub Main()
>        Application.Run(New Form2)
>    End Sub
>End Module
>
>Class Form2
>    Inherits System.Windows.Forms.Form
>    Dim WithEvents TrackBar1 As New System.Windows.Forms.TrackBar
>    Dim Label1 As New System.Windows.Forms.Label
>
>    Private Sub Form2_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
>        With TrackBar1
>            .AutoSize = False
>            .Left = 0
>            .Top = 0
>            .Width = 100
>            .Height = 50
>            .Orientation = Orientation.Vertical
>            .Maximum = 100
>        End With
>        With Label1
>            .AutoSize = False
>            .Left = 122
>            .Top = 21
>            .Width = 100
>            .Height = 20
>            .Text = "Label1"
>        End With
>        Controls.Add(Label1)
>        Controls.Add(TrackBar1)
>    End Sub
>
>    Private Sub TrackBar1_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TrackBar1.Scroll
>        Label1.Text = TrackBar1.Value.ToString
>    End Sub
>End Class

Actions: View

Attachments on bug 322421: 170704 | 170705 | 170706 | 170707 | 170708 | 170709