[es] - i problem na kraju,resize form

shpiki
Student
Novi Sad

Član broj: 50342
Poruke: 1651

+62 Profil

Re: i problem na kraju,resize form

^{02.07.2010. u 19:06 - pre 167 meseci}

Koja je vrednost za faktura.Controls(Brojac).Top?

Pozdrav.

There are only 10 types of people in the world:
those who understand binary, and those who don't.

Odgovor na temu

vuchko.vuchko

Član broj: 217112
Poruke: 301
*.teol.net.

+2 Profil

Re: i problem na kraju,resize form

^{02.07.2010. u 22:31 - pre 167 meseci}

Code:
miki987

Mogao si odgovoriti i na pm , kao sto si i dobio kod , no dobro...

tu ti je problem jer nemozes mijenjati visinu kombo boxa pa si na vrhu funkcije trebao staviti

Code:
On Error Resume Next

, a ja sam to izostavio jer nisam se sjetio da se ona ne moze mijenjati. Eto toliko...

Odgovor na temu

miki987

Član broj: 208123
Poruke: 511
178.217.10.*

+5 Profil

Re: i problem na kraju,resize form

^{02.07.2010. u 22:34 - pre 167 meseci}

scaleheight = 10650
scaleleft = 0
scalemode = twip
scaletop = 0
scalewidth = 20250
top = -4980

Odgovor na temu

miki987

Član broj: 208123
Poruke: 511
178.217.10.*

+5 Profil

Re: i problem na kraju,resize form

^{03.07.2010. u 17:44 - pre 167 meseci}

HVALA VELIKO svima na pomoci :D
vuchko.vuchko posebno tebi hvala, molim te proveri pvt

Odgovor na temu

vuchko.vuchko

Član broj: 217112
Poruke: 301
*.teol.net.

+2 Profil

Re: i problem na kraju,resize form

^{03.07.2010. u 22:00 - pre 167 meseci}

Ma nista zato smo tu. Jesi resio ovaj zadnji problem?

Odgovor na temu

miki987

Član broj: 208123
Poruke: 511
178.217.10.*

+5 Profil

Re: i problem na kraju,resize form

^{03.07.2010. u 22:32 - pre 167 meseci}

e opet problem, fali mi jos samo malo da se na svim rezoluicijama vidi desni deo forme, sumnjam na ova podesavanja, zapravo ja svaki put kad zapocinjem raditi neki program najpre kusrorom rucno razvucwm po vertikali i horizontali formu, ova podesavanja u glavnom ne diram. e sad, bez tvog koda program se vidi u celosti u najveoj rezoluciji dok sa kodom za vrlo malo sece formu sa desne strane isto u najvecoj rezoluciji.

Prikačeni fajlovi

Untitled-2.jpg - 199.21k

Odgovor na temu

vuchko.vuchko

Član broj: 217112
Poruke: 301
*.teol.net.

+2 Profil

Re: i problem na kraju,resize form

^{03.07.2010. u 23:11 - pre 167 meseci}

A zasto moras staviti

Code:
WindowsState -> Maximized

, pokusaj staviti na Normal a pri Form Load stavi

Code:
Me.Left=1 i Me.Top=1 Me.Height=RezolucijaPoVisini i Me.Width=RezolucijaPoDuzini

, Vjerujem da bi tada onaj moj kod odradio posao kako valja i sve bi se fino ravnomerno razvulko po celom ekranu...

Odgovor na temu

miki987

Član broj: 208123
Poruke: 511
178.217.10.*

+5 Profil

Re: i problem na kraju,resize form

^{05.07.2010. u 13:13 - pre 167 meseci}

evo sta se desava

Code:

Private Sub Form_Load()

Me.Left = 1
Me.Top = 1
Me.Height = RezolucijaPoVisini
Me.Width = RezolucijaPoDuzini

Parametrizacija Me.Count, Me.Height, Me.Width, faktura
Resizer Me.Count, Me.Height, Me.Width, faktura

end sub

Prikačeni fajlovi

Untitled-2.jpg - 137.58k

Odgovor na temu

miki987

Član broj: 208123
Poruke: 511
*.dynamic.isp.telekom.rs.

+5 Profil

Re: i problem na kraju,resize form

^{05.07.2010. u 15:04 - pre 167 meseci}

vuchko ne vredi ovo ipak ne radi, kad smanjim rezoluciju i pokrenem program isti k... i popizdeo sam vise nemam pojam sta vise da radim

Odgovor na temu

vuchko.vuchko

Član broj: 217112
Poruke: 301
*.teol.net.

+2 Profil

Re: i problem na kraju,resize form

^{05.07.2010. u 15:28 - pre 167 meseci}

Da li bi bio voljan postaviti samo formu faktura, ovde na forum, samo sa komandama slobodno ti obrisi kod, cisto da pokusamo to resiti... Pozdrav!

Odgovor na temu

miki987

Član broj: 208123
Poruke: 511
*.dynamic.isp.telekom.rs.

+5 Profil

Re: i problem na kraju,resize form

^{05.07.2010. u 15:40 - pre 167 meseci}

naravno, evo pogledaj

Prikačeni fajlovi

resize.rar - 4.33k

Odgovor na temu

vuchko.vuchko

Član broj: 217112
Poruke: 301
*.teol.net.

+2 Profil

Re: i problem na kraju,resize form

^{05.07.2010. u 17:21 - pre 167 meseci}

U startu si pogresio, kada si razvukao formu preko vrednosti "rezolucije" ekrana i sad jednostavno se desni dio ne moze nikako ubaciti na ekran, mislim da je za resenje tvog problema potreban zoom in i zoom out, evo sklepao sam nesto pa vidi jel ti valja naravno sad ti trebas napraviti da se to razvuce po sirini i mislim da bi moglo raditi...

Prikačeni fajlovi

Zoom.rar - 4k

Odgovor na temu

miki987

Član broj: 208123
Poruke: 511
*.dynamic.isp.telekom.rs.

+5 Profil

Re: i problem na kraju,resize form

^{05.07.2010. u 22:00 - pre 167 meseci}

hmmm ne znam sta mogu sad sa ovim ...
sta mi predlazes ako bih krenuo od samog pocetka, nije mi problem da prepravim kod i formu samo ne znam kako?

usput pogledaj kako je to odradjeno na ovom primeru, to je on osto ja zapravo hocu

_{[Ovu poruku je menjao miki987 dana 06.07.2010. u 00:11 GMT+1]}

Prikačeni fajlovi

New_mail_n177839852004.zip - 194.88k

Odgovor na temu

vuchko.vuchko

Član broj: 217112
Poruke: 301
*.teol.net.

+2 Profil

Re: i problem na kraju,resize form

^{06.07.2010. u 00:56 - pre 167 meseci}

Ma nemoras to raditi ponovo, jednostavno smanji formu na neku manju rezoluciju ekrana, a zatim malo stisni kontrole da sve stanu na nju i da fino izgledaju i to je to!

Odgovor na temu

miki987

Član broj: 208123
Poruke: 511
*.dynamic.isp.telekom.rs.

+5 Profil

Re: i problem na kraju,resize form

^{07.07.2010. u 12:45 - pre 167 meseci}

problem resen, vucko hvala

Citat:

Private Sub Form_Load()
Parametrizacija Me.Count, Me.Height, Me.Width, form1
Resizer Me.Count, Me.Height, Me.Width, form1
form1.Height = Me.Height
form1.Width = Me.Width
Visina = Me.Height
Sirina = Me.Width
End Sub

Citat:

Private Sub Form_Resize()
Resizer Me.Count, Me.Height, Me.Width, form1
End Sub

modul

Citat:

Option Explicit

Public Parametar() As Double
Public Function Parametrizacija(BrKontrola As Integer, VisinaF As Integer, SirinaF As Integer, Form As Form)
Dim Brojac As Integer
On Error Resume Next
ReDim Parametar(BrKontrola, 4)
For Brojac = 0 To BrKontrola - 1
Parametar(Brojac, 1) = VisinaF / form1.Controls(Brojac).Height
Parametar(Brojac, 2) = SirinaF / form1.Controls(Brojac).Width
Parametar(Brojac, 3) = VisinaF / form1.Controls(Brojac).Top
Parametar(Brojac, 4) = SirinaF / form1.Controls(Brojac).Left
Next Brojac
End Function

Public Function Resizer(BrKontrola As Integer, VisinaF As Integer, SirinaF As Integer, Form As Form)
Dim Brojac As Integer
For Brojac = 0 To BrKontrola - 1
On Error Resume Next
form1.Controls(Brojac).Height = VisinaF / Parametar(Brojac, 1)
form1.Controls(Brojac).Width = SirinaF / Parametar(Brojac, 2)
form1.Controls(Brojac).Top = VisinaF / Parametar(Brojac, 3)
form1.Controls(Brojac).Left = SirinaF / Parametar(Brojac, 4)
Handler:
Next Brojac
End Function

Odgovor na temu