Newsgroup: it.comp.appl.access
Titolo: Ombra o non ombra

Che ne pensate di questo brillocco (inutile)?
'Impostazione ombra finestra
Private Declare Function GetClassLong Lib "user32.dll" Alias "GetClassLongA" 
_
  (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetClassLong Lib "user32.dll" Alias "SetClassLongA" 
_
  (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As 
Long
Private Const GCL_STYLE = -26
Private Const CS_DROPSHADOW = &H20000
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" ( _
                ByVal hwnd As Long, _
                ByVal wMsg As Long, _
                ByVal wParam As Long, _
                lParam As Any) As Long
Private Const WM_SETREDRAW = &HB&
'----------------------------------------------------------------------------------------------------------------------
' Imposta/rimuovi l'ombreggiatura di una maschera
'----------------------------------------------------------------------------------------------------------------------
Public Sub ShadowForm(ByVal frmForm As Form, Optional ByVal blnOmbra = True)
    On Error Resume Next
    SendMessage frmForm.hwnd, WM_SETREDRAW, False, ByVal 0
    frmForm.Visible = False
    If blnOmbra Then
        SetClassLong frmForm.hwnd, GCL_STYLE, GetClassLong(frmForm.hwnd, 
GCL_STYLE) Or CS_DROPSHADOW
    Else
        SetClassLong frmForm.hwnd, GCL_STYLE, GetClassLong(frmForm.hwnd, 
GCL_STYLE) And Not CS_DROPSHADOW
    End If
    frmForm.Visible = True
    SendMessage frmForm.hwnd, WM_SETREDRAW, True, ByVal 0
End Sub
E' piuttosto difettosa ... che fare?
Ciao
Daniele


non � difettosa... 


Se chiudi l'applicazione molte volte ti rimane l'ombreggiatura fantasma sul 
desktop
anche dopo averla disattivata.
Mistero? 

 Mistero?
Ma perch� vi ostinate a complicarvi la vita? usate le finestre normali 
che usano tutti e  vivete felici!  :-)
-- 
Cinzia [Office Access MVP]
_______________________
 
www.riolab.org
http://accessdaziacin.spaces.live.com
----------------------------------------

 usano tutti e  vivete felici!  :-)
+1
:-)
Giorgio Rancati

 che usano tutti e  vivete felici!  :-)
Hai ragione, in queste modifiche "stilistiche" c'� poco di razionale e c'� 
la tendenza a farsi del male.
Ma l'aspetto "esteriore" di un'aplicazione � una dell mie fisse e questa 
eccessiva sensibilit� neanche la Microsof l'ha mai persa di vista... a parte 
qualche sVista.
Ciao /-)
Daniele 


Che ci fai ancora in piedi?
Non posso darvi torto ragazzacci.
E' dai tempi del C=64 che coloravo case vicoli e palazzi.
E se ti dico che uso il playsound alla fine di una lennnnnta query 
pass-through?
Vedi posta 22.41
<-)
Ciao 

 ha scritto nel 
messaggio news:has68s$798$1...@news.eternal-september.org...

Eh... non mi puoi trovare che d'accordo... :-)
Ciao Cinzia
-- 
Roberto da Parma 

 Cinzia [Office Access MVP]
AMEN... come si può non ritenere Vangelo queste parole...!
@Alex


Dani� ma non stare qu� a lisciare i capelli ai ricci, non  puoi parlare di 
interfaccia a chi � amante del bianco e nero... forse (molto pi� che forse) 
talvolta noi sognatori, tendiamo a volere il digitale terrestre da una 
televisione che funziona ancora a valvole! ;-)
Per� almeno ci proviamo! :D:D:D:D
Io sono con te... anche io sono fissato per i fiocchetti 

 Io sono con te... anche io sono fissato per i fiocchetti
Qualcuno come me li chiama brillocchi altri lustrini insignificanti. Finch� 
non diventano una sVista devono essere usati, non � solo apparenza.
Ricordo che in DOS con chr(200), 206 disegnavo le fincature delle finestre � 
che simulavo l'ombreggiatura con  80.286 a 16 colori e mi sembrava 
fantastico.
Chiss� come, questo tipo di spennellature riscuotevano successo pi� dello bw 
anche con i miei insegnanti.
L'utente che vede a colpo d'occhio una casella di testo che ha lo stato 
attivo, pernso lavori meglio di uno che non sa dov'� andato a finire il 
cursore. (esempio banaaaaalissimo)
Proviamo a programmare con notepad... e vediamo che succede.
Bha ci sono mille esempi (pspad � uno editor completo)
Ti ringrazio per avere messo in comune questa tua fissa.
Ciao
Daniele


bh� ma tutti ormai sanno di m� rispetto all'argomento... la CISA e i miei 
DEMO li hanno convinti da tempo immemore che � cos�... io sono per 
l'UtONTO... per cui con la grafica (come ho capito la intendi anche tu) 
tendo spesso a guidarli e a rendere il software User friendly... mentre 
altri (non noi a quanto pare) tendono a valutare i nostri UtONTI come 
UtENTI, con una loro mente pensante, capace di districarsi tra le 1000 
funzionalit� di una qualsivoglia forms... � solo una filosofia di 
programmazione, nulla pi� nulla meno, per� io sono pienamente ripagato dalla 
mia teoria nel fare, perch� pur essendo ligio alle mie fisse, ho dei 
riscontri dalle solite bionde che per cancellare una riga usano il 
bianchetto sul monitor... figurarsi a non mettere i "miei" segnali stradali! 
:D