| تبليغات | X |
با سلام
قبل از هرچيز از همه دوستان به خاطر ابراز محبتي كه به بنده دارند تشكر مي كنم .
اميدوارم بتوانم با حل قسمتي از مشكلات شما ، خدمتي هرچند اندك كرده باشم پس اگر پاسخ سوال خود را گرفتيد و برايتان مفيد واقع شد ما را از دعاي خير خود محروم نفرماييد .
پاسخ به سوالات دوستان عزيز
آقا آرمان
با سلام وخسته نباشيد:خواستم بدونم چه طوري ميشه يه آدرسي رو روي يك دكمه نوشت پس اجراي برنامه اونو نشون بده .مثلا C:\my music\jan.wav
پاسخ » آقا آرمان عزيز ، من منظور سوال شما را به درستي متوجه نشدم . اگر منظور شما پخش اين فايل است كه بايد از يك تابع Api استفاده كنيد .
براي پخش فايلهاي با فرمت wav ميتوان از تابعي به نام sndPlaySound استفاده كرد .
ابتدا اين تابع را در قسمت General به صورت زير تعريف مي كنيم :
Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
سپس يك دكمه به فرم اضافه ميكنيم و در رويداد كليك آن دستور زير را مي نويسيم :
sndPlaySound App.Path + "\jan.wav", 1
وقتي روي دكمه كليك شود فايل صوتي پخش مي شود .
فايل نمونه برنامه بالا را مي توانيد از لينك زير دريافت كنيد :
دانلود برنامه نمونه پخش فايل صوتي wav
اگر منظور شما اجراي فايل است به صورتي كه با برنامه اي كه در ويندوز تعين كرده ايم (مثلا Media Player) باز شود در پاسخ به سوال آقي هادی کایدی (چند سوال بعد) ميتوانيد جواب خود را بگيريد .
جناب liznak
سلام
با
عرض پوزش فراوان که نگفتم از کدوم پایگاه داده اگه امکانش هست از
sql server استفاده کنید.
پاسخ » جناب liznak ، تيديل اين برنامه به sql server خيلي ساده است فقط جداول مورد نظر خود را در sql server بسازيد و رشته اتصال كنترل ado را تغيير دهيد .
متاسفانه بنده فرصت انجام اين كار را براي شما ندارم و خود شما با كمي تلاش مي توانيد آن را حل كنيد .
سعيده خانم
سلام من تازه شروع کردم به کارکردن با برنامه vb
دو سوال ازتون داشتم:
1 - برنامه ای درست کنم که با استفاده از ان بشه تعداد و نوع غذا
رو انتخاب کرد ویک فیش را چاپ کرده به دست ما دهد.
2 - برنامه ای برای کتابخانه درست کنم.
با
تشکر
پاسخ » سعيده خانم ، سوالات شما بسيار كلي است و من فقط ميتوانم براي كتابخانه يك سورس نمونه قرار دهم . براي انجام اين برنامه ها شما بايد با مباني برنامه نويسي آشنا شويد و از پايه شروع كنيد .
دانلود سورس برنامه نمونه كتابخانه
آقا هادي
باسلام
وبلاگ
آموزنده ای داری من یه سوال داشتم :
چه
طور میشود برنامه ای را که طراحی کرده ایم با یک پسوند خاص ذخیره سازی کنم .
خیلی
ممنون .
پاسخ » آقا هادي ، من منظور سوال شما را متوجه نشدم . اگر منظور شما انتساب يك پسوند خاص به فايل هاي برنامه است در پست هاي قبل مفصلا توضيح داده ام و اگر در مطالب گذشته جستجو كنيد حتما آن را پيدا خواهيد كرد .
اگر منظور شما چيز ديگري هست بفرماييد تا توضيح دهم .
آقا مهدي
در رابطه با پایگاه داده
من
میخوام به یک رکورد عکس اضافه کنم
مثلا
مشخصات
کسی رو دادم و میخوام به این مشخصات عکس اون شخص رو اضافه کنم و
وقتی
خواست اسم طرف یا هرچی که بود را جستجو کنم مشخصات فرد مورد نظر
همراه
با عکسش ظاهر شود
دستتون
درد نکنه
موفق
باشید
پاسخ » آقا مهدي عزيز ، براي ذخيره تصوير در پايگاه داده بايد يك فيلد از نوع OLE Object تعريف كنيد.
يكي از دوستان يك فايل پي دي اف در اين مورد تهيه كرده است كه مي توانيد از لينك زير دريافت كنيد:
دانلود فايل پي دي اف آموزش ذخيره تصوير در پايگاه داده
منبع اين آموزش وبلاگ علي آقا است (visualbasic.blogfa.com) كه ميتوانيد با مراجعه به اين وبلاگ از مطالب مفيد آن استفاده كنيد .
آقاي هادي كايدي
سلام . یه سوال دارم . اگه میشه پاسخ بدید
من
میخوام وقتی رو یه کامند کلیک میکنیم یک برنامه exe رو باز کنه .
یعنی
ما یک فایل exe داریم که وقتی رو کامند کلیک کنیم اون برنامه اجرا بشه
ممنون
پاسخ » آقاي هادي كايدي ، براي اجراي يك فايل چه فايل اجرايي و چه غير اجرايي بايد از يك تابع Api استفاده كنيد .
تابع ShellExecute دقيقا مشابه Run ويندوز است .
ابتدا اين تابع را در قسمت General تعريف كنيد :
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
سپس يك دكمه به فرم اضافه كنيد و در رويداد كليك آن دستور زير را بنويسيد :
ShellExecute hwnd, "open", "calc.exe", "", "", vbNormalFocus
اين دستور برنامه ماشين حساب ويندوز را اجرا مي كند . شما مي توانيد هر فايلي را با دادن آدرس آن اجرا كنيد .
سورس برنامه بالا را ميتوانيد از لينك زير دريافت كنيد :
دانلود سورس برنامه نمونه اجراي فايلها
آقا صادق
سلام
يه درخواستي داشتم
ميخوام
يه
برنامه بنويسم كه اگه يك كليد براش گذاشتي كه اگر روش كليك كردي پنجره Task
Manager كامپيوتر
از كار بيافته و كامپيوتر خاموش بشه!!
ممنون
ميشم.
پاسخ » آقا صادق ، براي غير فعال كردن Task Manager بايد از رجيستري استفاده كنيد . براي خاموش كردن هم مي توانيد از دستور shell استفاده كنيد كه قبلا توضيح داده شده است .
من اين برنامه را آما ده كرده ام كه ميتوانيد از لينك زير دريافت كنيد :
دانلود سورس برنامه غير فعال كردن Task Manager و خاموش كردن سيستم
جناب مولا
سلام آقاي رضايي من يه كد دفترچه تلفن جالب ولي در حين حال
ساده رو مي خواستم.
اميدوارم
كمكم كنيد.
لطفاً
تمام سورس كد رو برام در وبلاگتون قرار بدين و راستي بنويسيد (همراه ابزارش(
پاسخ » جناب مولا ، سورس دو برنامه دفترچه تلفن كامل رو ميتونيد از لينك هاي زير دانلود كنيد :
دانلود سورس دفترچه تلفن با امکانات کم ولی ساده
دانلود سورس دفترچه تلفن با امکانات بیشتر و جالبتر
منبع اين دو برنامه وبلاگ آقا علي (visualbasic.blogfa.com) است .
آقا احسان
سلام کمال جان, یه درخواست ازت داشتم:
من
نیاز به کد یا کدهایی دارم که بشه با اونها فایلهای Mp3 و ACC رو اجرا کرد.
اگه
کمکم کنی ممنونت میشم.
موفق
باشی عزیز.
پاسخ » آقا احسان ، سورس يك برنامه كامل براي پخش فايل هاي صوتي را اماده كرده ام كه مي توانيد از لينك زير دريافت كنيد :
دانلود سورس برنامه پخش فايل هاي صوتي
آقاي محمد علی ورپشتی
سلام
ببخشید
2 تا سوال داشتم ممنون میشم اگه پاسخ بدهید
1 - یک رمز 4 رقمی داریم که هر رقم از 0 تا 9
میتونه تغییر کنه یک برنامه میخوام که خودش عدد ها را امتحان کنه تا برسه به
عدد دلخواه پیغام بده
مثلا
0001
0002
همینجوری
تا
برسه به
1111
پیغام
بده
2 - همین برنامه
این کار را جایی غیر از فرم خودش انجا بده مثلا برای باکردن کدی غیر از
همون برنامه
پاسخ » آقا محمد عزيز ، براي امتحان كردن عدد ها ميتوانيد از يك حلقه استفاده كنيد . براي اينكه هنگام جستجو برنامه قفل نكند مي توانيد از Do Events استفاده كنيد . اگر بفرماييد هدفتان از اين كار چيست بيشتر ميتوانم كمكتان كنم .
سورس يك برنامه كه رمزهاي كاربران ويندوز را امتحان ميكند تا آن را پيداكند را مي توانيد از لينك زير دانلود كنيد كه مي تواند الگوي خوبي براي شما باشد :
دانلود سورس برنامه پيدا كردن رمز كاربران ويندوز
الهام خانم
سلام آقای رضایی.خسته نباشید.
من
می خوام یه برنامه بنویسم که وقتی یه عدد رو بهش میدیم ،عدد رو به حروف(انگلیسی)
بنویسه.مثلا:123 بگه: one hundred twenty three
در
ضمن محدودیت عددی هم نداشته باشه،مثلا تا میلیارد عدد رو بنویسه. ممنون از
راهنمایی هاتون.
پاسخ » الهام خانم عزيز ، سورس يك برنامه كامل براي نوشتن اعداد به حروف و تلفظ عدد آماده كرده ام كه مي تواند الگوي خيلي خوبي براي شما باشد . در ضمن اين برنامه اعداد را به صورت فارسي مي نويسد و فارسي تلفظ مي كند :
دانلود سورس برنامه تبديل اعداد به حروف و تلفظ آنها
جناب mr
با سلام خدمت شما سوالم رو نمیدونم چه طور باید بپرسم
سوالمن
اینه برنامه ای رو من با بانک اطلاعاتی نوشتم چی کار کنم که اون
فایل اکسس موقعی که توی یه کامپیوتر دیگه می ریزم حتما نباید توی آدرس
اصلی اش مثلا درایو سی باشه توی هر پوشه ای بتو نم بریزم متشکرم
پاسخ » جناب mr ، براي اين كار بايد آدرس را طوري بدهيد كه نسبي باشد يعني با تغيير مسير برنامه آدرس هم تغيير كند .
عبارت app. path مسير جاري برنامه را بر مي گرداند . براي مثال دستور زير ديتابيس test.mdb را كه در كنار برنامه قرار دارد بارگزاري مي كند :
Data1.databasename=app.path+"/test.mdb"
در اين مثال از كنترل data استفاده شده است كه براي همه كنترل هاي ديگر هم ميتوانيد از اين روش استفاده كنيد .
حالا شما برنامه را هر جا كه كپي كنيد برنامه كار مي كند .
اگر متوجه نشديد بفرماييد تا كاملتر توضيح دهم .
موفق باشيد
با سلام
قبل از هرچيز فرا رسيدن ماه محرم رو به همه دوستان عزيز تسليت عرض مي كنم و از همه دوستان التماس دعا دارم .
از اينكه در پاسخ به سوالات تاخيري ايجاد شد عذر خواهي مي كنم و سعي مي كنم از اين به بعد خيلي سريعتر به سوالات شما دوستان پاسخ دهم .
اما پاسخ به سوالات
جناب liznak
سلام
برنامه ای که من می خوام سیستم
رای گیری هست که 4 نفر کاندیدا داره و کاربر وارد سیستم میشه و فرد مورد نظر خودشو با استفاده از کد ملیش
انتخاب می کنه که هر نفر بیش
از 1 بار مجاز به رای دادن نیست.
با
تشکر از شما
پاسخ » دوست عزيز ، براي نوشتن اين برنامه بايد از بانك اطلاعاتي استفاده كنيد . بهتر بود جزئيات بيشتري از چيزي كه مي خواهيد بفرماييد تا بيشتر كمكتان كنم .
من يك برنامه ساده آماده كرده ام كه اميدوارم مفيد واقع شود اگر سوال يا مشكلي داشتيد بفرماييد تا كمكتان كنم .
آقاي مجتبی غلامعلی زاده
سلام
مشکل
شماره 1
برنامه
ای می خوام که با سه بار وارد کردن رمز اشتباه برنامه کامپیوتر را خاموش کند
و
قابلیت تغیر رمز و ذخیره آن را هم داشته باشد
مشکل
شماره 2
برنامه
ای می خوام که از کاربر عکس بگیرد و با ذکر ساعت و تاریخ شمسی ذخیره کند
مشکل
شماره 3
برنامه
ای میخوام که با آدرسی که در قسمت برنامه نویسی میدهیم برود و عکس هایی که در آن
پوشه مخصوص موجود است را به نمایش درآورد
مشکل
شماره 4
برنامه ای میخوام که با صدایی
مشخص بشود به کامپیوتر دستور داد برای مثال به کامپیوتر بگیم خاموش شو کامپیوتر خاموش شود و بگوییم فلان
برنامه را باز کن
پاسخ » دوست من ، سوالاتتان خيلي كلي است و با كمي جستجو ميتوانيد همه آنها را خودتان انجام دهيد .
در مورد سوال شماره 1 ، يك برنامه ساده را براي نمونه آماده كرده ام كه ميتوانيد از لينك زير دريافت كنيد :
دانلود برنامه نمونه خاموش كردن كامپيوتر با ورود رمز اشتباه
در مورد سوال شماره 2 ، براي گرفتن عكس با دوربيني كه روي سيستمتان نصب كرده ايد مي توانيد از كنترل اكتيو ايكسي كه در سي دي همراه دوربين يا وب كم هست استفاده كنيد كه كار با آن هم خيلي ساده است .
در مورد سوال شماره 3 ، برنامه نمونه اي آماده كرده ام كه مي توانيد از لينك زير دريافت كنيد :
دانلود برنامه نمونه نمايش تصوير
در مورد سوال شماره چهار هم بايد عرض كنم كه براي تشخيص صدا بايد از كنترل اكتيو ايكسي كه خود مايكروسافت منتشر كرده استفاده كنيد كه با كمي جستجو مي توانيد آن را پيدا كنيد .
آقا محمود
سلام
من
یه 2 تا سوال فنی ازت دارم :
1 - چطور می تونیم یک صفحه
ی شطرنجی درست کنیم.
2 - چطور می تونیم با کلیک بر روی
یک شی , اون شی رو دوباره ایجاد کنیم. منظورم اینه که مثلا ما یه
Picture Box داریم. من میخوام هر قت روی این
Picture Box کلیک کردم یک پیکچر باکس جدید برام ظاهر بشه.
با
تشکر
پاسخ » آقا محمود عزيز ، در مورد سوال يك بايد بيشتر توضيح مي داديد كه هدفتان چيست . اما به طور كلي براي درست كردن يك صفحه شطرنجي مي توانيد از سه راه زير عمل كنيد :
1 – يك عكس از صفحه شطرنجي را در Background فرم قرار دهيد .
2 – چندين كنترل Shape را به صورت مربع در كنار هم قرار دهيد تا يك صفحه شطرنجي داشته باشيد .
3 – با استفاده از توابع رسم بر روي فرم يك صفحه شطرنجي ترسيم كنيد.
در مورد سوال دوم يعني ساخت يك شي جديد در زمان اجرا دور روش وجود دارد . روش اول ساخت كنترل هاي آرايه اي و روش دوم ساخت يك كنترل مستقل است .
برنامه نمونه براي هر دو روش را ميتوانيد از لينك هاي زير دريافت كنيد :
دانلود برنامه نمونه ساخت كنترل در زمان اجرا (آرايه اي)
دانلود برنامه ساخت كنترل در زمان اجرا (مستقل)
آقا كاوه
سلام
من قبلاَ از این OCX استفاده کردم ولی گوشه
رو خیلی بد در میاره رنجه رنجه
میشه
می خواهم که این جوری نشه در ضمن لینک دانلود خرابه دانلود نشود
ممنوز
از زحمات شما
پاسخ » دوست من ، اگر تصويري كه به عنوان Background فرم قرار مي دهيد تك رنگ باشد مشكلي پيش نمي آيد .
برنامه نمونه را از لينك زير دريافت كنيد :
دانلود برنامه نمونه گرد كردن گوشه هاي فرم
آقا امیر
سلام و خسته نباشيد
يه سوال داشتم و اون هم
اينكه چجوري ميشه در يه عكس سياه و سفيد در ابعاد مثلاً 100*200پيكسل ، پيكسلهاي سياه و سفيد رو تشخيص داد ؟
(منظورم اينه كه در صفحه
كودم پيكسل سفيده و كدوم يك سياه مثلا پيكسل 1و 2 و5 و6 سفيد و پيكسل 3و4و7 سياه رنگ
هستند)
ممنون
از لطفتون
پاسخ » آقا امير ، انجام اين كار بسيار ساده است . براي انجام اين كار تصوير مورد نظر خود را در يك Picture Box قرار دهيد .
كنترل Picture Box يك خاصيت به نام Point دارد . اين خاصيت طول و عرض يك نقطه از عكس را مي گيرد و رنگ آن را برمي گرداند .
Skrsoft = Picturebox1.point(50 , 100)
براي مثال دستور بالا رنگ نقطه اي با مختصات 50 و 100 را درون متغير skrsoft قرار مي دهد .
برنامه نمونه تشخيص رنگ پيكسلها را براي شما آماده كرده ام كه ميتوانيد از لينك زير دريافت كنيد :
دانلود برنامه نمونه تشخيص رنگ پيكسل ها
مریم خانم
سلام من برنامه ای یک بازی خیلی ساده رو میخوام
منظور
از ساده اینه که درحد دبیرستان باشه.
ممنون
میشم.
پاسخ » مريم خانم ، بزودي سورس چند بازي را براي دانلود قرار خواهم داد .
الهام خانم
سلام.خسته نباشید.
یه
سوال داشتم که امیدوارم که بتونین کمکم کنین.
کار فرم های frx چیه؟(کلا به چه درد می
خوره؟ و کجاها کاربرد داره؟در چه
برنامه
هایی؟) میدونم که حاوی فایل های گرافیکی و تصاویره. ولی یه جواب کامل تر و جامع تر می
خوام.یه چیزی حدود 6-7 خط. خواهش می کنم اگه می تونین کمکم کنین.
با
تشکر
الهام
پاسخ » الهام خانم ، فايلهاي frx كار ذخيره فايلهاي باينري برنامه را انجام مي دهند . براي مثال خاصيت Picture كنترل هاي image و Picture Box و يا خاصيت icon فرم ها يك فايل باينري است كه در فايل frx ذخيره مي شود .
اين فايلها در واقع هيچ كاربرد خاصي ندارد و فقط فايلهاي باينري را نگهداري مي كنند و هيچ استفاده ديگري ندارند ، البته اگر اين فايلها حذف شوند فايل پروژه با مشكل مواجه مي شود .
منتظر سوالات ، پيشنهادات ، انتقادات و نظرات شما هستم .
موفق باشيد
با سلام
قبل از هرچيز عرض كنم كه دامنه skrsoft.ir بر روي وبلاگ پارك شد و از اين پس مي توانيد با آدرس skrsoft.ir وارد وبلاگ شويد .
اما پاسخ به سوالات و نظرات دوستان
دو درخواست در مورد قفل نرم افزاري
جناب جواهري
با سلام لطفا لینک های دانلود را از نو ایجاد کنید چون خراب شده اند و امکان دانلود وجود نداره باتشکر
آقا اكبر
لطفا لينك دانلود dll را تصحيح نماييد و يا به ايميل من ارسال كنيد.
پاسخ » قبلا هم در يك پست ديگر لينك هاي جديد را قرار دادم اما بازهم در اين جا قرار مي دهم . در ضمن لينك در پست اصلي هم تصحيح شد .
آقا علي
وبلاگ بسیار خوبی دارید . من تازه کار با ویژوال را شروع کرده ام . در آینده ای نچندان دور به کمک شما نیاز خواهم داشت . با تشکر به امید کمک
پاسخ » دوست من ، هر سوالي داشتيد بپرسيد من درخدمتم . اميدوارم هر چه زودتر پيشرفت كنيد .
آقا كاوه
من یک راهنمایی از شما می خواستم
چطوری
میشه گوشه یک فرم را گرد کرد طوری که نه زیاد باشه نه کم مثل Jet Audio
پاسخ » دوست عزيز ، براي اين كار روشهاي فراواني وجود دارد (قبلا هم در وبلاگ گفته شده) . من استفاده از يك كنترل اكتيو ايكس (Ocx) به نام TransForm.ocx را توصيه مي كنم . كار اين كنترل اين است كه شما يك Background براي فرمتان انتخاب ميكنيد و اين كنترل رنگي كه شما مشخص مي كنيد را از تصوير حذف مي كند با اين كار ميتوانيد هر شكلي كه دوست داريد را به فرم بدهيد .
اين كنترل را به همراه برنامه نمونه مي توانيد از لينك زير دريافت كنيد (برنامه نمونه شكل Jet Audio است ):
دانلود برنامه دادن شكل دلخواه به فرم
جناب liznak
man ye barname mikhastam ke kar ray giriro anjam bege ke yek nafar natone bish az 1 bar ray dahad va ray giri ba code meli bashe.
پاسخ » دوست عزيز ، اولا كه لطف كنيد از اين به بعد سوالتون رو فارسي بنويسيد . دوما اينكه سوال شما بسيار كلي است لطف كنيد دقيقتر بپرسيد تا به طور كامل به شما پاسخ داده شود .
آقاي مجتبی غلامعلی زاده
برنامه شماره 1
برنامه
ای می خوام که با اجرای آن کل صفحه مانیتور سیاه و قفل شود و با هر بار
حرکت دادن ماوس و یا فشردن دکمه های صفحه کلید پنجره در یافت رمز باز
شود و اگر بعد از 3 بار رمز اشتباه بود ماوس و صفحه کلید قفل شود و آژیر به
صدا در بیاید و اگر کامپیوتر وبکم داشت از کاربر عکس بگیرد و با ذکر ساعت و
تاریخ شمسی ذخیره کند و با صاحب کامپیوتر تماس گرفته و با صدایی به او
اعلام خطر کند و بعد از زمانی معین کامپیوتر خاموش شود.
و
قابلیتهای قسمت تنظیمات تغییر رمز و ذخیره آن در رجیستری و تغییر و
یا درج شماره تماس صاحب کامپیوتر و ذخیره آن در رجیستری قابلیت
تغییر صدای آژیر و صدای اعلام خطر به صاحب کامپیوتر و قابلیت مشاهده عکسهای
کسانی که قصد نفوذ به کامپیوتر را داشتند و تغییر تعداد تکرار ورود رمز
برنامه
شماره 2
برنامه
ای می خوام که بشود با وارد کردن رمز یا با صدایی مشخص کامپیوتر را روشن و یا
خاموش و یا استندبای و یا ریستارت کرد.
پاسخ » دوست من ، سوال اول شما بسيار كلي است و من وقت پاسخ دادن به همچنين سوال وقتگيري را ندارم لطف بفرماييد دقيقا همان قسمتي از برنامه را كه مشكل داريد بفرماييد تا به طور كامل توضيح دهم .
سوال دوم را هم من دقيقا متوجه نشدم منظورتان از اينكه با وارد كردن رمز يا با صدايي مشخص كامپيوتر را روشن و ... كنيم چيست .
منتظر سوالات و نظرات شما هستم
موفق باشيد
با سلام
قبل از هر چيزي از عزيزاني كه به اين وبلاگ لطف دارند و با سوالات و نظرات خود ما را در نوشتن مطالب بهتر و مفيد تر ياري مي كنند تشكر مي كنم .
آقا بهزاد
1.یه برنامه می خواستم که عکس رو به هر فرمتی که می خواهیم تبدیل کنه(هر فرمت یعنی فرمتهای ناشناخته مثل BA)آموزش با سورس بزارید
2.درباره برنامه هایی که ساختید آموزششون رو بزاریدآموزش با سورس بزارید
3.دربرنامه هایی مثل ورد وقتی روی گزینه نیو کلیک می کنیم یک فرم جدید مثل فرم قبل ولی بدون ارتباط با اون ساخته میشه(بدون ارتباط یعنی اگر اولی بسته شد دومی بسته نشه و مجزا باشه)آموزش با سورس بزارید
راستی چرا نظرات قبلی رو پاک می کنی بهتره بزاری بمونن.
پاسخ » آقا بهزاد عزيز ! به دليل اينكه سيستم مديريت نظرها در بلاگفا چندان قوي نيست و من متوجه نظر هاي جديد نمي شوم مجبورم نظرهاي قبلي را پاك كنم در غير اينصورت ممكن است دچار اشتباه شوم و نظرات بعضي از دوستان را نخوانم .
سوال اول كمي نامفهوم بود و من متوجه نشدم تبديل عكس به فرمت دلخواه و ناشناخته چه فايده اي دارد و هدف شما از اين كار چيست لطفا كاملتر توضيح دهيد تا بهتر بتوانم كمكتان كنم .
در مورد سوال دوم بايد خدمت شما عرض كنم كه شرح دستورات يك برنامه بصورت كامل وقت بسياري مي خواهد كه متاسفانه من وقت انجام چنين كاري را ندارم و از اين بابت واقعا معذرت مي خواهم . شما مي توانيد سورسها را تشريح كنيد و هر قسمت از آن را كه متوجه نشديد بيان كنيد تا توضيح بدهم .
اما سوال سوم
بطور كلي برنامه ها دو نمونه اند MDI و SDI . برنامه های SDI برنامه هایی هستند که فقط یک فرم دارند مانند برنامه Notepad ویندوز که در هر لحظه فقط می توان یک فایل را باز کرد .
اما برنامه های MDI برنامه هایی هستند دارای چندین فرم هستند مانند برنامه Word که شما می توانید چندین فایل را همزمان بازکنید و روی آنها کار کنید .
در حالت معمولی پروژه ها دارای یک فرم هستند و لی بعضی از پروژه ها برای طراحی به چند فرم نیاز دارند . قبل از اینکه افزودن فرمهای اضافی در پروژه را مورد بحث قرار دهیم انواع فرم ها را بررسی می کنیم .
در ویژوال بیسیک سه نوع فرم وجود دارد:
فرم استاندارد => در حالت معمولی هر پروژه دارای یک فرم است که این فرم را فرم استاندارد می نامند .
فرم MDI پدر => یک پروژه با مدل MDI باید از فرم های چند تایی استفاده کند که حداقل یکی از فرم های آن فرم پدر و بقیه فرمها فرزند می باشند.
فرم MDI فرزند => فرمهای MDI فرزند فرمهایی هستند که خاصیت MDIChild آنها True باشد .فرم MDI پدر و فرزند هر دو می توانند دارای منو باشند . چنانچه فرم فرزند دارای منو باشد فرم پدر منوی فرم فرزند را نشان می دهد ولی منوی فرم پدر پنهان می شود .
برای فزودن فرم MDI پدر به پروژه می توانید از منوی Project گزینه Add MDIForm را انتخاب کنید. رنگ فرم MDI پدر خاکستری پررنگ است . برای اینکه فرمهای فرزند را مشخص کنید می توانید از خاصیت MDIChild فرم ها استفاده کنید . توجه کنید که فرم MDI باید فرم آغازین برنامه باشد .
برای مثال سورس برنامه ساده ای که دارای رابط کاربری MDI است را برای شما قرار داده ام .
دانلود سورس برنامه نمونه کار با فرم های MDI
آقاي مجتبي غلامعلي زاده
من یه کد می خوام که آیگون برنامه را در کنار ساعت قرار بده و وقتی که کاربر هر بار به اینترنت وصل میشه یک فرم یا یک صفحه اینترنت را به نمایش در بیاره
پاسخ » آقا مجتبي عزيز ! سورس برنامه اي را كه خواسته بوديد مي توانيد از لينك زير دريافت كنيد .
دانلود سورس برنامه بازشدن يك صفحه هنگام اتصال به اينترنت
آقاي محمود غريبي
یه برنامه می خوام بسازم که یه فایل رو مثل عکس یا فیلم یا هرچیز دیگه رو با پسوندی مثل mgh ذخیره کنه بعد این فایل یعنی همین فایلی که ذخیره کردیم رو بتونه open with کنه.
پاسخ » آقاي محمود غريبي عزيز ! قبل از هرچيزي بايد عرض كنم شما فرموده بوديد كه " من که دیگه خسته شدم از بس سوال کردم و جواب نشنیدم " و من همينجا عرض مي كنم كه من سوالي را با نام شما نديده ام كه بخواهم آن را پاسخ دهم يا نه . به هر حال اگر اشتباه از من بوده و به هر دليلي سوال شما را نخوانده ام از شما عذر خواهي مي كنم .
اما سوالتان كمي ناقص بود و اگر اشتباه متوجه نشده باشم منظورتان اين بود كه با كليك روي فايلي مثلا با پسوند mghاين فايل با برنامه ما باز شود.
براي اينكه پسوندي خاص را در ويندوز به برنامه اي اختصاص دهيم مي توانيم از رجيستري استفاده كنيم .
براي اين كار در برنامه اصلي تان يك ماژول اضافه نماييد و تعاريف زير را درون آن قرار دهيد :
Declare Function RegCreateKey Lib "advapi32.dll" Alias _
"RegCreateKeyA" (ByVal hKey As Long, _
ByVal lpSubKey As String, phkResult As Long) As Long
Declare Function RegSetValue Lib "advapi32.dll" Alias _
"RegSetValueA" (ByVal hKey As Long, _
ByVal lpSubKey As String, ByVal dwType As Long, _
ByVal lpData As String, ByVal cbData As Long) As Long
Public Const ERROR_SUCCESS = 0&
Public Const ERROR_BADDB = 1&
Public Const ERROR_BADKEY = 2&
Public Const ERROR_CANTOPEN = 3&
Public Const ERROR_CANTREAD = 4&
Public Const ERROR_CANTWRITE = 5&
Public Const ERROR_OUTOFMEMORY = 6&
Public Const ERROR_INVALID_PARAMETER = 7&
Public Const ERROR_ACCESS_DENIED = 8&
Public Const HKEY_CLASSES_ROOT = &H80000000
Public Const MAX_PATH = 260&
Public Const REG_SZ = 1
حال در رويداد Load فرمتان دستورات زير را درج نماييد :
Dim sKeyName As String
Dim sKeyValue As String
Dim ret&
Dim lphKey&
sKeyName = "MyApp"
sKeyValue = "My Application"
ret& = RegCreateKey&(HKEY_CLASSES_ROOT, sKeyName, lphKey&)
ret& = RegSetValue&(lphKey&, "", REG_SZ, sKeyValue, 0&)
sKeyName = ".mgh"
sKeyValue = "MyApp"
ret& = RegCreateKey&(HKEY_CLASSES_ROOT, sKeyName, lphKey&)
ret& = RegSetValue&(lphKey&, "", REG_SZ, sKeyValue, 0&)
sKeyName = "MyApp"
sKeyValue = "c:\my.exe %1"
ret& = RegCreateKey&(HKEY_CLASSES_ROOT, sKeyName, lphKey&)
ret& = RegSetValue&(lphKey&, "shell\open\command", REG_SZ, _
sKeyValue, MAX_PATH)
'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
If Command <> "" Then
MsgBox Command
End If
در دستورات بالا به جاي My Application نام برنامه خود را قرار دهيد و به جاي .mgh پسوند دلخواه خود را بنويسيد در پايان هم به جاي c:\my.exe مسير فايل اجرايي برنامه را قرار دهيد .
حال اگر يك فايل با پسوند mgh بسازيد و آن را باز كنيد برنامه شما اجرا مي شود و مسير آن را با يك پيغام نمايش مي دهد . تابع Command هم كه در دستورات استفاده شده است مسير فايلي را كه با برنامه شما باز شده را
بر ميگرداند . اميدوارم مشكلتان حل شود اگر بهتر توضيح دهيد و بفرماييد كه هدف كلي شما چيست و چه مي خواهيد بهتر مي توانم راهنمايي تان كنم .
دانلود سورس برنامه انتساب يك پسوند خاص به برنامه
جناب ولي پور
یک سوال در خصوص فرمهای ویژال بیسیک داشتم . می خواستم بدانم برای اینکه یک فرم همیشه ontop باشد چه كار بايد كرد . اگر نيازي به كد نويسي مي باشد ممنون مي شوم اگر كد آن را برايم ارسال فرمائيد .
پاسخ » جناب ولي پور عزيز ! براي اينكه فرم را On Top كنيد مي توانيد از دستورات زير استفاده كنيد :
Option Explicit
Const SWP_NOMOVE = 2
Const SWP_NOSIZE = 1
Const FLAGS = SWP_NOMOVE Or SWP_NOSIZE
Const HWND_TOPMOST = -1
Const HWND_NOTOPMOST = -2
Private Declare Function SetWindowPos Lib "user32" _
(ByVal hwnd As Long, _
ByVal hWndInsertAfter As Long, _
ByVal x As Long, _
ByVal y As Long, _
ByVal cx As Long, _
ByVal cy As Long, _
ByVal wFlags As Long) As Long
Private Function SetTopMostWindow(hwnd As Long, Topmost As Boolean) _
As Long
If Topmost = True Then
SetTopMostWindow = SetWindowPos(hwnd, HWND_TOPMOST, 0, 0, 0, 0, FLAGS)
Else
SetTopMostWindow = SetWindowPos(hwnd, HWND_NOTOPMOST, 0, 0, 0, 0, FLAGS)
SetTopMostWindow = False
End If
End Function
Private Sub Form_Load()
Dim lR As Long
lR = SetTopMostWindow(Me.hwnd, True)
End Sub
اميدوارم پاسخ درست و كاملي به سوالات شما عزيزان داده باشم .
درپايان خدمت ندا خانم عرض مي كنم كه من در استان فارس و شهرستان فيروز آباد زندگي مي كنم اما دانشجوي شيراز هستم . واقعا از بابت تماس تلفني با شما عذر خواهي مي كنم و امكان اين كار وجود ندارد شما مي توانيد مشكلات و سوالاتتان را هر چقدر هم كه طولاني باشد در قسمت نظرات بيان كنيد (ميتوانيد از نظر خصوصي استفاده كنيد) تا در صورت امكان به آنها پاسخ دهم .
موفق باشيد .
با سلام
قبل از هر چيز از بابت چند روزي كه نتوانستم وبلاگ را بروز كنم از همه عزيزان عذر خواهي مي كنم و از لطف همه عزيزان مخصوصا آقا بهزاد تشكر مي كنم .
و اما پاسخ به سوالاتي كه در مدتي كه نبودم مطرح شد :
آقا امير علي
سلام میخواستم بدونم که چطور میشه یک فرم را کاملا شبیه عکس کرد یعنی ما یک عکس وارد برنامه کنیم و وقتی فرم را اجرا کردیم کاملا شبیه عکس را نشان دهد!
این کار در عکسهایی که کناره های آن چهار گوش است امکان دارد اما در عکسهایی که کناره های آن منحنی است امکان پذیر نیست ! یعنی زمانی که فرم اجرا میشود ضمن اینکه عکس نشان داده میشود مقداری از فرم نیز نشان داده میشود ! من میخواهم فرم و عکس یکی شوند یعنی اگر لبه های عکس منحنی است فرم هم به شکل عکس در آمده و منحنی شود اگر میشه سورسش رو بزارید مرسی.
و سوال بعدی من درباره یاهو است ! آیا شما میدونید چطور میشه برای یک آیدی voice گرفت؟
پاسخ » آقا امير علي عزيز ! براي اينكه يك فرم را كاملا شبيه يك عكس كنيد مي توانيد از سورس كدي كه در ادامه براي دانلود قرار مي دهم استفاده كنيد . براي استفاده از اين سورس شما مي توانيد عكسي را كه مايليد فرم را به آن شكل در آوريد طراحي كنيد و قسمت هايي را كه مايل به حذف آنها هستيد به يك رنگ خاص مثلا سفيد در آوريد حال تصوير را با استفاده از خاصيت Picture پشت زمينه فرم قرار دهيد و خاصيت Back Color فرم را به همان رنگي كه قبلا براي حذف قسمتهاي زائد تصوير مشخص كرده ايد در آوريد در پايان هم خاصيت BorderStyle فرم را برابر با صفر قرار داده و فرم را به اندازه تصوير پشت زمينه تغيير اندازه دهيد .
حال اگر برنامه را اجرا نماييد مي بينيد كه فرم به شكل دلخواه شما در آمده است.
در مورد سوال دوم هم بايد بگويم كه با عرض پوزش به سوالاتي كه با موضوع وبلاگ مغايرت داشته باشند پاسخ داده نمي شود .
دانلود سورس برنامه تغيير شكل فرم
آقا بهزاد ( بهپر )
سلام می خواستم برام سورس طراحی Froum برای وب در وی بی رو بدید.
پاسخ » آقا بهزاد ( بهپر ) عزيز ! سوال شما گنگ و نامفهوم است و من متوجه سوال شما نمي شوم لطفا بيشتر توضيح دهيد كه منظور شما چيست .
آقا محمد
سلام.با تشکر از وبلاگ خوبی که دارین.واسه من یه سوالی پیش اومده که نتونستم تو اینترنت جوابشو پیدا کنم:
تو وی بی میخوایم اگنت مایکروسافت(همون عروسکه مرلین)که با کامپونت ماایکروسافت اگنت میاد رو بیاریم.ولی طوری بکنیم که َAutoPace آن غيرفعال باشد .يعني متون فارسي رو درست نمايش دهد و از آخر به اول نمايش ندهد.من منتظر جوابتون هستم...ممنون
پاسخ » آقا محمد عزيز ! همانطور كه شما فرموديد Microsoft Agent با زبان فارسي يك مشكل دارد و آن هم اين است كه اگر در متد Think آن متني فارسي بنويسيم كه بيشتر از يك كلمه باشد چون متن را بصورت انيميشن و كلمه به كلمه ظاهر مي كند از سمت چپ به راست متن نوشته مي شود و كاملا جمله برعكس
مي شود براي اينكه جملات فارسي را بطور صحيح مشاهده نماييم تنها راه ( البته به نظر من ) اين است كه حالت انيميشني را از نحوه ظاهر شدن متن برداريم كه براي اين كار مي توانيد قبل از استفاده از متد Think دستور زير را قرار دهيد :
Character.Balloon.Style = 0
كه Character نام شئ Agent ي است كه قبلا تعريف نموده ايد . اميدوارم با اين كار مشكلتان حل شود .
جناب جعفري
با عرض سلام
من در ويژوال بيسيك يك پايگاه داده درست كرده ام و پنجره هاي ارتباطي هم براش درست كردم ولي موقع اجرا فقط يكبار مطلب ميگيرد
در شي Dataوقتي nextرا مي زنم نمي شود اطلاعات بعدي را وارد كرد .
پاسخ » جناب جعفري عزيز ! من نمي دانم شما چگونه پايگاه داده را به Data ربط داده ايد اما بطور كلي براي اينكه يك ركورد جديد به جدور اضافه كنيم بايد از متد هاي AddNew و Update شئ RecordSet استفاده كرد براي اينكار ابتدا دو دكمه به فرمتان بيفزاييد و بر روي دكمه اول كليك كرده و دستور زير را درج نماييد :
Data1.Recordset.AddNew
حال اگر برنامه را اجرا كنيد مي بينيد كه با فشار دادن اين دكمه همه فيلدها خالي مي شوند و شما مي توانيد اطلاعات جديد را وارد كنيد .
براي ذخيره اطلاعات هم روي دكمه دوم كليك كنيد و دستورات زير را درج كنيد :
Data1.Recordset.Update
Data1.Refresh
با فشار دادن دكمه دوم در برنامه مي توانيد اطلاعاتي را كه وارد كرده ايد ذخيره كنيد .
اگر توضيحات كافي نبود بفرماييد تا بيشتر راهنمايي تان كنم .
در پايان هم عرض مي كنم كه در پي در خواست آقا بهزاد و آقا محمد براي يك مقاله در مورد آموزش
تروجان نويسي و نداشتن وقت كافي براي اينكار آموزشي را براي دانلود قرار مي دهم كه اميدوارم مفيد واقع شود منبع اين آموزش وبلاگ Lorhack.Blogfa.Com است كه در حال حاضر غير قابل دسترس است .
دانلود آموزش تروجان نويسي در ويژوال بيسيك
در ضمن نظرات خود را در مورد وبلاگ بيان كنيد .
موفق باشيد .
آقا علیرضا
سلام ...
می خواستم بپرسم که چه طور می تونیم در ویژوال بیسیک با درگ کردن یک
شی آن را کپی کنیم در همان فرم که قابلیت درگ کردن داشته باشد .
به عبارت ساده تر اینکه یک شی ثابت در صفحه داریم و زمانی که روی آن کلیک
کرده و درگ می کنیم یک کپی از آن گرفته شود و روی فرم قرار دهد و بتوان آن را در
کلیه نقاط فرم به حرکت در آورد یعنی Mose move , Mouse Down و Mous Up
برای این شی انجام شود ...
من کد های مربوط به حرکت شی در صفحه را دارم ولی کدی که بتوان عملیات فوق را انجام داد یعنی کپی از شی با درگ کردن را ندارم ...
پاسخ » آقا عليرضاي عزيز ! براي اين كار بايد از كنترل هاي آرايه اي استفاده كنيد به اين صورت كه شئ ي را كه مي خواهيد با Drag کردن آن یک کپی از آن تهیه شود را انتخاب کنید و خاصیت Index آن را برابر صفر قرار دهید .
حال سه متغير زير را در قسمت General تعریف کنید :
Dim mx As Single
Dim my As Single
Dim i As Integer
حال در رويداد MouseDown شئ مورد نظر دستورات زیر را قرار دهید :
mx = X
my = Y
i = i + 1
Load Command1(i)
Command1(i).Visible = True
Command1(i).Drag 1
در پایان هم در رویداد DragDrop فرم دستور زیر را قرار دهید :
Command1(i).Move X - mx, Y – my
حال اگر برنامه را اجرا کنید می بینید که با Drag کردن شئ یک کپی از آن گرفته می شود . توجه کنید که Command1 در مثال بالا شئ مورد نظر است و شما باید به جای آن نام شئ دلخواه خود را قرار دهید .
دانلود سورس برنامه کپی گرفتن از یک شئ با Drag کردن آن
آقا بهزاد
اگه میشه آموزش ساخت یه تروجان ساده رو بزارید(آموزش باشه نه سورس)و مرحله به مرحله طریقه ساخت رو توضیح بدی.
پاسخ » آقا بهزاد ! دوست عزيز ! در حال آماده سازي يك مقاله بصورت PDF هستم تا تروجان ها را معرفی کنم و آموزش ساخت دونمونه از آنها را بدهم تا چند روز دیگر حتما آماده می شود . شما فعلا می توانید مقاله زیر را مطالعه نمایید که در رابطه با WinSock است .
دانلود مقاله آموزش کار با WinSock
آقای مجتبی غلامعلی زاده
سلام دوست خوبم چند تا سوال دارم لطفا جواب بدین چگونه میتوان یک صفحه اینترنت را در vb به نمايش در بياريم .... لطفا يك نمونه كد جستجوي قوي هم بگذاريد .... لطفا سورس يك برنامه انبارداري را در وبلاگ خود قرار دهيد .... با تشكر.
پاسخ » آقا مجتبي ! دوست عزيز ! متاسفانه منظور از جستجو را در سوال شما متوجه نشدم لطفا بفرماييد منظور شما جستجو در چه بخشي است .(فايل – بانك اطلاعاتي – آرايه و يا ...) . از قرار دادن سورس برنامه انبارداري هم در وبلاگ معذورم چون برنامه اي كه كامل باش را نيافتم .
اما پاسخ به سوال شما در مورد چگونگي نمايش دادن يك صفحه وب در برنامه هاي ويژوال بيسيك:
براي اين كار بايد از كنترلي به نام WebBrowser استفاده کنیم برای افزودن این کنترل به جعبه ابزار از منوی Project گزینه Components را برگزینید و از کادر محاوره ای باز شده گزینه Microsoft Internet Controls را بیابید و تیک کنار آن را بگذارید و بر روی Ok کلیک کنید .
حال یک کنترل WebBrowser از جعبه ابزار بردارید و بر روی فرم قرار دهید این کنترل تقریبا یک مرورگر اینترنت کامل است با استفاده از خاصیت Navigate آن می توانید یک صفحه وب را بار گذاری کنید . مثلا دستور زیر را درون رویداد Click یک دکمه قرار دهید تا با فشار دادن دکمه این وبلاگ باز شود :
WebBrowser1.Navigate "http://www.skrsoft.ir"
اگر توضیحات کافی نبود بفرمایید تا این کنترل را کاملتر بررسی کنیم .
مونا خانم
با سلام و خسته نباشید خدمت شما
یک سورس میخواستم که اگه براتون مقدور باشه برامون بزارید!
این سورس مربوط به برنامه طراحی سایت با ویژوال بیسیک است.خیلی ممنون میشم اگه بتونید منو کمک کنید .چون خیلی به این برنامه نیاز دارم .
فقط یک خواهش دیگه ......لطفا جوابم رو تا شنبه بددید.
پیشاپیش از لطف تون کمال تشکر رو دارم.
سایت هم خیلی آموزنده و جالب است .امید وارم در کارتان موفق باشید.
منتظر پاسخ شما هستم.
پاسخ » مونا خانم عزيز ! چند تا سورس از بهترين برنامه هايي كه براي اين كار ديده ام را براي دانلود قرار مي دهم اميدوارم كمكي كند . اگر كافي نبود دوباره بيان كنيد تا سورس هاي بيشتري بگذارم .
دانلود سورس برنامه طراحی صفحات وب (سورس اول)
دانلود سورس برنامه طراحی صفحات وب (سورس دوم)
دانلود سورس برنامه طراحی صفحات وب (سورس سوم)
آقا امید
سلام
میخواستم ببینم چطور میشه درداخل یک TreeView متنی یا چیزی واردکرد؟؟
و سوال بعدی اینکه چطور میشه با استفاده از TreeView و Imaglist کاری کرد که متنی یا چیزی که وارد TreeView کرده ایم عکس داشته باشد!؟(در بعضی از برنامه ها دیده میشود که از TreeView استفاده کرده اند و وقتی متنی را وارد آن میکنیم بر سر هر متن اول یک عکس هست و بعد نوشته)آیا این قابلیت در list Box هم هست؟(اگر هست لطفا توضیح دهید).
پاسخ » آقا آرمان عزيز ! اگر مطالب قبل را بادقت خوانده باشيد در چند پست قبل يك فایل PDF در مورد کار با Tree View گذاشته ام که اگر آن را مطالعه نمایید جواب سوالاتتان را خواهید یافت . در ضمن این قابلیت در کنترل List Box وجود ندارد و باید از کنترل های دیگر استفاده نمایید.
آقا ابراهیم
در گزارش گیری با ویژوال بیسیک چطور میتونیم از چک باکس استفاده کنیم .
پاسخ » آقا ابراهيم عزيز متاسفانه امكان استفاده از Check Box در Data Report وجود ندارد.
جناب VB6 BEST
با سلام و تشکر از پاسخ شما به سوال من اما من یک مشکل دیگه دارم!؟
درسوال قبل یعنی:
(یک سورس میخواستم که اگه براتون مقدور باشه برامون بزارید!
تو خیلی از برنامه ها ما میتونیم چیزهایی که توی یه تکست نوشتیم رو سیو کنیم که نوشتن اون برنامه خیلی پیچیده نیست !
اما من یک سورس میخوام که مثلا ما در یک فرم یک تکست بزاریم بعد از طریق اون تکست رنگ فرم رو بکنیم قرمز! تا اینجا که اصلا سختی و جود نداره اما من میخوام توی فرم یک دکمه بزارم که وقتی زدیمش صفحه سیو باز بشه و ما بتونیم اون فرمی رو که مثلا رنگش رو کردیم قرمز رو بتونیم با پسوند exeسیو کنیم و وقتی فایلی رو که سیو کردیم رو باز کنیم صفحه قرمز باز بشه ممنون میشم بگید مرسی.)
مشکل من اینه که ببینید ما یک فرم داریم که در داخل اون یک text و یک Command میزاریم خوب حالا ما میخواهیم توسط text مثلا captionکامند رو عوض کنیم ! تا اینجا که مشکلی نیست اما وقتی من این کار را در سورسی که شما دادید انجام میدم این کار انجام داده نمیشه یعنی مثلا ما توسط text اسم کامند رو میزاریم ali ولی وقتی این فایل رو به exe سیو میکنیم تغییرات در فایل exe نشان داده نمیشود !چرا؟
لطفا راهنمایی کنید مرسی.
پاسخ » دوست عزيز اگر در پاسخي كه به شما دادم جستجو كنيد مي بينيد كه من گفتم فقط داده در فايل ذخيره مي شود و شما بايد بصورت دستي خودتان داده را از فايل بخوانيد و بر روي دکمه قرار دهید . توجه داشته باشید که این تغییرات را باید در هر دو پروژه انجام دهید و فایل SKR.DAT را مجددا بسازید . اگر بفرمایید هدف شما ساخت چطور برنامه ای است بیشتر راهنمایی تان می کنم. در ضمن سورس برنامه را می توانید از لینک زیر دریافت کنید .
دانلود سورس برنامه ایجاد فایل اجرایی (2)
آقا بهزاد
یه چندتا بازی زیبا هم برای موبایل بزار
آموزش ساخت یک برنامه دیکشنری رو می خواستم که قابلیت ترجمه انگلیسی به فارسی و برعکس رو داشته باشه(لطفاَ یه سورس بزار).
پاسخ » آقا بهزاد عزيز ! در پست هاي آينده حتما بازيهاي زيباي موبايل را خواهم گذاشت . الان هم دارم بازيهاي عالي را انتخاب مي كنم . در ضمن سورس يك ديكشنري را گذاشتم كه خيلي براي يادگيري مناسبه.
آقا آرمان
ما دو تا لیست باکس داریم که توی یکی یک سری نوشته وارد کردیم !
حالا میخواییم توسط یک دکمه و یک تکست >> نوشته داخل تکست رو به لیست دوم بفرستیم !
و در آخر اینکه چطور میشه با یک دکمه دیگه تمام نوشته هایی که در لیست دوم (توسط تکست) وارد کردیم رو از لیست اول پاک کنیم ؟(توجه فقط چیزهایی که در لیست دوم هست رو از لیست اول پاک کنیم و دیگر چیزها در لیست باقی بماند).
پاسخ » آقا آرمان عزيز ! سورس برنامه اي را كه خواسته بوديد مي توانيد از لينك زير دريافت كنيد .
دانلود سورس برنامه درخواستی آقا آرمان
آقای محمد حسین عبداللهی
واقعاً ممنوم بابت اینکه این OCx ها رُ گذاشتی واسه دانلود خیلی به من کمک کرد.
می تونی تعداد بیشتری از فایل های Ocx رُ برای دانلود بذاری تو وبلاگت .
درضمن یکی از dll هات با این نام sosGeneralControls.ocx وقتی soscheckbox اونُ کمتر از حد معمول می کنیم خط خطی می شه و کلاً فرمُ به هم می ریزه میخواستم راجع به این هم یه توضیح مختصری بدی .
پاسخ » آقای محمد حسین عبداللهی عزيز ! در پست ها آينده حتما Ocx های کاربردی بیشتری خواهم گذاشت . در ضمن من منظور شما را از اینکه وقتی soscheckbox اونُ کمتر از حد معمول می کنیم را نفهمیدم اگه بیشتر توضیح بدهید حتما به شما پاسخ خواهم داد .
در ضمن نظرات پس از خوانده شدن توسط من حذف می شوند پس اگر نظرات خود را در پست های قبل نیافتید تعجب نکنید.
موفق باشید .
با سلام
در این پست انجام یک کار مهم یعنی ساخت فایل اجرایی توسط برنامه را بررسی می کنیم . چیزی که در بیشتر برنامه های تروجان ساز و ویروس ساز مشاهده نموده اید .
در ابتدا باید بگویم که ساخت فایل اجرایی جدید توسط برنامه های نوشته شده با ویژوال بیسیک کاری تقریبا غیر ممکن است .
حتما از خود می پرسید پس برنامه هایی که اشاره کردیم چگونه فایل اجرایی می سازند ؟
با هم برنامه ای که جناب VB6 BEST خواسته بودند را انجام می دهیم.
سوال جناب VB6 BEST
یک سورس میخواستم که اگه براتون مقدور باشه برامون بزارید!
تو خیلی از برنامه ها ما میتونیم چیزهایی که توی یه تکست نوشتیم رو سیو کنیم که نوشتن اون برنامه خیلی پیچیده نیست !
اما من یک سورس میخوام که مثلا ما در یک فرم یک تکست بزاریم بعد از طریق اون تکست رنگ فرم رو بکنیم قرمز! تا اینجا که اصلا سختی و جود نداره اما من میخوام توی فرم یک دکمه بزارم که وقتی زدیمش صفحه سیو باز بشه و ما بتونیم اون فرمی رو که مثلا رنگش رو کردیم قرمز رو بتونیم با پسوند exeسیو کنیم و وقتی فایلی رو که سیو کردیم رو باز کنیم صفحه قرمز باز بشه ممنون میشم بگید مرسی.
پاسخ » جناب VB6 BEST ! روش ذخیره متن و ذخیره فایل Exe دو کار بسیار متفاوت است . در ضمن منظور شما را از اینکه بوسیله تکست رنگ فرم را عوض کنیم متوجه نشدم . اما پاسخ به سوال :
توضيح برنامه » برنامه ای که دارای دو دکمه رنگ و ذخیره است و بوسیله دکمه رنگ , فرم را به رنگ دلخواه در می آوریم و بوسیله دکمه ذخیره , پروژه را با فرمی با رنگ انتخاب شده و پسوند Exe ذخیره می کنیم .
در واقع این برنامه از دو پروژه تشکیل می شود که پروژه یک , پروژه ای است که در بالا توضیح آن را خواندید و پروژه دو فایل اجرایی ساخته شده توسط برنامه است . شکل کلی کار این برنامه این است که فایل اجرایی ساخته شده , رنگ فرم را درون خودش ذخیره کرده است و بوسیله پروژه اول فقط آن مقدار را تغییر می دهیم .
پروژه یک
پروژه جدیدی با یک فرم ایجاد نمایید سپس در قسمت General فرم متغیر های زیر را بصورت زیر تعریف نمایید :
Dim bp As Long
Dim pbag As PropertyBag
Dim arr() As Byte
سپس در رویداد Load فرم دستورات زیر را قرار دهید :
Set pbag = New PropertyBag
Open App.Path & "\" & App.EXEName & ".exe" For Binary As #1
Get #1, LOF(1) - 3, bp
Seek #1, bp
Get #1, , temp
arr = temp
pbag.Contents = arr
Form1.BackColor = Val(pbag.ReadProperty("Text"))
حال از منوی File گزینه Make … را برگزینید و فایل را با پسوند دلخواه ذخیره کنید .(در اینجا Skr.Dat)
کار این پروژه تمام شد و با این پروژه دیگر کاری نداریم و فقط به فایل Skr.Dat نیاز داریم .
پروژه دو
پروژه جدیدی با یک فرم ایجاد نمایید سپس در قسمت General فرم متغیر های زیر را بصورت زیر تعریف نمایید :
Dim bp As Long
Dim pbag As PropertyBag
حال دو دکمه به فرم بیفزایید و در رویداد Click یکی از آنها دستورات زیر را بنویسید :
Set pbag = New PropertyBag
pbag.WriteProperty "text", Str(Form1.BackColor)
cd1.Filter = "Exe Files|*.exe"
cd1.ShowSave
If cd1.FileName <> "" Then
FileCopy App.Path & "\Skr.dat", cd1.FileName
Open cd1.FileName For Binary As #1
bp = LOF(1)
temp = pbag.Contents
Seek #1, LOF(1)
Put #1, , temp
Put #1, , bp
Close
End If
در رویداد Click دکمه دیگر دستورات زیر را بنویسید :
cd1.ShowColor
If cd1.Color <> 0 Then
Form1.BackColor = cd1.Color
End If
حال وارد منوی Project شده و گزینه Components را برگزینید و از کادر محاوره ای باز شده تیک گزینه Microsoft Common Dialog Control را قرار دهید و بر روی Ok کلیک کنید . حای یک کنترل Common Dialog بر روی فرم قرار دهید و نام آن را Cd1 بگذارید .
پروژه تمام شد . حال پروژه را در جایی ذخیره کنید و فایلی را که ساختیم (Skr.Dat) را در کنار فایلهای پروژه قرار دهید .
در ضمن برنامه درخواستی آقا علیرضا برایشان میل شد .
موفق باشید .
<با نظرات و سوالات خود ما را حمایت کنید>