如何控件只向一个方向伸展？

[大刘0417]

在窗体中间有一个向左的箭头（picturebox控件），我想在拖拉窗体左边缘时，箭头向左侧伸展（宽度发生变化），拖拉窗体右侧边缘时，控件不变化，也就是说让这个图像只向一个方向伸展。
能否实现，如何设置？

[wg5945]

http://www.csharpwin.com/csharpspace/12245r4614.shtml

[大刘0417]

好像无法达到我的目的。

[irix2008]

 Dim left0 As Integer

    Private Sub Form1_Resize(sender As Object, e As System.EventArgs) Handles Me.Resize
        '判断是否向左拖动
        If Left < left0 Then '向左
            Button1.Anchor = AnchorStyles.Top Or AnchorStyles.Right Or AnchorStyles.Left
        Else   '其他情况正常
            Button1.Anchor = AnchorStyles.Top Or AnchorStyles.Left
        End If
    End Sub

    '记录开始拖动前左侧位置
    Private Sub Form1_ResizeBegin(sender As Object, e As System.EventArgs) Handles Me.ResizeBegin
        left0 = Left
    End Sub

[大刘0417]

引用 3 楼 irix2008 的回复:

 Dim left0 As Integer

    Private Sub Form1_Resize(sender As Object, e As System.EventArgs) Handles Me.Resize
        '判断是否向左拖动
        If Left < left0 Then '向左
            Button1.Anchor = AnchorStyles.Top Or AnchorStyles.Right Or AnchorStyles.Left
        Else   '其他情况正常
            Button1.Anchor = AnchorStyles.Top Or AnchorStyles.Left
        End If
    End Sub

    '记录开始拖动前左侧位置
    Private Sub Form1_ResizeBegin(sender As Object, e As System.EventArgs) Handles Me.ResizeBegin
        left0 = Left
    End Sub

正解。