frame por delante de todos los controles

On 28 ago, 19:04, "daniel" wrote:

Hola Ivan
sabes como podia hacer lo siguiente:
1)tengo un listbox1 y cuando pulse con el boton derecho en el listbox1 me
aparezca el frame justo donde e pulsado
e probado lo siguiente pero nada no me va.

Dim Arriba As Single, Izquierda As Single
Private Sub listbox1_MouseDown(ByVal Button As Integer, ByVal Shift As
Integer, ByVal x As Single, ByVal y As Single)
If Button = 2 Then ' the right mouse-button was clicked
listbox1.Top = Arriba
listbox1.Left = Izquierda
End If
End Sub

Private Sub UserForm_MouseMove( _
ByVal Button As Integer, ByVal Shift As Integer, _
ByVal x As Single, ByVal y As Single)
Arriba = y
Izquierda = x
End Sub

2)tambien como se aria para un TreeView para el boton derecho es que probe
esto y me daba error

Private Sub TreeView1_MouseDown(ByVal Button As Integer, ByVal Shift As
Integer, ByVal x As Single, ByVal y As Single)
If Button = 2 Then ' the right mouse-button was clicked
listbox1.Top = Arriba
listbox1.Left = Izquierda
End If
End Sub

un saludo y muchisimas gracias
Daniel
"daniel" escribió en el mensajenews:



> Hola Ivan
> muchisimas Gracias es perfecto

> mil garcias
> un saludo
> Daniel
> "daniel" escribió en el mensaje
>news:
>> Hola Ivan
>> muchas gracias por responder en cuanto pueda lo miro

>> un saludo
>> daniel
>> "Ivan" escribió en el mensaje
>>news:
>>> hola de nuevo Daniel,

>>> al final me he animado a hacer esas pruebas. Si quieres ver el
>>> resultado, puedes hacer lo siguiente:=>

>>> 1.- inserta un userform y coloca en el un listbox y un frame en la misma
>>> posicion [OJO: no el listbox dentro del frame (que por cierto no estoy
>>> del todo segiro si se puede aunque me suena que si)]

>>> 2,- pon un commandbutton

>>> 3.- en el modulo del formulario pega el siguiente codigo, dale a F5 y
>>> prueba a darle al boton

>>> '**************************pega desde aqui
>>> Private Sub CommandButton1_Click()
>>> With CommandButton1
>>> If .Caption = "TopListbox" Then
>>> ListBox1.ZOrder: .Caption = "TopFrame"
>>> Else
>>> Frame1.ZOrder: .Caption = "TopListbox"
>>> End If
>>> End With
>>> End Sub
>>> '
>>> Private Sub UserForm_Initialize()
>>> ListBox1.ZOrder (1)
>>> Frame1.ZOrder (0)
>>> CommandButton1.Caption = "TopListbox"
>>> End Sub
>>> '**********************************hasta aqui

>>> espero te ayude

>>> un saludo
>>> Ivan

>>>>>tengo la siguiente pregunta como puedo poner un frame por delante de
>>>>>todos los demas controles
>>>>>es que e probado poniendolo encima de un listbox y las opciones de
>>>>>traer adelante y de traer al fondo y no funcionas el listbox siempre se
>>>>>queda por delante.- Ocultar texto de la cita -

- Mostrar texto de la cita -

hola Daniel,

aunque creo que corresponde a otro hilo [donde ademas abririas las
posibilidades de posibles respuestas] prueba a ver si te vale algo asi
(es posible que el zorder no haga falta, pero no lo he probado por
prisas)

Private Sub ListBox1_MouseUp(ByVal Button As Integer, ByVal Shift As
Integer, ByVal X As Single, ByVal Y As Single)
If Button = 2 Then ' the right mouse-button was clicked
With ListBox1
Arriba = Y + .Top
Izquierda = X + .Left
End With
With Frame1
.Top = Arriba
.Left = Izquierda
.ZOrder
End With
End If
End Sub
Private Sub UserForm_Initialize()
ListBox1.ZOrder
End Sub

a mi parece funcionarme

un saludo
Ivan

PD en cuanto al treview, aunque no tengo mucha idea sobre ellos, creo
que te podria valer algo semejante

y si te quieres ahorrar las variables, directamente =>>

Private Sub ListBox1_MouseUp(ByVal Button As Integer, _
ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If Button = 2 Then
With Frame1
.Top = Y + ListBox1.Top
.Left = X + ListBox1.Left
.ZOrder
End With
End If
End Sub
Private Sub UserForm_Initialize()
ListBox1.ZOrder
End Sub


un saludo
Ivan

Hola Ivan
mil gracias es perfecto


un saludo
Daniel
"Ivan" escribió en el mensaje
news:

y si te quieres ahorrar las variables, directamente =>>

Private Sub ListBox1_MouseUp(ByVal Button As Integer, _
ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If Button = 2 Then
With Frame1
.Top = Y + ListBox1.Top
.Left = X + ListBox1.Left
.ZOrder
End With
End If
End Sub
Private Sub UserForm_Initialize()
ListBox1.ZOrder
End Sub


un saludo
Ivan