DUVIDA SOBRE UM EVENTO DO TEXTBOX

CHARLESTON10 02/12/2010 18:13:51
#358659
Tem algum evento do TextBox para eu mover ele para qualquer parte do formulário

A idéia é essa, eu clico no textBox e movo ele para qualquer parte do formulário.
Tem como fazer isso???
e como faço?


E tem algum componente para deixa-lo transparente?[Ô]
MARCELO.TREZE 02/12/2010 18:38:12
#358662 Resposta escolhida
assim colega

Dim x1 As Single
Dim y1 As Single

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    x1 = X
    y1 = Y
End Sub


Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = 1 Then
        Me.Left = Me.Left - (x1 - X)
        Me.Top = Me.Top - (y1 - Y)
    End If
End Sub


Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = 1 Then
        If Me.Left < 0 Then
            Me.Left = 0
        ElseIf Me.Left > Screen.Width - Me.Width Then
            Me.Left = Screen.Width - Me.Width
        End If
        
        If Me.Top < 0 Then
            Me.Top = 0
        ElseIf Me.Top > Screen.Height - Me.Height Then
            Me.Top = Screen.Height - Me.Height
        End If
    End If
End Sub
CHARLESTON10 03/12/2010 07:18:21
#358683
Obrigado Marcelo.
Não seria esse código mas só mudei o nome ao invés de Me(form) mudei para o TexBox que eu queria mesmo e deu certo
Ficou assim
 Dim x1 As Single
Dim y1 As Single


Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    x1 = X
    y1 = Y
End Sub

Private Sub Text1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    With Text1
        If Button = 1 Then
            .Left = .Left - (x1 - X)
            .Top = .Top - (y1 - Y)
        End If
    End With
End Sub

Private Sub Text1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    With Text1
        If Button = 1 Then
            If .Left < 0 Then
                .Left = 0
            ElseIf .Left > Screen.Width - .Width Then
                .Left = Screen.Width - .Width
            End If
            
            If .Top < 0 Then
                .Top = 0
            ElseIf .Top > Screen.Height - .Height Then
                .Top = Screen.Height - .Height
            End If
        End If
    End With
End Sub
Tópico encerrado , respostas não são mais permitidas
Voltar