alceus (Normal User)
Pro
Messaggi: 61
Iscritto: 11/06/2008
|
Ciao a tutti,
per caso qualcuno sa se è possibile sfumare un form o un oggetto in modo da renderlo di due o più colori diversi?
Grazie mille
|
|
GrG (Member)
Guru^2
Messaggi: 3430
Iscritto: 21/08/2007
|
Bè penso non sia possibile apparte i pulsanti (che però devi rendere in stile XP)
|
|
alceus (Normal User)
Pro
Messaggi: 61
Iscritto: 11/06/2008
|
Per caso puoi dirmi anche come faccio?
Grazie
|
|
GrG (Member)
Guru^2
Messaggi: 3430
Iscritto: 21/08/2007
|
Bè per far sfumare il pulsante rendendolo in stile xp devi aggiungere il componente: XP Style ActiveX pack se non ce l'hai googla un pò...
Ultima modifica effettuata da GrG il 17/06/2008 alle 12:11 |
|
alceus (Normal User)
Pro
Messaggi: 61
Iscritto: 11/06/2008
|
Grazie, molto utile quel componente, anche se non risolve del tutto il mio problema. Il mio obiettivo sarebbe quello di rendere sfumate delle barre degli strumenti (come per esempio lo sono quelle dei programmi in windows xp). Non c'è niente che posso fare?
grazie in ogni modo per l'aiuto...
Ultima modifica effettuata da alceus il 17/06/2008 alle 19:35 |
|
GrG (Member)
Guru^2
Messaggi: 3430
Iscritto: 21/08/2007
|
Fammi uno Screen Shot della barra così capisco meglio
|
|
alceus (Normal User)
Pro
Messaggi: 61
Iscritto: 11/06/2008
|
Ok, lo pubblico in allegato.
|
|
GrG (Member)
Guru^2
Messaggi: 3430
Iscritto: 21/08/2007
|
Ok ora capisco....
Bè potresti provare a mettere uno sfondo sfumato al form....oppure lo metti in un image
Ultima modifica effettuata da GrG il 18/06/2008 alle 13:32 |
|
alceus (Normal User)
Pro
Messaggi: 61
Iscritto: 11/06/2008
|
Comunque, con un codice sono riuscito a sfumare il form, ma non riesco a sfumare la toolbar e la barra degli strumenti.
Codice sorgente - presumibilmente VB.NET |
Private Sub Command2_click() Dim DS As Integer Dim DW As Integer Dim SM As Integer Dim SH As Integer Dim I As Integer Dim TheColor As Integer DS = frm.DrawStyle DW = frm.DrawWidth SM = frm.ScaleMode SH = frm.ScaleHeight frm.DrawStyle = vbInsideSolid frm.DrawWidth = 2 frm.ScaleMode = vbPixels frm.ScaleHeight = 256 For I = 0 To 255 Select Case TheColor Case 0 frm.Line (0, I)-(frm.Width, I + 1), _ RGB(255 - I, 80, 0), B Case 1 frm.Line (0, I)-(frm.Width, I + 1), _ RGB(0, 255 - I, 80), B Case 2 frm.Line (0, I)-(frm.Width, I + 1), _ RGB(0, 0, 255 - I), B Case Else MsgBox "Errore interno nella selezione del colore!" End Select Next I frm.DrawStyle = DS frm.DrawWidth = DW frm.ScaleHeight = SH frm.ScaleMode = SM End Sub
|
|
|