ورود

View Full Version : یه کار جالب



Mohammad_programmer
سه شنبه 01 دی 1383, 18:45 عصر
سلام
من می خواستم یه برنامه بنویسم که توی اون یه مشکل وجود داره :
ببینید چجوری میشه که اگه ما یه Textbox داشته باشیم و توی اون یه چیز بنویسیم و حالا می خوایم مثل توی زبانهای برنامه نویسی مثل خود VB کد ها رو بخونیم و اجرا کنیم > مثال :
مثلا توی Text نوشته : GetFormName
حالا ما می خوایم که اگه این رو نوشته بود یه برنامه اسم فرم رو بگیره و توی برنامه بنویسه و بره به خط بعدی و هی خط به خط کد ها رو بخونه و اجرا کنه
{{لطفا جواب کامل بهم بدید}}
ممنونم.

Hamedm
سه شنبه 01 دی 1383, 21:36 عصر
با امید به اینکه هدف این دوست عزیز هک نباشه

ببین اول وارد References میشی و مورد Microsoft Script Control رو انتخاب میکنی.
حالا میتونی بوسیله کد زیر این کارو انجام بدی.

Dim script As ScriptControl
Set script = New ScriptControl
"cript.Language = "VBSCript
(script.ExecuteStatement (Text1.Text
دستورای مود نظرتو توی Text1 بنویس.

Mohammad_programmer
پنج شنبه 10 دی 1383, 18:46 عصر
دوست عزیز ممنون از کمکت اما میشه یه خورده بیشتر راهنمایی کنی ؟؟؟

حامد مصافی
یک شنبه 13 دی 1383, 00:54 صبح
سلام عزیز
راهنمایی نمیخواد دیگه :D
توی تکست باکس یه اسکریپت به زبان وی بی اس ( ویژوال بیسیک اسکریپت ) بنویس بعد اونو اجرا کن :wink:

Mohammad_programmer
دوشنبه 14 دی 1383, 16:55 عصر
آقا ما که نفهمیدیم
یعنی تو VB > وی بی اسکریپت کار کنم ؟؟؟
چجوری ؟
اگه میشه با یه Sample بهم بگید
ممنون

mostafa313
سه شنبه 15 دی 1383, 05:37 صبح
سلام!
ببین کاکو جان!!شما بوسیله کنترل Microsoft Script Cotrol 1.0 می تونید دستورات وی بی اسکریپت رو اجرا کنین.حتما میدونین که وی بس اسکریپت با ویژوال بیسیک خیلی فرق داره!(از لحاظ توانایی های برنامه نویسی)
خوب یک نونه برنامه هم برات ارسال می کنم.
راستی خیلی خوبه که تو این سن شروع به یادگیری برنامه نویسی وی بی کردی.موفق باشی.