السلام عليكم ورحمة الله وبركاته
اخوان بدون زحمة عليكم
احد يشرحلي هذا الكود الي هو كود استدعاء الصورة محتاجته ضروري
واكون ممنونه من حظراتكم
اخوان بدون زحمة عليكم
احد يشرحلي هذا الكود الي هو كود استدعاء الصورة محتاجته ضروري
واكون ممنونه من حظراتكم
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