قرار دادن متن دلخواه در ابتدا و انتهای یک جمله

[mela22]

میشه برنامه ای نوشت که کاربر توی یک کادر جمله ای رو بنویسه بعد برنامه قبل این جمله از بین 20 متنی که قبلا بهش دادیم یکی رو (رندم) انتخاب کند و اول و آخر این متن بنویسه.مثلا کاربر بنویسه "نرم افزار فایرفاکس خیلی بهتره" و برنامه کاملش کنه و یه جای دیگه بنویسه "از بین تمامی نرم افزار ها,نرم افزار فایرفاکس خیلی بهتره,پس نصبش کنید"

[vbhamed]

سلام

خب 20 جمله رو درون آرايه رشته اي قرار بدين و با كمك تابع RND يك جمله رو انتخاب كنيد براي اولش و يكي هم براي آخرش
مثلا اگر يك تكست باكس روي فرم داشته باشيد و 20 جمله نمونه كد اين ميشه، البته هيچ تضميني وجود نداره كه مشابه مثال شما جمله معناداري تشكيل بشه

Dim jomleh(19) As String, s1%, s2%

jomleh(0) = "..."
jomleh(1) = "..."
'.
'.
'.
jomleh(19) = "..."

Randomize Timer
s1 = Int(Rnd * 20)
s2 = Int(Rnd * 20)

MsgBox jomleh(s1) & Text1 & jomleh(s2)

[elimiz]

میشه کدی نوشت که. وقتی کاربر کلمه سلام رو تایپ کرد.برنامه تشخیص بده و کلمه ای رو به اون اضافه کنه ؟

[setroyd]

بله شما بنویس if a=salam bod then a=a & resheteye morede nazar اگر هم میخوای وسط جمله هم بود تشخیص بده شما میتونی از توابع جستجو کمک بگیری .

[elimiz]

ممنون میشم یه نمونه سورس بزارین. با تشکر

[elimiz]

برای 5 متن از پیش تعیین شده .
ممنون از لطفتون

[setroyd]

Dim s() As String
Private Sub Text1_Change()
ReDim s(1)
s(0) = "سلام"
s(1) = "خوبي"
For f = LBound(s) To UBound(s)
If Text1.Text = s(f) Then Text1.Text = Text1.Text & " " & "علي جان "
Next
End Sub


تو صفحه یه textbox بزار و توش بنویس سلام یا...... ببین همینه که میخوای

[elimiz]

من میخوام برنامه کیبورد رو چک کنه.نه تکس باکس داخل خود برنامه رو. یعنی کاربر توی هر محیطی نوشت سلام. برنامه یه متن از پیش تعیین شده رو بهش اضافه کنه
ممنون از لطفتون

[setroyd]

oho ! این یکم داستان داره ولی میشه شما میای هندل رو میگیری و gettext میکنی و..................... به خدا حوصله نوشتنش رو ندارم :( خودت شروع کن بچها هم کمکت میکنن .