Alinear picture dentro de un uC

[E N T E R]

Hola amigos necesito una manito. Quiero alinear un control Picture que tengo dentro de un UserControl de izquierda a derecha

Quiero ponerle una propiedad como esta:



Y que al darle una de las propiedades me alinee





Source
http://www.mediafire.com/?6sv03tn74ro0rab

[LeandroA]

Hola enter para eso se utlizan las propiedades Enum, te pongo un ejemplo despues vos codificas el resto

Código: (Vb) [Seleccionar]

Public Enum eAlinear
    [Izquierda]
    [Derecha]
End Enum

Private m_Alinear As eAlinear

Public Property Get Alinear() As eAlinear
    Alinear = m_Alinear
End Property


Public Property Let Alinear(Value As eAlinear)
    m_Alinear = Value
    If m_Alinear = Izquierda Then
        'picture1.Left = 0
        'text1.Left = pictue1.Width
    Else
        'picture1.Left = text1.Width
        'text1.Left = 0
    End If
    PropertyChanged ("Alinear")
End Property

[E N T E R]

Perfecto Leandro, ahora tengo otro problemita al iniciar la aplicación no guardar la posicion, o sea si le asigno alinear a la derecha al iniciar se va otra ves a la izquierda.

Ajunto el proyecto:
http://www.mediafire.com/?uvz866xmcwxx141

[LeandroA]

Hola seguramente no agregaste WriteProperty y ReadProperty o bien cuado haces ReadProperty, no ejecutas las comprobaciones, proba asi

   
Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
   
    With PropBag
     
      m_OnlyNumbers = .ReadProperty("SoloNumeros", False)
      m_NumbersPoint = .ReadProperty("ActivarMillar", False)
      m_SoloLetras = .ReadProperty("SoloLetras", False)
      m_TodoLimit = .ReadProperty("TodoLimit", False)
     
      xFocus = .ReadProperty("HabilitarFoco", True)
     
      Set txtRaiz.Font = .ReadProperty("Font", Ambient.Font)
      txtRaiz.ForeColor = .ReadProperty("ForeColor", vbButtonText)
      txtRaiz.MaxLength = .ReadProperty("MaxLength", 0)
      txtRaiz.Locked = .ReadProperty("Locked", False)
      txtRaiz.Enabled = .ReadProperty("Enabled", True)
      txtRaiz.Text = .ReadProperty("Text", "")
      BackColor = .ReadProperty("BackColor", m_def_BackColor)
      Alignment = .ReadProperty("Alignment", m_def_Alignment)
      Me.Alinear = .ReadProperty("Alinear", Izquierda)
    End With
   
End Sub

Private Sub UserControl_WriteProperties(PropBag As PropertyBag)
   
    With PropBag
       
       .WriteProperty "SoloNumeros", m_OnlyNumbers, False
       .WriteProperty "ActivarMillar", m_NumbersPoint, False
       .WriteProperty "SoloLetras", m_SoloLetras, False
       .WriteProperty "TodoLimit", m_TodoLimit, False
       
       .WriteProperty "HabilitarFoco", xFocus, True
       
       .WriteProperty "Font", txtRaiz.Font, Ambient.Font
       .WriteProperty "ForeColor", txtRaiz.ForeColor, vbButtonText
       .WriteProperty "MaxLength", txtRaiz.MaxLength, 0
       .WriteProperty "Locked", txtRaiz.Locked, False
       .WriteProperty "Enabled", txtRaiz.Enabled, True
       .WriteProperty "Text", txtRaiz.Text, ""
       .WriteProperty "BackColor", m_BackColor, m_def_BackColor
       .WriteProperty "Alignment", m_Alignment, m_def_Alignment
       .WriteProperty "Alinear", m_Alinear, Izquierda
    End With
   
End Sub

[E N T E R]

De lujo leandro ahi esta solucionado me faltaba hacer eso. Muchas gracias.