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
Reply With Quote