منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : قراءة بيانات من الذاكرة
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
كاتب الموضوع : sniperser

مرحبا أقدم لكم كود لـ [[العنوان]]
أضف 2 تكست و2 كومند

كود :
Const DataLength = 40

Dim outbuffer As String * DataLength
Dim inbuffer As String * DataLength

Private Sub Command1_Click()

outbuffer = Text1.Text

hMemory = GlobalAlloc(GMEM_MOVEABLE, DataLength)
hMemoryPointer = GlobalLock(hMemory)

Call MoveMemory(hMemoryPointer, outbuffer, DataLength)
End Sub

Private Sub Command2_Click()
Call MoveMemory(inbuffer, hMemoryPointer, DataLength)

Text2.Text = inbuffer

GlobalUnlock (hMemoryPointer)
GlobalFree (hMemory)
End Sub
شكرا جزيلا