i problem na kraju,resize form

Re: i problem na kraju,resize form 02.07.2010. u 20:06 · pre 198 meseci #21

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

Pozdrav.

Potpis

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

Re: i problem na kraju,resize form 02.07.2010. u 23:31 · pre 198 meseci #22

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

Re: i problem na kraju,resize form 02.07.2010. u 23:34 · pre 198 meseci #23

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

Re: i problem na kraju,resize form 03.07.2010. u 18:44 · pre 198 meseci #24

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

Re: i problem na kraju,resize form 03.07.2010. u 23:00 · pre 198 meseci #25

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

Re: i problem na kraju,resize form 03.07.2010. u 23:32 · pre 198 meseci #26

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.

Untitled-2.jpg199.21k

Re: i problem na kraju,resize form 04.07.2010. u 00:11 · pre 198 meseci #27

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

Re: i problem na kraju,resize form 05.07.2010. u 14:13 · pre 198 meseci #28

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

Untitled-2.jpg137.58k

Re: i problem na kraju,resize form 05.07.2010. u 16:04 · pre 198 meseci #29

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

Re: i problem na kraju,resize form 05.07.2010. u 16:28 · pre 198 meseci #30

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!

Re: i problem na kraju,resize form 05.07.2010. u 16:40 · pre 198 meseci #31

naravno, evo pogledaj

resize.rar4.33k

Re: i problem na kraju,resize form 05.07.2010. u 18:21 · pre 198 meseci #32

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

Zoom.rar4k

Re: i problem na kraju,resize form 05.07.2010. u 23:00 · pre 198 meseci #33

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

New_mail_n177839852004.zip194.88k

Re: i problem na kraju,resize form 06.07.2010. u 01:56 · pre 198 meseci #34

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!

Re: i problem na kraju,resize form 07.07.2010. u 13:45 · pre 198 meseci #35

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

Forum kao aplikacija na telefonu

Srodne teme