Breadcrumbs

[mikethedj4]

Does anyone know how to use sprites as rollovers in VB.NET?

At the moment I'm using separate images, and that's annoying, loads slower, and just looks unprofessional. I've always used sprites in web development, and love how sprites work, as it saves me so much time, but not sure how to do it in code.

This is an example of how I'm using a picturebox for image rollovers, but separate images, not sprites.

Code: Select all

    Private Sub HighDef_MouseMove(ByVal sender As Object, ByVal e As System.EventArgs) Handles HighDef.MouseMove
        HighDef.Image = Image.FromFile(Application.StartupPath & "\images\highdef-hover.png")
    End Sub

    Private Sub HighDef_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles HighDef.MouseLeave
        HighDef.Image = Image.FromFile(Application.StartupPath & "\images\highdef.png")
    End Sub

    Private Sub HighDef_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles HighDef.MouseDown
        HighDef.Image = Image.FromFile(Application.StartupPath & "\images\highdef-click.png")

        Form1.Size = New System.Drawing.Size(427, 240)
        Form1.CamResize()

        CamWidth.Text = "427"
        CamHeight.Text = "240"
    End Sub

    Private Sub HighDef_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles HighDef.MouseUp
        HighDef.Image = Image.FromFile(Application.StartupPath & "\images\highdef-hover.png")
    End Sub

This is one of the sprites I want to use for a rollover.

sprite.png

[CodenStuff]

Maybe something like this using a picturebox:

Code: Select all

Dim Rollover = 0 'Y Location of part of sprite to use - each is 24 pixels high = 3 images
    Private Sub PictureBox1_MouseEnter(sender As System.Object, e As System.EventArgs) Handles PictureBox1.MouseEnter
        Rollover = 24 'Change Y to second image in sprite
        PictureBox1.Invalidate()
    End Sub

    Private Sub PictureBox1_Paint(sender As System.Object, e As System.Windows.Forms.PaintEventArgs) Handles PictureBox1.Paint
        e.Graphics.DrawImage(My.Resources.sprite, New Rectangle(0, 0, 105, 24), New Rectangle(0, Rollover, 105, 24), GraphicsUnit.Pixel)
    End Sub

    Private Sub PictureBox1_MouseLeave(sender As System.Object, e As System.EventArgs) Handles PictureBox1.MouseLeave
        Rollover = 0 'Change Y to first image in sprite
        PictureBox1.Invalidate()
    End Sub

    Private Sub PictureBox1_MouseDown(sender As System.Object, e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseDown
        Rollover = 48 'Change Y to third image in sprite
        PictureBox1.Invalidate()
    End Sub

    Private Sub PictureBox1_MouseUp(sender As System.Object, e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseUp
        Rollover = 24 'Change Y to second image in sprite
        PictureBox1.Invalidate()
    End Sub

I used the sprite image you provided for the test.