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 Objetos em Run Time (VB6.0)
Postada em 8/10/2000 por Webmaster      Clique aqui para enviar email para o autor  webmaster@vbweb.com.br
Neste exemplo criaremos uma ScrollBar. Para podermos usar seus eventos (Click, Change e etc), precisaremos declarar a variável com a palavra chave WithEvents. Veja:

Private WithEvents MyHSBar As HScrollBar
Private Sub Form_Load()
  'Cria a instancia da ScrollBar
  Set MyHSBar = Form1.Controls.Add("VB.HScrollBar", _
                "HScroll1")
  'Agora precisamos alterar algumas propriedades
  'para a ScrollBar poder ficar visível.
  With MyHSBar
    .Top = 0
    .Left = 0
    .Height = 255
    .Width = Me.ScaleWidth
    .Visible = True
  End With
  'Pronto. A ScrollBar já está instanciada e
  'visível no Form.
End Sub
Private Sub MyHSBar_Change()
  'Podemos até usar os eventos da ScrollBar, como
  'já foi comentado antes.
  MsgBox "HEI!!! Você me clicou!!!", vbCritical
End Sub

Agora coloque este código num Form e teste!

OBS: Só funciona no VB6.0...
 


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