آرشیو

۰۳ اسفند ۱۳۹۳

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

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

ادامه مطلب
۱۹ تیر ۱۳۹۲

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

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

ادامه مطلب
۱۷ اردیبهشت ۱۳۹۲

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

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

ادامه مطلب
۰۵ آبان ۱۳۹۰

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

یکی از روش‌های تعیین محل نصب آفیس استفاده از رجیستری است. کد زیر که به زبان پاسکال نوشته شده، با دو بار آدرس گیری از رجیستری، محل نصب آفیس را مشخص می‌نماید. 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’,...

ادامه مطلب
۱۸ خرداد ۱۳۹۰

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

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

ادامه مطلب