Функция lstrcpy

Declare Function lstrcpy Lib "kernel32" Alias "lstrcpyA" ( _
        ByVal lpString1 As Any, ByVal lpString2 As Any) As Long

Функция lstrcpy копирует одну строку в другую. Следите, чтобы строка-приемник имела достаточную длину для приема другой строки.

Возвращаемое значение

В случае ошибки функция возвращает 0 (используйте GetLastError для получения кода ошибки). В успешном случае функция возвращает адрес строки-приемника.

Параметры

lpString1

Строка-приемник, который получает содержимое строки lpString2

lpString2

Копируемая строка для передачи в lpString1

Пример

' Копируем строку в другую строку

Dim source As String, target As String  ' две строки
Dim retval As Long  ' возвращаемое значение

source = "Hello, world!"
' создаем место для приема копируемой строки
target = Space(Len(source))
retval = lstrcpy(target, source)
Debug.Print target

Смотри также

Категория

Реклама