Visual Studio 2015 добавление изображений на панель с координатами - PullRequest
Новая
       37

Visual Studio 2015 добавление изображений на панель с координатами

0 голосов
/ 19 марта 2019

У меня есть трекбар над панелью с одинаковой шириной 325. Трекбар имеет максимальное значение 200. При нажатии мыши я пытаюсь добавить изображение и текст на панель, представляющую собой маленькую точку, и выровнять по вертикалистрелка трекбара.Сначала я делю ширину панели на 200, чтобы получить позицию (слева).intStepNumber - это значение позиции трекбара.В результате изображение не выровнено по направлению стрелки, и чем выше значение трекбара, тем шире смещение.Я также добавляю 10, чтобы сместить ширину изображения, чтобы он был в центре.

    Private Sub TrackBar_Editor_MouseDown(sender As Object, e As MouseEventArgs) Handles TrackBar_Editor.MouseDown

    If e.Button = Windows.Forms.MouseButtons.Right Then
        For i = 1 To 5
            If int_Tag_used(i) = 0 Then
                '// Test all other tab to be sure there is no a duplicate placed.
                For J = 1 To 5
                    If int_Tag_Storage(J) = intStepNumber + 1 Then      '// If there is a duplicate exit sub
                        Exit Sub
                    End If
                Next J


                int_Tag_used(i) = 1                 '// set the tag as being used

                Panel_test.Controls.Add(Picture_Tag(i))
                Panel_test.Controls.Add(Label_Tag(i))

                int_Width = (Panel_test.Size.Width / 200)       '// new for 200

                Picture_Tag(i).Left = ((intStepNumber - 1) * int_Width) + 10
                Picture_Tag(i).Top = 0
                Picture_Tag(i).Visible = True

                Label_Tag(i).Left = ((intStepNumber - 1) * int_Width) + 5
                Label_Tag(i).Top = 20
                Label_Tag(i).Visible = True
                Label_Tag(i).Text = intStepNumber + 1     '// Add 1 to alight with trackbar value of 0 to 99

                int_Tag_Storage(i) = intStepNumber

                Exit For
            Else

                '// try next
            End If
        Next i
    End If

End Sub
...