Newsgroup: it.comp.lang.visual-basic
Titolo: [VB6] clsResize.cls e i fonts?

Ciao...
dal TR sotto mi sono deciso a passare quindi alla clsResize.cls [VB6] e 
sostituire tutte le SSTAB che non erano correttamente viste, con altrettanti 
frame in modalit� visible e Zorder... e il classico btn di scelta....un 
lavoraccio... ma ci sono riuscito... spero sia stata la cosa 
migliore...(?!?)
CHIEDO AIUTO:
Se qualche d'uno fosse cos� gentile potrebbe aiutarmi nel chiarire alcune 
cosette che non saprei farle da solo:
Volevo inserire anche qualche cosa per i campi delle MSHflexgrid che non 
gestisce e soprattutto se fosse possibile poter anche lavorare sul resize 
dei caratteri fonts che non cambiano di grandezza.
Onestamente ho letto qualche cosa in merito ma non saprei come/dove inserire 
modifiche sulla clsResize.cls...
GRAZIE PER UN CONSIGLIO o QUALCHE LINEA DI CODICE!!!
ps.: nel frmload il comando   "Resizer.SizeFormToScreen 75" a cosa serve?
ho provato a cambiare il numero ma non ho capito a cosa serva esattamente.
Mi scuso per le mia "incapacit�"....
GRAZIE PER QUALSIASI AIUTO E PER QUALCHE CODICE!
Ciao

 GRAZIE PER UN CONSIGLIO o QUALCHE LINEA DI CODICE!!!
Una sub da lanciare a finestra caricata
sub
for each controllo in finestra
    on error resume next (non tutti i controlli chimano la size del font 
allo stesso modo, e quindi hai un errore
    if cntrollo.font.size > 0 then controllo.fnt.size = controllo.font.size 
+2
    if cntrollo.fontsize > 0 then controllo.fontsize = controllo.fontsize +2
   if... altri modi e oggetti che possono capitare, metti che hai un grafico 
....
loop
end sub
-- 
Greg 


grazie Gregg per la tua gentilezza... purtroppo la mia incapacit� 
programmativa spesso mi preclude l'avvicinamento al tuo sicuro ottimo 
consiglio... sig :-((( e solo l'ottimo sempre presente consiglio che 
raggiungo qui mi permette di evidenziare sia la mia "incapacit�"..sig... ma 
soprattutto l'aiuto extra utile che ricevo!!! GRAZIEEEEEE!!!!!!!
Supponendo che nel form da "ingrandire" che attualemnte con clsresize segue 
alla grande tutte le mie scelte di posizione e grandezza... mi potresti 
aiutare dandomi maggiori dettagli?
Il fomr da ingrandire contiene label textbox checkbox cmbutton frame... 
nessun grafico
mi potreste aiutare nel tradurre maggiormente "pratico" il consiglio ?
Sono piuttosto duro in ste cose... tanto che  a volte mi sembra cirillico... 
sry.. :-))
grazie mille!
Anto

ApipApip ha scritto:
qui la classe non c'entra.
Tu hai una finestra e vuoi che al suo avvio ogni scritta di ogni controllo 
la size di ogni scritta di ogni controllo diventi size + 2.
Quindi ti passi in rassegna tutti i controlli e aggiugi 2 alla size
La sub che t h scritto a braccio nel post sopra l'hai provata?
Come logica e procedimento� ok, magari devi controllare se ho scritto male 
qualche propriet�
-- 
Greg 

 qualche propriet�
Ciao
Non per causa tua ma io non so come scriverla... e dove metterla.... :-))
Intendi una cosa del genere messo in resize?
qui mi da un bordello di errori....
Dim frm As Form
Dim btn As Button
Dim lbl As Label
For Each frm In xyz
    If frm.Font.Size > 0 Then frm.Font.Size = frm.Font.Size + 2
    If frm.FONTSIZE > 0 Then frm.FONTSIZE = frm.FONTSIZE + 2
Next
For Each btn In xyz
    If btn.Font.Size > 0 Then btn.Font.Size = btn.Font.Size + 2
    If btn.FONTSIZE > 0 Then btn.FONTSIZE = btn.FONTSIZE + 2
Next
For Each lbl In xyz
    If lbl.Font.Size > 0 Then lbl.Font.Size = lbl.Font.Size + 2
    If lbl.FONTSIZE > 0 Then lbl.FONTSIZE = lbl.FONTSIZE + 2
Next
ciao

 dei caratteri fonts che non cambiano di grandezza.
Mi date un sito di host in cui fare un upload di uno zip rapido?
Senza dovermi registrare perch� non ho tempo.
La classe che ho modificato, gestisce il resize dei font e le colonne delle
msflexgrid.

"Andrea [Work]" <andrea.isw...@gmail.invalid> ha scritto nel 
messaggio news:qlq3kkb4udnv.9ao657xez30v$.dlg@40tude.net...

URKA.... gentilissimo:
Non ho un host ma mandamelo pure direttamente:
apipapip su hotmail punto com
GRAZIE 1000, poi magari lo mando sul sito comune :-)))
Anto

 GRAZIE 1000, poi magari lo mando sul sito comune :-)))
http://www.megafileupload.com/en/file/101408/Resize-Classe-zip.html
Vedi un po' se ci cavi qualcosa.

 Vedi un po' se ci cavi qualcosa.
SPERO... grazie mille.... una birra al volo!
http://tinyurl.com/cqmg3w
spero non stressare ancora con qualceh mio "problema esistenziale" in 
ambiante VB6 :-)))
GRAZIE sto attendendo il timeout dei 30secondi per scaricarlo... TANKS!
Vado e torno!
Anto

 Vedi un po' se ci cavi qualcosa.
Azz altro che qualche cosa... GRANDE!!!!
Vorrei cercare di capire dove lavori sui font ma onestamente ARABO!
Restringendo DESTRA SINISTRA i font variano ma lavorando sulla verticale 
ALTO/BASSO del form i font non cambiano, suppongo sia semplice da inserire 
anche questa opzione cos� da adattare anche il font in base all'altezza del 
form....?
MITICO...
ora provo su un form con una ventina di SSTAB e ti dico cosa succede prima 
che butto le SSTAB e le cambio anche in quel form.

 del form....?
Stramitico... coi form vari funziona perfettamente.
Ho notato che nelle mshflex, il font parte da molto molto piccolo... infatti 
se dimezzo una normale font 10/12 diventa extra piccolo... e se ingrandisco 
le celle non si modificano e il font si taglia.
DOMANDA da un "birrone"... in un progetto a pi� form, se in uno di questi 
form non volessi che modifichi il FONT infatti poi avrei nella finestra 
della mshflex ad esempio le barre di scorrimento.... ma solo tutto il resto, 
si potrbbe fare o si complica il tutto?
adesso provo la sstab... :-)))
grazie ancora della dritta... extra!
ciao

 adesso provo la sstab... :-)))
MITICO anche le 20 SSTAB funzionano alla grande!!!
GRAZIE MILLE PER l'ENORME AIUTO CHE MI HAI DATO!
ora vedo di risolvere qualche cosina... sopra...
domande e qualche consiglio di cui sopra riporto:
- sarebbe possibile e/o conveniente lavorare sul FONT anche sull'altezza del 
form
- sarebbe possibile evitare il cambio del font in alcuni form (mi sembra che 
prendano dal form principale alcune info e si ridimensionano ugualmente 
senza codice?)...
- dato che uso una quindicina di FORM per evitare di scrivere tutto il 
codice per 15 volte come si potrebbe mettere ad esempio in un modulo BAS e 
richiamare volta per volta o non � possibile e devo scrivere 15 volte lo 
stesso codice per ogni form?
PER IL MOMENTO GRAZIE ORA STO SISTEMANDO nei frm QUESTA OTTIMA SOLUZIONE!!! 
da mettere su qualche sitocomune... !
ciao GRAZIE!
Anto
ciao
Anto

 si potrbbe fare o si complica il tutto?
C'� il codice qui:
If (InStr(ResizeFlags, "W,H")) Then
  .Font.Size = m_Controls(i).OriginalFontSize *
(m_Controls(i).OriginalWidth * WidthChange) / m_Controls(i).OriginalWidth
  If .Font.Size > m_MaxFontSize Then
   .Font.Size = m_MaxFontSize
  End If
End If
Il primo verifica che se il resize � sia Weight che Height allora procede
ad ingrandire i font. Se io allargo solamente, l'altezza delle label e
textbox rimane medesima, quindi il font potrebbe venire tagliato in
altezza.
La seconda riga setta il FontSize con percentuale di variazione rispetto
alla dimensione originale.
Infine c'� un IF che se il font calcolato � maggiore di quello Massimo
impostato (es. 11.5 o 12) allora lo riporta al massimo impostabile.
Allo stesso modo di m_MaxFontSize puoi crearti m_MinFontSize e fare
  If .Font.Size > m_MaxFontSize Then
   .Font.Size = m_MaxFontSize
  End If
  If .Font.Size < m_MinFontSize Then
   .Font.Size = m_MinFontSize
  End If
Comunque mi spiace dirlo, ma devi cercare di capire che fa, perch� non
troverai mai qualcosa che funziona al 100% per come vuoi tu.

 stesso codice per ogni form?
Qualcosa si. Puoi fare delle routine a cui passi un argomento As Form.
Ovviamente negli eventi devi fare comunque il richiamo alle routine.

 Vedi un po' se ci cavi qualcosa.
Andrea, volevo darci un occhio pure io ma ottengo filenotfound; magari l'hai 
cancellato?
-- 
Greg 



Si, lo ricarico :)
Ce lo lascio, tanto non c'� nulla di che.

 Ce lo lascio, tanto non c'� nulla di che.
http://www.megafileupload.com/en/file/101610/Resize-Classe-zip.html
Ad ogni modo non credo sia eterno, quindi salvatelo da qualche parte.

 Ad ogni modo non credo sia eterno, quindi salvatelo da qualche parte.
Fatto, grazie :)
-- 
Greg 

Ad ogni modo non credo sia eterno, quindi salvatelo da qualche parte.
dice:  50 days after no download.
--
ciao
  Stefano