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" создается на основном экране