نوشته متغیر

[HjSoft]

یک نوشته دارم که هر 1 ثانیه تغییر میکنه حالا می خوام اونو تو یک یک تکست دیگه + یک نوشته نشون بده !! چه جوری ؟

[Hossein Bazyan]

سلام
نوشته ای که تعییر میکنه عکسه یا تکست ؟
ببین این به دردت میخوره


Text3.text=text1.text & text2.text

[HjSoft]

نه ببین من اینا رو تست کردم جواب نمیده ___ اصلا اینجوری فقط تکست تغییر داده شده رو نشون میده ! نه تکست ثابت

[ƒxmahdi]

شما منظورتون نامفهومه باید خوب توضیح دهید
آیا از رویداد Change تکست استفاده کردید

[HjSoft]

ببینید امن برنامه ای درست کردم که مسیر های در حال اجرا کاربر رو میبینه ، و اونا رو وارد تکست باکس میکنه بعد من میخوام اگه اونی که من آدرسشو رو دادم بود ، یک فایل کپی میشه برای کپی فایل :

Private Declare Function FindWindowA Lib "user32.dll" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SetForegroundWindow Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function CloseWindow Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const WM_CLOSE = &H10
Private Declare Function GetForegroundWindow Lib "user32" () As Long
Dim H As Long
Dim Buffer As String
Dim clos As Long
Dim Temp As Long

Private Sub Timer1_Timer()
H = GetForegroundWindow
Buffer = Space(255)
GetWindowText H, Buffer, 255
Text1.Text = Trim(Buffer)
If InStr(1, Trim(Buffer), "my") <> 0 Then
copy file CopyFile App.Path & "\" & App.EXEName & ".exe", Trim(Buffer) + "\Tester.exe", True

End If
end sub

trimbuff = EX : D:\WINDOWS خوب همینوطر که دیدیند مثلا اگه اینجوری باهش من میام در انتهاش اینو اضافه میکنم + یا & "tester.exe/" که در نهایت باید به این صورت باشه

D:\Windows\tester.exe اما جواب نمیده در صورتی که اگه اونا رو تو تکست باکس وارد کنم هم فقط بخش اول میده بخش دوم رو نمیده !! اگه سورس هم لازم بود میذارم

[HjSoft]

به عبارت ساده تر یک نوشته ای که داره هر لحظه تغییر میکنه در انتهاش یه چیزی یا نوشته ای اضافه کرد

[perfeshnal]

آقا شما سورس برنامه ات رو بذار

[bobrus]

منظورت رو خوب نفهمیدم
بااین حال فکر کنم منظورت اینه که یا string رو می خوای به یه string دیگه بچسبونی

text1=text2 &text3

و برای اینکه مقدار به قبلی وصل بشه می تونی اینکارو بکنی

text1=text1&text2


اگه بازهم درست نبود کاملتر توضیح بده تاپیکهات خیلی نامفهومه

[HjSoft]

اینم از سورسش مشکل داره !!

[perfeshnal]

خواب الان این برنامه شما کلا آدرس فایل رو نمیده که فقط اسم پوشه یا برنامه ای که بازه رو میده !

[HjSoft]

ببخشید یادم رفت شما باید از داخل فولدر آپشن fullpath رو تیک بزنین all بزنین البته توی برنامه ی من اینکار ها به صورت خود به خود انجام میشه

[perfeshnal]

آقا ببین همینو می خوای

[HjSoft]

بله درسته !!!!! موندم چی بگم ! الحق که شایسته این همه ستاره این !!!!!!!

[ƒxmahdi]

همانطور که Perfeshnal جان گفتند برنامه شما آدرس پوشه باز را برنمی گردانه و دستور

InStr(1, Trim(Buffer), "\")
مقدار 0 را بر می گرداند پس با این حساب دستور کپی شما اجراء نخواهد شد