Aporia se VB6.sxetika me analisi o8onis...

[Kmour]

Loipon kseri kanis pos ginete i efarmogi na katalabeni tin analisi toy ka8e xristi kai etsi na blepi sosta tis formes sto pc toy asxeta apo tin analisi pou aytos xrisimopiei?<BR>Exo dokimasi na kano ta eksis pou den douleboun:<BR>frmPresents.Width = Screen.Width<BR>frmPresents.Height = Screen.Height<BR>frmPresents.Left = (Screen.Width - frmPresents.Width) / 2<BR>frmPresents.Top = (Screen.Height - frmPresents.Height) / 2<BR>Elpizo na mporesete na me boi8isete.<BR>eyxaristo pedia<BR>kostas<P><IMG SRC="http://www.insomnia.gr/cpubb/smilies/cwm15.gif" border=0>

[Kmour]

Loipon ? Kanis?... <BR><IMG SRC="http://www.insomnia.gr/cpubb/smilies/cwm15.gif" border=0> <IMG SRC="http://www.insomnia.gr/cpubb/smilies/cwm36.gif" border=0>

[Επισκέπτης]

Gia na vreis tis diastaseis pou exei h o8onh prepei na xrhsimopoihseis API.<BR>Etsi se kapoio module 8a valeis ton kwdika<BR><FONT face="Courier New">Private Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long<P>Private Const SM_CXSCREEN = 0<BR>Private Const SM_CYSCREEN = 1<BR></FONT f><P>Etsi me <BR><FONT face="Courier New">GetSystemMetrics(SM_CXSCREEN)</FONT f><BR>pairneis thn analysh ston orizontio a3ona kai me <BR><FONT face="Courier New">GetSystemMetrics(SM_CYSCREEN)</FONT f><BR>thn analysh ston ka8eto a3ona.<P>Afta... kai mhn eisai epimonos! ;p Ola 8a apanth8oun mhn anyshxeis<P>Filika<BR>Dionisos

[Paulus]

<BLOCKQUOTE><font size="1" face="Verdana, Arial">quote:</font><HR>Originally posted by Kmour:<BR><B>Loipon kseri kanis pos ginete i efarmogi na katalabeni tin analisi toy ka8e xristi kai etsi na blepi sosta tis formes sto pc toy asxeta apo tin analisi pou aytos xrisimopiei?<BR>Exo dokimasi na kano ta eksis pou den douleboun:<BR>frmPresents.Width = Screen.Width<BR>frmPresents.Height = Screen.Height<BR>frmPresents.Left = (Screen.Width - frmPresents.Width) / 2<BR>frmPresents.Top = (Screen.Height - frmPresents.Height) / 2<BR>Elpizo na mporesete na me boi8isete.<BR>eyxaristo pedia<BR>kostas<P><IMG SRC="http://www.insomnia.gr/cpubb/smilies/cwm15.gif" border=0> </B><HR></BLOCKQUOTE><BR>Den xreiazetai na xrisimopoiithei API sinartisi gia auto to aplo programma!!!!Einai tzampa kopos!<BR>Gia tin analisi kata width apla pairneis ton logo Screen.Width / Screen.TwipsPerPixelX kai kata platos ton logo Screen.Height / Screen.TwipsPerPixelY<P>

[Kmour]

Xmmmm...kalo to post sou mou fenete file paulus.Gia dose perisoteres plirofories.Den eixa kai poli xrono gia na rotiso ton dioniso gia tin diki toy ekdoxi.Alloste den ksero ti kanoun ta Api mallon den exo diabasi to sxetiko kefaleo akomi...<BR><IMG SRC="http://www.insomnia.gr/cpubb/smilies/cwm15.gif" border=0> <IMG SRC="http://www.insomnia.gr/cpubb/smilies/cwm15.gif" border=0>

[Paulus]

To paidi pou apantise prin apo emena xrisimopoiise mia sinartisi<BR>i opoia den einai 'eswteriki' stin VB alla anikei se kapoio allo arxeiaki kai sigkekrimena sto "user32.dll" pou brisketai ston fakelo "/windows/system". I sinartisi auti (GetSystemMetrics) opws kai arketes ekatontades alles apoteloun meros enos synolou synartisewn mesw twn opoiwn ginetai i diaxeirisi olou tou leitourgikoy sistimatos, gnwsto ws Win32 API (Application Programming Interface).An programmatizes se C++ tha eisoun anagkasmenos apo to prwto programmataki na xrisimopoiiseis tetoies sinartisoules.Mesw tou Win32 API oi sinartiseis diaxeirisis tvn Windows einai prosvasimes apo opoiadipote glwssa programmatismoy...Na min se kourazw parapanw stin periptwsi tin sigkekrimeni pistevw oti den itan anagki na treksei kaneis stin xrisi tetoiwn sinartisewn,apo ti stigmi pou i VB parexei to antikeimeno Screen tou opoiou oi idiotites opws tha gnwrizeis einai poli xrisimes...Oi idiotites Width kai Height tou Screen einai se twips, opote an diairethoun antistoixa me tis times TwipsPerPixelX kai TwipsPerPixelY pernoume ton arithmo twn pixel stin orizontia kai stin katheti diastasi antistoixa.(I analisi dinetai se pixel).Dokimase loipon ta parakatw se dio diaforetikes analiseis tis othonis sou kai tha deis gia paradeigma "800x600" i "1024x768":<P>dim cx%,cy%<BR>cx=screen.width/screen.twipsperpixelx<BR>cy=screen.height/screen.twipsperpixely<BR>msgbox cx &"x" & cy

[sh4dow]

mallon thes kapoio activex pou kanei resise se ola ta visible controls.

[BR]

Εάν κατάλαβα καλά, για κένε τεστ στο πιο κάτω:<P>Private Sub Form_Load()<BR> Left = 0<BR> Top = 0<BR> Width = Screen.Width<BR> Height = Screen.Height<BR>End Sub<P>Σημαντικό είναι να προσέξεις να ορίσεις την φόρμα MANUAL στο Sturtup Posision.<BR>Εάν θέλεις μπορείς να τον τοποθετήσεις και στο Resize.<BR>Για να κάνει αυτόματα και τα εργαλεία, θα πρέπει να πάρεις το Resize.OCX από το δίκτυο. Είναι Free και το βρίσκεις πολύ εύκολα.<P>BR

[Kmour]

Re si den blepo na ginete tipote.Mipos na ftene ta fonts pou sto allo pc einai diaforetika?Exo dokimasi sto panepistimio pali se 1024x768 kai dixni mia xara.Sto spiti stin dikia mou 15ara episis mia xara.stin 17ara (allo pc me allo mege8os fonts malon) skata ekso apo tin o8oni ta koumpia...<BR>To screen den blepo na kani tipote ...des kai to proto post mou.<BR>elpizo na me boi8isi kanis.<BR>kostas<IMG SRC="http://www.insomnia.gr/cpubb/smilies/cwm15.gif" border=0>

[Paulus]

Me tin xrisi tou Screen den mporeis na allakseis tin analisi tis othonis para mono na tin deis.Fysika kai to megethos twn fonts paizei rolo alla auto einai allo thema-den exei sxesi me tin analisi.

[Kmour]

Xmmm mu fenete pos o br exi dikio.Exo stis formes tin epilogi centerowner.mipos 8eli manual?kai giati omos?<BR>apo tin alli file br an dis to post mu stin arxi<BR>frmPresents.Width = Screen.Width<BR>frmPresents.Height = Screen.Height<BR>frmPresents.Left = (Screen.Width - frmPresents.Width) / 2<BR>frmPresents.Top = (Screen.Height - frmPresents.Height) / 2<BR> exo kani ayto pou les ektos apo tin ri8misi tou startup position formas se manual.<BR>tora mipos einai 8ema fonts?<BR>sorry paulus alla den ksero an einai 8ema analisis o8onis i oxi, to upe8esa arxika giati kati tetio simbeni meta apo tin allagi tis analisis akomi kai sta win xoris restart kai alagi fonts.<BR>kostas<BR>

[BR]

Θα προσπαθήσω να σε βοηθήσω, αν και με έχεις μπερδέψει.<P>Έχεις δύο επιλογές:<BR>1.Ο χρήστης θα δουλέψει με την δική του ανάλυση οθόνης και να προσαρμόζεται το πρόγραμμά σου σε αυτή<BR>2. Ο χρήστης τρέχοντας την εφαρμογή, θα αλλάζει αυτόματα η ανάλυση οθόνης στην ανάλυση που έχεις φτιάξει την εφαρμογή.<P>Στην πρώτη περίπτωση συνιστώ να δουλέψεις την εφαρμογή στην ανάλυση 800Χ600 και το μόνο πρόβλημα που θα έχεις είναι εάν ο χρήστης χρησιμοποιήσει μικρότερη ανάλυση από αυτή (640Χ480), πράγμα σπάνιο για τα Windows. Εάν χρησιμοποιήσεις αυτόν τον τρόπο θα πρέπει να σκεφτείς μερικές λεπτομέρειες όπως την γραμματοσειρά. Γι αυτό συνήθως σε κάθε φόρμα καλό είναι να δηλώνεις τα Fonts.<P>Στην δεύτερη περίπτωση, θα πρέπει να χρησιμοποιήσεις κώδικα με τον οποίο θα αλλάξεις την ανάλυση της οθόνης. Αυτό γίνεται με ΑΡΙ συναρτήσεις, χρησιμοποιώντας το Directx7.0 ή Directx8.0 της Microsoft. Δεν συνιστώ τον δεύτερο τρόπο γιατί περιορίζεις τον χρήστη ώστε να χρησιμοποιεί μόνο την δική σου εφαρμογή, που θα έχει σαν αποτέλεσμα να μην την χρησιμοποιεί συχνά.<P>Εάν θέλεις να χρησιμοποιήσεις τον δεύτερο τρόπο, πες μου ένα e-mail να σου στείλω ένα source file.<P>BR<BR>

[Paulus]

Re paidia,to startup position exei na kanei monaxa me tin arxiki thesi tis formas otan fortwnetai:auto den exei na kanei me to apotelesma tis entolis move.I move methodos tha einai to idio gia opoiadipote startup position!Bebaia ta pragmata allazoun analoga me to windowstate -an einai maximized tote i move den kanei tipota.

[Kmour]

File Br otan eftiaxna to programma xrisimopoiousa 1024x768 ara 8eoro pos ayti einai i analisi pou xrisimopoiei to programma.Apo ayta pou les protimo ton proto tropo, ara mallon ftene ta fonts.Pos ta orizis pano stin forma?ayto den to exo piraksi.File paulus gia windowstate den exo maximized kai exo ke centerowner gia to position.Mallon ta fonts ftene, ti les ki esi?<BR>Pedia sas eyxaristo pou asxoliste, mia ke prokite gia ergasia ke etsi einai akomi pio simantiko ....leme tora<BR>kostas<IMG SRC="http://www.insomnia.gr/cpubb/smilies/cwm35.gif" border=0>

[Kmour]

Einai trela ta computer?To pc poy eixe problima dior8ose to problima, me tin nea egkatastasi poy toy ekana?den ksero ti eftege.Isos na min eixe gini sosta to compilation?Ti na po. An exete idea pite mu ke mena, giati an pao na to paroysiaso ke kani ta idia 8a gino to ligotero rompa, gia na min po oti 8a xaso ton titlo toy masterzi.<BR>Eyxaristo pantos olus gia tin boi8ia ke elpizo na synexisoyme oloi etsi.<BR><IMG SRC="http://www.insomnia.gr/cpubb/smilies/cwm30.gif" border=0> <IMG SRC="http://www.insomnia.gr/cpubb/smilies/cwm12.gif" border=0> <BR>kostas