Question

我有一个从'Panel'派生的画布，用于自定义绘制线条和其他几何图形，全部来自VB代码。我从一本书中得到了这种方法，我不确定这是最好的方法。绘图部分对我来说到目前为止。

但我需要的是在包含可由用户编辑的文本的控件上放置一个文本框控件。文本框需要放置在动态确定的坐标上，然后再删除。可能会处理其他控件。

以下代码不执行任何操作：

    tb = New TextBox()
    tb.Text = "How now brown cow?"
    tb.BorderThickness = New Thickness(3)
    tb.BorderBrush = Brushes.CadetBlue
    drawingSurface.Children.Add(tb)

这是我的DrawingCanvas的定义：

    Public Class DrawingCanvas
   Inherits Panel

    Private visuals As New List(Of Visual)()
    Private hits As New List(Of DrawingVisual)()

   Protected Overrides Function GetVisualChild(ByVal index As Integer) As Visual
      Return visuals(index)
   End Function
   Protected Overrides ReadOnly Property VisualChildrenCount() As Integer
      Get
         Return visuals.Count
      End Get
   End Property

   Public Sub AddVisual(ByVal visual As Visual)
      visuals.Add(visual)
        MyBase.AddVisualChild(visual)
      MyBase.AddLogicalChild(visual)
   End Sub

   Public Sub DeleteVisual(ByVal visual As Visual)
      visuals.Remove(visual)
        MyBase.RemoveVisualChild(visual)
      MyBase.RemoveLogicalChild(visual)
   End Sub

   Public Function GetVisual(ByVal point As Point) As DrawingVisual
      Dim hitResult As HitTestResult = VisualTreeHelper.HitTest(Me, point)
      Return TryCast(hitResult.VisualHit, DrawingVisual)
   End Function

    Public Function GetVisuals(ByVal region As Geometry) As List(Of DrawingVisual)
        hits.Clear()
        Dim parameters As New GeometryHitTestParameters(region)
        Dim callback As New HitTestResultCallback(AddressOf Me.HitTestCallback)
        VisualTreeHelper.HitTest(Me, Nothing, callback, parameters)
        Return hits
    End Function

   Private Function HitTestCallback(ByVal result As HitTestResult) As HitTestResultBehavior
      Dim geometryResult As GeometryHitTestResult = CType(result, GeometryHitTestResult)
      Dim visual As DrawingVisual = TryCast(result.VisualHit, DrawingVisual)
      If visual IsNot Nothing AndAlso geometryResult.IntersectionDetail = IntersectionDetail.FullyInside Then
            hits.Add(visual)
            MsgBox("Ouch")
      End If
      Return HitTestResultBehavior.Continue
   End Function
End Class

这是XAML。我在DrawingCanvas中添加了一个文本框，以查看是否出现了某些内容。什么也没做。实际上，我想在代码中执行此操作，而不是XAML。我以为我可以动态隐藏或移动它。

<Window x:Class="MainWindow"
    xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
    xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
    xmlns:local="clr-namespace:Music"
    Title="MainWindow" Height="539" Width="892">
    <DockPanel>
        <Menu DockPanel.Dock="Top" Name="MainMenu" VerticalAlignment="Top" Height="25">
            <MenuItem Name="File" Header="File">
                <MenuItem Name="Open" Header="Bla bla..."/>
            </MenuItem>
        </Menu>
        <local:DrawingCanvas DockPanel.Dock="Bottom" x:Name="drawingSurface" RenderTransformOrigin="0.5,0.5" >
            <TextBox Height="0" Name="TextBox1" Width="45" Text="How now brown cow?" />
        </local:DrawingCanvas>
    </DockPanel>
</Window>

感谢帮助一个小说。解决方案对我来说非常有用。使用Windows窗体很容易，但我需要WPF的绘图速度。

Answer 1

我觉得你有点不在这里。在WPF中，您有一个名为Canvas的控件。我建议你使用它而不是你自己的“DrawingCanvas”，我无法开始工作。 :(（由于某种原因，我无法创建代码块，所以如果有人可以编辑它我会很高兴）

无论如何，

<local:DrawingCanvas DockPanel.Dock="Bottom" x:Name="drawingSurface" RenderTransformOrigin="0.5,0.5" >
   <TextBox Height="0" Name="TextBox1" Width="45" Text="How now brown cow?" />
</local:DrawingCanvas>

变成：

 <Canvas x:Name="drawingSurface">

 </Canvas>

然后添加文本框就像当前代码一样：

Dim tb as New TextBox 
drawingSurface.Children.Add(tb)

这应该可以满足您的需求。

下面是在画布中添加矩形的代码。

Private Sub DrawBackground()
    Dim Rect As New Rectangle()
    Rect.Height = 50
    Rect.Width = 50
    Rect.Fill = Brushes.Cornsilk
    drawingSurface.SetTop(Rect, 30)
    drawingSurface.SetLeft(Rect, 100)
    drawingSurface.Children.Add(Rect)
End Sub

Answer 2

我将添加另一个答案，可能更符合您的要求。这是一个继承自Canvas的类，它允许您以与评论中所说的相同的方式绘制内容。

我还会在创建时在随机位置创建一个文本框。

Public Class DrawingCanvas
    Inherits Canvas
    Public RandomTextBox As New TextBox
    Protected Overrides Sub OnRender(dc As System.Windows.Media.DrawingContext)
        Dim brush As Brush = Brushes.Black
        Dim drawingPen As Pen = New Pen(Brushes.Green, 3)
        dc.DrawRectangle(brush, drawingPen, New Rect(5, 5, Me.ActualWidth - 5, Me.ActualHeight - 5))
        RandomTextBox.Text = "Herpdiderp"
        If Not Me.Children.Contains(RandomTextBox) Then
            Dim r As New Random()
            RandomTextBox.Height = 23
            RandomTextBox.Width = 100
            Me.SetTop(RandomTextBox, r.Next(0, Me.ActualHeight - RandomTextBox.Height))
            Me.SetLeft(RandomTextBox, r.Next(0, Me.ActualWidth - RandomTextBox.Width))
            Me.Children.Add(RandomTextBox)
        End If
    End Sub
End Class

Answer 3

这不是一个完整的答案。 #WozzeC，你几乎使用画布是正确的。

我已经设法单独在xaml中解决了这个问题 - 我想最终在vb.net中解决它。

<Window x:Class="MainWindow"
xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
Title="MainWindow" Height="350" Width="525">
<Grid>
    <DockPanel HorizontalAlignment="Stretch" Name="DockPanel1" VerticalAlignment="Stretch" >
        <Menu Height="23" DockPanel.Dock="Top"  Name="Menu1" VerticalAlignment="Top" />
        <Canvas Name="Canvas1" Background="Aquamarine">
            <TextBox Canvas.Left="118" HorizontalScrollBarVisibility="Disabled" Canvas.Top="81" AcceptsReturn="True"  Height="auto" Name="TextBox1" Width="68" Text="Herpdiderp" BorderThickness="0" Background="Aquamarine" />
        </Canvas>
    </DockPanel>
</Grid>

这是一段代码，可以根据需要扩展文本。我认为这几乎是非常酷的。它向右和向下扩展，就像您实际在表单上键入一样。它在右边添加了一点点，但在这个版本中它是不可见的，因为背景颜色是相同的。

以下是将其展开到右侧的事件代码。

    Imports System.Globalization
Class MainWindow
Private Sub TextBox1_TextChanged(sender As System.Object, e As System.Windows.Controls.TextChangedEventArgs) Handles TextBox1.TextChanged
    Dim ft As New FormattedText(TextBox1.Text, CultureInfo.GetCultureInfo("en-us"), FlowDirection.LeftToRight, New Typeface("Verdana"), 16, Brushes.Black)
    TextBox1.Width = ft.Width
End Sub
End Class

我尝试使用现有解决方案，文本框显示。我将DrawingCanvas变成了一个普通的Canvas，并注释掉了所有引用DrawingCanvas的代码。并出现文本框。问题是：我需要DrawingCanvas中的功能 - 它来自Canvas。但是因为基类方法是受保护的，所以我无法得到它们。我只能在派生类中使用它们，除非有另一种我不知道的方式。

关于如何解决这个问题的任何想法？

WPF：在画布上随机放置文本框

3 个答案: