Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Otvaranje-zatvaranje obrazaca u VB

[es] :: Visual Basic 6 :: Otvaranje-zatvaranje obrazaca u VB

[ Pregleda: 3267 | Odgovora: 7 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

kincer

Član broj: 83682
Poruke: 30
*.teol.net.



Profil

icon Otvaranje-zatvaranje obrazaca u VB26.04.2008. u 16:33 - pre 193 meseci
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)...
 
Odgovor na temu

Aleksandar Vasic
Web Administrator, Uspon d.o.o
Čačak

Član broj: 91692
Poruke: 1226
*.eunet.yu.

Sajt: www.vasictech.net


+1 Profil

icon Re: Otvaranje-zatvaranje obrazaca u VB26.04.2008. u 17:29 - pre 193 meseci
Code:
Dim obrazac As New Form2
obrazac.Show
Unload Form1


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

kincer

Član broj: 83682
Poruke: 30
*.teol.net.



Profil

icon Re: Otvaranje-zatvaranje obrazaca u VB26.04.2008. u 17:59 - pre 193 meseci
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....
 
Odgovor na temu

Aleksandar Vasic
Web Administrator, Uspon d.o.o
Čačak

Član broj: 91692
Poruke: 1226
*.eunet.yu.

Sajt: www.vasictech.net


+1 Profil

icon Re: Otvaranje-zatvaranje obrazaca u VB26.04.2008. u 18:38 - pre 193 meseci
ne, treba
Code:
Unload Form1


a to nothing ti je ovako obrazac = ""
 
Odgovor na temu

goranvuc
Goran Vucicevic
Novi Sad

Član broj: 4934
Poruke: 1846
79.101.223.*



+41 Profil

icon Re: Otvaranje-zatvaranje obrazaca u VB26.04.2008. u 18:56 - pre 193 meseci
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
 
Odgovor na temu

Aleksandar Vasic
Web Administrator, Uspon d.o.o
Čačak

Član broj: 91692
Poruke: 1226
*.eunet.yu.

Sajt: www.vasictech.net


+1 Profil

icon Re: Otvaranje-zatvaranje obrazaca u VB26.04.2008. u 19:12 - pre 193 meseci

lol vidish, to nisam znao :D

[Ovu poruku je menjao Aleksandar Ružičić dana 29.04.2008. u 01:00 GMT+1]
 
Odgovor na temu

Eurora3D Team
Nebojsa - Programer & Vodja tima
Beograd

Član broj: 120376
Poruke: 900
91.148.115.*



+7 Profil

icon Re: Otvaranje-zatvaranje obrazaca u VB26.04.2008. u 23:31 - pre 193 meseci
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]
Prikačeni fajlovi
 
Odgovor na temu

[es] :: Visual Basic 6 :: Otvaranje-zatvaranje obrazaca u VB

[ Pregleda: 3267 | Odgovora: 7 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.