()
Newbie
Messaggi:
Iscritto:
|
Ciao a tutti, dentro un form dovrei mettere un immagine, con il bordo di colore "fucksia",
Ma quando si esegue, il "fucksia" non si deve vedere.
Come si fà? aiuto...
P.S.
Vorrei anche che senza il bordo "dove c'è il chiudi" si possa spostare
L'immagine:
Ultima modifica effettuata da il 20/08/2008 alle 14:07 |
|
GrG (Member)
Guru^2
Messaggi: 3430
Iscritto: 21/08/2007
|
ma non puoi mettere al posto del fucsia il colore del form?
|
|
()
Newbie
Messaggi:
Iscritto:
|
e che colore?
|
|
GrG (Member)
Guru^2
Messaggi: 3430
Iscritto: 21/08/2007
|
Un colore sulla scala del grigio (paint non lo puoi usare, serve qualche software di grafica con a disposizione tante tonalità di colore)
oppure visto che è difficile trovare il colore giusto fai lo sfondo del form del colore grigio che ha paint, oppure lo fai tutto nero o tutto bianco o tutto rosso ecc. ti devi un pò arrangiare...
|
|
()
Newbie
Messaggi:
Iscritto:
|
ma come fa vb.net a farlo?
in pratica gli imposto il colore che voglio non si veda e succede?
|
|
Alceus (Member)
Expert
Messaggi: 288
Iscritto: 22/07/2008
|
Puoi rendere trasparente lo sfondo della tua immagine con Photoshop, per esempio...
Ecco te l'ho resa trasparente, adesso è una .gif.
La allego.
Ciao
|
|
Alceus (Member)
Expert
Messaggi: 288
Iscritto: 22/07/2008
|
Postato originariamente da Ultra Phonic 2:
P.S.
Vorrei anche che senza il bordo "dove c'è il chiudi" si possa spostare
|
Non ho capito, cosa devi spostare? |
|
()
Newbie
Messaggi:
Iscritto:
|
vorrei che si sposti il form, in quanto senza bordo resta fermo
Ultima modifica effettuata da il 21/08/2008 alle 19:35 |
|
Alceus (Member)
Expert
Messaggi: 288
Iscritto: 22/07/2008
|
Codice sorgente - presumibilmente VB.NET |
Option Explicit Dim Cliccato As Boolean Dim PosLef, PosTop, X1, Y1 As Integer
|
Codice sorgente - presumibilmente VB.NET |
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Cliccato = True X1 = X Y1 = Y PosLef = Me.Left PosTop = Me.Top End Sub
|
Codice sorgente - presumibilmente VB.NET |
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) If Cliccato = True And Button = 1 Then PosLef = PosLef + (X - X1) PosTop = PosTop + (Y - Y1) Me.Left = PosLef Me.Top = PosTop End If End Sub
|
Codice sorgente - presumibilmente VB.NET |
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) Cliccato = False End Sub
|
Ultima modifica effettuata da Alceus il 21/08/2008 alle 22:49 |
|