Visual Basic.NET - Mover el mouse

 
Vista:

Mover el mouse

Publicado por ohgar (43 intervenciones) el 28/05/2005 17:48:38
Mover el mouse al control que tiene el foco
Cómo le paso a CURSOR.POSITION las coordenadas del control en el que quiero que se ubique. La posición del control siempre me muestra la posición con respecto al formulario pero no de la pantalla.
Gracias de antemano;

Ohgar
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Mover el mouse

Publicado por Harold (411 intervenciones) el 29/05/2005 01:33:33
''''Un ejemplo espero sirva

Dim i As Integer

Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim ctl As Control
For Each ctl In Me.Controls
ComboBox1.Items.Add(ctl.Name & " (" & ctl.Location.X.ToString & "," & ctl.Location.Y.ToString & ") SIZE=" & ctl.Size.Width.ToString & "," & ctl.Size.Height.ToString)
Next

End Sub

Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
Dim miposi1, miposi2, miposic, pX, pY, sW, sH As Integer
Dim micad, mincad As String

miposi1 = InStr(ComboBox1.Text, "(", CompareMethod.Text)
micad = Mid(ComboBox1.Text, miposi1 + 1)
miposi2 = InStr(micad, ")", CompareMethod.Text)
micad = Microsoft.VisualBasic.Left(micad, miposi2 - 1)
miposic = InStr(micad, ",", CompareMethod.Text)
If miposic > 0 Then
pX = Microsoft.VisualBasic.Left(micad, miposic - 1) + 4
pY = Microsoft.VisualBasic.Right(micad, micad.Length - (miposic))
miposic = InStr(ComboBox1.Text, "=", CompareMethod.Text)
mincad = Mid(ComboBox1.Text, miposic + 1)
miposic = InStr(mincad, ",", CompareMethod.Text)
sW = (Microsoft.VisualBasic.Left(mincad, miposic - 1) + 4) / 2
sH = (Microsoft.VisualBasic.Right(mincad, mincad.Length - (miposic))) / 2
Me.Cursor.Position = New Point(Me.Left + pX + sW, Me.Top + 30 + pY + sH)
End If

End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Mover el mouse

Publicado por leia (9 intervenciones) el 08/07/2005 14:42:07

Es suficiente con sumarle a ese valor con respecto a la pantalla, el valor de Me.Left y Me.Top, es decir:
posicion respecto a la pantalla + posicion DE la pantalla.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Mover el mouse

Publicado por leia (9 intervenciones) el 12/07/2005 06:47:13
te agrdesco,ya lo hice hasta con varios formularios sumandolos, pero siempre queda más arriba, exactamente en el tamaño de la barra de titulo del formulario

Ohgar
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar