Newsgroup: it.comp.lang.visual-basic
Titolo: [?] I controlli Wang non funzionano. Strano...

Prima di iniziare a descrivere le mie piccole disavventure segnalo subito la
conformazione software delle macchine su cui ho fatto i miei tentativi:
S.O. Windows 95 versione 4.00.950 B
Visual Basic 5.0 con aggiornamento Service Pack 3
L’hardware utilizzato per le prove sono stati 3 PC diversi con la stessa
configurazione software ma con la RAM che varia da un minimo di 32 Mbyte ad
un massimo di 128Mbyte
Processori utilizzati Pentium 166, Pentium 200 e Pentium II 266.
Le stampanti provate erano sia locali su LPT1 che su rete Windows.
Disavventura numero 1.
Ho bisogno di poter stampare una immagine bitmap su una stampante laser
rispettando la risoluzione con cui l’immagine è stata scannerizzata (300
dpi).
Per fare questo mi è sembrato naturale utilizzare il componente ImgAdmin
della Wang fornita insieme a VB5.
Dai numerosissimi esempi presnti sull’Help in linea di VB e sui manuali
cartacei in dotazione (se li trovate per favore fatemelo sapere…) ho dedotto
che il metodo corretto potesse essere quello di caricare l’immagine in un
controllo ImgAdmin e successivamente stamparlo utilizzando la finestra di
dialogo che lo stesso controllo mette a disposizione.
Il tutto si dovrebbe tradurre (credo) in uno spezzone di codice come quello
che segue:
Private Sub Command1_Click()
ImgAdmin1.Image = App.Path & "\IMMAGINE.BMP"
ImgAdmin1.ShowPrintDialog
End Sub
Effettivamente  appare sul video una bella e normale finestra di dialogo che
mi dice che posso scegliere quale stampante utilizzare, come utilizzare la
stampante, quale risoluzione della stampa usare, quante copie stampare
eccetera, eccetera, eccetera, eccetera , eccetera…..
….peccato che appena appare questa finestrella smetto immediatatamente di
posedere un mouse……
Traduzione:
il mouse si puó fare spostare tranquillamente sul video ma non è piú
possibile cliccare su nulla !!!!
Ovviamente posso continuare ad utilizzare la tastiera, quindi con il TAB mi
posiziono sul tasto Stampa, premo Enter e come per miracolo….. NON VIENE
STAMPATO NULLA ? (il print manager non mi ha nemmeno considerato).
Soluzione ???!
1) Avvio
2) Chiudi Sessione…
3) Riavvia il sistema
4) OK
(Una volta per ogni Disavventura numero 1 dopo aver tentato una nuova
modifica al programmino…)
Disavventura Numero 2
Su un’immagine bitmap, precedentemente scannerizzata, devo scrivere del
testo e mostrare il risultato a video.
Niente di piú semplice: basta inserire nella form del programma un controllo
ImgEdit della Wang fornito con VB5 ed il gioco è fatto.
Risultato:
E’ vero che posso inserire del testo sulla mia bitmap (perfino prelevandolo
direttamente da un file testo presente sul PC), ma peccato che il font che
riesco ad utilizzare è solo  MsSanSerif, qualsiasi sia il font che io vado
ad assegnare alla proprietá AnnotationFont. MA ALLORA A CHE SERVE LA
PROPRIETÁ ANNOTATIONFONT ????
La sfiga vuole che io abbia assolutamente bisogno di un sano font fisso come
il Courier New.
Bei tempi quelli della modalitá carattere, altro che i pupazzetti che
vengono utilizzati sui sistemi operativi attuali che servono solo per
vendere piú PC (ogni tanto ho un attacco reazionario nei confronti delle
innovazioni tecnologiche che corrono piú veloci di me…).
Sono quasi sicuro (la certezza ormai non esiste piú in questa materia che si
puó paragonare all’astrologia) di stare sbagliando qualcosa.
Cosa ???????
Vi saró molto grato per una eventuale risposta, ma anche per dei brevi
spezzoni di codice su cui poter fare delle prove.
Sarei felice anche se qualcuno sapesse indirizzarmi su qualche controllo
FreeWare che abbia la possibilitá di scrivere del testo su una immagine
bitmap con un font fisso e di stamparlo mantenendo le stesse proporzioni (e
risoluzione) dell’immagine originale.
Vi ringrazio anticipatamente per aver avuto la pazienza di leggere questo
messaggio.
AIUTO!!! AIUTO!!! AIUTO!!! AIUTO!!! AIUTO!!! AIUTO!!! AIUTO!!! AIUTO!!!
AIUTO!!! AIUTO!!! AIUTO!!! AIUTO!!! AIUTO!!! AIUTO!!! AIUTO!!! AIUTO!!!
AIUTO!!! AIUTO!!! AIUTO!!! AIUTO!!! AIUTO!!! AIUTO!!! AIUTO!!! AIUTO!!!

...
Ho usato i controlli wang esclusivamente per scansionare le immagini.
Mi era infatti giunta voce che non funzionassero sotto W98.
Tale voce è poi stata smentita dai fatti (per l'utilizzo che ne fo' io).
Comunque usando l'ogetto Printer ed il metodo PaintPicture puoi
realizzare quello che desideri.
Attualmente non ho codice di esempio sottomano, ma uno dei miei problemi è
stato di evitare che il testo si sovrapponesse all'immagine.