Otvaranje novog prozora

[ Alenko V6 @ 10.04.2008. 13:25 ] @

kako bih otvorio novi prozor sa novim izbornikom;
recimo ovako sam počeo

Code:

Option Explicit
Public prva As Integer
Public druga As Integer
Public treca As Integer

Private Sub Command1_Click()
If Option1.Value = True Then
Print "1"
Print prva
ElseIf Option2.Value = True Then
Print "2"
ElseIf Option3.Value = True Then
Print "3"

End If
End Sub

to je prvi prozor, sada recimo da treba otvoriti drugi sa isto tri opcije, pa onda treci, gdje bi npr. imao zbroj,
dakle, htio bih u novom prozoru, drugi set opcija, ili cak u tom prvom istom, ako ima neka komada za brisanje forme
i njenog sadrzaja, samo da napomenem da da prva forma ima i sliku u pozadini.

[ stefanpn @ 10.04.2008. 14:24 ] @

Dodaj novu formu Form2

i za prikazivanje te forme napisi:

Code:

Form2.Show

To je za prikazivanje nove forme, ali ako zelis da izmenis atribute vec postojecih kontrola na formi mozes jednostavno da stavis:

Code:

...
Option1.Caption = "Opcija 4"
Option2.Caption = "Opcija 5"
Option3.Caption = "Opcija 6"
...

_{[Ovu poruku je menjao stefanpn dana 10.04.2008. u 15:45 GMT+1]}

[ Alenko V6 @ 11.04.2008. 11:07 ] @

ok, form show, hide

gdje je sada problem, zašto ne ide na formu 3 izračun ?
prepostavljam da je problem u command2_click()

evo što sam uradio;

Code:

Option Explicit
Public prva As Integer
Public druga As Integer
Public treca As Integer
Public cetvrta As Integer
Public peta As Integer
Public sesta As Integer

Private Sub Command1_Click()
If Option1.Value = True Then
prva = 1
Call drugi
ElseIf Option2.Value = True Then
druga = 2
Call drugi
ElseIf Option3.Value = True Then
treca = 3
Call drugi
End If
End Sub

Private Sub drugi()
Form2.Show
End Sub
Private Sub Command2_Click()
If Option1.Value = True Then
cetvrta = 4
Call izracun
ElseIf Option2.Value = True Then
peta = 5
Call izracun
ElseIf Option3.Value = True Then
sesta = 6
Call izracun
End If
End Sub

Private Sub izracun()
Form3.Show
Print prva
Print sesta
End Sub

[ stefanpn @ 11.04.2008. 13:17 ] @

Ako iz sub-a prve forme zelis da menjas atribute/objekte ili koristis f-je na drugoj formi moras da ispises Form2.ImeF-je

Znaci konkretno u tvom primeru:

Code:

.
.
Form3.Print Prva
Form3.Print Sesta
.
.

[ Alenko V6 @ 11.04.2008. 13:42 ] @

želim da u trecoj formi daje recimo zbroj iz 1 i 2 forme

ne kuzim zasto nakon odabira u drugoj formi ne ide na trecu

[ stefanpn @ 11.04.2008. 14:08 ] @

Jedini razlog za to moze da bude da ti je vrednost svih Option.Value jednaka False.

Ako zelis da vidis vrednost polja objekta na drugoj formi onda moras pisati Form3.Option1.Value.

Konkretno:

Code:

...
If Form3.Option1.Value = True Then
...
ElseIf
...
...
End if

[ Alenko V6 @ 14.04.2008. 09:58 ] @

i dalje ne ide, zasto ?

Code:

Option Explicit
Public prva As Integer
Public druga As Integer
Public treca As Integer
Public cetvrta As Integer
Public peta As Integer
Public sesta As Integer

Private Sub Command1_click()
If Option1.Value = True Then
prva = 1
Call drugi
ElseIf Option2.Value = True Then
druga = 1
ElseIf Option3.Value = True Then
treca = 3
End If
End Sub

Private Sub drugi()
Form2.Show
Form1.Hide
End Sub

Private Sub Command2_click()
If Option1.Value = True Then
Print prva
Call izracun
ElseIf Option2.Value = True Then
peta = 5
Call izracun
ElseIf Option3.Value = True Then
sesta = 6
Call izracun
End If
End Sub

Private Sub izracun()
Form3.Show

Print prva
Print druga
End Sub

[ stefanpn @ 14.04.2008. 14:51 ] @

Postavi projekt, ako nije problem, pa da pogledamo. Jer ovako ne znam kakva ti je koncepcija, pa je tesko naci gresku...

[ Alenko V6 @ 15.04.2008. 10:14 ] @

projekt...

pa, ovako tri forme, tri prozora,
u prvom odaberem jednu opciju od tri u drugom drugu opciju od tri, u trecem prikazem recimo zbroj prve i druge

[ stefanpn @ 15.04.2008. 12:26 ] @

Kada hoces da koristis/ispitujes objekt koji se nalazi na drugoj formi onda moras da navedes:
imeForme.imeObjekta.imePolja/Metode

Znaci kao sto rekoh:

Code:

...
If Form2.Option1.Value = True Then
...
ElseIf Form1.Option1.Value = True Then
...
...
End if

Ali pazi koja je forma aktivna i sta se trenutno izvrsava.

[ Alenko V6 @ 15.04.2008. 12:56 ] @

prije svega hvala na strpljenju
iako me pomalo ovaj VB frustrira, neke tako jednostavne stvari ne da ne kuzim nego uopce ne kuzim zasto ne radi.

evo;

Code:
Option Explicit
Public prva As Integer
Public druga As Integer
Public treca As Integer
Public cetvrta As Integer
Public peta As Integer
Public sesta As Integer

Private Sub Command1_click()
If Option1.Value = True Then
prva = 1
Call drugi
ElseIf Option2.Value = True Then
druga = 1
ElseIf Option3.Value = True Then
treca = 3
End If
End Sub

Private Sub drugi()
Form2.Show
Form1.Hide
End Sub

Private Sub Command2_click()
If Form2.Option1.Value = True Then
Print prva
Call izracun
ElseIf Form2.Option2.Value = True Then
peta = 5
Call izracun
ElseIf Form2.Option3.Value = True Then
sesta = 6
Call izracun
End If
End Sub

Private Sub izracun()
Form2.Hide
Form3.Show
Print prva
Print druga
End Sub

otvorio sam tri forme, Form1,2 i 3 prve dvije imaju 3x optionbutton i jedan command button
pa opet stoji na formi dva što god probao
u knjizi pise da se forma aktivira sa form1.active, ali ja tu komandu nemam, imam samo activecontrol koja javlja grešku
Pomoć!!!

_{[Ovu poruku je menjao Alenko V6 dana 15.04.2008. u 14:13 GMT+1]}

[ stefanpn @ 15.04.2008. 13:13 ] @

Posto meni stvarno nije jasno sta si ti hteo da odradis, ja ti evo postavljam resenje koje ja mislim da bi ti odgovaralo.

[ Alenko V6 @ 15.04.2008. 13:17 ] @

da to je to
hvala

unload me,

a zašto netreba učitati formu, sa recimo form1.load

[ stefanpn @ 15.04.2008. 14:23 ] @

Niko nije rekao da ne treba... Doduse ne pise se Form.Load nego Load Form

Load Form1 ti ucitava formu u memoriju.

Form1.Show ti ucita formu, ukoliko nije vec ucitana, i prikaze je na ekranu.

Dobio bi isti efekat da napises:

Load Form1
Form1.Visible = True

[ rgdrajko @ 15.04.2008. 18:28 ] @

Evo i ja malo da se igram.
To isto ali sa hiljadu formi. Pozdrav, Rajko

Startup Object: frmRezultat

Form1:

Code:
'Autor: Rajko Kuzamnovic

Option Explicit

Private Sub Command1_Click()
Call PrikaziNovuFormu
End Sub

Private Sub Command2_Click()
frmRezultat.Show
End Sub

frmRezultat:

Code:
'Autor: Rajko Kuzamnovic

Option Explicit

Private Sub Command1_Click()
    Call PrikaziNovuFormu
End Sub

Private Sub Command2_Click()
    Dim n As Integer
    For n = 1 To brojac
        List1.AddItem novaforma(n).Caption & " " & novaforma(n).Option1.Caption & "=" & novaforma(n).Option1.Value
        List1.AddItem novaforma(n).Caption & " " & novaforma(n).Option2.Caption & "=" & novaforma(n).Option2.Value
        List1.AddItem novaforma(n).Caption & " " & novaforma(n).Option3.Caption & "=" & novaforma(n).Option3.Value
        List1.AddItem ""
    Next n
End Sub

Private Sub Command3_Click()
    End
End Sub

Module1:

Code:
'Autor: Rajko Kuzamnovic

Option Explicit

Public brojac As Integer

Public novaforma(1 To 1000) As New Form1

Public Sub PrikaziNovuFormu()
    brojac = brojac + 1
    novaforma(brojac).Caption = "Form" & brojac
    novaforma(brojac).Show
End Sub

[ Shadowed @ 15.04.2008. 18:53 ] @

Nisam citao bas sve poruke, ali je Rajko ovde uradio jednu dobru stvar (doduse, u nekom drugom kontekstu).
Deklarisanje promenljive tipa forme i inicijalizacija su bolja varijanta od pukog form.show jer pruzaju bolju kontrolu.
Znaci, umesto form2.show:

Code:

dim MyForm as new form2
MyForm.Show

Ovo omogucava da se preko objekta MyForm pristupa samoj formi i radi sa njom sta je vec potrebno.