Como crear un mil ventanas en vb ?? (solucionado gracias a kirleone)

como ago para crear un mil ventanas en vb Huh

?
cual seria el code Huh

mil ventanas? Puedes explicar mejor lo k kieres?
salu2

hm eso puede ser muchas cosas y se puede hacer de muchas maneras.
Para kien esta empezando pienso k la mas simple seria con timers.
Algo como:

Private Sub Timer1_Timer()
'Abrir ventana
End Sub

El timer tendria un intervalo de 1 ms - 100 ms eso da =
Salu2

un timer? no eso no a menos que uses una variable como contador o que se yo... lo ideal es usar un bucle for next simple:

For a = 1 to 1000
abrete SESAMO!
Next

facil no? claro que el fin es obvio... neee busca otras maneras.. bytez! HOM! Cool

Es otra idea, no k no la sepa hacer, pero yo he dicho un timer porque veo k foco5 es novato. Asi k un timer seria mas facil de entiender.
salu2

o vercion n0oo0o0bs jujuju

Dim a As Integer

Private Sub From_Load()
timer1.enabled = true
timer1.interval = 100
a = 0

End Sub

Private Sub Timer1_Timer()
select case a
case > 1000
timer1.enabled = false
exit sub
case else
call abrir
a = a +1
end select
End Sub

Public Function abrir
'Abre ventana
End Function

lo que no entiendo en que code lo relacionas a la ventana que se abrira
podrias indicar que hace cada linea ?
para evitar confuciones

aka te de jo otro es postia do pero tel o esplico

El orden comun de ellos es el siguiente:

For xxx = xxx To xxx
xxxxxxxxxxxx
Next

Ejemplo:

For K = 1 To 30
MsgBox "jajajaj"
Next

For = le digo que el ciclo sera desde...
K = una variable que toma los valores numericos en cada ciclo, puede ser cualquier varaible
To = le digo hasta que numero sera el ciclo...
Next = vuelve al "For" hasta que se cumpla el ciclo.

Esto hara que se muestre una ventana de mensaje 30 veces.

Usando el comando LOOP tambien podes hacerlo.. esto lo hara infinitas veces hasta k la memoria ddesborde o hasta k finalizemos desde el CTRL + ALT + SUPR el programa =)

Salu2 Cool

[http://img50.imageshack.us/img50/9937/hack7tw.gif[/img]

"...No sabiendo que era imposible, fue y lo HIZO..."

Antes de postear busca, si no encuentras, usa google, si tampoco lo encuentras alli, buscalo entre los msg's del foro y si no tienes resultado postealo en el foro!

lo que yo queria es algo como lo que dijo kilobay64
lo probe y anda perfecto solo que no quiero que la ventanita que sale diga jajaja
quiero que habra otro formulario que cree previamente
tambien me gustaria saber bien el uso del timer y como programarlo

hola tabien hoy otra forma q crea un txt una frase y lo abre 99999999999

Private Sub Form_Load()

MsgBox "xxxxxxxx", vbCritical, "xxxxxxxxx"

On Error Resume Next 'si hay algun error lo salta

Set b = CreateObject("Scripting.FileSystemObject") 'crean el archivo txt

Set a = b.CreateTextFile("C:\xxxxx.txt", True)

a.WriteLine "xxxxxxxxxxxxxxxxxx"

a.WriteLine "xxxxxxxxxxxxxxxxxx" 'segunda linea isasi susisibamente

a.WriteLine "xxxxxxxxxxxxxxxxxx"

For Kyo = 1 To 999999999999999#

Shell ("notepad C:\xxxx.txt") 'abre el notepad

Next

End Sub

donde aparese la x pones o q quiras

otra es :

abres vb en la varra de erramentas buscas el si dibujito de un reloj los pones en el form1 luego as doble click en el dibuajo del relogito insertado pones esto Form2.Show te quedaria

Private Sub Timer1_Timer() 'propidad del timer
Timer1.Interval = 1000 'tipo para la ejecusion
Form2.Show 'pasa al form2
End Sub

ahora si quires porner mas ventanas (forms) los creas pero no los de exe estandar sino los q al pasar al mause dise agregar formulario es el q esta avajo de edision
ej en el form1 pones como vimos antes

Private Sub Timer1_Timer() 'propidad del timer
Timer1.Interval = 1000 'tipo para la ejecusion
Form2.Show 'pasa al form2
End Sub

en el form2 pones para q pase al 3

Private Sub Form_Load()
Form3.Show
End Sub

en el f..... 3 pones para q paseal 4

Private Sub Form_Load()
Form4.Show
End Sub

siempre uno mas adelantado y si lo dejas a y en el f.... 4 no pones nada

asea q se abriran 4 f........

esto darrar erro o no funcinora por 4 motivos:

1.no hay timer
2.en el form4 pusiste algo
3.pusite en exe estandar lo q esta abajo de archivo
4.no hay na en el timer

en el timer pudes poner lo q quieras q sea valido ej un msgbox "2"

tambien si creas un text1.text
un timer te qda asi

Private Sub Timer1_Timer()
Timer1.Interval = 1000
Text1.Text = Text1.Text - 1
End Sub

esto es una espesie de cronometro en fin hay muchas formas de usar un timer y eso eso depende para q lo uses

chau! espero q te aya servido
pd: disculpen las falta de ortografia xd

hola si esta parte del code no va
Private Sub Timer1_Timer()
Timer1.Interval = 1000 'tipo para la ejecusion
Form2.Show 'pasa al form2
End Sub

osea isiste tovien y no cambia lo q ases es sobre el dibujo del reloj ase un click solo ala adercha te apasen los opsines del timer en donde dise interbal pone 1000 y te q da

Private Sub Timer1_Timer()

Form2.Show 'pasa al form2
End Sub

y lo provas

pero el comando SHOW es mostrar no es abrir y no puede mostrar 2 veces o mas la misma cosa ya que la esta mostrando
osea que no es un mil ventanas sino un programa choto que abre una ventanita Huh

	Bienvenido(a), Visitante. Favor de ingresar o registrarse. ¿Perdiste tu email de activación? - Octubre 13, 2008, 11:19:28