ARRAY DE FORMULARIOS V2.0
no meu topico v1.0 estava com dificuldades de acesso a instancias de formularios , bem....o professor me passou um código que gera as tais instancias, mas ta dando o mesmo problema de antes...só consigo acessar a ultima instancia criada.......
ai vai o código
Option Explicit
Private oFrm() As Form2
Private Sub Command1_Click()
Dim t As Long
t = UBound(oFrm) + 1
ReDim oFrm(t)
Set oFrm(t) = New Form2
Load oFrm(t)
' adiciona os indices da variavel ( acrescentei ao codigo original do professor )
List1.AddItem t
With oFrm(t)
.Caption = "Instancia : " & UBound(oFrm)
.Show
End With
t = Empty
End Sub
Private Sub Form_Load()
ReDim oFrm(0)
End Sub
e eu acrescentei esse botão de comando para acesar uma caixa de texto da instancia
Private Sub Command2_Click()
oFrm(Val(List1.Text)).Text1.Text = Text1.Text
End Sub
uma ajuda sempre é bem vinda
ai vai o código
Option Explicit
Private oFrm() As Form2
Private Sub Command1_Click()
Dim t As Long
t = UBound(oFrm) + 1
ReDim oFrm(t)
Set oFrm(t) = New Form2
Load oFrm(t)
' adiciona os indices da variavel ( acrescentei ao codigo original do professor )
List1.AddItem t
With oFrm(t)
.Caption = "Instancia : " & UBound(oFrm)
.Show
End With
t = Empty
End Sub
Private Sub Form_Load()
ReDim oFrm(0)
End Sub
e eu acrescentei esse botão de comando para acesar uma caixa de texto da instancia
Private Sub Command2_Click()
oFrm(Val(List1.Text)).Text1.Text = Text1.Text
End Sub
uma ajuda sempre é bem vinda
Cole esse código e teste
Option Explicit
Private oFrm() As Form1
Dim n As Long
Private Sub Command1_Click()
Dim t As Long
t = UBound(oFrm) + 1
ReDim oFrm(t)
Set oFrm(t) = New Form1
oFrm(t).Tag = t
Load oFrm(t)
' adiciona os indices da variavel ( acrescentei ao codigo original do professor )
List1.AddItem t
With oFrm(t)
.Caption = "Instancia : " & UBound(oFrm)
.Show
End With
t = Empty
End Sub
Private Sub Form_Load()
ReDim Preserve oFrm(0)
End Sub
Private Sub Command2_Click()
For n = 0 To Forms.Count - 1
If Forms(n).Tag = List1.Text Then
Forms(n).Text1.Text = Text1.Text
Forms(n).SetFocus
End If
Next
End Sub
Option Explicit
Private oFrm() As Form1
Dim n As Long
Private Sub Command1_Click()
Dim t As Long
t = UBound(oFrm) + 1
ReDim oFrm(t)
Set oFrm(t) = New Form1
oFrm(t).Tag = t
Load oFrm(t)
' adiciona os indices da variavel ( acrescentei ao codigo original do professor )
List1.AddItem t
With oFrm(t)
.Caption = "Instancia : " & UBound(oFrm)
.Show
End With
t = Empty
End Sub
Private Sub Form_Load()
ReDim Preserve oFrm(0)
End Sub
Private Sub Command2_Click()
For n = 0 To Forms.Count - 1
If Forms(n).Tag = List1.Text Then
Forms(n).Text1.Text = Text1.Text
Forms(n).SetFocus
End If
Next
End Sub
valeu leopoldo.....agora foi....hehehe...
Eu sou de Volta Redonda
duh?
Tópico encerrado , respostas não são mais permitidas