آشنایی با متدهای کلاس fso

copyfile : جهت کپی تعدادی فایل با تعیین مسیر مبدا در مقصد مشخص شده

copyfolder : جهت کپی یک پوشه در پوشه ای دیگر

creatfolder : یک پوشه جدید ایجاد می کند

 

ادامه نوشته

چگونه می توان در وی بی یک فایل با هر پسوندی را در یکی از درایوها اجرا کرد ؟

 چگونه می توان فایل با هر پسوندی را در یکی از درایوها اجرا کر     

چگونه می توان در وی بی یک فایل با هر پسوندی را در یکی از درایوها اجرا کرد ؟

برای Run کردن یک فایل اجرایی در وی بی بایستی از تابع ShellExecute استفاده نمایید . نحوه declare کردن آن بصورت زیر است :

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

حال فرض کنید می خواهید در مسیر D:\TestShell\ فایلی به اسم Test.exe را توسط برنامه تان اجرا کنید . کد زیر بدین منظور نوشته شده است :

Call ShellExecute(Me.hwnd, vbNullString, "D:\TestShell\Test.exe", "", "", SW_SHOWNORMAL)

فارسي نويسي در ويژوال بيسيك

بعد از نصب نرم افزار براي تنظيم فارسي نويسي در ويژوال بيسيك بايد مسير هاي زير را درست كنيد :

Control Panel > Regional and language options > Advanced

قسمت select a language to match the language version of the non-Unicode programs را به farsi تغيير دهيد . آنگاه باحتمال زياد از شما سي دي xp را مي خواهد كه اين كار را انجام مي دهيد .
سپس به زبانه languages برويد و دكمه Details را انتخاب كنيد در زبانه Advanced تيك Extended supprt of advanced text services to all programs را بگذاريد .
كامپيوتر را reset كنيد .
vb6 را اجرا كنيد . از منوي tools گزينه options را انتخاب كنيد آنگاه زبانه editor format را انتخاب كنيد و آنگاه فونت را به Courier new (Arabic) تغيير دهيد .
از اين پس هر وقت كنترلي خواستيد كه در برنامه قرار دهيد خاصيت font انرا به فونتي كه فارسي را پشتيباني مي كند انتخاب كنيد و سپس منوي پايين افتادني script را در همان منوي font به Arabic تغيير دهيد

به زمین خوردن توپ بسکتبال

در برنامه زیر شبیه سازی به زمین افتادن یک توپ را می توانید ببینید

کافی است در فرمتون یک آبجکت Shape1 و یک دکمه ایجاد کنید و کدهای زبر را به قسمت General کپی کنید

كد:

کد ها در ادامه مطلب

ادامه نوشته

اجرای صدا در ویژوال بیسیک 6

برای پخش صدا با فرمت wav در ویژوال بیسیک 6 ابتدا یک ماژول را تولید کنید وکدزیر را در آن بنویسید
Public lSound As Long

Declare Function sndSound Lib "WINMM.DLL" Alias "sndPlaySoundA" (ByVal lpszSoundName As 

String, ByVal uFlags As Long) As Long

خوب حال در یک دکمه کد زیر را بنویسید 

lSound = sndSound(App.Path & "\name.wav", 1)

و به جای Name آدرس فایل رو بنویسید خوب حالا اگه رو یه دکمه کلیک کنید صدا پخش میشه

تعویض کلیک چپ و راست موس(سورسکد)

یک پروژه جدید باز کنید و تو فرمتون یک Command Button و دو تا Option Button بزارید و کد زیر رو تو قسمت

جنرال فرمتون کپی کنید : 

کدها در ادامه مطلب

ادامه نوشته

بدست آوردن كد RGB رنگ مورد نظر (سورس کد)

یك پروژه جدید باز كنید و یك شی CommonDialog از قسمت Components ها به فرمتون اضافه كنید و كد زیر رو ت

قسمت جنرال فرمتون كپی كنید : 

حالا برنامتون رو اجرا كنید و روی فرمتون كلیك كنید و از جعبه رنگی كه ظاهر میشه یك رنگ انتخاب كنید و OK كنید

تا كد RGB رنگ رو تو فرمتون ببینید.

کد ها در ادامه مطلب

ادامه نوشته

تابع AlphaBlend ( سورس کد)

سلام امروز میخوام یک تابعی که تا حالا خیلی کم ازش شنیدین یا اصلا نشنیدین رو بهتون مغرفی کنم اسم تابع : (AlphaBlend)تابع
با این تابع میتوانید تصاویر خود را به راحتی محو یا نمایش دهید

:مثال 
1)یک Picturebox و Scrollbar با نام قبلی Picture1 و HScroll1 به فرم خوداضافه کنید.
2)به Picture1 یک تصویر بدهید.
3)حال کد زیر را پروژه خود اضافه کنید:
کد ها در ادامه مطلب (همراه با مثال)

ادامه نوشته

سورس Hibernate کردن کامپیوتر

 

سلام به شما دو ستان عزیز

این اولین پست منه امیدوارم که خوشتون بیاد.

شما با این برنامه میتوانی کامپیوتر را Hibernate کنید (خواب زمستانی)

ادامه نوشته