Ovo sto je Goran napisao je tacno (jedino sa Set objekatForme = Nothing je neces skloniti)
Pogledaj malo ovaj kod (imamo dugme i dve forme , kod je u Form1 - > Command1 Click eventu)
Prvi deo subrutine radi ovo sto tebi treba ... do Unload Me
Code:
Private Sub Command1_Click()
On Error Resume Next
' Zbog sintaksnih gresaka dobro je u da promenljive imaju bar jedno veliko slovo
Dim Obrazac As Form2 ' Deklarisanje objekta klase Form2
Set Obrazac = New Form2 ' Konstrukcija novog objekta i pridruzivanje promenljivoj
Obrazac.Show ' Pozivanje metode u objektu
Me.Hide ' Sakriva ovu formu ali ona i dalje postoji i program se ne zavrsava dok se ne uradi Unload ove forme
Unload Me ' Poziva destruktor ove forme i ovaj objekat je unisten
' nesto ....
Set Obrazac = Nothing 'Ovim promenjlva vise nije povezana sa objektom ali objekat postoji jos uvek
Obrazac.Hide ' Ova linija izaziva gresku (zbog linije iznad) koja ce biti preskocena zbog prve linije
Dim na As Integer
For n = 1 To 3 ' 3 Puta konstruisemo objekat Form2 i promenljiva na kraju petlje pokazuje na poslednji
Set Obrazac = New Form2
Obrazac.Show
Next n
Obrazac.Caption = "Poslednja forma"
Debug.Print Err.Description ' Ispisujemo zadnju gresku
End Sub
Inace ovo sto tebi treba je moglo da se uradi sa ove dve linije
Code:
Form2.Show
Unload Me
zakacio sam mali primer za ovo ...
[Ovu poruku je menjao Eurora3D Team dana 27.04.2008. u 01:47 GMT+1]