17-10-12, 02:51 PM
كاتب الموضوع : 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