آرشیو سورس های کاربردی و بدردبخور

[Mbt925]

می خوام توی این تاپیک مجموعه ای از توابع کاربردی و بدردبخور قرار بدم.

انشاالله با کمک دوستان یه مجموعه خوبی تبدیل میشه.

توی این تاپیک علاوه بر معرفی توابع نوشته شده خوب و کاربردی، نمونه کدهای آموزشی ، یا بعضاً راه های بهتر و بهینه تره نوشتن بعضی کد ها ارائه میشه.

[Mbt925]

تولید اعداد تصادفی غیرتکراری و در بازه موردنظر

این تابع مینیمم و ماکزیمم و تعداد اعدادی که میخواین تولید کنین رو میگیره و براتوان در یک آرایه قرار میده.

میتونین خروجی رو مرتب هم تحویل بگیرین.

همراه با Sample هست.

دانلود (http://mbt925.persiangig.com/Learn_Sample/Random_Num_X_Sample.rar)

تولید زوج مرتب های تصادفی غیر تکراری ، و در بازه موردنظر

این تابع ماکزیمم و مینیمم X,Y ای که میخواین تولید کنید رو می گیره و همین طور تعداد اعدادی که می خواین.
و نتیجه رو در یک آرایه دوبعدی قرار میده که عدد اول در (i,0) و عدد دوم در (i,1) قرار می گیره.

همراه با Sample هست.

دانلود (http://mbt925.persiangig.com/Learn_Sample/Random_Num_XY_Sample.rar)

[Mbt925]

Gradiant_ByColor

این تابع شاید چیزی باشه که خیلی ها لازم دارن.
خودم که قبلا خیلی بهش نیاز پیدا می کردم.

این تابع دوتا رنگ می گیره و شیب رنگ تولید می کنه.
فقط توی کد برنامه بجای Obj اسم شیء موردنظرتون رو قرار بدین

سومین آرگومان راستای شیب رنگه (افقی ، عمودی)

Convert Color to RGB

این تابع هم همونطور که از اسمش مشخصه یه رنگ ازتون میگیره و اونو به RGB تبدیل میکنه یا تجزیش می کنه.
قبلا بدرد من که خیلی خورد و حتما بدرد دوستان هم می خوره.

دانلود ماژول (شامل هر دو تابع) (http://mbt925.persiangig.com/Learn_Sample/Gradiant.rar)

[Mbt925]

Create Shortcut

با این تایع راحت می تونید Shortcut ایجاد کنید.

یه Sample قرار میدم که :

توی این Sample هر فایلی روی Exe ی برنامه بکشید و رها کنید یه Shortcut ازش روی Desktop ایجاد میشه.

می تونید مجموعه ای از فایل ها رو با هم بکشید روی Exe ی برنامه و رها کنید.

می تونه آموزش خوبی باشه.

دانلود (http://mbt925.persiangig.com/Learn_Sample/Create%20Shortcut%20on%20Desktop.rar)

[Mbt925]

Text & Picture Effect

یه Sample که یه سری افکت ها قشنگ روی متن و تصویر اعمال می کنه.

توابعش بدرد بخوره.

دانلود (http://mbt925.persiangig.com/Learn_Sample/TP%20Effect.rar)

[Mbt925]

Tray Icon

فکر کنم یکی از کاملترین نمونه ها برای این کار باشه.

دانلود (http://soda.parsaspace.com/MBT925/Learn-Sample/TrayIcon_Definitive.rar)

[Mbt925]

تقاطع

یه نمونه جالب برای کار با Line و Shape

دانلود (http://soda.parsaspace.com/MBT925/Learn-Sample/Taghato.rar)

[Mbt925]

ساخت درایو مجازی بکمک API


دانلود (http://soda.parsaspace.com/MBT925/Learn-Sample/Virtual%20Drive%20%28API%20way%29.rar)

[Mbt925]

Dynamic Menu

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

واقعا کامله ، ساخت زیر منو ها رو هم توضیح میده که توی اکثر نمونه های موجود نیست.

دانلود (http://soda.parsaspace.com/MBT925/Learn-Sample/DynamicMenu_FULL.rar)

[Mbt925]

Get WinName and ConName

بدست آوردن نام ویندوز
و نام اکانتی که باهاش به اینترنت وصل شدین.

دانلود (http://soda.parsaspace.com/MBT925/Learn-Sample/WinName%20ConnName.rar)

[Mbt925]

دوستان فقط استفاده کننده نباشن.

با قرار دادن نمونه های خوبی که میشناسین یا دارین ، این مجموعه رو کامل تر کنین.

[Mbt925]

.Icon Builder

یه نمونه کامل برای کار با ایکون.

دانلود (http://soda.parsaspace.com/MBT925/Learn-Sample/IconBuilder.rar)

[Mbt925]

Registery

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

دانلود (http://mbt925.persiangig.com/Learn_Sample/RegEnter.rar)

[Mbt925]

Voice Recognition

یه Sample خوب و جالب برای کار با صدا

این Sample دو صدا رو با هم مقایسه می کنه ، حالا این صدا می تونه توسط خوده برنامه
ضبط بشه ، یا از روی هاردتون انتخاب بشه.

دانلود (http://soda.parsaspace.com/MBT925/Learn-Sample/Voice%20Recognition.rar)

[Mbt925]

Exe Compile

ساخت Exe ای که می خواین با یه سری جزئیاتی که براش تنظیم می کنید.

دانلود (http://soda.parsaspace.com/MBT925/Learn-Sample/Exe_Compile.rar)

[Mbt925]

Copy PictureTo Clipboard

دانلود (http://soda.parsaspace.com/MBT925/Learn-Sample/CopyPictureTo%20Clipboard.rar)

[Mbt925]

یه Dll برای کار با تاریخ شمسی بصورت FULL
انشاالله با نظرات دوستان به کاملترین تبدیل بشه ، تا دیگه کسی مشکلی تو زمینه کار با تاریخ شمسی نداشته باشه.

دانلود (http://mbt925.persiangig.com/ActiveX/MEShamsiDll%20-%20Sample.rar)

http://mbt925.persiangig.com/ActiveX/MEShamsiDllScrShot.png

[amini699]

خیلی علی بود دوست عزیز ولی وقتی DLL شمسی رو اجرا میکنی خطا میده رجستر هم شده ولی بزهم خطا میده

[Mbt925]

اگه رجیستر بشه 100% خطا نمیده.

چه خطایی برای شما میده؟

[amini699]

اجرا شد ممنون مشکل رجستر داشت خیلی عالی بود

[Mbt925]

Runing Task

این Sample از مجموعه ای توابع استفاده کرده ، مثل :

Systray.bas قرار دادن آیکون موردنظر در سیستم تری
ModTitleBar.bas پیدا کردن برنامه موردنظر از روی تیتل بار
ModKillApp.bas
.
..

در کل بد نسیت.

حجم : 33 KB

دانلود (http://mbt925.googlepages.com/RunnigTask.rar)

[Mbt925]

توابعی برای باز و بسته کردن کمبوباکس و تغییر عرض و طول DropDown Form.

دانلود (http://mbt925.googlepages.com/ComboTools.rar)

Add to System Menu

این Sample ه برای اضافه کردن آیتم های موردنظر به منوی سیستمی توی فرمتونه.


دانلود (http://mbt925.googlepages.com/MenuAddMenuToSysMenu.rar)

Refresh System

از عنوانش مشخصه دیگه.
ساده و جمع و جور.

دانلود (http://mbt925.googlepages.com/RefreshSystem.rar)

Translucent

از این نمونه ها هم که فراوونه ، شفاف سازیه فرم

دانلود (http://mbt925.googlepages.com/Translucent.rar)

[Mbt925]

MouseIn & MouseOut

حتما دیدین یه سری از کنترل ها ایونت های MouseIn و MouseOut دارن و از این جور چیزا ...

متداول ترین روش برای اضافه کردن اینا یا استفاده ازشون این نمونه هست که قرار دارم.

دانلود (http://mbt925.persiangig.com/Learn_Sample/MouseIn%26Out-Sample.rar)

[Mbt925]

Disable Close Button

دانلود (http://mbt925.googlepages.com/Disablecontrolbutton-api.rar)

DisConnect
برای دیسکانکت کافیه تابع HangUp رو فراخوانی کنید.

دانلود (http://mbt925.googlepages.com/Disconnect.rar)

Play Sound

این ماژول شامل تابع SndPlaySound و ثابت های قابل استفادش هست

دانلود (http://mbt925.googlepages.com/sndPlaySound.rar)

[Mbt925]

Monitor Turn On/Off

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

دانلود (http://mbt925.googlepages.com/MonitorTurnOnOff.rar)

IsInArray

یه روش جالب برای جستجو در یک آرایه.

دانلود (http://mbt925.googlepages.com/IsInArray.rar)

Make Tooltip

یه نمونه برای ساختن Baloon ToolTip برای اشیاء برنامتون.

دانلود (http://tinyurl.com/3bfr6g)

Kill Process

بستن یه Process با داشتن هندل اون یا عنوانش.

دانلود (http://mbt925.googlepages.com/KillProcess.rar)

Scrolling RichTextBox


دانلود (http://mbt925.googlepages.com/ScrollingRichTextBox.rar)

Hot Keys

تشخیص فشرده شدن یه کلید خاص برای انجام یه کار خاص

دانلود (http://mbt925.googlepages.com/HotKeys.rar)

[Mbt925]

Charting API Sample

دانلود (http://mbt925.googlepages.com/ChartingAPISample.rar)

CD-RAM Tools

باز و بسته کردن در CD-RAM و از این جور حرفا

دانلود (http://mbt925.googlepages.com/CD-RAMTools.rar)

SimpleSnake

یه نمونه بازی Snake ساده که جنبه آموزشی بدی نداره.

دانلود (http://mbt925.googlepages.com/SimpleSnake.rar)

[Mbt925]

OpenDialog

یه Open Dialop البته با API با همه ی ثابت هایی که می تونه داشته باشه.
از این ثابت ها می تونین برای CommonDialog استاندارد هم استفاده کنین.
منظورم از ثابت ها مقادیریه که خصوصیت Flags می گیره.

دانلود (http://soda.parsaspace.com/MBT925/ActiveX/GetOpenFileName-Dialog.rar)

[Mbt925]

TreeView Gradient

شیب رنگ دادن به پس زمینه کنترل TreeView

دانلود (http://tinyurl.com/3x7je3)


Hide,Show TitleBar

در زمان اجرا نمیشه BorderStyle فرم رو تغییر داد.
این نمونه TiteBar فرم رو حذف می کنه.

دانلود (http://soda.parsaspace.com/MBT925/Learn-Sample/Hide_Show_TitleBar.rar)

[Mbt925]

Colorizer
http://soda.parsaspace.com/MBT925/ActiveX/ColorizerScrShot.png

این نمونه ، نمونه جالبیه.

دانلود (http://soda.parsaspace.com/MBT925/ActiveX/Colorizer_v1.0.rar)

[Mbt925]

Mouse Enter & Leave

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

دانلود (http://soda.parsaspace.com/MBT925/Learn-Sample/MouseEnterLeave.rar)

[Mbt925]

3DRace

یه نمونه بازی خیلی خیلی قشنگ

http://soda.parsaspace.com/MBT925/ActiveX/3DRaceScrShor.jpg

دانلود (http://soda.parsaspace.com/MBT925/ActiveX/3D%20Race.rar)

[Mbt925]

GetCPUSpeed

http://soda.parsaspace.com/MBT925/ActiveX/GetCPUSpeedScrShot.gif

دانلود (http://soda.parsaspace.com/MBT925/ActiveX/GetCPUSpeed.rar)

[Mbt925]

Fire

نمونه ی جالبیه برای کار با رنگ ها
http://soda.parsaspace.com/MBT925/ActiveX/FireScrShot.GIF

دانلود (http://soda.parsaspace.com/MBT925/Learn-Sample/Fire.rar)

[Mbt925]

دوستان این نمونه ها به این راحتیام بدست نیومده و همشون گلچین شدست.

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

فعلا نمونه ها ادامه داره.

[Mbt925]

Form Animate

لود و آنلود شدن با افکتی زیبا

دانلود (http://soda.parsaspace.com/MBT925/Learn-Sample/Form%20Animate.rar)

[Mbt925]

TextScroller

این ابزار در نوع خودش خیلی جالبه.

http://soda.parsaspace.com/MBT925/ActiveX/TextScrollerScrShot.png

دانلود (http://soda.parsaspace.com/MBT925/Learn-Sample/TextScroller.rar)

[Mbt925]

3D Cube

http://soda.parsaspace.com/MBT925/ActiveX/3DCubeScrShot.jpg

دانلود (http://soda.parsaspace.com/MBT925/Learn-Sample/3D%20Cube.rar)

[Mbt925]

Color Shade

این تابع افکتی رو که توی عکس می بینین روی تصویر اعمال می کنه.

http://soda.parsaspace.com/MBT925/ActiveX/ColorShadeScrShot.png

دانلود (http://soda.parsaspace.com/MBT925/ActiveX/Color%20Shade.rar)

[Mbt925]

3D Soccer

شبیه سازی ساده یه زمین فوتبال.
جالبه ، ببینید.

دانلود (http://soda.parsaspace.com/MBT925/Learn-Sample/3D_Soccer.rar)

[Mbt925]

CreateGradiant

نمونه ای برای کار با شیب رنگ

دانلود (http://soda.parsaspace.com/MBT925/Learn-Sample/CreateGradiant.rar)

[Mbt925]

Tetris

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

http://soda.parsaspace.com/MBT925/ActiveX/TetrisScrShot.jpg

دانلود (http://soda.parsaspace.com/MBT925/Learn-Sample/Tetris.rar)

[Mbt925]

LCDClock

http://soda.parsaspace.com/MBT925/ActiveX/LCDClockScrShot.gif

دانلود (http://soda.parsaspace.com/MBT925/Learn-Sample/LCD%20Clock.rar)

[Mbt925]

BalToolTip

http://soda.parsaspace.com/MBT925/ActiveX/BalToolTipScrShot.jpg

دانلود (http://soda.parsaspace.com/MBT925/ActiveX/BalToolTip.rar)

[Mbt925]

Transfer 2 Word

این نمونه محتویات یه FlexGrid رو بصورت یه Table وارد Word می کنه.

دانلود (http://soda.parsaspace.com/MBT925/Learn-Sample/Transfer%202%20Word.rar)


Transfer 2 Excel

انتقال محتویات FlexGrid به Excel

دانلود (http://soda.parsaspace.com/MBT925/Learn-Sample/Transfer%20to%20Excel.rar)

[Mbt925]

Automatically Create Manifest File

دانلود (http://soda.parsaspace.com/MBT925/Learn-Sample/Automatically%20Create%20Manifest%20File.rar)

[Mbt925]

AvacoUninstaller

این نمونه می تونه نکات آموزشی زیادی داشته باشه.

http://soda.parsaspace.com/MBT925/Learn-Sample/Avaco_UninstallerScrShot.png

حجم : 222 KB

دانلود (http://soda.parsaspace.com/MBT925/Learn-Sample/Avaco_Uninstaller.rar)

[Mbt925]

Bytes to KB,MB,GB

یه نمونه ساده برای تبدیلات ساده

http://soda.parsaspace.com/MBT925/Learn-Sample/Bytes2%20KBMBGBScrShot.png

دانلود (http://soda.parsaspace.com/MBT925/Learn-Sample/Bytes%20to%20KB,MB,GB.rar)

[Mbt925]

InterfaceInfo

http://soda.parsaspace.com/MBT925/Learn-Sample/InterfaceInfo.png

دانلود (http://soda.parsaspace.com/MBT925/Learn-Sample/InterfaceInfo.rar)

[Mbt925]

8Queens

اینم یه راه حل برای مسئله معروف 8 وزیر

دانلود (http://soda.parsaspace.com/MBT925/Learn-Sample/8Queens.rar)

[Mbt925]

Tower Of Hanoi

مسئله برج هانوی هم از مسئله های معروف هست.

این یه نمونه از حل این مسئله هست.(تا 9 حلقه)

قبل از اون یه مقدمه کوتاه از تاریخچه این مسئله میذارم :




مسئله برج هانوی به افسانه ای از هندوستان بازمی گردد. در یکی از معابد هندوستان سه ستون وجود داشته که در یکی 64 عدد حلقه به ترتیب قطرشان و جود داشته است. موبدان بر این باور بوده اند که هر گاه توانستند تمام این 64 حلقه را به به ستون سوم ببرند ، عمر جهان پیدا شده و دنیا به پایان خواهد رسید. بتا بر این موبدان دست به کار شدند و شروع به انتقال دادن حلقه ها کردند. البته در این انتقال :

1- در هر جابجایی تنها یک حلقه را جابجا کنند

2- حلقه بزرگتر روی کوچکتر قرار نگیرد.

تعداد جابجایی ها به ازای n حلقه برابر 2n -1 جابجایی است . پس موبدان اگر در هر ثانیه یک حلقه را جابجا کنند باید 264 ثانیه یعنی تقریبا 584 بیلیون سال!!! به این کار ادامه بدن.



دانلود (http://soda.parsaspace.com/MBT925/Learn-Sample/Tower%20Of%20Hanoi.rar)

[Mbt925]

Programatically create a comment in PDF file

دانلود (http://tinyurl.com/38cmnq)

[Mbt925]

.Register Ocx/Dll

یه نمونه برای رجیستر و آنرجیستر کردن

دانلود (http://soda.parsaspace.com/MBT925/Learn-Sample/Register%20OCX.zip)


با استفاده از Shell هم بصورت زیره :



آرگومان های Shell

For Normal Register:

RegSvr32 "Path"

For Normal UnRegister:

RegSvr32 /u "Path"

For Silent Register:

RegSvr32 -s "Path"

For Silent UnRegister :

RegSvr32 -s -u "Path"

[Mbt925]

OpenFolder

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

دانلود (http://soda.parsaspace.com/MBT925/Learn-Sample/OpenFolder%20-FULL.rar)

[Mbt925]

Printer Tools

این مجموعه تشکیل شده از Get Default Printer و Get Printer Handle و Printers Driver Info

که در کل اطلاعاتی رو در مورد پرینتر پیش فرض ، گرفتن هندل پرینتر و مشخصات پرینترهای موجود رو میده.

دانلود (http://soda.parsaspace.com/MBT925/Learn-Sample/Printer%20Tools.rar)

[Mbt925]

MBTLVI Sample

http://soda.parsaspace.com/MBT925/Learn-Sample/MBTLVIScrShot.png

دانلود (http://soda.parsaspace.com/MBT925/Learn-Sample/MBTLVI%20Sample.rar)

[Mbt925]

CpuUsage Monitor

http://soda.parsaspace.com/MBT925/Learn-Sample/CpuUsage%20MonitorScrShot.png

دانلود (http://soda.parsaspace.com/MBT925/Learn-Sample/CpuUsage%20Monitor.rar)

[Mbt925]

DropDown Combo

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

دانلود (http://soda.parsaspace.com/MBT925/Learn-Sample/DropDown%20Combo.rar)

[Mbt925]

Curve Modefied

http://soda.parsaspace.com/MBT925/Learn-Sample/A_Curve%20ModefiedScrShot.png

دانلود (http://soda.parsaspace.com/MBT925/Learn-Sample/A_Curve%20%20Modefied.rar)

[Mbt925]

IEWithEvents

این نمونه هم جالبه.

اوینت هایی که توی IE رخ میده رو منعکس می کنه.

دانلود (http://soda.parsaspace.com/MBT925/Learn-Sample/IEWithEvents.rar)

[Mbt925]

Customized Progress Bar

این نمونه ProgressBar خود ویبی که خیلی مزخرف و خشکه رو ، یکم سفارشی تر می کنه.

http://soda.parsaspace.com/MBT925/Learn-Sample/Customized%20Progress%20BarScrShot.png

دانلود (http://soda.parsaspace.com/MBT925/Learn-Sample/Customized%20Progress%20Bar.rar)

[Mbt925]

Detect_MS

این نمونه نصب بودن Word، Excel ،PowerPoint ،Outlook ،Access روی سیستم رو چک می کنه .

دانلود (http://soda.parsaspace.com/MBT925/Learn-Sample/Detect_MS.rar)

[Mbt925]

Enumerate -Send Str2 IE windows

این نمونه پنجره های IE که اجراست رو همراه با عنوان پنجره و هندل اون لیست می کنه
و می تونین یه رشته رو به آدرس بار هر کدوم از پنجره ها که دوست دارین بفرستین.

دانلود (http://soda.parsaspace.com/MBT925/Learn-Sample/Enumerate%20-Send%20Str%20IE%20windows.rar)

[Mbt925]

Snow

این نمونه ساده شاید برای خیلیا جالب باشه ، که کاره دوست عزیزمون آقا سیاوشه .

http://soda.parsaspace.com/MBT925/Learn-Sample/SnowScrShot.png
دانلود (http://soda.parsaspace.com/MBT925/Learn-Sample/Snow.rar)

[majjjj]

این هم با اجازه یک برنامه برای کار با رجیستری که عنوان سایت یا وبلاگ شما رو برای هوم پیج مشخص میکنه
http://www.persianupload.com/uploads/b58b309e87.rar

[ali_habibi1384]

مرجعهای AT برای کار با مودم

[Mbt925]

KeyLogger

ثبت کلید های فشرده شده + مکان اون

دانلود (http://soda.parsaspace.com/MBT925/Learn-Sample/SpyEx-KeyLogger.rar)

[Mbt925]

Memory Status

http://soda.parsaspace.com/MBT925/Learn-Sample/Memory%20StatusScrShot.png

دانلود (http://soda.parsaspace.com/MBT925/Learn-Sample/Memory%20Status.rar)

[Mbt925]

Shell Tools

کاربردهای SHELL که خیلیا فقط از یکی دوتا کاربردش استفاده می کنن.


http://soda.parsaspace.com/MBT925/Learn-Sample/ShellToolsScrShot.png


دانلود (http://soda.parsaspace.com/MBT925/Learn-Sample/Shell%20Tools.rar)

[Mbt925]

DialUp Pass

این نمونه یوزرنیم و پسورد و شماره تلفن کانکشن های موجود رو نمایش میده.

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

دانلود (http://soda.parsaspace.com/MBT925/Learn-Sample/DialUp%20Pass.rar)

[Identifier]

لطفاً جها افزایش کارایی مطالب ارسالی و همچنین استفاده بیشتر کاربران سعی کنید ارسال ها را دسته بندی و در چند پست خلاصه نمایید تا از تعدد صفحات تاپیک جلوگیری شود.

[Mbt925]

Dynamic Timer

ایجاد تایمر بصورت داینامیک

بیشتر بدرد کسایی می خوره که می خوان بدون داشتن فرم ، از تایمر استفاده کنن.

دانلود (http://soda.parsaspace.com/MBT925/Learn-Sample/Dynamic%20Timer.rar)

[Mbt925]

در صورتی که موضوعات مرتبط بودن ، چشم ، حتما همین کارو می کنم.

[Mbt925]

Convert text into emoticons

http://soda.parsaspace.com/MBT925/Learn-Sample/ConverttextintoemoticonsScrSho.jpg

دانلود (http://soda.parsaspace.com/MBT925/Learn-Sample/Convert%20text%20into%20emoticons.rar)

[Mbt925]

Save Image In Db

این نمونه بدرد کسایی می خوره که میخوان خود تصویر رو توی دیتابیسشون ذخیره کنن.

دانلود (http://soda.parsaspace.com/MBT925/Learn-Sample/Save%20Image%20In%20Db.rar)

Image Info

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

دانلود (http://soda.parsaspace.com/MBT925/Learn-Sample/Image%20Info.rar)

[Mbt925]

HandelingJob

یه نمونه خیلی خیلی کامل برای کار با Handle و کنترل روی برنامه های دیگه

دانلود (http://mbt925.persiangig.com/Learn_Sample/EliteSpy%20-HandelingJob.rar)

[Mbt925]

Inverse Mouse Movement

این نمونه حرکت موس رو برعکس می کنه.جالبه.

دانلود (http://mbt925.persiangig.com/Learn_Sample/Inverse%20Mouse%20Movement.rar)

[majjjj]

اگه تکراری هستن شما ببخشید

[Mbt925]

Desktop Wallpaper

تغییر تصویر پس زمینه Desktop

دانلود نمونه (http://soda.parsaspace.com/MBT925/Learn-Sample/Wallpapers.zip)1

دانلود نمونه 2 (http://soda.parsaspace.com/MBT925/Learn-Sample/WallPaper%20Setter.zip)

[مهدی ویژوال]

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

[Mbt925]

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

دوست عزیز من حضوره ذهن ندارم .

راه ساده تر برای ؟

[majjjj]

اینها هم جالبن

[Mbt925]

Load Png Pic

کنترل Image و PictureBox توی ویبی قابلیت نمایش تصاویر Png رو ندارن .
با این نمونه این کار ممکن میشه.

دانلود (http://soda.parsaspace.ir/MBT925/Learn-Sample/PNG_Loader.rar)

[Mbt925]

توی این تاپیک بعضی نمونه های خوب دوستان با ذکر نامشون هم قرار میدم تا مجموعه توابع کاربردی کامل بشه.

TransParent TextBox

http://soda.parsaspace.ir/MBT925/Learn-Sample/Transparent%20Textbox_ScrShot.jpg
دانلود (http://soda.parsaspace.ir/MBT925/Learn-Sample/Transparent%20Textbox.zip)

(از VB2005 عزیز)

[Mbt925]

Hide & Show TaskBar

دانلود (http://soda.parsaspace.ir/MBT925/Learn-Sample/Hide_Show%20TaskBar.rar)

(از Ermia2008 عزیز)

[Mbt925]

TAPIExCt

با این ابزار میشه شماره گیری ، پاسخگویی ، وصل کردن داخلی ها ، تشخیص صدا ، دستورات صوتی ، خواندن متن بر روی خط تلفن ، پاسخگویی چند مودم در یک زمان ، کار با کارتهای دیالوجیک و دایلاجیک و ... رو انجام داد.

حجم: 268 KB

دانلود (http://soda.parsaspace.ir/MBT925/Learn-Sample/TAPIExCt.rar)
سایت ابزار (http://www.tapiex.com/product.htm)
نمونه ها (http://www.tapiex.com/samples.htm)

(از Googoole عزیز)

[Mbt925]

Hide & Show Cursor
Block mouse and keyboard

پنهان و ظاهر کردن موس ،

غیرفعال کردن موس و کیبورد

[Mbt925]

PicInfo

نمایش یه سری اطلاعات مربوط به تصویر انتخاب شده

[Mbt925]

CallerID

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

[Mbt925]

Get Hard Info

این نمونه Serial,Model,Revision هارد رو میده.

(از سیاوش عزیز)

[Mbt925]

3ِD Plotter

http://soda.parsaspace.ir/MBT925/Learn-Sample/3D%20PlotterScrShot.jpg

دانلود (http://soda.parsaspace.ir/MBT925/Learn-Sample/3D%20Plotter%20%28m.k%29.rar)

[Mbt925]

Print Screen

عکس گرفتن از DeskTop

دانلود (http://soda.parsaspace.ir/MBT925/Learn-Sample/print%20screen.rar)

[Mbt925]

TaskBar Up

طریقه پیاده سازی نوار ابزار پنهان شونده مثل نرم افزار Rocket Dock

http://soda.parsaspace.ir/MBT925/Learn-Sample/Taskbar_UpScrShot.jpg

دانلود (http://soda.parsaspace.ir/MBT925/Learn-Sample/Taskbar_Up.rar)

[Mbt925]

Rounded ToolTip

ساختن ToolTip های کاملا دلخواه : بیضی ، لوزی ، ...

http://soda.parsaspace.ir/MBT925/Learn-Sample/Rounded%20ToolTipScrShot.jpg

دانلود (http://soda.parsaspace.ir/MBT925/Learn-Sample/Rounded%20ToolTip.rar)

[Mbt925]

Access2000 Password

بدست آوردن پسورد دیتابیس Access

دانلود (http://soda.parsaspace.ir/MBT925/Learn-Sample/Access2000%20Password.rar)

[Mbt925]

Add Button To IE Toolbar

اضافه کردن یه دکمه به تولبار اینترنت اکسپلورر
دانلود (http://soda.parsaspace.ir/MBT925/Learn-Sample/Add_a_Button%20To%20IE%20Toolbar.rar)

[Mbt925]

Animation_BitBlt

یه نمونه خوب برای آشنایی با تابعBitBlt

http://soda.parsaspace.ir/MBT925/Learn-Sample/AnimBitBltScrShot.jpg

دانلود (http://soda.parsaspace.ir/MBT925/Learn-Sample/AnimBitBlt.rar)

[Mbt925]

Anti NOD32

راست و دروغش با نویسندش

دانلود (http://soda.parsaspace.ir/MBT925/Learn-Sample/AntiNod32.rar)

[Mbt925]

DesktopZoom-API

یه ذره بین روی Desktop

دانلود (http://soda.parsaspace.ir/MBT925/Learn-Sample/DesktopZoom-API.rar)

[Mbt925]

Audio Recorder 2.0

نمونه ای خوب برای ضبط صدا

http://soda.parsaspace.ir/MBT925/Learn-Sample/Audio%20Recorder2ScrShot.jpg

دانلود (http://soda.parsaspace.ir/MBT925/Learn-Sample/Audio%20Recorder%202.0.rar)

[Mbt925]

AVI Shell32

Avi های موجود در Shell32.dll

http://soda.parsaspace.ir/MBT925/Learn-Sample/AVI%20Shell32ScrShot.jpg

دانلود (http://soda.parsaspace.ir/MBT925/Learn-Sample/AVI%20Shell32.rar)

[__siavash__]

++ Snow
بارش برف روی فرم
با اونی که قبلا تو سایت بود فرق داره !
دونه های برف متغییر هستند و قابل تنظیم است
سرعت بارش رو میشه تنظیم کرد
میشه به بارش جهت داد (وزش باد)
البته نویسندشو نمیدونم کیه !
http://img2.freeimagehosting.net/uploads/4acda303b4.jpg

[Mbt925]

Direct Enter in MsFlexGrid

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

یه راه حل جالب و ساده برای حل این مشکل نمونه زیره:

دانلود (http://ermia2008.persiangig.com/DirectEnteringText.rar)

(از Ermia2008 عزیز)

[Mbt925]

CTextBox

با TextBox هم چه کارا که نمیشه کرد !
یه نمونه خیلی خیلی کامل برای نشون دادن همه قابلیت های TextBox

http://mbt925.persiangig.com/Learn_Sample/CtextboxScrShot.gif

دانلود (http://mbt925.persiangig.com/Learn_Sample/Ctextbox.zip)

[Mbt925]

Button Color

همون طور که می دونین نمیشه رنگ متن روی دکمه های ویبی رو تغییر داد .

این نمونه این کارو بصورت غیر مستقیم انجام میده.

http://soda.parsaspace.com/MBT925/Learn-Sample/ButtonColorScrShot.jpg

دانلود (http://soda.parsaspace.com/MBT925/Learn-Sample/Button%20Color.zip)

(از VBHamed عزیز)

[Mbt925]

Transparent TextBox

http://soda.parsaspace.com/MBT925/Learn-Sample/Transparent%20Textbox1ScrShot.jpg

دانلود (http://soda.parsaspace.com/MBT925/Learn-Sample/Transparent%20Textbox1.rar)

[Mbt925]

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

http://soda.parsaspace.com/MBT925/Learn-Sample/Split_Pic_LetterScrShot2.jpg

http://soda.parsaspace.com/MBT925/Learn-Sample/Split_Pic_LetterScrShot1.jpg

[Mbt925]

دوتا ابزار خوب برای کار با وب کم :

Webcam_Motion

http://soda.parsaspace.com/MBT925/Learn-Sample/Webcam_MotionScrShot.jpg

دانلود (http://soda.parsaspace.com/MBT925/Learn-Sample/Webcam_Motion.zip)

این نمونه هم تصویر رو از Msn و Windows Live Messenger می گیره :

MSN- WindowsLiveMessenger Webcam Capture Utility

http://soda.parsaspace.com/MBT925/Learn-Sample/MSN-%20WindowsLiveMessenger%20Webcam%20Capture%20Utili tyScrShot.JPG

دانلود (http://soda.parsaspace.com/MBT925/Learn-Sample/MSN-%20WindowsLiveMessenger%20Webcam%20Capture%20Utili ty.zip)

[Mbt925]

Get MouseOver Word

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

http://soda.parsaspace.com/MBT925/Learn-Sample/Get%20MouseOver%20WordScrShotl.JPG

دانلود (http://soda.parsaspace.com/MBT925/Learn-Sample/Get%20MouseOver%20Word.rar)

[Mbt925]

درگ کردن فرم خیلی ساده با API

[Mbt925]

Word_Capture (http://barnamenevis.org/forum/attachment.php?attachmentid=13263&d=1198958468)

حتما تا حالا طرز کار نرم افزار Babylon رو دیدین : که وقتی روی به کلمه یه دکمه خاص موس رو می زنین ، باز میشه و ترجمش رو نشون میده.

با این نمونه خیلی راحت می تونین این کار رو انجام بدین.

دانلود (http://soda.parsaspace.com/MBT925/Learn-Sample/Deskperience%20Word_Capture_v2.0.0.35.rar)

[Mbt925]

Print Screen

این نمونه کار دکمه Print Screen رو کامل تر از خودش انجام میده

دانلود (http://soda.parsaspace.com/MBT925/Learn-Sample/print%20screen.rar)

[zsco89]

دوستان عزیز سلام
شاید دوست داشته باشین یک فایل تصویری رو به پسوند های jpg bmp و .. تبدیل کنید
برای این کار ابتدا کافیست کد زیر رو امتحان کنین

("1") dim bitmap1 as new bitmap
(bitmap1.Save("1" & System.Drawing.Imaging.ImageFormat.Jpeg.ToString

منظور از 1 مسیر فایل شما می باشد
البته برای تبدیل به پسوند های دیگر فقط لازم است Imageformat.Jpeg را تغییر دهید
یعنی
bitmap1.Save("1" & System.Drawing.Imaging.ImageFormat.BMP.ToString

[Mbt925]

Drag Form _ API

درگ کردن فرم (بدون تایتل بار) بوسیله API ، روش خیلی خوب و ساده ایه.

دانلود
(http://soda.parsaspace.com/MBT925/Learn-Sample/Drag%20From%20_%20API.rar)
Drag Form _ Normal

روش معمول درگ کردن فرم

دانلود (http://soda.parsaspace.com/MBT925/Learn-Sample/DragForm.zip)

[Mbt925]

Usb Find

نمونه ی خوبیه برای کار با USB

دانلود (http://soda.parsaspace.com/MBT925/Learn-Sample/Usb%20Find.rar)

[Mbt925]

Notepad

نمونه ی خوبیه برای کسایی که می خوان نوشتن یه NotePad رو شروع کنن.

دانلود (http://soda.parsaspace.com/MBT925/Learn-Sample/Notepad.rar)

[Mbt925]

MouseEnterLeave

توی ویبی ایونت های MouseLeave و MouseEnter وجود نداره ، با این ابزار می تونین همچین ایونت هایی رو به ابزارهای دلخواهتون اضافه کنید.

دانلود (http://soda.parsaspace.com/MBT925/Learn-Sample/MouseEnterLeave.rar)

[Mbt925]

Good Chess

بازی شطرنج از اون بازی هاییه که دوستان خیلی درخواست می کنن.
امیدوارم استفاده کنن.

http://soda.parsaspace.com/MBT925/Learn-Sample/GoodChessScrShot.jpg

دانلود (http://soda.parsaspace.com/MBT925/Learn-Sample/Good%20Chess.rar)

[Mbt925]

Add Horizontal ScrollBar to ListBox

همون طور که می دونین بعد از افزایش محتوای لیست باکس و جا نشدن محتویات در طول فعلی ، اسکرول بار عمودی به لیست باکس اضافه میشه ولی وقتی محتوا از نظر عرضی بزرگتر از عرض لیست باکس میشه ، اسکرول بار افقی ظاهر نمیشه؟؟؟؟؟؟؟

ماژول زیر رو دانلود کنین و از دستور زیر استفاده کنید:




Call SetHorizontalExtent(ListBox Name , ScrWidth)


ListBox Name : نام لیست باکس موردنظر

ScrWidth : عرض مورد نظر -> چندتا عدد تست کنین تا به عرض موردنظر برسید


دانلود ماژول (http://soda.parsaspace.com/MBT925/Learn-Sample/HorScrollListBox.zip)

[Mbt925]

دو تا نمونه برای کار با رجیستری ، جستجوی رجیستری و پاکسازی

Patriot Registery Cleaner (http://soda.parsaspace.com/MBT925/Learn-Sample/Patriot_RegClean.rar)

http://soda.parsaspace.com/MBT925/Learn-Sample/Patriot_RegCleanScrShot.jpg

دانلود (http://soda.parsaspace.com/MBT925/Learn-Sample/Patriot_RegClean.rar)



DLLRegClean (http://soda.parsaspace.com/MBT925/Learn-Sample/DLLRegClean.rar)


دانلود (http://soda.parsaspace.com/MBT925/Learn-Sample/DLLRegClean.rar)

[Mbt925]

MBFastCopy

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

این نمونه ، یه نمونه ی آموزشی هست و اسمش هم معنی خاصی نداره ،

این نمونه می تونه محتویات یک فولدر رو هم کپی کنه (فایل هاش).

نکات آموزش خیلی خوبی داره ، حتما ازش استفاده کنید.

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

---------------
ProgressBar ای که توی این نمونه استفاده شده ، یکی از کامل ترین ProgressBar هاست ، که یه سری از مشکلاتشو برطرف کردم .

البته برای کپی کردن فایل های توی ویندوز ، حتما از کپی اه خود ویندوز استفاده کنید ، چون در یک کپی واقعی ، باید خیلی نکات رعایت بشه و این نمونه فقط جنبه آموزشی داره.
---------------


http://mbt925.persiangig.com/Learn_Sample/MBFastCopyScrShot.jpg

دانلود برنامه (http://mbt925.persiangig.com/Learn_Sample/MBFastCopy.rar)

[Mbt925]

َAccess Password


بدست آوردن پسورد Access

دانلود (http://soda.parsaspace.com/MBT925/Learn-Sample/AccessPassword.rar)

[Mbt925]

System Information

یه نمونه ی خیلی کامل برای نمابش اطلاعات سیستم
توابع آماده خیلی مفیدی داره.

دانلود (http://soda.parsaspace.com/MBT925/Learn-Sample/Sys%20Info.rar)

[majjjj]

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

[Mbt925]

Multi Language

امروزه دیگه اکثر برنامه هایی که می بینید ، دارای منوی انتخاب زبان هستن.
روش معمول ، استاندارد ، سریع برای این کار این روشه:

دانلود (http://soda.parsaspace.com/MBT925/Learn-Sample/Language%20project.rar)

[bobrus]

این برنامه پسورد ویندوز رو پیدا می کنه ولی تا 4 یا 6 حرف بیشتر رو پیدا نمی کنه
دوستان می تونن از این فایل استفاده کنن چیز جالبیه

[Mbt925]

Manage TreeView

نمی دونم تا حالا برنامه نوشتین که همه ی کارتون با TreeView باشه یا نه .

توی برنامه هایی که ابزار اصلی کارشون TreeView هست ،
از کارهای معمول بالا و پایین کردن نودها و عقب و جلو کردن نود هاست.
و یا حذف نود بدون حذف فرزندهاش و یا برعکس.

با این نمونه می تونین همه ی این کارارو بدون دردسر انجام بدین.

http://soda.parsaspace.com/MBT925/Learn-Sample/Manage%20Tree%20NodeScrShot.bmp

دانلود (http://soda.parsaspace.com/MBT925/Learn-Sample/Manage%20Tree%20Node.rar)

[Mbt925]

Connection , Send , Recieve , Speed

نمونه ی بدی نیست :

با این نمونه می تونین لیست کانکشن ها رو بدست بیارین.
اتصال به اینترنت رو چک کنید .
ارسال و دریافت رو کنترل کنید.
....

دانلود (http://soda.parsaspace.com/MBT925/Learn-Sample/Connection%20-%20Send%20-%20Recive%20-%20Speed.rar)

[Mbt925]

Get Drive List

معمولا دوستان زیاد سوال می پرسن که چطور میشه لیست درایو های سیستم و نوعشونو پیدا کرد.
این نمونه این کار رو خیلی ساده انجام میده.

دانلود (http://soda.parsaspace.com/MBT925/Learn-Sample/Get%20Drive%20List.rar)

[شاپرک]

بدست آوردن ورژن یک فایل ... مثلا ورژن یک فایل exe


Private Type VS_FIXEDFILEINFO
dwSignature As Long
dwStrucVersion As Long 'e.g. 0x00000042 = "0.42"
dwFileVersionMS As Long 'e.g. 0x00030075 = "3.75"
dwFileVersionLS As Long 'e.g. 0x00000031 = "0.31"
dwProductVersionMS As Long 'e.g. 0x00030010 = "3.10"
dwProductVersionLS As Long 'e.g. 0x00000031 = "0.31"
dwFileFlagsMask As Long 'e.g. 0x3F for version "0.42"
dwFileFlags As Long 'e.g. VFF_DEBUG Or VFF_PRERELEASE
dwFileOS As Long 'e.g. VOS_DOS_WINDOWS16
dwFileType As Long 'e.g. VFT_DRIVER
dwFileSubtype As Long 'e.g. VFT2_DRV_KEYBOARD
dwFileDateMS As Long 'e.g. 0
dwFileDateLS As Long 'e.g. 0
End Type

Private Declare Function GetFileVersionInfoSize Lib "version.dll" _
Alias "GetFileVersionInfoSizeA" _
(ByVal lptstrFilename As String, _
lpdwHandle As Long) As Long

Private Declare Function GetFileVersionInfo Lib "version.dll" _
Alias "GetFileVersionInfoA" _
(ByVal lptstrFilename As String, _
ByVal dwHandle As Long, _
ByVal dwLen As Long, _
lpData As Any) As Long

Private Declare Function VerQueryValue Lib "version.dll" _
Alias "VerQueryValueA" _
(pBlock As Any, _
ByVal lpSubBlock As String, _
lplpBuffer As Any, nVerSize As Long) As Long

Private Declare Sub CopyMemory Lib "kernel32" _
Alias "RtlMoveMemory" _
(Destination As Any, _
Source As Any, _
ByVal Length As Long)




Public Function HiWord(dw As Long) As Long

If dw And &H80000000 Then
HiWord = (dw \ 65535) - 1
Else
HiWord = dw \ 65535
End If

End Function


Public Function LoWord(dw As Long) As Long

If dw And &H8000& Then
LoWord = &H8000& Or (dw And &H7FFF&)
Else
LoWord = dw And &HFFFF&
End If

End Function


Public Function GetFileVersion(sDriverFile As String) As String

Dim FI As VS_FIXEDFILEINFO
Dim sBuffer() As Byte
Dim nBufferSize As Long
Dim lpBuffer As Long
Dim nVerSize As Long
Dim nUnused As Long
Dim tmpVer As String

'GetFileVersionInfoSize determines whether the operating
'system can obtain version information about a specified
'file. If version information is available, it returns
'the size in bytes of that information. As with other
'file installation functions, GetFileVersionInfoSize
'works only with Win32 file images.
'
'A empty variable must be passed as the second
'parameter, which the call returns 0 in.
nBufferSize = GetFileVersionInfoSize(sDriverFile, nUnused)

If nBufferSize > 0 Then

'create a buffer to receive file-version
'(FI) information.
ReDim sBuffer(nBufferSize)
Call GetFileVersionInfo(sDriverFile, 0&, nBufferSize, sBuffer(0))

'VerQueryValue function returns selected version info
'from the specified version-information resource. Grab
'the file info and copy it into the VS_FIXEDFILEINFO structure.
Call VerQueryValue(sBuffer(0), "\", lpBuffer, nVerSize)
Call CopyMemory(FI, ByVal lpBuffer, Len(FI))

'extract the file version from the FI structure
tmpVer = Format$(HiWord(FI.dwFileVersionMS)) & "." & _
Format$(LoWord(FI.dwFileVersionMS), "00") & "."

If FI.dwFileVersionLS > 0 Then
tmpVer = tmpVer & Format$(HiWord(FI.dwFileVersionLS), "00") & "." & _
Format$(LoWord(FI.dwFileVersionLS), "00")
Else
tmpVer = tmpVer & Format$(FI.dwFileVersionLS, "0000")
End If

End If

GetFileVersion = tmpVer

End Function

[bobrus]

اینم یه اکتیویکس واسه تغییر رزولوشن

[Mbt925]

با سلام خدمت دوستان گل سایت!دوست عزیز Mbt925 و دوستان دیگر زحمت کش سایت دستتون واقا درد نکنه!!!
کسی سورس کامل Get Drive Listرا با نمایش آیکون درایوها را بزاره ممنون میشم!

http://soda.parsaspace.com/MBT925/ActiveX/Directory%20TreeV3ScrShot.png


http://barnamenevis.org/forum/showpost.php?p=399125&postcount=95
]

[Mbt925]

دوست گلم از پاسخی که دادی خیلی ممنونم ولی:
من میخواهم آیکون اصل درایوها رو نشون بده یعنی آیکونی که تو مای کامپیوتر نشون میده!در ضمن اگر من آیکون یکی از درایوها رو عوض کردم تو برنامه هم عوض بشه و یه آیکون ثابت نشون نده!
امیدوارم منظورم رو رسونده باشم.پیشاپیش متشکرم!

این نمونه که قرار میدم و سایر نمونه هایی که آیکون استخراج میکنن هم می تونن آیکون درایو ها و فولدر ها رو استخراج کنن.

Extract Drive Icon

دانلود (http://soda.parsaspace.com/MBT925/Learn-Sample/Extract%20Drive%20Icon.zip)

[Mbt925]

iBMP_Pic Browser good

یه نمونه خیلی خوب برای کار با تصویر.
در ضمن این برنامه PNG رو هم باز می نه.

http://soda.parsaspace.com/MBT925/Learn-Sample/iBMP_Pic%20Browser%20goodScrShot.bmp

دانلود (http://soda.parsaspace.com/MBT925/Learn-Sample/iBMP_Pic%20Browser%20good.zip)

[Mbt925]

بریدن قسمتی از فرم توسط تصویر

http://soda.parsaspace.com/MBT925/Learn-Sample/Cut%20Pict%20RegionScrShot.jpg
نمونه اول (http://soda.parsaspace.com/MBT925/Learn-Sample/Cut%20Pict%20Region.rar)

نمونه دوم (http://soda.parsaspace.com/MBT925/Learn-Sample/Transparent%20Form.rar)

[Mbt925]

MBDir

این نمونه هم بد نیست ، برای کار با خصوصیات فایل ها بدرد میخوره.

http://soda.parsaspace.ir/MBT925/Learn-Sample/MBDirScrShot.jpg

دانلود (http://soda.parsaspace.ir/MBT925/Learn-Sample/MBDir.rar)

[Mbt925]

Get IP

بدست آوردن IP سیستم از اون سوال هایی اه که زیاد مطرح میشه.

دانلود (http://soda.parsaspace.com/MBT925/Learn-Sample/Get_IP.rar)

[Mbt925]

اضافه کردن دکمه به نوار عنوان :

http://soda.parsaspace.ir/MBT925/Learn-Sample/Add_Command_To_TitleBarScrShot.jpg

دانلود (http://soda.parsaspace.ir/MBT925/Learn-Sample/Add_Command_To_TitleBar.zip)

[Mbt925]

Multi Threading

یه نمونه ساده برای استفاده از Multi Threading توی ویبی.

دانلود (http://soda.parsaspace.ir/MBT925/Learn-Sample/Multithreading%20Example.rar)

[Mbt925]

Simple Media Player

یه نمونه ساده برای اونایی که با این ابزار کار نکردن.

http://soda.parsaspace.ir/MBT925/Learn-Sample/Simple%20Media%20PlayerSnapshot.JPG

دانلود (http://soda.parsaspace.ir/MBT925/Learn-Sample/Simple%20Media%20Player.zip)

[Mbt925]

CharsetMap

تغییر CharSet یا همون Script فونت

http://soda.parsaspace.ir/MBT925/Learn-Sample/CharsetMapSampleScrShot.jpg

دانلود (http://soda.parsaspace.ir/MBT925/Learn-Sample/CharsetMapSample.rar)

[Mbt925]

دو نمونه دانلودر که از Thread استفاده کردن.

Multi Thread Downloader (http://soda.parsaspace.ir/MBT925/Learn-Sample/Multi%20Thread%20Downloader.rar)


Asynchronous Download (http://soda.parsaspace.ir/MBT925/Learn-Sample/Asynchronous%20Download.rar)

[Mbt925]

Set Wallpaper

با این نمونه می تونین Wallpaper رو تغییر بدین.

دانلود (http://soda.parsaspace.com/MBT925/Learn-Sample/SetWallpapers.rar)

[Mbt925]

Gif Player

نمونه ای برای پخش تصاویر متحرک Gif

دانلود (http://soda.parsaspace.com/MBT925/Learn-Sample/GifPlayer.rar)

[Mbt925]

Use Asterix symbol in input box dialog

تا حالا شده بخواین متن رو بشکل ستاره توی InputBox نشون بدید ؟
مثلا برای دریافت پسورد ؟

http://soda.parsaspace.com/MBT925/Learn-Sample/Use%20Asterix%20Symbol%20in%20input%20dialog%20box ScrShot.jpg

دانلود (http://soda.parsaspace.com/MBT925/Learn-Sample/Use%20Asterix%20Symbol%20in%20input%20dialog%20box .rar)

[majjjj]

فکر نکنم پیدا کردنش خیلی سخت باشه !!!
Option Explicit


'################################################# ###################################
'# Program name: Three Way Call Hook-Flash demo #
'# #
'# Version: v1.0 #
'# #
'# Date: July 20th 2004 #
'# #
'# Requirements: #
'# VOICE modem or TAPI compliant telephony device #
'# Phone line with 3-way calling #
'# #
'# Operating System: Windows 98, Windows ME, Windows NT 4, Windows 2000, Windows XP #
'# #
'# Note: Under Windows NT 4 voice modems may not supported because of the lack of a #
'# voice capable TAPI universal modem driver. #
'# #
'# Program Purpose: To demonstrate how to add telephony functions to your application#
'# using the TAPIEx ActiveX control. #
'# #
'################################################# ###################################
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Dim currCall As ITAPICall

Private Sub BnDial1_Click()
Dim deviceID As Long
Dim currLine As ITAPILine
deviceID = CbLines.ItemData(CbLines.ListIndex)
Set currLine = mTAPIEx.GetLineFromDeviceID(deviceID)
If currLine.Open() Then ' Open the device
Set currCall = currLine.MakeCall(Txt1StPhN.Text) 'make the first call
BnDial1.Enabled = False
End If
End Sub
Private Sub BnDial2_Click()
' make the second call here
currCall.GenerateDTMF "!" ' send the hook-flash command
Sleep (1500) 'wait 1.5 second for the dialtone
currCall.GenerateDTMF Txt2ndPhN.Text ' now Dial the second phone number
BnDial2.Enabled = False
BnThreeWay.Enabled = True
End Sub
Private Sub BnDropCall_Click()
currCall.Drop
BnDial1.Enabled = True
BnThreeWay.Enabled = False
End Sub

Private Sub BnThreeWay_Click()
currCall.GenerateDTMF "!" 'flash again
End Sub
Private Sub CbLines_Click()
'
BnDial1.Enabled = CbLines.ListIndex >= 0
End Sub
Private Sub Form_Load()
Dim line As ITAPILine
mTAPIEx.Initialize
For Each line In mTAPIEx.Lines 'enumerate the line devices
If (line.Caps.Line_Features And LINE_FEATURE_MAKECALL) > 0 Then
CbLines.AddItem line.DeviceName
CbLines.ItemData(CbLines.ListCount - 1) = line.deviceID
End If
Next
End Sub
Private Sub mTAPIEx_OnConnected(ByVal m_Call As TAPIEXLibCtl.ITAPICall, ByVal ConnectedMode As TAPIEXLibCtl.LINECONNECTEDMODE)
BnDial2.Enabled = True
BnDropCall.Enabled = True
End Sub
Private Sub mTAPIEx_OnDebug(ByVal msg As String)
TxtLog.Text = TxtLog.Text & msg & vbCrLf
End Sub

Private Sub mTAPIEx_OnDisConnected(ByVal m_Call As TAPIEXLibCtl.ITAPICall, ByVal DisconnectedMode As TAPIEXLibCtl.LINEDISCONNECTMODE)
BnDial2.Enabled = False
BnDropCall.Enabled = False
BnThreeWay.Enabled = False
End Sub
Private Sub Txt1StPhN_Click()
If Txt1StPhN.Tag <> 1 Then
Txt1StPhN.Text = ""
Txt1StPhN.Tag = 1
End If
End Sub
Private Sub Txt1StPhN_KeyDown(KeyCode As Integer, Shift As Integer)
Txt1StPhN_Click
End Sub

Private Sub Txt2ndPhN_Click()
If Txt2ndPhN.Tag <> 1 Then
Txt2ndPhN.Text = ""
Txt2ndPhN.Tag = 1
End If
End Sub
Private Sub Txt2ndPhN_KeyDown(KeyCode As Integer, Shift As Integer)
Txt2ndPhN_Click
End Sub


من این رو پیدا کردم

[Mbt925]

Show PopUp Form

تا حالا به کمبوباکس ها توجه کردین؟
لیست اه بازشو اه کمبوباکس ، همیشه در رو قرار میگیره و با کلیک کردن در جاهای دیگه پنهان میشه.

این نمونه طرز کار کمبوباکس رو نشون میده.

http://soda.parsaspace.com/MBT925/Learn-Sample/PopUpSampleScrShot.jpg

دانلود (http://soda.parsaspace.com/MBT925/Learn-Sample/PopUpSample.rar)

[majjjj]

این هم یک برنامه جهت تغییر کپشن منوی start

[Mbt925]

Multiple Multimedia Control Sample

استفاده از چند کارت صوت بصورت همزمان

دانلود (http://soda.parsaspace.com/MBT925/Learn-Sample/Multiple%20Multimedia%20Control%20Sample.rar)

[Mbt925]

Analog Transparent Clock

یه ساعت آنالوگ خیلی زیبا و بدون پس زمینه

http://mbt925.persiangig.com/Learn_Sample/Analog%20Transparent%20ClockScrShot.gif

Digital Clock

ساعت دیجیتالی

http://mbt925.persiangig.com/Learn_Sample/Digital%20ClockScrShot.gif

[Mbt925]

Email_Spider - Finder

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

http://mbt925.persiangig.com/Learn_Sample/Email_Spider%20-%20FinderScrShot.gif

Popup Blocker

این نمونه هم از اسمش مشخصه چیکار می کنه.

http://mbt925.persiangig.com/Learn_Sample/Popup%20BlockerScrShot.jpg

[Mbt925]

Richtext Tools

این نمونه شما رو با یه سری از قابلیت های کنترل RichTexyBox آشنا می کنه.

http://mbt925.persiangig.com/Learn_Sample/Richtext%20ToolsScrShot.jpg

[Mbt925]

دو نمونه فایروال برای دوستانی که به این مبحث علاقه دارن. FirewallAPP
http://mbt925.persiangig.com/Learn_Sample/FirewallAPPScrShot.jpg

FireWall-Monitor

http://mbt925.persiangig.com/Learn_Sample/FireWall-MonitorScrShot.jpg

[Mbt925]

Binary Transfer Control

http://mbt925.persiangig.com/Learn_Sample/Binary%20Transfer%20ControlScrShot.jpg

[Mbt925]

Better Menu

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

http://mbt925.persiangig.com/Learn_Sample/Better%20MenuScrShot.jpg

[Mbt925]

Magnification- Zoom

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

http://mbt925.persiangig.com/Learn_Sample/Magnification-%20ZoomScrShot.jpg

[Mbt925]

4 تا از کاملترین نمونه ها برای ساختن هر مدل ToolTip ای که بخواین.

ExTooltip (http://soda.parsaspace.com/MBT925/Learn-Sample/ExTooltip.rar)

Easy_Balloon (http://soda.parsaspace.com/MBT925/Learn-Sample/Easy_Balloon_Best.rar)

Tooltip 2 line (http://soda.parsaspace.com/MBT925/Learn-Sample/Tooltip%202%20line.rar)

Best_ToolTip (http://soda.parsaspace.com/MBT925/Learn-Sample/Best_ToolTip.rar)

http://soda.parsaspace.com/MBT925/Learn-Sample/ToolTipTextSampleScrShot.jpg

[Mbt925]

Modem List - Create connection

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

http://soda.parsaspace.com/MBT925/Learn-Sample/Modem%20List%20-%20Create%20connectionScrShot.jpg

دانلود (http://soda.parsaspace.com/MBT925/Learn-Sample/Modem%20List%20-%20Create%20connection.rar)

Dialup_Sample

قابلیت های این نمونه هم توی تصویر مشخصه.

http://soda.parsaspace.com/MBT925/Learn-Sample/Dialup_SampleScrShot.jpg

دانلود (http://soda.parsaspace.com/MBT925/Learn-Sample/Dialup_Sample.rar)

[Mbt925]

GetMouseButton

تشخیص فشرده شده دکمه های موس در هر جای صفحه


http://soda.parsaspace.com/MBT925/Learn-Sample/GetMouseButtonSampleSample.jpg

دانلود (http://soda.parsaspace.com/MBT925/Learn-Sample/GetMouseButtonSample.rar)

[Mbt925]

MouseIn-Out

تشخیص ایونت ها MouseIn و MouseOut

[Mbt925]

Process Commander

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

http://soda.parsaspace.com/MBT925/Learn-Sample/Process_CommanderScrShot.jpg

دانلود (http://soda.parsaspace.com/MBT925/Learn-Sample/Process_Commander.rar)

[Mbt925]

FindOut See Last Line

یکی از دوستان یه سوال مطرح کرده بودن که برای فهمیدن اینکه کاربر تا آخر یه تکس باکس (که اسکرول بار داره) رفته و آخرین خط رو دیده باید چیکار کرد ؟
البته این که این کار دلیلی داره یا کاربردی داره دیگه بماند.

این نمونه یه روش برای این کار رو نشون میده :

[Mbt925]

2D Array Sample

این نمونه برای کار با آرایه ی 2 بعدی اه پویا هست.

توجه کنید که از کلمه ی کلیدی Preserve توی همه ی تغییر ابعاد نمی تونید استفاده کنید.

دانلود (http://soda.parsaspace.com/MBT925/Learn-Sample/2D%20Array%20Sample.rar)

[Mbt925]

Internet Download File-Url - ProX

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

[aidin1386]

» نمایش فرم به صورت شیشه ای (http://mediavb.persiangig.ir/SourceCode/Form/Form_Layerd.zip)

[aidin1386]

» نمایش فرم ها با انیمیشن خاص (http://mediavb.persiangig.ir/SourceCode/Form/Form_Load_Effect.zip)

» تغییر شکل فرم به شکل یک ستاره (http://mediavb.persiangig.ir/SourceCode/Form/StarForm.zip)

» قرار دادن یک دکمه روی نوار عنوان (http://mediavb.persiangig.ir/SourceCode/Form/Cmd_on_TitleBar.zip)

» طراحی فرم های سوراخ دار (http://mediavb.persiangig.ir/SourceCode/Form/CombineForm.zip)

» طراحی فرمهایی به شکل بیضی (http://mediavb.persiangig.ir/SourceCode/Form/ElipsForm.zip)

[aidin1386]

سورس کدهای مربوط به کار با سیستم و ویندوز :
» شناسایی CD ROM در سیستم (http://mediavb.persiangig.com/SourceCode/System/CDROM_Finder.zip)

» بررسی کردن وضعیت چراغ Caps Lock (http://mediavb.persiangig.com/SourceCode/System/CapsLock.zip)

» نمایشگر نوار کارکرد پردازنده (http://mediavb.persiangig.com/SourceCode/System/DisplayCpu.zip)

» بررسی کننده ظرفیت درایوها (http://mediavb.persiangig.com/SourceCode/System/DriveSizer.zip)

» برنامه ای برای Hibernate کردن سیستم (http://mediavb.persiangig.com/SourceCode/System/Hibernate.zip)

» پنهان کردن درایوها از My Computer (http://mediavb.persiangig.com/SourceCode/System/Hide_drive.zip)

» جابجا شدن حرکت نشانگر موس (http://mediavb.persiangig.com/SourceCode/System/Mouse_Transfer.zip)

» بستن برنامه ها با استفاده از عنوان آنها (http://mediavb.persiangig.com/SourceCode/System/Program_Closer.zip)

» راه اندازی مجدد سیستم ( Restart ) (http://mediavb.persiangig.com/SourceCode/System/Restart_System.zip)

» جستجوی سریع فایلها در سیستم (http://mediavb.persiangig.com/SourceCode/System/Search_File.zip)

» خاموش کردن سیستم ( ShutDown ) (http://mediavb.persiangig.com/SourceCode/System/ShutDown.zip)

» ضبط کردن صداهای پخش شده در ویندوز (http://mediavb.persiangig.com/SourceCode/System/Sound_Recorder.zip)

» استخراج کردن مشخصات سیستم (http://mediavb.persiangig.com/SourceCode/System/SystemInfo.zip)

» قرار دادن آیکون برنامه در کنار ساعت (http://mediavb.persiangig.ir/SourceCode/Ghraphic/Sys_Tray.zip)
» (http://mediavb.persiangig.ir/SourceCode/Ghraphic/Sys_Tray.zip)قرار دادن برنامه در Startup ویندوز (http://mediavb.persiangig.com/SourceCode/System/Program_to_Startup.zip)
» (http://mediavb.persiangig.ir/SourceCode/Ghraphic/Sys_Tray.zip)استخراج اطلاعات Dialup های موجود در سیستم ( UserName و Password ) (http://mediavb.persiangig.com/SourceCode/System/Dialup_Recovery.zip)

[aidin1386]

سورس کدهای به نوعی مرتبط با گرافیک سیستم :
» حرکت دادن آیکونهای موجود در دسکتاپ (http://mediavb.persiangig.ir/SourceCode/Ghraphic/Desktop_Icon_Move.zip)

» استخراج ابعاد تصویر بدون بار کردن آن (http://mediavb.persiangig.ir/SourceCode/Ghraphic/ImageSize.zip)

» عکس گرفتن از تصویر زمینه دسکتاپ (http://mediavb.persiangig.ir/SourceCode/Ghraphic/Paint_Desktop.zip)

» اسکرین سیور شماره 1 (http://mediavb.persiangig.ir/SourceCode/Ghraphic/Screen_1.zip)

» اسکرین سیور شماره 2 (http://mediavb.persiangig.ir/SourceCode/Ghraphic/Screen_2.zip)

» اسکرین سیور شماره 3 (http://mediavb.persiangig.ir/SourceCode/Ghraphic/Screen_3.zip)

» اسکرین سیور شماره 4 (http://mediavb.persiangig.ir/SourceCode/Ghraphic/Screen_4.zip)

» شیشه ای کردن نوار وظیفه ( TaskBar ) (http://mediavb.persiangig.ir/SourceCode/Ghraphic/TransTaskBar.zip)

» تغییر والپر ( WallPaper ) ویندوز (http://mediavb.persiangig.ir/SourceCode/Ghraphic/WallPaper.zip)

» بزرگنمایی تصویر همراه با اسکرول (http://mediavb.persiangig.ir/SourceCode/Ghraphic/ZoomAndScroll.zip)

[amirsajjadi]

آموزش کامل Sendkeys (http://barnamenevis.org/forum/showpost.php?p=485556&postcount=41)

[Mbt925]

Picture Analyze

یه نمونه ی ساده برای کار با تصویر

این نمونه حاشیه عکس رو حذف می کنه.
قادر به چرخش تصویر هم هست.

دانلود (http://mbt925.persiangig.com/Learn_Sample/AnalyzePictureSample.rar)

http://mbt925.persiangig.com/Learn_Sample/AnalyzePictureSampleScrShot.jpg

[Mbt925]

یه نمونه ی ساده برای کار به Printer (تعیین پرینتر پیش فرض) و ListView

دانلود (http://mbt925.persiangig.com/Learn_Sample/PrinterCollectionSample.rar)

[Mbt925]

FadeText Sample

این نمونه ی ساده یه ترفند جالب اه برای افکت تدریجی متن.
بدرد ساختن About می خوره.

http://mbt925.persiangig.com/Learn_Sample/FadeTextSample.bmp

دانلود (http://mbt925.persiangig.com/Learn_Sample/TextFade-About%20Sample.rar)

[Mbt925]

Register HotKey - MouseButton Sample

مونیتور کردن فشرده شدن ترکیب کلید های Shift,Ctrl,Alt و کلید های موس.
نمونه ی خیلی خوبی هست.

http://mbt925.parsaspace.com/VBCodeSample%D9%8E/RegisterHotKey-MouseButtonSampleScrShot.png

دانلود (http://mbt925.parsaspace.com/VBCodeSample%D9%8E/Register%20HotKey%20-%20MouseButton%20Sample.rar)

[Mbt925]

Form ِDrop Shadow

ایجاد سایه برای فرم

http://mbt925.parsaspace.com/VBCodeSample%D9%8E/FormdropShadowScrShot.jpg

دانلود (http://mbt925.parsaspace.com/VBCodeSample%D9%8E/FormdropShadow.zip)

[Mbt925]

BackGround Picture for Transparent TextBox

http://mbt925.persiangig.com/Learn_Sample/BackGround%20Picture%20for%20Transparent%20TextBox ScrShot.jpg

دانلود (http://mbt925.persiangig.com/Learn_Sample/BackGround%20Picture%20for%20Transparent%20TextBox .rar)

[Mbt925]

Process Gateway

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

http://mbt925.persiangig.com/Learn_Sample/Process%20GatewayScrShot.jpg

دانلود (http://mbt925.persiangig.com/Learn_Sample/Process%20Gateway%20%5BCompleted%5D.rar)

[Mbt925]

PaintPicture Sample

http://mbt925.persiangig.com/Learn_Sample/PaintPictureSampleScrShot.jpg

دانلود (http://mbt925.persiangig.com/Learn_Sample/PaintPictureSample.rar)

[Mbt925]

Access Field Mapper

از تصویر کارش مشخصه.
ولی یکی از کاربرد هاش در آوردن لیست جداول و فیلدهای دیتابیس اه.


http://mbt925.parsaspace.com/VBCodeSample%D9%8E/Access%20Field%20MapperScrShot.jpg

دانلود (http://mbt925.parsaspace.com/VBCodeSample%D9%8E/Access%20Field%20Mapper.rar)

[Mbt925]

Excel Chart

خیلی دنباله نمونه ای می گردن که ارتباط با Excel و رسم نمودار از طریق کد رو توضیح بده.

http://mbt925.persiangig.com/Learn_Sample/Excel%20ChartScrShot.jpg

دانلود (http://mbt925.persiangig.com/Learn_Sample/Excel%20Chart.rar)

[shaghaghi]

Dim strSQL as String
strSQL="Select * From Table1 Where code=12"
Dim rst As New ADODB.Recordset
rst.Open strSQL, "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\test.mdb",adOpenForwardOnly, adLockOptimistic

If Not rst.EOF Then
Set DataReport1.DataSource = rst
DataReport1.DataMember = rst.DataMember
DataReport1.Show
End If

[Mbt925]

Avi Extractor

استخراج فریم ها از AVI

http://mbt925.parsaspace.com/VBCodeSample%D9%8E/aviFrameExtractor.png

دانلود (http://mbt925.parsaspace.com/VBCodeSample%D9%8E/AVI_Extractor.zip)

[Mbt925]

AccessTextBox_By Label AccessKey

حتما تا حالا برای دکمه هاتون AccessKey قرار دادین. (Command1&) -> (Command)
با زدن Alt + c دکمه کلیک میشه.

یه ترفند ساده برای گذاشتن AccessKey برای تکس باکس :

http://mbt925.parsaspace.com/VBCodeSample%D9%8E/AccessTextBox_By%20Label%20AccessKeyScrShot.png[/URL]

[URL="http://mbt925.parsaspace.com/VBCodeSample%D9%8E/AccessTextBox_By%20Label%20AccessKey.rar"]دانلود (http://mbt925.parsaspace.com/VBCodeSample%D9%8E/AccessTextBox_By%20Label%20AccessKeyScrShot.png)

[Mbt925]

Zoom text better than StretchBlt

http://mbt925.parsaspace.com/VBCodeSample%D9%8E/Zoom%20text%20better%20than%20StretchBltScrShot.pn g

دانلود (http://mbt925.parsaspace.com/VBCodeSample%D9%8E/Zoom%20text%20better%20than%20StretchBlt.rar)

[majjjj]

ذوب شدن فرم به شکل بستنی


Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyEscape Then Unload Me
End Sub

Private Sub Form_Load()
Dim lngDC As Long
Dim intWidth As Integer, intHeight As Integer
Dim intX As Integer, intY As Integer

lngDC = GetDC(0)

intWidth = Screen.Width / Screen.TwipsPerPixelX
intHeight = Screen.Height / Screen.TwipsPerPixelY

Form1.Width = intWidth * 15
Form1.Height = intHeight * 15

Call BitBlt(hdc, 0, 0, intWidth, intHeight, lngDC, 0, 0, vbSrcCopy)
Form1.Visible = vbTrue

Do
intX = (intWidth - 128) * Rnd
intY = (intHeight - 128) * Rnd

Call BitBlt(lngDC, intX, intY + 1, 128, 128, lngDC, intX, intY, _
vbSrcCopy)

DoEvents
Loop
End Sub

Private Sub Form_Unload(Cancel As Integer)
Set Form1 = Nothing
InvalidateRect 0&, 0&, False
End
End Sub


ببخشید اگه تکراریه

[Mbt925]

Change Exe Icon

نمونه ای برای تغییر آیکون فایل های اجرایی. همون کاری که برنامه های ویرایش فایل های اجرایی انجام میدن.

http://mbt925.parsaspace.com/VBCodeSample%D9%8E/Icon%20changerScrShot.jpg

دانلود (http://mbt925.parsaspace.com/VBCodeSample%D9%8E/Icon%20changer%20Exe.rar)

[Mbt925]

Expression Analyzer

به علت درخواست زیاد دوستان برای برنامه ای که بتونه
رشته های ریاضی رو آنالیز کنه و اونا رو به عبارت پسوندی تبدیل و یا نتیجشو محاسبه کنه،
این dll رو آماده کردم.
استفاده ازش توی نمونه کاملا مشخصه و بسیار ساده است.



دانلود (http://mbt925.persiangig.com/Learn_Sample/Expression%20Analyzer.rar)

[Mbt925]

Expression Analyzer 1.1.0

کمی فرصت پیدا شد، Dll قبلی رو کمی ارتقا دادم.

قابلیت ها :

تبدیل عبارت میانوندی به پیشوندی و پسوندی
پرانتبندی کردن عبارت ریاضی بر اساس اولویت ها
محاسبه نتیجه ی عبارت

[Mbt925]

ImageInfo Sample

بدست آوردن یه سری اطلاعات از تصاویر
مثل
حجم
اندازه
فرمت

[Mbt925]

Split & Merge Files

یه نمونه ی خیلی خوب و کامل برای قطعه قطعه کردن فایل ها و اتصال قطعه ها بهمه.

http://mbt925.googlepages.com/FragIt_SplitMergeScrShot.jpg

دانلود (http://mbt925.googlepages.com/FragIt_SplitMerge.rar)

[Mbt925]

The Matrix

فکر کنم این نمونه خیلی طرفدار پیدا کنه ، چون واقعا زیباست.

http://mbt925.parsaspace.com/VBCodeSample%D9%8E/The_MatrixScrShot.jpg

دانلود (http://mbt925.parsaspace.com/VBCodeSample%D9%8E/The_Matrix.rar)

[Mbt925]

WaterText Effect

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

http://mbt925.parsaspace.com/VBCodeSample%D9%8E/WaterTextEffectScrShot.jpg

دانلود (http://mbt925.parsaspace.com/VBCodeSample%D9%8E/WaterTextEffect.rar)

[Mbt925]

Creatre Shortcut

ایجاد میانبر از همه چیز

http://mbt925.parsaspace.com/VBCodeSample%D9%8E/Create_ShortcutScrShot.jpg

دانلود (http://mbt925.parsaspace.com/VBCodeSample%D9%8E/Create_Shortcut.rar)

[Mbt925]

DVD Player

اینم یه نمونه DVD Player .

دانلود (http://mbt925.parsaspace.com/VBCodeSample%D9%8E/DVD%20PLAYER.zip)

[Mbt925]

vnAntivirus

این نمونه رو برای دوست داران آنتی ویروس نویسی قرار دادم.

http://mbt925.persiangig.com/Learn_Sample/vnAntivirusScrShot.gif

دانلود (http://mbt925.persiangig.com/Learn_Sample/vnAntivirus.zip)

[vahid1369]

Photo On Drive
اين هم يه سورس برنامه توپ كه مي تونه عكس دلخواه شما رو در پشت درايو ها بزاره

[sh2007]

با استفاده از اين سورس شما مي توانيد شماره سريال هارد كامپيوتر يوز را بخوانيد و آنرا درون برنامه خود بكار ببريد و برنامه را در برابر كپي هاي غير مجاز جلوگيري كنيد

[.:KeihanCPU:.]

توسط این کد میتونید حافظه اشغال شده رو ببینید
18884

اطلاعات کاملتری از هارد
18885

کنترل پنل
پیشنهاد میکنم حتما دانلود کنید
18887

اطلاعات کاملی از درایوها ,نوع آنها و ...
18888

رقص موس
18889

اطلاعات راجع به Bios
18890

[.:KeihanCPU:.]

از اسمش مشخصه
18891

Find Win32
18892

از اسمش مشخصه
18893

خیلی با حاله رقص آیکون های دسکتاپ
18894

اینم از مدیریت ویندوز
18895

[.:KeihanCPU:.]

File manager
18896

نمیدونم چه اسمی براش انتخاب کنم!!!
18897

اینم نمیدونم چی بهش باید گفت ,حرفه ای
18899

واسه اونایی که Paint میخوان بسازن
18900

اطلاعات بسیار کامل از سیستم
18901

اینم برنامه داس در ویندوز
18902

:قلب:حرکت موس رو بر عکس میکنه:قلب:
18903

[.:KeihanCPU:.]

اینم یه انیمیشن برای فرمهای About Me
18923

هر جا موس بره اسم پنجره رو برمیگردونه
18924

از اسمش که مشخصه
18925

گرفتن سورس سایت بدون باز کردن سایت
18926

Key Logger در تمام پنجره ها
18927

Hide ,Min, Max ,... کردن پنجره های ویندوزی
خیلی عالیه
18931

دیالوگ Find text,Replace

18932

باز کردن فایل Txt

18933

[Mbt925]

AMIB_MathTR

یه سورس هست که با نوشتن یه فرمول ساده مثل فرمول زیر تصاویر متحرک زیبا با کمک ریاضی ایجاد کنید




R = Abs(A) * 40


هر فرمولی دوست داشتید به جای اون بنویسید تصاویر متحرک جذابی ایجاد میشه.

(کاری از دوست عزیز AMIB)

[Mbt925]

FormPropManager

با این نمونه می تونید اکثر خصوصیات فرم که فقط در زمان طراحی قابل تغییرن رو در زمان اجرا تغییر بدید.

http://mbt925.parsaspace.com/VBCodeSample%D9%8E/FormPropManager.jpg

دانلود (http://mbt925.parsaspace.com/VBCodeSample%D9%8E/FormPropManager.rar)

[.:KeihanCPU:.]

خیلی زیبا باز و بسته میشه
http://barnamenevis.org/forum/attachment.php?attachmentid=18996&d=1213180134

[Mbt925]

SelfKiller

روشی برای پاک کردن فایل اجرایی توسط خودش :
این روش بهترین و ساده ترین روشه که هیچ اثری از فایل باقی نمیگذاره.

[.:KeihanCPU:.]

روشی برای پاک کردن فایل اجرایی توسط خودش فایل Bat ساخته میشه ولی Exe پاک نمیشه

اینم یه برنامه کوچولو که دقیقا نمیدونم کارش چیه ولی میدونم که نقشه زمین رو به صورت 3 بعدی طراحی میکنه و خیلی جالبه.
اگه شما دونستین چیه به ما بگید.
19024

[.:KeihanCPU:.]

در اینجا مجموعه ای از سورسها رو در رابطه با رجیستری گذاشتم

جستجو در رجیستری(فوق العادست)
19029

ویرایشگر رجیستری(اینم فوق العادست)
19028

سورسهایی برای کار با رجیستری(بیشتر به درد آماتورا میخوره)
19026
19027

با تشکر...

[Mbt925]

No Edge

تغییر فرم لبه های شیء با استفاده از تابع API اه DrawEdge.

http://mbt925.googlepages.com/NoEdgeScrShot.jpg

دانلود (http://mbt925.googlepages.com/NoEdge.rar)

[Mbt925]

Get File Icon

با این نمونه می تونید آیکون فایل های مختلف رو بدست بیارید.

http://mbt925.googlepages.com/ShowFileIconScrShot.jpg

دانلود (http://mbt925.googlepages.com/showfileicons.rar)

[Mbt925]

NewStyle Form Anim

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

دانلود (http://mbt925.googlepages.com/NewStyleFormAnim.rar)

[Mbt925]

Check Mail

این نمونه قراره ایمیل های جدید رو چک کنه.

http://mbt925.googlepages.com/CheckMailScrShot.jpg

دانلود (http://mbt925.googlepages.com/CheckMail.rar)

[__siavash__]

Custom MsgBox


http://barnamenevis.org/forum/attachment.php?attachmentid=19467&d=1214149230

[__siavash__]

(MessageBoxTimeout API (Msgbox TimeOut




Rem __siavash__
Rem WwW.Barnamenevis.org (http://www.Barnamenevis.org)

Option Explicit

'# To indicate the buttons displayed in the message box, specify one of the following values.
Private Const MB_ABORTRETRYIGNORE = &H2&
Private Const MB_OKCANCEL = &H1&
Private Const MB_RETRYCANCEL = &H5&
Private Const MB_OK = &H0&
Private Const MB_YESNO = &H4&
Private Const MB_YESNOCANCEL = &H3&

'# To display an icon in the message box, specify one of the following values.
Private Const MB_ICONASTERISK = &H40&
Private Const MB_ICONEXCLAMATION = &H30&
Private Const MB_ICONHAND = &H10&
Private Const MB_ICONINFORMATION = MB_ICONASTERISK
Private Const MB_ICONMASK = &HF0&
Private Const MB_ICONQUESTION = &H20&
Private Const MB_ICONSTOP = MB_ICONHAND

'# To indicate the default button, specify one of the following values.
Private Const MB_DEFBUTTON1 = &H0&
Private Const MB_DEFBUTTON2 = &H100&
Private Const MB_DEFBUTTON3 = &H200&

'# To indicate the modality of the dialog box, specify one of the following values.
Private Const MB_APPLMODAL = &H0&
Private Const MB_SYSTEMMODAL = &H1000&
Private Const MB_TASKMODAL = &H2000&

'# To specify other options, use one or more of the following values.
Private Const MB_DEFAULT_DESKTOP_ONLY = &H20000
Private Const MB_SETFOREGROUND = &H10000

Private Const SUBLANG_ENGLISH_US = &H1 ' English (USA)

'Delclare APIs
Private Declare Function MessageBoxTimeout Lib "user32.dll" Alias "MessageBoxTimeoutA" (ByVal hwnd As Long, ByVal lpText As String, ByVal lpCaption As String, ByVal uType As Long, ByVal wLanguageId As Long, ByVal lngMilliseconds As Long) As Long
Private Declare Function MessageBoxEx Lib "user32" Alias "MessageBoxExA" (ByVal hwnd As Long, ByVal lpText As String, ByVal lpCaption As String, ByVal uType As Long, ByVal wLanguageId As Long) As Long
Private Declare Function MessageBox Lib "user32" Alias "MessageBoxA" (ByVal hwnd As Long, ByVal lpText As String, ByVal lpCaption As String, ByVal wType As Long) As Long

Private Sub Command1_Click()
MessageBoxTimeout Me.hwnd, "This MsgBox is MessageBoxTimeout API with 5000 Ms timeOut!!!", "Information", MB_YESNO Or MB_DEFBUTTON1 Or MB_ICONASTERISK, SUBLANG_ENGLISH_US, 5000
End Sub

[Mbt925]

Register TypeLib Source

از اسم نمونه ، کارکردش مشخصه.
از سری سورس های VBAccelerator

http://mbt925.googlepages.com/RegTypeLibScrShot.jpg

دانلود (http://mbt925.googlepages.com/RegisterTypeLibSource.rar)

[Mbt925]

Multiple Monitor Support

از این مدل نمونه ها خیلی کم نوشته میشه.

http://mbt925.googlepages.com/MultiMonitorScrShot.jpg

دانلود (http://mbt925.googlepages.com/MultipleMonitorSupportSample_Code.rar)

[Mbt925]

Scroll Picture - BitBlt

حرکت دادن تصویر با تابع API ، BitBlt

دانلود (http://mbt925.googlepages.com/ScrollPicture-BitBlt.rar)

[Mbt925]

Path Extractor

این نمونه یک مسیر دریافت می کنه و تمام فایل ها و فولدرهای اون مسیر رو استخراج می کنه (نامشون رو) و در یک ساختار درختی نمایش میده.

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

http://mbt925.googlepages.com/PathExtractorScrShot.jpg

دانلود (http://mbt925.googlepages.com/PathExtractor.rar)

[__siavash__]

باز كردن مسیر ها و پوشه های خاص ویندوز
(نویسنده: جناب Darg از ایران ویج)





My Computer
Explorer /E,::{20D04FE0-3AEA-1069-A2D8-08002B30309D}
Explanation: The object My Computer is a namespace which has the CLSID: {20D04FE0-3AEA-1069-A2D8-08002B30309D}





Control Panel
Explorer /N,::{20D04FE0-3AEA-1069-A2D8-08002B30309D}\::{21EC2020-3AEA-1069-A2DD-08002B30309D}
Explanation: The Control Panel object whose CLSID is: {21EC2020-3AEA-1069-A2DD-08002B30309D} is a sub-object of My Computer.






Printers and telecopiers
Explorer /N,::{20D04FE0-3AEA-1069-A2D8-08002B30309D}\::{21EC2020-3AEA-1069-A2DD-08002B30309D}\::{2227A280-3AEA-1069-A2DE-08002B30309D}





Fonts
Explorer /N,::{20D04FE0-3AEA-1069-A2D8-08002B30309D}\::{21EC2020-3AEA-1069-A2DD-08002B30309D}\::{D20EA4E1-3957-11d2-A40B-0C5020524152}






Scanners and Cameras
Explorer /N,::{20D04FE0-3AEA-1069-A2D8-08002B30309D}\::{21EC2020-3AEA-1069-A2DD-08002B30309D}\::{E211B736-43FD-11D1-9EFB-0000F8757FCD}






Network Neighborhood
Explorer /N,::{20D04FE0-3AEA-1069-A2D8-08002B30309D}\::{21EC2020-3AEA-1069-A2DD-08002B30309D}\::{7007ACC7-3202-11D1-AAD2-00805FC1270E}






Administration Tools
Explorer /N,::{20D04FE0-3AEA-1069-A2D8-08002B30309D}\::{21EC2020-3AEA-1069-A2DD-08002B30309D}\::{D20EA4E1-3957-11d2-A40B-0C5020524153}






Tasks Scheduler
Explorer /N,::{20D04FE0-3AEA-1069-A2D8-08002B30309D}\::{21EC2020-3AEA-1069-A2DD-08002B30309D}\::{D6277990-4C6A-11CF-8D87-00AA0060F5BF}






Web Folders
Explorer /N,::{20D04FE0-3AEA-1069-A2D8-08002B30309D}\::{BDEADF00-C265-11D0-BCED-00A0C90AB50F}






Recycle Bin
Explorer /N,::{645FF040-5081-101B-9F08-00AA002F954E}





Network Favorites
Explorer /N,::{208D2C60-3AEA-1069-A2D7-08002B30309D}





Default Navigator
Explorer /N,::{871C5380-42A0-1069-A2EA-08002B30309D}





Computer search results folder
Explorer /N,::{1F4DE370-D627-11D1-BA4F-00A0C91EEDBA}






Network Search Results computer
Explorer /N,::{E17D4FC0-5564-11D1-83F2-00A0C90DC849}






My Documents
Explorer /N,::{450D8FBA-AD25-11D0-98A8-0800361B1103}


مرتبط با همین بحث میتونید به این تاپیک برید
آشنایی با RunDll32.exe (http://barnamenevis.org/forum/showthread.php?t=113703)

[Mbt925]

Auto Complete Path

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

http://mbt925.googlepages.com/AutoCompScrShot.jpg

دانلود (http://mbt925.googlepages.com/AutoCompletePath.rar)

[Mbt925]

Create Object By API

ساخت کنترل با API و در زمان اجرا



Private Declare Function CreateWindowEx Lib "user32" Alias "CreateWindowExA" (ByVal dwExStyle As Long, ByVal lpClassName As String, ByVal lpWindowName As String, ByVal dwStyle As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hWndParent As Long, ByVal hMenu As Long, ByVal hInstance As Long, lpParam As Any) As Long


دانلود (http://mbt925.googlepages.com/CreateObjectByAPI.rar)

[Mr'Jamshidy]

کنترل وضعیت مانیتور


Option Explicit

Private Declare Function SendScreenMessage Lib "user32" _
Alias "SendMessageA" _
(ByVal hwnd As Long, _
ByVal wMsg As Long, _
ByVal wParam As Long, _
lParam As Any) As Long

Private Const MONITOR_ON = -1&
Private Const MONITOR_LOWPOWER = 1&
Private Const MONITOR_OFF = 2&
Private Const SC_MONITORPOWER = &HF170&
Private Const WM_SYSCOMMAND = &H112

Public Function MonitorOff(Form As Form)

Call SendScreenMessage(Form.hwnd, WM_SYSCOMMAND, SC_MONITORPOWER, ByVal MONITOR_OFF)

End Function

Public Function MonitorOn(Form As Form)

Call SendScreenMessage(Form.hwnd, WM_SYSCOMMAND, SC_MONITORPOWER, ByVal MONITOR_ON)

End Function

Public Function MonitorPowerDown(Form As Form)

Call SendScreenMessage(Form.hwnd, WM_SYSCOMMAND, SC_MONITORPOWER, ByVal MONITOR_LOWPOWER)

End Function

[loads]

ایجاد سایه برای فرم

[Mbt925]

List of applications

این نمونه لیست Application ها رو نشون میده، یه چیزی شبیه به تب Applications در TaskManager.

با رعایت یه سری قوانین ساده و استفاده از تابع API اه EnumWindows

دانلود (http://mbt925.googlepages.com/Listofapplications.rar)

[Mbt925]

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

دانلود (http://mbt925.googlepages.com/FormAnimate.rar)

Window Magnetizing to edge of the screen
نمونه ی جالبیه. وقتی فرم رو نزدیک به گوشه های صفحه ببرید، می چسبه بهشون.
نکات دیگه ای هم درش نهفته است.

دانلود (http://mbt925.googlepages.com/WindowMagnetizingtoedgeofthescreen.rar)

http://www.planetsourcecode.com/Upload_PSC/ScreenShots/PIC20051122821426883.gif

[Mbt925]

Fast Rotate Picture

این نمونه با 3 روش مختلف تصویر رو می چرخونه و روی سرعتشون بحث می کنه.

دانلود (http://mbt925.googlepages.com/Very_FastRotatepic.rar)

http://www.planetsourcecode.com/upload_PSC/screenshots/PIC2002821249409047.gif

[Mbt925]

Skin Like Winamp

یه اسکین جالب که با تصویر ساخته میشه.

دانلود (http://mbt925.googlepages.com/Winamp-VBSkin.rar)

http://mbt925.googlepages.com/Winamp-VBSkinScrShot.jpg

[Mbt925]

Some effect

یه مجموعه از چند جلوه ی جالب که همشون زیبان.
این جلوه ها گلچین شده هستن.

چند جلوه برروی صفحه نمایش (http://mbt925.googlepages.com/UnbelievabeScreenEffectFull.rar)

جلوه ی زیر آب (http://mbt925.googlepages.com/UnderWaterEffect.rar)

جلوه ی دور شونده برای متن (http://mbt925.googlepages.com/Star_Warstexteffect.rar)

جلوه ی دورشونده و تاشو برای متن (http://mbt925.googlepages.com/Starwars.rar)

[Mbt925]

Make exe from pictures

ساخت فایل اجرایی از تصاویر و نمایش اونا با جلوه ای زیبا در قالب یک فایل اجرایی

دانلود (http://mbt925.googlepages.com/Makeexefrompictures.rar)

Super Gradiant

این نمونه چند مدل شیب رنگ رو ایجاد می کنه که همشون زیبان.

دانلود (http://mbt925.googlepages.com/SuperGradiant.rar)

http://mbt925.googlepages.com/SuperGradiantScrShot.jpg

Transparent Form BackGround

شفاف کردن قسمتی از فرم

دانلود (http://mbt925.googlepages.com/TransparentFormBackGround.rar)

[Mbt925]

TileMaker

این نمونه، یه برنامه ی کامله برای ...

دانلود (http://mbt925.googlepages.com/TileMaker.rar)

http://mbt925.googlepages.com/TileMakerScrShot.jpg

[sohrab o]

اینم یه ماژول که 60 تا تابع توش نوشتم
از قبیل :بدست آوردن پوشه ویندوز،خاموش کردن،ریست کردن،تغییر مکان موس،بستن پنجره،تغییر عنوان پنجره،بدست آوردن عنوان پنجره،تغییر ساعت،گرفتن مشخصات کامل یک فایل و ست کردن خصوصیات فایل،گرفتن مشخصات کامل یک درایو،حذف پوشه و ....

[sohrab o]

یه چیزی شبیه winamp

[xxxxx_xxxxx]

سلام. من مي خوام يك مجموعه كدهاي كوچولو ولي واقعا كاربردي رو اينجا بزارم.


اين كد شبيه AutoComplete مي باشد نمونه تصوير رو ببينيد:
يك text و يك List

http://i36.tinypic.com/otjby0.jpg



Private Const LB_FINDSTRING = &H18F
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Integer, ByVal lParam As Any) As Long

Private Sub Form_Load()
List1.AddItem "Computer"
List1.AddItem "Screen"
List1.AddItem "Modem"
List1.AddItem "Printer"
List1.AddItem "Scanner"
List1.AddItem "Sound Blaster"
List1.AddItem "Keyboard"
List1.AddItem "CD-Rom"
List1.AddItem "Mouse"
End Sub

Private Sub Text1_Change()
List1.ListIndex = SendMessage(List1.hwnd, LB_FINDSTRING, -1, ByVal CStr(Text1.Text))
End Sub

[xxxxx_xxxxx]

بدون شرح:
http://barnamenevis.org/forum/attachment.php?attachmentid=52297&stc=1&d=1278280494
http://i36.tinypic.com/2ch5h95.jpg



Private Const EM_UNDO = &HC7
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Integer, ByVal lParam As Any) As Long

Private Sub Form_Click()
SendMessage Text1.hwnd, EM_UNDO, 0, ByVal CStr(0)
End Sub

Private Sub Form_Load()
Text1.Text = "قسمتي از متن را تغيير بدهيد سپس روي فرم كليك كنيد و انجام عمل Undo را در متن خواهيد ديد"
End Sub

[xxxxx_xxxxx]

با همين يه ذره كد مي تونيد همه فونت هاي سيستم رو تو يك Combo نمايش بديد و بعد هم استفاده كنيد.

http://i34.tinypic.com/30w5dtk.jpg


اين قسمت تو ماژول:


Const CB_FINDSTRING = &H14C
Private Declare Function SendMessageAny Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Function SendMessageLong Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Const CB_SHOWDROPDOWN = &H14F

Public Function ComboBoxIndex(ByVal lHwnd As Long, ByVal sSearchText As String) As Long
ComboBoxIndex = SendMessageAny(lHwnd, CB_FINDSTRING, -1, ByVal sSearchText)
End Function

Private Sub Combo1_Change()
r = SendMessageLong(Combo1.hwnd, CB_SHOWDROPDOWN, True, 0)
ComboBoxIndex Combo1.hwnd, Combo1.Text
End Sub


اين قسمت هم تو فرم:



Private Sub Command1_Click()
Text1.FontName = Combo1.Text
End Sub

Private Sub Form_Load()
For i = 0 To Screen.FontCount - 1
Combo1.AddItem Screen.Fonts(i)
Next i
Combo1.Text = Screen.Fonts(0)
End Sub

[xxxxx_xxxxx]

توابع تبديل عدد به رشته !

اما اين با اون چيزي كه فكر مي كنيد فرق مي كنه به عكس نگاه كنيد:
http://i33.tinypic.com/1yn6km.jpg

اين يكي كوچولو نيست چون هرچي بزرگتر باشه بهتره.

براي برنامه هاي حسابداري چيزه خوبيه.
اما فارسي كردنش با خودتون. هركي فارسيش كرد به بقيه هم ندا بده.



Option Explicit

Public Function ConvertNumberToText(ByVal strNumber As String) As String
strNumber = CleanNumber(strNumber)
Select Case Len(strNumber)
Case Is > 9
ConvertNumberToText = "Error: Number Too Large!"
Case 9, 8, 7
ConvertNumberToText = ProcessMillions(strNumber)
Case 6, 5, 4
ConvertNumberToText = ProcessThousands(strNumber)
Case 3
ConvertNumberToText = ProcessHundreds(strNumber)
Case 2
ConvertNumberToText = ProcessTensAndUnits(strNumber)
Case 1
ConvertNumberToText = GetNumberWord(strNumber)
End Select
End Function

Private Function CleanNumber(ByVal strNumber As String) As String
CleanNumber = strNumber
Do Until Left(CleanNumber, 1) <> "0"
CleanNumber = Mid(CleanNumber, 2)
If Len(CleanNumber) = 0 Then
Exit Do
End If
Loop
End Function

Private Function GetNumberWord(ByVal strNumber As String) As String
Select Case strNumber
Case "9"
GetNumberWord = "nine"
Case "8"
GetNumberWord = "eight"
Case "7"
GetNumberWord = "seven"
Case "6"
GetNumberWord = "six"
Case "5"
GetNumberWord = "five"
Case "4"
GetNumberWord = "four"
Case "3"
GetNumberWord = "three"
Case "2"
GetNumberWord = "two"
Case "1"
GetNumberWord = "one"
End Select
End Function

Private Function ProcessTensAndUnits(ByVal strNumber As String) As String
Dim blmIsTeen As Boolean
If Len(strNumber) >= 2 Then
Select Case Mid(strNumber, 1, 1)
Case "9", "7", "6"
ProcessTensAndUnits = GetNumberWord(Left(strNumber, 1)) & "ty"
Case "8"
ProcessTensAndUnits = GetNumberWord(Left(strNumber, 1)) & "y"
Case "5"
ProcessTensAndUnits = "fifty"
Case "4"
ProcessTensAndUnits = "forty"
Case "3"
ProcessTensAndUnits = "thirty"
Case "2"
ProcessTensAndUnits = "twenty"
Case "1"
blmIsTeen = True
End Select
End If
If blmIsTeen = True Then
Select Case Right(strNumber, 1)
Case "9", "7", "6", "4"
ProcessTensAndUnits = ProcessTensAndUnits & GetNumberWord(Right(strNumber, 1)) & "teen"
Case "8"
ProcessTensAndUnits = ProcessTensAndUnits & GetNumberWord(Right(strNumber, 1)) & "een"
Case "5"
ProcessTensAndUnits = ProcessTensAndUnits & "fifteen"
Case "3"
ProcessTensAndUnits = ProcessTensAndUnits & "thirteen"
Case "2"
ProcessTensAndUnits = ProcessTensAndUnits & "twelve"
Case "1"
ProcessTensAndUnits = ProcessTensAndUnits & "eleven"
Case "0"
ProcessTensAndUnits = ProcessTensAndUnits & "ten"
End Select
Else
ProcessTensAndUnits = ProcessTensAndUnits & " " & GetNumberWord(Right(strNumber, 1))
End If
End Function

Private Function ProcessHundreds(ByVal strNumber As String) As String
ProcessHundreds = GetNumberWord(Left(strNumber, 1)) & " hundred"
strNumber = CleanNumber(Mid(strNumber, 2))
Select Case Len(strNumber)
Case 2
ProcessHundreds = ProcessHundreds & " and " & ProcessTensAndUnits(strNumber)
Case Is = 1
ProcessHundreds = ProcessHundreds & " and " & GetNumberWord(strNumber)
End Select
End Function

Private Function ProcessThousands(ByVal strNumber As String) As String
Select Case Len(strNumber)
Case 6
ProcessThousands = ProcessHundreds(Left(strNumber, 3)) & " thousand"
strNumber = Mid(strNumber, 4)
Case 5
ProcessThousands = ProcessTensAndUnits(Left(strNumber, 2)) & " thousand"
strNumber = Mid(strNumber, 3)
Case 4
ProcessThousands = GetNumberWord(Left(strNumber, 1)) & " thousand"
strNumber = Mid(strNumber, 2)
End Select
strNumber = CleanNumber(strNumber)
Select Case Len(strNumber)
Case 3
ProcessThousands = ProcessThousands & " " & ProcessHundreds(strNumber)
Case Is >= 1
ProcessThousands = ProcessThousands & " and " & ProcessTensAndUnits(strNumber)
End Select
End Function

Private Function ProcessMillions(ByVal strNumber As String) As String
Select Case Len(strNumber)
Case 9
ProcessMillions = ProcessHundreds(Left(strNumber, 3)) & " million"
strNumber = Mid(strNumber, 4)
Case 8
ProcessMillions = ProcessTensAndUnits(Left(strNumber, 2)) & " million"
strNumber = Mid(strNumber, 3)
Case 7
ProcessMillions = GetNumberWord(Left(strNumber, 1)) & " million"
strNumber = Mid(strNumber, 2)
End Select
strNumber = CleanNumber(strNumber)
Select Case Len(strNumber)
Case Is >= 4
ProcessMillions = ProcessMillions & " " & ProcessThousands(strNumber)
Case 3
ProcessMillions = ProcessMillions & " " & ProcessHundreds(strNumber)
Case Is >= 1
ProcessMillions = ProcessMillions & " and " & ProcessTensAndUnits(strNumber)
End Select
End Function

[xxxxx_xxxxx]

ادغام دو عكس با همديگر

تا چند وقت پيش سوال خيلي ها از جمله خودم اين بود كه چطور مي تونيم محتويات يك عكس رو تغيير بديم و بعد هم با اعمال تغييرات آن را ذخيره كنيم.

سه تا Picture لازم داريم و يك Command.



Private Declare Function SetPixel Lib "gdi32.dll" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long, ByVal crColor As Long) As Long
Private Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long) As Long

Private Sub Command1_Click()
For i = 1 To Picture2.ScaleWidth
For j = 1 To Picture2.ScaleHeight
q = GetPixel(Picture1.hdc, i, j)
r = GetPixel(Picture2.hdc, i, j)
SetPixel Picture3.hdc, i, j, q Or r
DoEvents
Next j
Next i
End Sub


اين قطعه برنامه پيكسل به پيكسل هر دو عكس هاي 1و 2 را مي خواند و با هم جمع (or) مي كند و حاصل را در picture3 قرار مي دهد.
هدف از قرار دادن اين قطعه كد آشنايي با توابع گرافيكي GetPixel و SetPixel هست كه در كتابخانه gdi32.dll وجود دارند.

[xxxxx_xxxxx]

يك مثلث كه ميشه مربع بعد ميشه پنج ضلعي بعد ميشه شش ضلعي بعد ميشه ...
همه اينها در حال چرخش هستند.
كپي كنيد يك تايمر بزارين رو فرم بعد هم F5

چون همه چيز تحت Scale فرم كار ميكنه پس با تغيير اندازه فرم عكس العمل نشون ميده.



Private Type POINTAPI
x As Long
y As Long
End Type
Public picc As Integer
Public Max As Integer
Public phi As Integer
Public lhdc As Long
Public b As Boolean
Private Declare Function LineTo Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long) As Long
Private Declare Function MoveToEx Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, lpPoint As POINTAPI) As Long
Dim lp As POINTAPI
Dim x(10) As Single
Dim y(10) As Single
Dim xo(10) As Single
Dim yo(10) As Single
Dim xx As Single
Dim yy As Single
Dim cc As Single
Dim i%, j%
Dim l As Long
Option Explicit

Private Sub Form_Load()
Timer1.Interval = 100
Timer1.Enabled = True
Max = 3
lhdc = Me.hdc
End Sub

Private Sub Timer1_Timer()
phi = phi + 20
If phi >= 180 Then
phi = 0
If Not b Then
Max = Max + 1
If Max = 11 Then
Max = 9
b = Not b
End If
Else
Max = Max - 1
If Max = 2 Then
Max = 4
b = Not b
End If
End If
End If
Cls
xx = (Form1.Width - 10) / 2
yy = (Form1.Height - 600) / 2
If xx <= yy Then cc = xx Else cc = yy
For i% = 1 To Max
xo(i%) = Cos((phi + (i% - 1) * (360 / Max)) * 3.1415927 / 180) * cc + xx
yo(i%) = Sin((phi + (i% - 1) * (360 / Max)) * 3.1415927 / 180) * cc + yy
Next i%
For i% = 1 To Max
xo(i%) = xo(i%) / 15
yo(i%) = yo(i%) / 15
Next i%
For i% = 1 To Max
j% = i% + 1
If j% > Max Then j% = 1
l = MoveToEx(lhdc, xo(i%), yo(i%), lp)
l = LineTo(lhdc, xo(j%), yo(j%))
Next i%
While Abs(CInt(yo(1)) - CInt(yo(3))) > 60 Or Abs(CInt(xo(1)) - CInt(xo(3))) > 60
For i% = 1 To Max
j% = i% + 1
If j% = Max + 1 Then j% = 1
x(j%) = xo(j%) + 0.05 * (xo(i%) - xo(j%))
y(j%) = yo(j%) + 0.05 * (yo(i%) - yo(j%))
Next i%
For i% = 1 To Max
xo(i%) = x(i%)
yo(i%) = y(i%)
Next i%
For i% = 1 To Max
j% = i% + 1
If j% > Max Then j% = 1
l = MoveToEx(lhdc, xo(i%), yo(i%), lp)
l = LineTo(lhdc, xo(j%), yo(j%))
Next i%
Wend
End Sub

[xxxxx_xxxxx]

استخراج آيكن هر نوع فايل

تا حالا اين همه برنامه براي كش رفتن آيكن ديديد و دانلود كرديد اما كدوم يكيش دوخطي بوده !

http://barnamenevis.org/forum/attachment.php?attachmentid=52295&stc=1&d=1278280295

http://i34.tinypic.com/1zpl5py.jpg



Private Const DI_MASK = &H1
Private Const DI_IMAGE = &H2
Private Const DI_NORMAL = DI_MASK Or DI_IMAGE
Private Declare Function ExtractAssociatedIcon Lib "shell32.dll" Alias "ExtractAssociatedIconA" (ByVal hInst As Long, ByVal lpIconPath As String, lpiIcon As Long) As Long
Private Declare Function DrawIconEx Lib "user32" (ByVal hdc As Long, ByVal xLeft As Long, ByVal yTop As Long, ByVal hIcon As Long, ByVal cxWidth As Long, ByVal cyWidth As Long, ByVal istepIfAniCur As Long, ByVal hbrFlickerFreeDraw As Long, ByVal diFlags As Long) As Long
Private Declare Function DestroyIcon Lib "user32" (ByVal hIcon As Long) As Long

Private Sub Form_Click()
mIcon = ExtractAssociatedIcon(App.hInstance, "C:\Autoexec.bat", 2)
DrawIconEx Me.hdc, 0, 0, mIcon, 0, 0, 0, 0, DI_NORMAL
End Sub
براي ذخيره كردنش هم كه ديگه كاري نداره يك picture رو فرم ميزارين و آيكن رو تو اون قرار ميديد و بعد هم با SavePicture ذخيرش مي كنيد.

[xxxxx_xxxxx]

انتخاب قسمتي از عكس

يك كوچولو كد براي يك كار بزرگ.
به عكس نگاه كنيد معلومه كه چه چيزهايي لازم داريم.
قبل از اجراي برنامه Scalemode هر دو Picture رو به Pixel تغيير بديد.

http://i38.tinypic.com/24fwff4.jpghttp://barnamenevis.org/forum/attachment.php?attachmentid=52294&stc=1&d=1278280158



Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long
Const SRCCOPY = &HCC0020
Dim minX As Single
Dim maxX As Single
Dim minY As Single
Dim maxY As Single
Dim isRectExist As Boolean

Private Sub Command1_Click()
Picture2.Cls
If maxX < minX Then
temp = minX
minX = maxX
maxX = temp
End If
If maxY < minY Then
temp = minY
minY = maxY
maxY = temp
End If
result& = BitBlt(Picture2.hdc, 0, 0, maxX - minX, maxY - minY, Picture1.hdc, _
minX, minY, SRCCOPY)
End Sub

Sub Form_Load()
isBoxExist = False
minX = -10
maxX = 10
minY = -10
maxY = 10
End Sub

Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
If isRectExist Then
Picture1.Cls
isBoxExist = False
End If
minX = X
maxY = Y
maxX = X
maxY = Y
End If
End Sub

Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
Picture1.DrawMode = 10
Picture1.Line (minX, maxY)-(maxX, minY), , B
maxX = X
minY = Y
Picture1.Line (minX, maxY)-(maxX, minY), , B
Picture1.DrawMode = 13
End If
End Sub

Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
isRectExist = True
End Sub

[xxxxx_xxxxx]

انتخاب رنگ جايي كه موس قرار دارد

يك label و يك تايمر رو فرم قرار بديد.
چون با API كار مي كنيم رنگ هاي خارج از محيط فرم رو مي تونيم دريافت كنيم.

http://i38.tinypic.com/29mlr3n.jpg



Option Explicit
Private Type POINTAPI
x As Long
y As Long
End Type
Private Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long) As Long
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Declare Function GetWindowDC Lib "user32" (ByVal hwnd As Long) As Long

Private Sub Form_Load()
Timer1.Interval = 100
End Sub
Private Sub Timer1_Timer()
Dim tPOS As POINTAPI
Dim sTmp As String
Dim lColor As Long
Dim lDC As Long
lDC = GetWindowDC(0)
Call GetCursorPos(tPOS)
lColor = GetPixel(lDC, tPOS.x, tPOS.y)
Label1.BackColor = lColor
sTmp = Right$("000000" & Hex(lColor), 6)
Caption = "R:" & Right$(sTmp, 2) & " G:" & Mid$(sTmp, 3, 2) & " B:" & Left$(sTmp, 2)
End Sub

[xxxxx_xxxxx]

ادغام دو عكس با همديگر

نه دوست من هنوز يادم نرفته چند پست بالاتر با اين عنوان يك كوچولو كد گذاشتم.
اونو فقط براي اين گذاشتم تا كار با GetPixel و SetPixel رو ياد بگيريم چون خيلي جا ها اين توابع لازم هستند.
ولي براي ادغام دو عكس از اون استفاده نكنيد چون ممكنه در جمع رنگ Pixel ها بي عدالتي پيش بياد و رنگهاي روشن تر به رنگ هاي تيره غلبه كنند.
به عكس نگاه كنيد چقدر قشنگ تعادل در تقسيم رنگ وجود داره.

http://i34.tinypic.com/23kad05.jpg

براي ادغام دوعكس مي تونيد از اين كوچولو كد استفاده كنيد:



Const AC_SRC_OVER = &H0
Private Type BLENDFUNCTION
BlendOp As Byte
BlendFlags As Byte
SourceConstantAlpha As Byte
AlphaFormat As Byte
End Type
Private Declare Function AlphaBlend Lib "msimg32.dll" (ByVal hdc As Long, ByVal lInt As Long, ByVal lInt As Long, ByVal lInt As Long, ByVal lInt As Long, ByVal hdc As Long, ByVal lInt As Long, ByVal lInt As Long, ByVal lInt As Long, ByVal lInt As Long, ByVal BLENDFUNCT As Long) As Long
Private Declare Sub RtlMoveMemory Lib "kernel32.dll" (Destination As Any, Source As Any, ByVal Length As Long)

Private Sub Form_Load()
Dim BF As BLENDFUNCTION, lBF As Long
Picture1.AutoRedraw = True
Picture2.AutoRedraw = True
Picture1.ScaleMode = vbPixels
Picture2.ScaleMode = vbPixels
With BF
.BlendOp = AC_SRC_OVER
.BlendFlags = 0
.SourceConstantAlpha = 128
.AlphaFormat = 0
End With
RtlMoveMemory lBF, BF, 4
AlphaBlend Picture2.hdc, 0, 0, Picture2.ScaleWidth, Picture2.ScaleHeight, Picture1.hdc, 0, 0, Picture1.ScaleWidth, Picture1.ScaleHeight, lBF
End Sub

[Mbt925]

Messenger File Transfer

ارسال و دریافت فایل در مسنجر

http://mbt925.googlepages.com/MessengerFileTransferScrShot.jpg

دانلود (http://mbt925.googlepages.com/MessengerFileTransfer.zip)

[Mbt925]

بستن فایل اجرایی:

http://mbt925.googlepages.com/StopProcess.gif

دانلود (http://mbt925.googlepages.com/CloseProcess.rar)

بستن پنجره:


دانلود (http://mbt925.googlepages.com/CloseWindow.rar)

[Mbt925]

نقل قول از دوست عزیز AMIB



دقیق‌ترین و سریع‌ترین تبدیل تاریخ شمسی برای VB تاریخ شمسی یکی از مهم‌ترین مسائل مورد توجه برای برنامه‌نویسان ایرانی هست
کدهای مختلفی و کتابخانه‌های متفاوتی هم برای انجام تبدیل‌های مورد نیاز توسعه پیدا کردن
که هر کدوم مشکلات و عدم دقت‌های خاص خودشون رو دارن

کدی که در ادامه می‌تونید دریافت کنید
دقیق‌ترین و سریع‌ترین تبدیل هست که به راحتی و بدون نیاز به کتابخانه‌های جانبی می‌تونید توی برنامه‌های VB خودتون ازش استفاده کنید

استفاده و انتشار از این کد آزاد هست
به دلیل احترام به نویسنده‌ی اصلی این کد که اون رو به صورت آزاد در اینترنت قرار داده بود
منم این تبدیل رو به صورت آزاد انتشار می‌دم

امیدوارم بتونه مشکلات برنامه‌نویسان رو به طور کامل از بین ببره


http://tinypic.info/files/yykmtp7smv90kopd31wp.gif

دانلود (http://amibct.googlepages.com/PersianDate_AMIB.rar)
رمز: AMIB

[Mbt925]

Create Text Border

این نمونه با استفاده از متد Point برای متن حاشیه ایجاد می کنه.

http://mbt925.googlepages.com/CreateTextBorderSampleScrShot.jpg

دانلود (http://mbt925.googlepages.com/CreateTextBorderSample.rar)

[Mbt925]

How To Make Standard DLL

دانلود (http://mbt925.googlepages.com/HowToMakeStandardDLL.rar)

[Mbt925]

Make IE Toolbar

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

دانلود (http://mbt925.googlepages.com/MakeieToolbar.rar)

[xxxxx_xxxxx]

متاسفانه VB رویدادهایی مثل MouseIn و MouseOut نداره. اگه این دو رویداد رو داشت می تونستیم بفهمین که موس چه زمانی روی یک شی وارد میشه و چه زمانی خارج میشه.

با این تابع نوشته شده خیلی راحت شما به اون تابع اسم شی رو میدید و اونوقت هروقت موس روی اون شی رفت شما متوجه میشید و زمانی هم که خارج شد همینطور.
در واقع با این کد شما دو رویداد MouseIn و MouseOut برای VB می سازید.

مرتبط با تاپیک ------> رویداد MouseMove روی یک شکل نامنظم (http://barnamenevis.org/forum/showthread.php?t=122754)

موفق باشید/

[VB.SOS]

كدي كه دوست عزيز xxxxx_xxxxx فرستادن رو وارد يه UserControl كردم و اينجا قرار ميدم. استفاده از اون خيلي راحته:قهقهه:

[r0ot$harp]

سلام دوستان


ابزاری که امروز آماده کردم یه DLL واقعا کاربردی که شاید گفت بیشتر برنامه نویس ها ازش استفاده می کنند .

این DLL که اسمش رو گذاشتم INIControl برای کار با فایلهای INI هست .


تا اونجایی که می شد کامل طراحی کردم بازهم اگر عیبی چیزی داشت بهم بگین تا رفع کنم .


در داخل فایل یه نمونه هم گذاشتم تا به خوبی شما دوستان بتونید از این ابزار استفاده کنید .




باتشکر احسان

[r0ot$harp]

سلام دوستان

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

این OCX که امروز می خوام بزارم تمام نیازهای اینگونه افراد رو برآورده می کند .


اسم این OCX هست YMSGProtcol .


فکر کنم خودتون دانلود کنید به قدرت این OCX پی می برید .





باتشکر احسان

[Mbt925]

Resource Viewer Dll-Exe

یک Resouce Viewer خیلی خوب و کامل

http://mbt925.googlepages.com/ResourceViewerDll-ExeScrShot.jpg

دانلود (http://mbt925.googlepages.com/ResourceViewerDll-Exe.rar)