[زهرة الازهار]

السلام عليكم ورحمة الله وبركاته
اخوان بدون زحمة عليكم
احد يشرحلي هذا الكود الي هو كود استدعاء الصورة محتاجته ضروري
واكون ممنونه من حظراتكم

Private Sub Command1_Click ()

i = 1

Dim temp As Byte

open1

Open Path For Binary Access Read As #1

Do

Get #1, i, temp

If i = 19 Then ww1 = temp

If i = 20 Then ww2 = temp

If i = 23 Then hh1 = temp

If i = 24 Then hh2 = temp

i = i + 1

Loop Until i = 25

Close #1

w = ww1 + (ww2 * 256) - 1

h = hh1 + (hh2 * 256) - 1

Picture1.Width = w

Picture1.Height = h

bn = (w + 1) Mod 4

i = 1

ReDim z22(((w + 1) * (h + 1) * 4) + 54)

Open Path For Binary Access Read As #2

Do

Get #2, i, temp

z22(i) = temp

i = i + 1

Loop Until EOF(2)

Close #2

length = i - 1

k = 55

ReDim z1(w, h)

For j = 0 To h

For i = 0 To w

z1(i, h - j) = z22(k)

k = k + 3

Next i

k = k + bn

 Next j

 Picture1.Cls

For i = 0 To w

For j = 0 To h

 Picture1.PSet (i, j), RGB(z1(i, j), z1(i, j), z1(i, j))

Next j

Picture1.Refresh

DoEvents

Next i

End Sub