Otvaranje-zatvaranje obrazaca u VB

[ kincer @ 26.04.2008. 16:33 ] @

Visual Basic
Ovako: Imam jedno dugme(Button1) i za njega vezan sledeci kod:
----------------------------
Dim obrazac as Form2
obrazac = new form 2
obrazac.show
obrazac=nothing
---------------------------
E sada kako mogu da ovaj prethodni obrazac(Form1) zatvorim a Form2 ostane otvoren.
Na ovom istom dugmetu(Button1)...

[ Aleksandar Vasic @ 26.04.2008. 17:29 ] @

Code:
Dim obrazac As New Form2
obrazac.Show
Unload Form1

ako sam te dobro shvatio....ne znam shta ti je to obrazac = nothing...

[ kincer @ 26.04.2008. 17:59 ] @

Znacenje NOTHING:
Objekat koji se zove obrazac izjednaci sa vrednoscu Nothong(nista) da bi se oslobodila memorija koju je objekat zauzeo.Ali ovo nije yoliko bitno jer sam mislio da je to mozda potencijalno rjesenje.
A ovo tvoje mi i nije bas jasno.Mozes malo pojasnit.
Mislim da zadnja recenica treba da izgleda ovako:
Unload.form1-----ali mozada gresim ma da u sustini kako bi ja mogao da devinisem unload jer je samo to greska....

[ Aleksandar Vasic @ 26.04.2008. 18:38 ] @

ne, treba

Code:
Unload Form1

a to nothing ti je ovako obrazac = ""

[ goranvuc @ 26.04.2008. 18:56 ] @

Citat:

Aleksandar Vasic:a to nothing ti je ovako obrazac = ""

E sad si ga bas "lupio"
treba:

Code:

Set obrazac = Nothing

jer se instance klasa, tj. objekti u VB6 kreiraju sa:

Code:

Set nesto = New nesto

a unistavaju:

Code:

Set nesto = Nothing

[ Aleksandar Vasic @ 26.04.2008. 19:12 ] @

lol vidish, to nisam znao :D

_{[Ovu poruku je menjao Aleksandar Ružičić dana 29.04.2008. u 01:00 GMT+1]}

[ Eurora3D Team @ 26.04.2008. 23:31 ] @

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]}