Is There A Better Way To Load Pictures

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

Code:

---

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

---

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

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.

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.

Yes, the images are already in my resources.

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

Thanks, gs

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.