Publicado por: Elzo Brito | 10/03/2008

Criando controles no visual basic 6

Olá pessoal,
hoje nos vamos aprender a criar controles no visual basic 6, a tarefa é simples basta seguir os passos e pronto.

você pode criar controles no visual basic de várias maneiras uma delas é:

Private Sub Form_Load()
  Me.Controls.Add "VB.TextBox", "minha_textbox"
  Me.Controls("minha_textbox").Visible = True
End Sub

simples não? porém você não tem a flexibilidade de programar os eventos deste controle, como Click, MouseMove e etc, para termos a flexibilidade do rabo da lagartixa precisamos declarar os objetos antes de usá-los.

vamos lá, digite isso aqui:

Dim WithEvents minha_label As Label

Private Sub Form_Load()
  Set minha_label = Controls.Add("VB.Label", "minha_label")
With minha_label .Caption = "Adeus mundo cruel"
  ' E na propriedade caption é onde vai aparecer o texto que queremos
  ' pense em top e left como sendo os eixos X e Y
  ' então o top é o eixo Y e o left é o eixo X

  .Top = 10
  ' top define a posição do objeto
  .Left = 10
  ' top define a posição do objeto
  .Visible = True
  ' a propriedade visible é impressindível se
  'você não colocar seu controle não aparece
End With

End Sub

E aí funcionou? simples né?

Agora vem a parte mais difícil programar os eventos pessoa você caro leitor que tenha bastante paciência e preste bastante atenção ok?

depois de digitar todo o código acima dê dois clicks no Form deve ficar assim:

 VB

depois clique aqui.

VB2

Pronto agora é só programar

VB3

agora digite:

Private Sub minha_label_Click()
  MsgBox "hahkuahu té peguei", vbCritical
End Sub

enfim pessoal é tudo automático quando você declara a variável lá em cima

Dim WithEvents minha_label As Label

O visual basic de lambuja (camaradagem) já te dar todos os eventos deste controle então é só programar normalmente.


Respostas

  1. OLA PESSOAL, SEM QUERER SER EMCOMODO MAIS EU QUERIA APRENDER A FAZR UM BYPASS PARA JOGOS E COISAS COMO CHAMS E AIMBOT(TUDO PELO VB6/VB5) SERA QUE ALGUEM PODE ME ENSINAR :D

    VLW….

  2. podria me explicar o q é o ME conforme linha abaixo:

    Me.Controls.Add


Deixe uma resposta

Sua resposta:

Categorias