Member 11124009 Ответов: 0

Drawreversibleframe в VB.NET


Прямоугольник, отображаемый drawreversibleframe, является ок только основным экраном. Если форма находится на другом экране, это неправильно. есть идеи ?

Что я уже пробовал:

Private Sub MyDrawReversibleRectangle(ByVal p1 As Point, ByVal p2 As Point, ByVal couleur As Color)
     Dim position As New Point

     position = p1

     ' Normalize the rectangle.
     If (p1.X < p2.X) Then
         donnees_lasso.rect.Width = p2.X - p1.X
     Else
         position.X = p2.X
         donnees_lasso.rect.Width = p1.X - p2.X
     End If

     If (p1.Y < p2.Y) Then
         donnees_lasso.rect.Height = p2.Y - p1.Y
     Else
         position.Y = p2.Y
         donnees_lasso.rect.Height = p1.Y - p2.Y
     End If

     donnees_lasso.rect.Location = position

     If True Then
         Dim position_form As Point = Me.PointToScreen(Me.XPanel_dessus.Location)
         donnees_lasso.rectangle_affiche.X = position.X + position_form.X
         donnees_lasso.rectangle_affiche.Y = position.Y + position_form.Y

     Else
         donnees_lasso.rectangle_affiche.Location = Me.PointToScreen(position)
     End If

     donnees_lasso.rectangle_affiche.Height = donnees_lasso.rect.Height
     donnees_lasso.rectangle_affiche.Width = donnees_lasso.rect.Width
     ControlPaint.DrawReversibleFrame(donnees_lasso.rectangle_affiche, couleur, FrameStyle.Dashed)


 End Sub

phil.o

Пожалуйста, дайте определение "неправильно".

Member 11124009

Я имею в виду, что если я перемещаю форму на своем вторичном экране, то "drawreversibleframe" создается на основном экране

0 Ответов