|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (ActiveX/Controles/DLL)
|
|
 |
Título da Dica: Criando Objetos em Run Time (VB6.0)
|
 |
|
|
|
Postada em 8/10/2000 por Webmaster
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...
|
|
|
|
|
