تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] مسااعدة كود استدعاء صورة
#1
Sad 
السلام عليكم ورحمة الله وبركاته
اخوان بدون زحمة عليكم
احد يشرحلي هذا الكود الي هو كود استدعاء الصورة محتاجته ضروري
واكون ممنونه من حظراتكم

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
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كيفية اضافة صورة فى قاعدة البيانات ووضعها فى msflexgrid ؟ gedo 7 239 02-09-16, 04:36 PM
آخر رد: gedo
  ايكون+ صورة صغيرة في الفورم بسملة 6 755 13-04-16, 10:59 AM
آخر رد: MicroDoha
  [vb6.0] التقاط صورة من كاميرا وتخزينه في قاعدة بيانات اكسس sher 1 137 10-03-16, 02:57 PM
آخر رد: وادي العوضي
  مساعدة في كود التقاط صورة sher 0 156 07-03-16, 01:01 PM
آخر رد: sher
  [سؤال] ادخال المعلومات عن شخص والتقاط صورة له sher 4 417 21-02-16, 01:01 PM
آخر رد: sher
  [vb6.0] طلب : كود استدعاء module في فورم معين hamada salah90 4 564 23-09-15, 12:42 PM
آخر رد: hamada salah90
Question [سؤال] سؤال بخصوص إدراج صورة على التقرير ناصر المقدسي 3 832 17-07-15, 12:23 PM
آخر رد: aziz2001
Lightbulb [vb6.0] مشكلة العربي عند استدعاء أو تخزين البيانات في mysql temo24 5 1,321 13-07-15, 12:36 AM
آخر رد: أبوبكر سويدان

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم