Is There A Better Way To Load Pictures

[DroopyPawn]

Is this the right way to load pictures or is there a newer/better way?

Option Explicit On
Option Strict On

Public Class Card
    Dim p(0 To 80) As Image

    Private Sub Card_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        LoadImages()
    End Sub

    Private Sub LoadImages()
        'back
        p(0) = New Bitmap("C:\Documents and Settings\Gary Shepherd\Local Settings\Application Data\Temporary Projects\Card Games\Resources\b.gif")

        'clubs
        p(1) = New Bitmap("C:\Documents and Settings\Gary Shepherd\Local Settings\Application Data\Temporary Projects\Card Games\Resources\ac.gif")
        p(2) = New Bitmap("C:\Documents and Settings\Gary Shepherd\Local Settings\Application Data\Temporary Projects\Card Games\Resources\2c.gif")
        p(3) = New Bitmap("C:\Documents and Settings\Gary Shepherd\Local Settings\Application Data\Temporary Projects\Card Games\Resources\3c.gif")
        p(4) = New Bitmap("C:\Documents and Settings\Gary Shepherd\Local Settings\Application Data\Temporary Projects\Card Games\Resources\4c.gif")
        p(5) = New Bitmap("C:\Documents and Settings\Gary Shepherd\Local Settings\Application Data\Temporary Projects\Card Games\Resources\5c.gif")
        p(6) = New Bitmap("C:\Documents and Settings\Gary Shepherd\Local Settings\Application Data\Temporary Projects\Card Games\Resources\6c.gif")
        p(7) = New Bitmap("C:\Documents and Settings\Gary Shepherd\Local Settings\Application Data\Temporary Projects\Card Games\Resources\7c.gif")
        p(8) = New Bitmap("C:\Documents and Settings\Gary Shepherd\Local Settings\Application Data\Temporary Projects\Card Games\Resources\8c.gif")
        p(9) = New Bitmap("C:\Documents and Settings\Gary Shepherd\Local Settings\Application Data\Temporary Projects\Card Games\Resources\9c.gif")
        p(10) = New Bitmap("C:\Documents and Settings\Gary Shepherd\Local Settings\Application Data\Temporary Projects\Card Games\Resources\tc.gif")
        p(11) = New Bitmap("C:\Documents and Settings\Gary Shepherd\Local Settings\Application Data\Temporary Projects\Card Games\Resources\jc.gif")
        p(12) = New Bitmap("C:\Documents and Settings\Gary Shepherd\Local Settings\Application Data\Temporary Projects\Card Games\Resources\qc.gif")
        p(13) = New Bitmap("C:\Documents and Settings\Gary Shepherd\Local Settings\Application Data\Temporary Projects\Card Games\Resources\kc.gif")

        'diamonds
        p(14) = New Bitmap("C:\Documents and Settings\Gary Shepherd\Local Settings\Application Data\Temporary Projects\Card Games\Resources\ad.gif")
        p(15) = New Bitmap("C:\Documents and Settings\Gary Shepherd\Local Settings\Application Data\Temporary Projects\Card Games\Resources\2d.gif")
        p(16) = New Bitmap("C:\Documents and Settings\Gary Shepherd\Local Settings\Application Data\Temporary Projects\Card Games\Resources\3d.gif")
        p(17) = New Bitmap("C:\Documents and Settings\Gary Shepherd\Local Settings\Application Data\Temporary Projects\Card Games\Resources\4d.gif")
        p(18) = New Bitmap("C:\Documents and Settings\Gary Shepherd\Local Settings\Application Data\Temporary Projects\Card Games\Resources\5d.gif")
        p(19) = New Bitmap("C:\Documents and Settings\Gary Shepherd\Local Settings\Application Data\Temporary Projects\Card Games\Resources\6d.gif")
        p(20) = New Bitmap("C:\Documents and Settings\Gary Shepherd\Local Settings\Application Data\Temporary Projects\Card Games\Resources\7d.gif")
        p(21) = New Bitmap("C:\Documents and Settings\Gary Shepherd\Local Settings\Application Data\Temporary Projects\Card Games\Resources\8d.gif")
        p(22) = New Bitmap("C:\Documents and Settings\Gary Shepherd\Local Settings\Application Data\Temporary Projects\Card Games\Resources\9d.gif")
        p(23) = New Bitmap("C:\Documents and Settings\Gary Shepherd\Local Settings\Application Data\Temporary Projects\Card Games\Resources\td.gif")
        p(24) = New Bitmap("C:\Documents and Settings\Gary Shepherd\Local Settings\Application Data\Temporary Projects\Card Games\Resources\jd.gif")
        p(25) = New Bitmap("C:\Documents and Settings\Gary Shepherd\Local Settings\Application Data\Temporary Projects\Card Games\Resources\qd.gif")
        p(26) = New Bitmap("C:\Documents and Settings\Gary Shepherd\Local Settings\Application Data\Temporary Projects\Card Games\Resources\kd.gif")

        'hearts
        p(27) = New Bitmap("C:\Documents and Settings\Gary Shepherd\Local Settings\Application Data\Temporary Projects\Card Games\Resources\ad.gif")
        p(28) = New Bitmap("C:\Documents and Settings\Gary Shepherd\Local Settings\Application Data\Temporary Projects\Card Games\Resources\2d.gif")
        p(29) = New Bitmap("C:\Documents and Settings\Gary Shepherd\Local Settings\Application Data\Temporary Projects\Card Games\Resources\3d.gif")
        p(30) = New Bitmap("C:\Documents and Settings\Gary Shepherd\Local Settings\Application Data\Temporary Projects\Card Games\Resources\4d.gif")
        p(31) = New Bitmap("C:\Documents and Settings\Gary Shepherd\Local Settings\Application Data\Temporary Projects\Card Games\Resources\5d.gif")
        p(32) = New Bitmap("C:\Documents and Settings\Gary Shepherd\Local Settings\Application Data\Temporary Projects\Card Games\Resources\6d.gif")
        p(33) = New Bitmap("C:\Documents and Settings\Gary Shepherd\Local Settings\Application Data\Temporary Projects\Card Games\Resources\7d.gif")
        p(34) = New Bitmap("C:\Documents and Settings\Gary Shepherd\Local Settings\Application Data\Temporary Projects\Card Games\Resources\8d.gif")
        p(35) = New Bitmap("C:\Documents and Settings\Gary Shepherd\Local Settings\Application Data\Temporary Projects\Card Games\Resources\9d.gif")
        p(36) = New Bitmap("C:\Documents and Settings\Gary Shepherd\Local Settings\Application Data\Temporary Projects\Card Games\Resources\td.gif")
        p(37) = New Bitmap("C:\Documents and Settings\Gary Shepherd\Local Settings\Application Data\Temporary Projects\Card Games\Resources\jd.gif")
        p(38) = New Bitmap("C:\Documents and Settings\Gary Shepherd\Local Settings\Application Data\Temporary Projects\Card Games\Resources\qd.gif")
        p(39) = New Bitmap("C:\Documents and Settings\Gary Shepherd\Local Settings\Application Data\Temporary Projects\Card Games\Resources\kd.gif")

        'spades
        p(40) = New Bitmap("C:\Documents and Settings\Gary Shepherd\Local Settings\Application Data\Temporary Projects\Card Games\Resources\as.gif")
        p(41) = New Bitmap("C:\Documents and Settings\Gary Shepherd\Local Settings\Application Data\Temporary Projects\Card Games\Resources\2s.gif")
        p(42) = New Bitmap("C:\Documents and Settings\Gary Shepherd\Local Settings\Application Data\Temporary Projects\Card Games\Resources\3s.gif")
        p(43) = New Bitmap("C:\Documents and Settings\Gary Shepherd\Local Settings\Application Data\Temporary Projects\Card Games\Resources\4s.gif")
        p(44) = New Bitmap("C:\Documents and Settings\Gary Shepherd\Local Settings\Application Data\Temporary Projects\Card Games\Resources\5s.gif")
        p(45) = New Bitmap("C:\Documents and Settings\Gary Shepherd\Local Settings\Application Data\Temporary Projects\Card Games\Resources\6s.gif")
        p(46) = New Bitmap("C:\Documents and Settings\Gary Shepherd\Local Settings\Application Data\Temporary Projects\Card Games\Resources\7s.gif")
        p(47) = New Bitmap("C:\Documents and Settings\Gary Shepherd\Local Settings\Application Data\Temporary Projects\Card Games\Resources\8s.gif")
        p(48) = New Bitmap("C:\Documents and Settings\Gary Shepherd\Local Settings\Application Data\Temporary Projects\Card Games\Resources\9s.gif")
        p(49) = New Bitmap("C:\Documents and Settings\Gary Shepherd\Local Settings\Application Data\Temporary Projects\Card Games\Resources\ts.gif")
        p(50) = New Bitmap("C:\Documents and Settings\Gary Shepherd\Local Settings\Application Data\Temporary Projects\Card Games\Resources\js.gif")
        p(51) = New Bitmap("C:\Documents and Settings\Gary Shepherd\Local Settings\Application Data\Temporary Projects\Card Games\Resources\qs.gif")
        p(52) = New Bitmap("C:\Documents and Settings\Gary Shepherd\Local Settings\Application Data\Temporary Projects\Card Games\Resources\ks.gif")

        'Jokers
        p(53) = New Bitmap("C:\Documents and Settings\Gary Shepherd\Local Settings\Application Data\Temporary Projects\Card Games\Resources\j.gif")
        p(54) = New Bitmap("C:\Documents and Settings\Gary Shepherd\Local Settings\Application Data\Temporary Projects\Card Games\Resources\j.gif")
    End Sub
End Class

[SurfDemon]

If you use an imagelist control you can load them all into that and access them with imageList.Image[1] etc.

[DroopyPawn]

Is there any advantage to doing it that way? (ImageList controL)

I also found Image.FromFile. Is that a newer/better way compared to New Bitmap?

Got any other tips.

[Edneeis]

You can add them as resources to the project (which by the path it looks like you did) and then load them via My.Resources.YadaYada.

[DroopyPawn]

Yes, the images are already in my resources.

Could you give me one example of "My.Resources.YadaYada."?

Thanks, gs

[Edneeis]

Once you add something to a project in the Resources then you it makes it accessible via the same name in the My.Resources namespace. So just replace YadaYada with the name of your resource. I have attached some screenshots to help.