VB2010 COMBINAR TECLAS E MOVIMENTAÇÃO VERTICAL

 Tópico anterior Próximo tópico Novo tópico

VB2010 COMBINAR TECLAS E MOVIMENTAÇÃO VERTICAL

VB / VBA

 Compartilhe  Compartilhe  Compartilhe
#490859 - 20/10/2019 22:52:19

SON001
MARILIA
Cadast. em:Outubro/2019


 Anexos estao visíveis somente para usuários registrados

olá, sou bem iniciante, e estou criando um projeto bem simples no visual basic 2010 express, vi alguns tutorias e criei esse projeto anexado abaixo.
Gostaria de pedir se alguém com mais experiência pode editá-lo pra mim por que não estou conseguindo fazer o que quero, com certeza é moleza pra quem entende

o que eu queria é o seguinte, substituir o F3 e o F9 para um atalho combinado. por exemplo, control+1 esconde a forma e control+1 de novo mostra ela.

a outra coisa que preciso é que a forma se mova apenas verticalmente quando mexo nela com o mouse, e não livremente como é agora.

desde já agradeço




#490887 - 22/10/2019 10:48:50

PERCIFILHO
MATAO [SP]
Cadast. em:Dezembro/2009


Amigo, não sei se entendi bem o que você quer, mas uma forma de mover o "form" pelo teclado é utilizando o evento KeyDown:
   Private Sub Form1_KeyDown(sender As Object, e As KeyEventArgs) Handles MyBase.KeyDown
        If e.KeyCode = Keys.Up Then
            Me.Location = New Point(Me.Location.X, Me.Location.Y - 5)
        End If

        If e.KeyCode = Keys.Down Then
            Me.Location = New Point(Me.Location.X, Me.Location.Y + 5)
        End If
        If e.KeyCode = Keys.Left Then
            Me.Location = New Point(Me.Location.X - 5, Me.Location.Y)
        End If

        If e.KeyCode = Keys.Right Then
            Me.Location = New Point(Me.Location.X + 5, Me.Location.Y)
        End If
    End Sub


E para combinar tecla de atalho você faria no exemplo que você passou:
    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
        Try
            If GetAsyncKeyState(Keys.D1) <> 0 Then
                If Me.Visible = False Then
                    PictureBox3.BackColor = Color.Transparent
                    Me.Visible = True
                Else
                    PictureBox3.BackColor = Color.Transparent
                    Me.Visible = False
                End If
            End If
        Catch ex As Exception

        End Try
    End Sub


Espero ter ajudado.
Abraços e até mais.

____________________________________________________
Você sabe que alguém te ama não pelo que ele fala, mas pelo o que faz.
O amor não sobrevive de teorias.




#490974 - 28/10/2019 10:33:05

SON001
MARILIA
Cadast. em:Outubro/2019


muito obrigado ajudou bastante



 Tópico anterior Próximo tópico Novo tópico


Para responder este tópico o login é requerido
Se você já possui uma conta de usuário por favor faça seu login
Se você não possui uma conta de usuário use a opção Criar usuário