Otvaranje novog prozora

Otvaranje novog prozora 10.04.2008. u 14:25 · pre 225 meseci #1

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.

Re: Otvaranje novog prozora 10.04.2008. u 15:24 · pre 225 meseci #2

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"
...

Re: Otvaranje novog prozora 11.04.2008. u 12:07 · pre 225 meseci #3

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

Re: Otvaranje novog prozora 11.04.2008. u 14:17 · pre 225 meseci #4

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
.
.

Re: Otvaranje novog prozora 11.04.2008. u 14:42 · pre 225 meseci #5

ž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

Re: Otvaranje novog prozora 11.04.2008. u 15:08 · pre 225 meseci #6

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

Re: Otvaranje novog prozora 14.04.2008. u 10:58 · pre 225 meseci #7

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

Re: Otvaranje novog prozora 14.04.2008. u 15:51 · pre 225 meseci #8

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

Re: Otvaranje novog prozora 15.04.2008. u 11:14 · pre 225 meseci #9

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

Re: Otvaranje novog prozora 15.04.2008. u 13:26 · pre 225 meseci #10

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.

Re: Otvaranje novog prozora 15.04.2008. u 13:56 · pre 225 meseci #11

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ć!!!

Re: Otvaranje novog prozora 15.04.2008. u 14:13 · pre 225 meseci #12

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

Project.zip2.72k

Re: Otvaranje novog prozora 15.04.2008. u 14:17 · pre 225 meseci #13

da to je to
hvala

unload me,

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

Re: Otvaranje novog prozora 15.04.2008. u 15:23 · pre 225 meseci #14

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

Re: Otvaranje novog prozora 15.04.2008. u 19:28 · pre 225 meseci #15

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

Potpis

rgdrajko

Project1.zip6.91k

Re: Otvaranje novog prozora 15.04.2008. u 19:53 · pre 225 meseci #16

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.

Potpis

Nebojsa Milanovic:
-Trumpa smatram vrhunskim predsednikom i voleo bih da živim u državi na čijem je on čelu
-Rusija ne laže, ne vodi osvajačke ratove
-Trump je svetla tačka u USA blatu
-Elon Musk, možda najpametniji i najtrezveniji Amerikanac

Forum kao aplikacija na telefonu

Srodne teme