Knoppen

[johannetje2]

Hallo!

Hoe maak ik in VB deze knoppen met fade?

 

[old Hippy]

HU bedoel je dit ?

 Imports System.Threading
Module Fade
 
    Public Sub fade_Oud()
        Dim fade As Double
        For fade = 1.1 To 0.1 Step -0.1
            Form1.Opacity = fade
            Form1.Refresh()
            Threading.Thread.Sleep(100)
        Next
    End Sub


End Module

en in je form1.close() zet je fade_Oud()

 

[johannetje2]

Nee, ik wil graag zo'n knoppen die in en uit faden

 

[old Hippy]

je bedoeld dat als je er op klikt dat het lijkt of hij ingedrukt word?????

 

[johannetje2]

Nee, kijk:

[video=youtube;G-uLextVlfE]http://www.youtube.com/watch?v=G-uLextVlfE[/video]

 

[old Hippy]

oeps filmpje werkt bij mij niet

maar je kan mischien hier wat mee en dan met een timer wat stapjes maken??

  Private Sub Button1_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.MouseHover
        Button1.Size = New Size(150, 40)
    End Sub

    Private Sub Button1_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.MouseLeave
        Button1.Size = New Size(75, 23)
    End Sub

set de image op zoom dan veranderd die mee met de groote

 

[johannetje2]

Ik heb nu als achtergrond van mijn button een geanimeerd plaatje, maar hij beweegt niet

 

[old Hippy]

vreemt zou het moeten doen

werkt deze ook niet???
deze werkt bij mij wel

 

[The Mighty Atom]

Bedoel jij niet gewoon een fade as in gradient?

Dat dus?

 

[johannetje2]

Nee, kijk gwn naar een knop in windows 7.

 

[old Hippy]

Bekijk bijlage Debug.zipProbeer dit eens

zet een picturebox op een form1
maak een modulle en zet deze code er in

 Public Sub fade_afsluitenIn()
        Dim fade As Double
        For fade = 50 To 75 Step 1
            Form1.PictureBox1.Width = (fade)
            Form1.PictureBox1.Refresh()
            Form1.PictureBox1.Height = (fade)
            Threading.Thread.Sleep(5)
        Next
    End Sub

    Public Sub fade_AfsluitenOud()
        Dim fade As Double
        For fade = 75 To 50 Step -1
            Form1.PictureBox1.Height = (fade)
            Form1.PictureBox1.Refresh()
            Form1.PictureBox1.Width = (fade)
            Form1.PictureBox1.Refresh()
            Threading.Thread.Sleep(5)
        Next
    End Sub

zet in je form1 de volgende code

Imports System.Windows.Forms
Public Class Form1
    Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click
        Me.Close()
    End Sub

    Private Sub PictureBox1_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles PictureBox1.MouseHover
        fade_afsluitenIn()
    End Sub

    Private Sub PictureBox1_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles PictureBox1.MouseLeave
        fade_AfsluitenOud()
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        fade_AfsluitenOud()
    End Sub
End Class

Zet een image in de picturebox en zet die op zoom.

button Fade in en Oud.

 

[johannetje2]

En ook dat is weer niet wat ik bedoel...

 

[old Hippy]

Maak dan eens duidelijk wat je wel wil afbeelding of zo
Welke knoppen je in win7 bedoeld je zo dat je kan zien welk effect je wil.

 

[The Mighty Atom]

Als ik het goed begrijp wil je dus een button die verder niet van grootte veranderd, maar waarvan de image op de button transformeert naar een ander image als je de muis eroverheen beweegt, en weer terug transformeert als je de muis er weer van af haalt?

 

[old Hippy]

hi zit hier iets bij


Bekijk bijlage Debug.zip

 

[johannetje2]

Ik bedoel die gele knop, maar dattie grijs is en dan door de tijd heen gelig wordt.

Kijk:

http://www.johannetje2.nl/Pictures/Glow.gif

 

[old Hippy]

Ok maak een gif animatie van je knop zet dit in een label klaar is johannetje2

een eenvoudig programma om je animatie gif te maken is UnFREEz 2.1

http://www.whitsoftdev.com/unfreez/

zet de eerste afbeelding als standaard dus de grijze afbeelding

laad de gif met

 Private Sub Label2_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles Label2.MouseHover
        Label2.Image = fadbutton.My.Resources.Resources.Glow
    End Sub

    Private Sub Label2_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Label2.MouseLeave
        Label2.Image = fadbutton.My.Resources.Resources.Glow1
    End Sub

als je dus op de knop gaat staan zie je de knop geel worden.
de gif die je nu had is in een loop gemaakt maar dat kan ook dat hij het maar een keer doet.

hopelijk kom je hier verder mee

 

[johannetje2]

Het werkt, maar het herhaald zich steeds weer en dat moet niet!

 

[old Hippy]

ja dat klopt als je een annimatie maakt kan je hem in een loop zetten dan gaat hij als maar door
of je zet hem in een enkele gang dan stopt hij na dat alle lagen zijn geweest.

 

[johannetje2]

Ik gebruik de Easy Gif Animator... want ik wil heb fadend hebben...