kopiering

Well CInt(strengnavn) og CStr(integer)

//>Rune

Hvis man har en stor buffer i bytes og vil have dem lavet om til string og tilbage igen og det skal gå meget hurtig.

Option Explicit

Private Declare Sub CopyMemory Lib "kernel32" Alias _
        "RtlMoveMemory" ( _
        hpvDest As Any, _
        hpvSource As Any, _
        ByVal cbCopy As Long)

Private Sub Form_Load()
Dim strData As String
'--------------- String til Byte ---------------
  strData = "Eksperten.dk"
 
  ReDim bytData(Len(strData) - 1) As Byte
  Call CopyMemory(bytData(0), ByVal strData, Len(strData))
'--------------- String til Byte ---------------


'--------------- Byte til String ---------------
  strData = String(UBound(bytData) + 1, 0)
  Call CopyMemory(ByVal strData, bytData(0), UBound(bytData) + 1)
'--------------- Byte til String ---------------

  Me.Caption = strData
End Sub

mange tak sjh.

selv tak :-)