USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Dicas

  Visual Basic    (ActiveX/Controles/DLL)

Título da Dica:  Criando um Botão 3D com um Picture
Postada em 1/10/2004 por Spider84            
'Adicione um PictureBox no Form, altere a propriedade "BorderStyle = 0 - None"
'Adicione uma Bitmap, Icon ou qualquer outra figura a sua escolha na propriedade "Picture"  e copie esse código abaixo

'Declarando variavel p/ armazenar valor da esquerda(L_pos) e do topo (T_pos) do picture
Dim L_pos, T_pos As String


Private Sub Form_Load()
      L_pos = Picture1.Left 'Armazenando valor da esquerda
      T_pos = Picture1.Top 'Armazenando valor do topo
End Sub


  Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
      Picture1.Left = L_pos + 15 'Recebendo novo valor da esquerda
      Picture1.Top = T_pos + 10 'Recebendo novo valor do topo
  End Sub


Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
      Picture1.Left = L_pos  'Recebendo o valor de origem
      Picture1.Top = T_pos  'Recebendo o valor de origem
End Sub

 


CyberWEB Network Ltda.    © Copyright 2000-2021   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página