|
|
Postada em 29/11/2005 10:33 hs
Onde vc executa o codigo citado ? GZA. |
|
|
|
|
|
|
|
Postada em 29/11/2005 12:11 hs
Ola, amigos Duas observações: 1) Vc nao pode usar o New para criar um "controle" que vai existir graficamente na tela... ele deve ser declarado na sessão General e sempre com a declaração WithEvents... 2) mesmo q vc crie o controle, ele vai estar invisivel... vc precisa setar a propriedade Visible = True para que ele seja visivel na tela... Vou fazer alguns testes aki, e se encontrar o codigo certinho para isso, eu posto aki... Flw!
Elieser Carlos Topassi
Analista de Sistemas - Desenvolvedor VB/ASP/.Net
e-mail/msn: elieser_topassi@yahoo.com.br
São José do Rio Preto,SP - Brasil
_____________________________________________________
 "O caminho do tolo aos seus prórios olhos lhe parece reto, mas o sábio ouve conselhos" (Pv 12:15)
|
|
|
|
|
|
Postada em 29/11/2005 12:34 hs
Amigo, Vamos testar um código meu... depois vc adapita ele pra sua necessidade: Faz o seguinte: pede um projeto novo no VB, cria um formulario em branco, e coloca um botao no formulario. Deixa o nome do botao como Command1 mesmo... ai vc cola esse codigo no formulario: Option Explicit Private Text1 As TextBox Private Sub Command1_Click()
Set Text1 = Me.Controls.Add("VB.TextBox", "Text1")
Text1.Visible = True
Text1.Top = 120
Text1.Left = 120
Text1.Width = Me.ScaleWidth - 240
Text1.Height = 285
End Sub
Executa e ve se ele faz o que vc precisa... Flw!
Elieser Carlos Topassi
Analista de Sistemas - Desenvolvedor VB/ASP/.Net
e-mail/msn: elieser_topassi@yahoo.com.br
São José do Rio Preto,SP - Brasil
_____________________________________________________
"O caminho do tolo aos seus prórios olhos lhe parece reto, mas o sábio ouve conselhos" (Pv 12:15)
|
|
|
|
|
|
Postada em 29/11/2005 12:57 hs
Olá, GZA! Teste o seguite: - crie um 'TextBox'/'Label' ou outro objeto e defina sua propriedade 'Index = 0';
- onde desejar, faça: ---------------------------------------------------------------------------------
Dim i As Integer
For i = 1 To n 'Defina quantos objetos precisa criar, além do primeiro, é claro
Load objXYZ(i) 'Esta é a instrução que cria/carrega novos objetos
objXYZ(i).Top = objXYZ(i - 1).Top + 200
objXYZ(i).Caption = "Objeto " & Str(i)
objXYZ(i).Visible = True
Next i
---------------------------------------------------------------------------------
"Entre as coisas que conhecemos e as que desconhecemos existem as 'portas'."
(Jim Morrison)
Joseph
Técnico em Informática/Programador
São Paulo/SP |
|
TÓPICO EDITADO
|
|
|
|
|
