آرشیو

22 فوریه 2015

روش افزودن متن، تصویر و آیکون به Resource برنامه در VB6

روش های مختلفی جهت افزودن متن و تصویر به فایل Res وجود دارد. از جمله استفاده از افزونه Resource Editor موجود در VB6 اما تجربه شخصی نشان داده این روش، کاستی‌ها و نواقص خاص خودش را دارد. به طور نمونه، امکان افزودن آیکون با کیفیت از داخل برنامه وجود ندارد. لذا روش زیر پیشنهاد می شود: ابتدا فایلی با...

ادامه مطلب
10 جولای 2013

ارسال (Post) اطلاعات توسط جاوا اسکریپت

یکی از مسائلی که چالش فراوانی در ساخت یکی از پروژه‌هایم بوجود آورده، ارسال اطلاعات فقط به کمک جاوا اسکریپت بود. پس از جستجو و بررسی‌های فراوان، سرانجام به کد مفیدی دست یافتم که این‌جا در قالب یک تابع برای استفاده‌ی شما قرار می‌دهم. function OpenWindowWithPost(url, windowoption, name, params) { var form = document.createElement("form"); form.setAttribute("method", "post"); form.setAttribute("action", url); form.setAttribute("target",...

ادامه مطلب
07 مه 2013

نصب صحیح فونت از طریق Inno Setup در ویندوز ۷

اگر تا به‌حال از برنامه‌ی نصب ساز Inno Setup استفاده کرده و خواسته باشید از آن جهت نصب فونت بهره ببرید، حتماً با مشکل نصب قلم در ویندوز ۷ روبرو شده‌اید. کافی‌است پرچم overwritereadonly را به فایل اضافه نمایید. جهت نصب صحیح قلم می‌توانید از کد مثال زیر استفاده نمایید: Source: C:\WINDOWS\Fonts\IranNastaliq.ttf; DestDir: {fonts}; Flags: overwritereadonly ignoreversion uninsneveruninstall البته...

ادامه مطلب
27 اکتبر 2011

اسکریپت جستجو و تعیین محل نصب آفیس

یکی از روش‌های تعیین محل نصب آفیس استفاده از رجیستری است. کد زیر که به زبان پاسکال نوشته شده، با دو بار آدرس گیری از رجیستری، محل نصب آفیس را مشخص می‌نماید. function GetOfficePath(Param: String): String; var sVar: String; sWordVar: String; begin RegQueryStringValue(HKEY_CLASSES_ROOT, ‘Word.Application\CurVer’, ”, sVar); Delete(sVar, 1, 17); sVar:= sVar + ‘.۰′; RegQueryStringValue(HKEY_LOCAL_MACHINE, ‘SOFTWARE\Microsoft\Office\’ + sVar + ‘\Word\InstallRoot’,...

ادامه مطلب
08 ژوئن 2011

ساخت کنترل به صورت پویا در vb6

  شاید زمانی خواسته باشید که در حال اجرای نرم افزار یک کنترل مثل دکمه یا جعبه تصویر ایجاد نمایید. برای این کار دو روش وجود دارد. ۱- در گام نخست یک ‍TextBox با نام txtarray بر روی صفحه ایجاد کنید و مقدار Index را صفر قرار دهید. سپس کد زیر را در فرم وارد کنید: Private Sub Form_Load()...

ادامه مطلب