استفاده از تابع lstrCat

[mustafa13]

سلام
وقت بخير
دوستان من از اين تابع lstrcat كه استفاده مي كنم نتيجه درستي را نمي دهد اگه كسي هست كمكي كنيد
كار اين تابع اين است كه رشته اي را به انتهاي رشته ديگر اضافه مي كند ولي من هيچ گونه تغييري نمي بينم
Public Declare Function lstrcat Lib "kernel32" Alias "lstrcatA" (ByVal lpString1 As String, ByVal lpString2 As String) As Long

lstrcat(Text1.Text, Text2.Text)

با تشكر

[_behnam_]

سلام !
میتونید از اینجا (http://www.ex-designz.net/apidetail.asp?api_id=473) نمونه کد رو ببینید

[mustafa13]

سلام
ضمن تشکر
دوست عزیز کد من مشکلی نداره مشکل در خروجی تابع است قبلا این نمونه کدی را که شما فرمودید تست کردم با تشکر

[_behnam_]

بنده کد شمارو تست کردم
رشته هارو به صورت کد در میاره فکر کنم!

Msgbox lstrcat(Text1.Text, Text2.Text)

[setroyd]

Private Declare Function lstrcat Lib "kernel32" Alias "lstrcatA" (ByVal lpString1 As String, ByVal lpString2 As String) As Long

Private Sub Form_load()
Dim Str1 As String, Str2 As String, str3 As String

Str2 = "Setroyd"
str3 = 1990
Str1 = String(255, 0)
lstrcat Str1, Str2
lstrcat Str1, str3
Text1.Text = Str1
End Sub



این کدی هست که شما میخوای .