PDA

View Full Version : آرشیو سورس های کاربردی و بدردبخور



صفحه : [1] 2 3

Mbt925
پنج شنبه 19 مهر 1386, 15:28 عصر
می خوام توی این تاپیک مجموعه ای از توابع کاربردی و بدردبخور قرار بدم.

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

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

Mbt925
پنج شنبه 19 مهر 1386, 15:36 عصر
تولید اعداد تصادفی غیرتکراری و در بازه موردنظر

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

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

همراه با 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
پنج شنبه 19 مهر 1386, 15:39 عصر
Gradiant_ByColor

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

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

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

Convert Color to RGB

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

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

Mbt925
پنج شنبه 19 مهر 1386, 15:40 عصر
Create Shortcut

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

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

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

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

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

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

Mbt925
پنج شنبه 19 مهر 1386, 15:42 عصر
Text & Picture Effect

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

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

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

Mbt925
پنج شنبه 19 مهر 1386, 16:00 عصر
Tray Icon

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

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

Mbt925
پنج شنبه 19 مهر 1386, 16:04 عصر
تقاطع

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

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

Mbt925
پنج شنبه 19 مهر 1386, 16:14 عصر
ساخت درایو مجازی بکمک API


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

Mbt925
پنج شنبه 19 مهر 1386, 16:17 عصر
Dynamic Menu

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

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

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

Mbt925
پنج شنبه 19 مهر 1386, 16:27 عصر
Get WinName and ConName

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

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

Mbt925
پنج شنبه 19 مهر 1386, 16:28 عصر
دوستان فقط استفاده کننده نباشن.

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

Mbt925
پنج شنبه 19 مهر 1386, 23:37 عصر
.Icon Builder

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

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

Mbt925
پنج شنبه 19 مهر 1386, 23:39 عصر
Registery

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

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

Mbt925
پنج شنبه 19 مهر 1386, 23:40 عصر
Voice Recognition

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

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

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

Mbt925
پنج شنبه 19 مهر 1386, 23:41 عصر
Exe Compile

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

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

Mbt925
پنج شنبه 19 مهر 1386, 23:43 عصر
Copy PictureTo Clipboard

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

Mbt925
سه شنبه 01 آبان 1386, 19:26 عصر
یه Dll برای کار با تاریخ شمسی بصورت FULL
انشاالله با نظرات دوستان به کاملترین تبدیل بشه ، تا دیگه کسی مشکلی تو زمینه کار با تاریخ شمسی نداشته باشه.

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

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

amini699
چهارشنبه 02 آبان 1386, 01:01 صبح
خیلی علی بود دوست عزیز ولی وقتی DLL شمسی رو اجرا میکنی خطا میده رجستر هم شده ولی بزهم خطا میده

Mbt925
چهارشنبه 02 آبان 1386, 15:50 عصر
اگه رجیستر بشه 100% خطا نمیده.

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

amini699
پنج شنبه 03 آبان 1386, 01:21 صبح
اجرا شد ممنون مشکل رجستر داشت خیلی عالی بود

Mbt925
سه شنبه 08 آبان 1386, 17:18 عصر
Runing Task

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

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

در کل بد نسیت.

حجم : 33 KB

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

Mbt925
سه شنبه 08 آبان 1386, 17:19 عصر
توابعی برای باز و بسته کردن کمبوباکس و تغییر عرض و طول 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
سه شنبه 08 آبان 1386, 17:23 عصر
MouseIn & MouseOut

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

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

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

Mbt925
سه شنبه 08 آبان 1386, 17:24 عصر
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
چهارشنبه 09 آبان 1386, 10:54 صبح
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
چهارشنبه 09 آبان 1386, 11:15 صبح
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
چهارشنبه 09 آبان 1386, 11:26 صبح
OpenDialog

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

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

Mbt925
چهارشنبه 09 آبان 1386, 11:27 صبح
TreeView Gradient

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

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


Hide,Show TitleBar

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

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

Mbt925
چهارشنبه 09 آبان 1386, 11:33 صبح
Colorizer
http://soda.parsaspace.com/MBT925/ActiveX/ColorizerScrShot.png

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

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

Mbt925
چهارشنبه 09 آبان 1386, 11:38 صبح
Mouse Enter & Leave

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

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

Mbt925
چهارشنبه 09 آبان 1386, 11:41 صبح
3DRace

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

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

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

Mbt925
چهارشنبه 09 آبان 1386, 11:43 صبح
GetCPUSpeed

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

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

Mbt925
چهارشنبه 09 آبان 1386, 11:46 صبح
Fire

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

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

Mbt925
چهارشنبه 09 آبان 1386, 11:48 صبح
دوستان این نمونه ها به این راحتیام بدست نیومده و همشون گلچین شدست.

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

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

Mbt925
پنج شنبه 10 آبان 1386, 16:00 عصر
Form Animate

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

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

Mbt925
پنج شنبه 10 آبان 1386, 16:01 عصر
TextScroller

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

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

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

Mbt925
پنج شنبه 10 آبان 1386, 16:02 عصر
3D Cube

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

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

Mbt925
پنج شنبه 10 آبان 1386, 16:02 عصر
Color Shade

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

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

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

Mbt925
پنج شنبه 10 آبان 1386, 16:04 عصر
3D Soccer

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

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

Mbt925
پنج شنبه 10 آبان 1386, 16:06 عصر
CreateGradiant

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

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

Mbt925
پنج شنبه 10 آبان 1386, 16:07 عصر
Tetris

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

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

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

Mbt925
پنج شنبه 10 آبان 1386, 16:08 عصر
LCDClock

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

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

Mbt925
پنج شنبه 10 آبان 1386, 16:11 عصر
BalToolTip

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

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

Mbt925
پنج شنبه 10 آبان 1386, 16:14 عصر
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
پنج شنبه 10 آبان 1386, 16:15 عصر
Automatically Create Manifest File

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

Mbt925
جمعه 11 آبان 1386, 00:27 صبح
AvacoUninstaller

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

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

حجم : 222 KB

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

Mbt925
جمعه 11 آبان 1386, 00:28 صبح
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
جمعه 11 آبان 1386, 00:32 صبح
InterfaceInfo

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

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

Mbt925
جمعه 11 آبان 1386, 00:34 صبح
8Queens

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

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

Mbt925
جمعه 11 آبان 1386, 00:43 صبح
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
جمعه 11 آبان 1386, 09:14 صبح
Programatically create a comment in PDF file

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

Mbt925
جمعه 11 آبان 1386, 09:15 صبح
.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
جمعه 11 آبان 1386, 15:49 عصر
OpenFolder

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

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

Mbt925
جمعه 11 آبان 1386, 15:50 عصر
Printer Tools

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

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

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

Mbt925
جمعه 11 آبان 1386, 15:51 عصر
MBTLVI Sample

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

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

Mbt925
جمعه 11 آبان 1386, 15:52 عصر
CpuUsage Monitor

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

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

Mbt925
یک شنبه 13 آبان 1386, 13:30 عصر
DropDown Combo

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

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

Mbt925
یک شنبه 13 آبان 1386, 13:31 عصر
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
یک شنبه 13 آبان 1386, 13:32 عصر
IEWithEvents

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

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

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

Mbt925
یک شنبه 13 آبان 1386, 13:33 عصر
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
دوشنبه 14 آبان 1386, 11:17 صبح
Detect_MS

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

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

Mbt925
دوشنبه 14 آبان 1386, 11:19 صبح
Enumerate -Send Str2 IE windows

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

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

Mbt925
دوشنبه 14 آبان 1386, 11:24 صبح
Snow

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

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

majjjj
چهارشنبه 16 آبان 1386, 11:21 صبح
این هم با اجازه یک برنامه برای کار با رجیستری که عنوان سایت یا وبلاگ شما رو برای هوم پیج مشخص میکنه
http://www.persianupload.com/uploads/b58b309e87.rar

ali_habibi1384
پنج شنبه 17 آبان 1386, 03:24 صبح
مرجعهای AT برای کار با مودم

Mbt925
یک شنبه 20 آبان 1386, 09:45 صبح
KeyLogger

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

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

Mbt925
یک شنبه 20 آبان 1386, 09:46 صبح
Memory Status

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

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

Mbt925
یک شنبه 20 آبان 1386, 09:49 صبح
Shell Tools

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


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


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

Mbt925
یک شنبه 20 آبان 1386, 09:52 صبح
DialUp Pass

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

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

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

Identifier
یک شنبه 20 آبان 1386, 17:23 عصر
لطفاً جها افزایش کارایی مطالب ارسالی و همچنین استفاده بیشتر کاربران سعی کنید ارسال ها را دسته بندی و در چند پست خلاصه نمایید تا از تعدد صفحات تاپیک جلوگیری شود.

Mbt925
سه شنبه 22 آبان 1386, 15:35 عصر
Dynamic Timer

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

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

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

Mbt925
سه شنبه 22 آبان 1386, 15:38 عصر
در صورتی که موضوعات مرتبط بودن ، چشم ، حتما همین کارو می کنم.

Mbt925
سه شنبه 22 آبان 1386, 15:43 عصر
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
سه شنبه 22 آبان 1386, 15:45 عصر
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
سه شنبه 22 آبان 1386, 15:47 عصر
HandelingJob

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

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

Mbt925
سه شنبه 22 آبان 1386, 15:48 عصر
Inverse Mouse Movement

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

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

majjjj
چهارشنبه 23 آبان 1386, 09:28 صبح
اگه تکراری هستن شما ببخشید

Mbt925
چهارشنبه 23 آبان 1386, 10:31 صبح
Desktop Wallpaper

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

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

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

مهدی ویژوال
چهارشنبه 23 آبان 1386, 10:55 صبح
ممنون میشم زحمت اون راه ساده تر هم بکشی

Mbt925
چهارشنبه 23 آبان 1386, 12:36 عصر
ممنون میشم زحمت اون راه ساده تر هم بکشی

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

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

majjjj
شنبه 26 آبان 1386, 13:46 عصر
اینها هم جالبن

Mbt925
یک شنبه 04 آذر 1386, 09:42 صبح
Load Png Pic

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

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

Mbt925
پنج شنبه 08 آذر 1386, 15:42 عصر
توی این تاپیک بعضی نمونه های خوب دوستان با ذکر نامشون هم قرار میدم تا مجموعه توابع کاربردی کامل بشه.

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
پنج شنبه 08 آذر 1386, 15:44 عصر
Hide & Show TaskBar

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

(از Ermia2008 عزیز)

Mbt925
پنج شنبه 08 آذر 1386, 16:00 عصر
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
جمعه 09 آذر 1386, 08:24 صبح
Hide & Show Cursor
Block mouse and keyboard

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

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

Mbt925
جمعه 09 آذر 1386, 08:40 صبح
PicInfo

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

Mbt925
جمعه 09 آذر 1386, 08:48 صبح
CallerID

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

Mbt925
یک شنبه 11 آذر 1386, 22:58 عصر
Get Hard Info

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

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

Mbt925
یک شنبه 11 آذر 1386, 23:19 عصر
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
یک شنبه 11 آذر 1386, 23:21 عصر
Print Screen

عکس گرفتن از DeskTop

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

Mbt925
یک شنبه 11 آذر 1386, 23:26 عصر
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
یک شنبه 11 آذر 1386, 23:30 عصر
Rounded ToolTip

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

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

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

Mbt925
یک شنبه 11 آذر 1386, 23:32 عصر
Access2000 Password

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

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

Mbt925
یک شنبه 11 آذر 1386, 23:35 عصر
Add Button To IE Toolbar

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

Mbt925
یک شنبه 11 آذر 1386, 23:39 عصر
Animation_BitBlt

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

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

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

Mbt925
یک شنبه 11 آذر 1386, 23:44 عصر
Anti NOD32

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

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

Mbt925
یک شنبه 11 آذر 1386, 23:48 عصر
DesktopZoom-API

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

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

Mbt925
یک شنبه 11 آذر 1386, 23:53 عصر
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
یک شنبه 11 آذر 1386, 23:57 عصر
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__
شنبه 17 آذر 1386, 23:34 عصر
++ Snow
بارش برف روی فرم
با اونی که قبلا تو سایت بود فرق داره !
دونه های برف متغییر هستند و قابل تنظیم است
سرعت بارش رو میشه تنظیم کرد
میشه به بارش جهت داد (وزش باد)
البته نویسندشو نمیدونم کیه !
http://img2.freeimagehosting.net/uploads/4acda303b4.jpg

Mbt925
پنج شنبه 29 آذر 1386, 11:04 صبح
Direct Enter in MsFlexGrid

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

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

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

(از Ermia2008 عزیز)

Mbt925
پنج شنبه 29 آذر 1386, 16:33 عصر
CTextBox

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

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

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

Mbt925
جمعه 30 آذر 1386, 08:59 صبح
Button Color

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

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

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

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

(از VBHamed عزیز)

Mbt925
یک شنبه 02 دی 1386, 03:21 صبح
Transparent TextBox

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

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

Mbt925
یک شنبه 02 دی 1386, 03:24 صبح
این نمونه توی بریدن عکس (حاوی عدد) حدودا بودن اشتباه عمل می کنه.
برای تشخیص حروف (تبدیل به کاراکتر) خیلی بد عمل نمی کنه.(برای فونت مشاهده شده)

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

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

Mbt925
یک شنبه 02 دی 1386, 15:23 عصر
دوتا ابزار خوب برای کار با وب کم :

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
پنج شنبه 06 دی 1386, 23:24 عصر
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
جمعه 07 دی 1386, 00:21 صبح
درگ کردن فرم خیلی ساده با API

Mbt925
شنبه 08 دی 1386, 23:04 عصر
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
دوشنبه 10 دی 1386, 00:53 صبح
Print Screen

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

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

zsco89
دوشنبه 10 دی 1386, 15:12 عصر
دوستان عزیز سلام
شاید دوست داشته باشین یک فایل تصویری رو به پسوند های 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
جمعه 14 دی 1386, 01:31 صبح
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
جمعه 14 دی 1386, 01:48 صبح
Usb Find

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

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

Mbt925
جمعه 14 دی 1386, 01:50 صبح
Notepad

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

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

Mbt925
جمعه 14 دی 1386, 01:52 صبح
MouseEnterLeave

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

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

Mbt925
جمعه 14 دی 1386, 01:58 صبح
Good Chess

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

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

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

Mbt925
یک شنبه 16 دی 1386, 21:22 عصر
Add Horizontal ScrollBar to ListBox

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

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




Call SetHorizontalExtent(ListBox Name , ScrWidth)


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

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


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

Mbt925
دوشنبه 17 دی 1386, 00:59 صبح
دو تا نمونه برای کار با رجیستری ، جستجوی رجیستری و پاکسازی

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
سه شنبه 18 دی 1386, 23:18 عصر
MBFastCopy

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

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

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

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

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

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

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


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

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

Mbt925
یک شنبه 23 دی 1386, 16:15 عصر
َAccess Password


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

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

Mbt925
سه شنبه 25 دی 1386, 01:51 صبح
System Information

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

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

majjjj
سه شنبه 25 دی 1386, 12:14 عصر
این هم یک برنامه جهت کپی کردن همراه با انیمیشن کپی البته میتونید کسترشش هم بدید

Mbt925
سه شنبه 25 دی 1386, 19:25 عصر
Multi Language

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

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

bobrus
چهارشنبه 26 دی 1386, 18:26 عصر
این برنامه پسورد ویندوز رو پیدا می کنه ولی تا 4 یا 6 حرف بیشتر رو پیدا نمی کنه
دوستان می تونن از این فایل استفاده کنن چیز جالبیه

Mbt925
چهارشنبه 26 دی 1386, 19:01 عصر
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
چهارشنبه 26 دی 1386, 20:10 عصر
Connection , Send , Recieve , Speed

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

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

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

Mbt925
جمعه 28 دی 1386, 11:28 صبح
Get Drive List

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

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

شاپرک
دوشنبه 01 بهمن 1386, 11:52 صبح
بدست آوردن ورژن یک فایل ... مثلا ورژن یک فایل 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
سه شنبه 02 بهمن 1386, 10:55 صبح
اینم یه اکتیویکس واسه تغییر رزولوشن

Mbt925
سه شنبه 02 بهمن 1386, 10:55 صبح
با سلام خدمت دوستان گل سایت!دوست عزیز Mbt925 و دوستان دیگر زحمت کش سایت دستتون واقا درد نکنه!!!
کسی سورس کامل Get Drive Listرا با نمایش آیکون درایوها را بزاره ممنون میشم!

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


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

Mbt925
شنبه 06 بهمن 1386, 11:27 صبح
دوست گلم از پاسخی که دادی خیلی ممنونم ولی:
من میخواهم آیکون اصل درایوها رو نشون بده یعنی آیکونی که تو مای کامپیوتر نشون میده!در ضمن اگر من آیکون یکی از درایوها رو عوض کردم تو برنامه هم عوض بشه و یه آیکون ثابت نشون نده!
امیدوارم منظورم رو رسونده باشم.پیشاپیش متشکرم!

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

Extract Drive Icon

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

Mbt925
شنبه 06 بهمن 1386, 11:30 صبح
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
یک شنبه 07 بهمن 1386, 01:24 صبح
بریدن قسمتی از فرم توسط تصویر

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
چهارشنبه 10 بهمن 1386, 23:13 عصر
MBDir

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

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

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

Mbt925
پنج شنبه 11 بهمن 1386, 00:19 صبح
Get IP

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

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

Mbt925
یک شنبه 14 بهمن 1386, 02:04 صبح
اضافه کردن دکمه به نوار عنوان :

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
یک شنبه 14 بهمن 1386, 02:06 صبح
Multi Threading

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

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

Mbt925
یک شنبه 14 بهمن 1386, 04:42 صبح
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
چهارشنبه 17 بهمن 1386, 19:27 عصر
CharsetMap

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

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

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

Mbt925
چهارشنبه 17 بهمن 1386, 23:10 عصر
دو نمونه دانلودر که از 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
چهارشنبه 24 بهمن 1386, 01:32 صبح
Set Wallpaper

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

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

Mbt925
پنج شنبه 25 بهمن 1386, 08:47 صبح
Gif Player

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

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

Mbt925
سه شنبه 30 بهمن 1386, 23:35 عصر
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
چهارشنبه 01 اسفند 1386, 10:52 صبح
فکر نکنم پیدا کردنش خیلی سخت باشه !!!
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
یک شنبه 05 اسفند 1386, 01:33 صبح
Show PopUp Form

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

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

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

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

majjjj
جمعه 10 اسفند 1386, 01:04 صبح
این هم یک برنامه جهت تغییر کپشن منوی start

Mbt925
شنبه 18 اسفند 1386, 13:27 عصر
Multiple Multimedia Control Sample

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

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

Mbt925
دوشنبه 20 اسفند 1386, 09:41 صبح
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
دوشنبه 20 اسفند 1386, 09:46 صبح
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
دوشنبه 20 اسفند 1386, 09:56 صبح
Richtext Tools

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

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

Mbt925
دوشنبه 20 اسفند 1386, 10:06 صبح
دو نمونه فایروال برای دوستانی که به این مبحث علاقه دارن. FirewallAPP
http://mbt925.persiangig.com/Learn_Sample/FirewallAPPScrShot.jpg

FireWall-Monitor

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

Mbt925
دوشنبه 20 اسفند 1386, 10:15 صبح
Binary Transfer Control

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

Mbt925
دوشنبه 20 اسفند 1386, 10:40 صبح
Better Menu

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

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

Mbt925
دوشنبه 20 اسفند 1386, 10:50 صبح
Magnification- Zoom

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

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

Mbt925
سه شنبه 21 اسفند 1386, 16:18 عصر
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
چهارشنبه 22 اسفند 1386, 13:26 عصر
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
چهارشنبه 22 اسفند 1386, 16:47 عصر
GetMouseButton

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


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

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

Mbt925
جمعه 24 اسفند 1386, 22:43 عصر
MouseIn-Out

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

Mbt925
یک شنبه 26 اسفند 1386, 17:02 عصر
Process Commander

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

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

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

Mbt925
دوشنبه 27 اسفند 1386, 17:26 عصر
FindOut See Last Line

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

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

Mbt925
دوشنبه 27 اسفند 1386, 18:25 عصر
2D Array Sample

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

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

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

Mbt925
سه شنبه 28 اسفند 1386, 18:31 عصر
Internet Download File-Url - ProX

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

aidin1386
شنبه 03 فروردین 1387, 16:31 عصر
» نمایش فرم به صورت شیشه ای (http://mediavb.persiangig.ir/SourceCode/Form/Form_Layerd.zip)

aidin1386
شنبه 03 فروردین 1387, 16:35 عصر
» نمایش فرم ها با انیمیشن خاص (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
شنبه 03 فروردین 1387, 16:43 عصر
سورس کدهای مربوط به کار با سیستم و ویندوز :
» شناسایی 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
شنبه 03 فروردین 1387, 16:49 عصر
سورس کدهای به نوعی مرتبط با گرافیک سیستم :
» حرکت دادن آیکونهای موجود در دسکتاپ (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
یک شنبه 04 فروردین 1387, 12:29 عصر
آموزش کامل Sendkeys (http://barnamenevis.org/forum/showpost.php?p=485556&postcount=41)

Mbt925
سه شنبه 13 فروردین 1387, 18:47 عصر
Picture Analyze

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

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

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

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

Mbt925
شنبه 17 فروردین 1387, 12:27 عصر
یه نمونه ی ساده برای کار به Printer (تعیین پرینتر پیش فرض) و ListView

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

Mbt925
یک شنبه 18 فروردین 1387, 11:23 صبح
FadeText Sample

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

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

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

Mbt925
سه شنبه 20 فروردین 1387, 08:34 صبح
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
چهارشنبه 21 فروردین 1387, 12:57 عصر
Form ِDrop Shadow

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

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

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

Mbt925
چهارشنبه 28 فروردین 1387, 12:04 عصر
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
یک شنبه 01 اردیبهشت 1387, 12:41 عصر
Process Gateway

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

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

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

Mbt925
دوشنبه 02 اردیبهشت 1387, 21:36 عصر
PaintPicture Sample

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

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

Mbt925
سه شنبه 03 اردیبهشت 1387, 10:58 صبح
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
شنبه 07 اردیبهشت 1387, 15:59 عصر
Excel Chart

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

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

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

shaghaghi
یک شنبه 08 اردیبهشت 1387, 13:57 عصر
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
چهارشنبه 18 اردیبهشت 1387, 12:40 عصر
Avi Extractor

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

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

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

Mbt925
پنج شنبه 19 اردیبهشت 1387, 21:55 عصر
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
پنج شنبه 26 اردیبهشت 1387, 13:32 عصر
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
سه شنبه 31 اردیبهشت 1387, 08:24 صبح
ذوب شدن فرم به شکل بستنی


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
پنج شنبه 09 خرداد 1387, 12:28 عصر
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
شنبه 11 خرداد 1387, 15:47 عصر
Expression Analyzer

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



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

Mbt925
یک شنبه 12 خرداد 1387, 12:38 عصر
Expression Analyzer 1.1.0

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

قابلیت ها :

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

Mbt925
دوشنبه 13 خرداد 1387, 10:52 صبح
ImageInfo Sample

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

Mbt925
دوشنبه 13 خرداد 1387, 12:00 عصر
Split & Merge Files

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

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

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

Mbt925
سه شنبه 14 خرداد 1387, 16:52 عصر
The Matrix

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

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

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

Mbt925
سه شنبه 14 خرداد 1387, 17:57 عصر
WaterText Effect

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

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

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

Mbt925
سه شنبه 14 خرداد 1387, 18:00 عصر
Creatre Shortcut

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

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

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

Mbt925
سه شنبه 14 خرداد 1387, 18:44 عصر
DVD Player

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

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

Mbt925
سه شنبه 14 خرداد 1387, 18:57 عصر
vnAntivirus

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

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

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

vahid1369
چهارشنبه 15 خرداد 1387, 13:08 عصر
Photo On Drive
اين هم يه سورس برنامه توپ كه مي تونه عكس دلخواه شما رو در پشت درايو ها بزاره

sh2007
یک شنبه 19 خرداد 1387, 07:49 صبح
با استفاده از اين سورس شما مي توانيد شماره سريال هارد كامپيوتر يوز را بخوانيد و آنرا درون برنامه خود بكار ببريد و برنامه را در برابر كپي هاي غير مجاز جلوگيري كنيد

.:KeihanCPU:.
سه شنبه 21 خرداد 1387, 01:07 صبح
توسط این کد میتونید حافظه اشغال شده رو ببینید
18884

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

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

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

رقص موس
18889

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

.:KeihanCPU:.
سه شنبه 21 خرداد 1387, 01:28 صبح
از اسمش مشخصه
18891

Find Win32
18892

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

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

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

.:KeihanCPU:.
سه شنبه 21 خرداد 1387, 01:40 صبح
File manager
18896

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

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

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

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

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

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

.:KeihanCPU:.
سه شنبه 21 خرداد 1387, 11:24 صبح
اینم یه انیمیشن برای فرمهای About Me
18923

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

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

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

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

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

دیالوگ Find text,Replace

18932

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

18933

Mbt925
سه شنبه 21 خرداد 1387, 13:12 عصر
AMIB_MathTR

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




R = Abs(A) * 40


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

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

Mbt925
سه شنبه 21 خرداد 1387, 14:19 عصر
FormPropManager

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

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

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

.:KeihanCPU:.
چهارشنبه 22 خرداد 1387, 14:32 عصر
خیلی زیبا باز و بسته میشه
http://barnamenevis.org/forum/attachment.php?attachmentid=18996&d=1213180134

Mbt925
چهارشنبه 22 خرداد 1387, 14:39 عصر
SelfKiller

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

.:KeihanCPU:.
چهارشنبه 22 خرداد 1387, 14:55 عصر
روشی برای پاک کردن فایل اجرایی توسط خودش فایل Bat ساخته میشه ولی Exe پاک نمیشه

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

.:KeihanCPU:.
چهارشنبه 22 خرداد 1387, 19:38 عصر
در اینجا مجموعه ای از سورسها رو در رابطه با رجیستری گذاشتم

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

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

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

با تشکر...

Mbt925
پنج شنبه 23 خرداد 1387, 14:02 عصر
No Edge

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

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

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

Mbt925
یک شنبه 26 خرداد 1387, 13:43 عصر
Get File Icon

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

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

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

Mbt925
شنبه 01 تیر 1387, 01:34 صبح
NewStyle Form Anim

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

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

Mbt925
یک شنبه 02 تیر 1387, 12:14 عصر
Check Mail

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

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

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

__siavash__
یک شنبه 02 تیر 1387, 19:42 عصر
Custom MsgBox


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

__siavash__
دوشنبه 03 تیر 1387, 19:38 عصر
(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
سه شنبه 04 تیر 1387, 13:45 عصر
Register TypeLib Source

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

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

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

Mbt925
یک شنبه 09 تیر 1387, 15:25 عصر
Multiple Monitor Support

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

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

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

Mbt925
سه شنبه 18 تیر 1387, 01:14 صبح
Scroll Picture - BitBlt

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

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

Mbt925
چهارشنبه 19 تیر 1387, 10:50 صبح
Path Extractor

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

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

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

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

__siavash__
سه شنبه 25 تیر 1387, 13:29 عصر
باز كردن مسیر ها و پوشه های خاص ویندوز
(نویسنده: جناب 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
چهارشنبه 26 تیر 1387, 00:03 صبح
Auto Complete Path

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

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

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

Mbt925
چهارشنبه 26 تیر 1387, 12:04 عصر
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
یک شنبه 30 تیر 1387, 00:15 صبح
کنترل وضعیت مانیتور


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
جمعه 04 مرداد 1387, 03:21 صبح
ایجاد سایه برای فرم

Mbt925
جمعه 11 مرداد 1387, 01:57 صبح
List of applications

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

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

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

Mbt925
پنج شنبه 17 مرداد 1387, 14:45 عصر
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
پنج شنبه 17 مرداد 1387, 14:59 عصر
Fast Rotate Picture

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

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

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

Mbt925
یک شنبه 20 مرداد 1387, 12:14 عصر
Skin Like Winamp

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

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

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

Mbt925
یک شنبه 20 مرداد 1387, 12:21 عصر
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
یک شنبه 20 مرداد 1387, 12:27 عصر
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
دوشنبه 21 مرداد 1387, 10:14 صبح
TileMaker

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

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

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

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

sohrab o
چهارشنبه 23 مرداد 1387, 12:00 عصر
یه چیزی شبیه winamp

xxxxx_xxxxx
دوشنبه 28 مرداد 1387, 09:19 صبح
سلام. من مي خوام يك مجموعه كدهاي كوچولو ولي واقعا كاربردي رو اينجا بزارم.


اين كد شبيه 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
دوشنبه 28 مرداد 1387, 09:21 صبح
بدون شرح:
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
دوشنبه 28 مرداد 1387, 09:26 صبح
با همين يه ذره كد مي تونيد همه فونت هاي سيستم رو تو يك 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
دوشنبه 28 مرداد 1387, 09:29 صبح
توابع تبديل عدد به رشته !

اما اين با اون چيزي كه فكر مي كنيد فرق مي كنه به عكس نگاه كنيد:
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
دوشنبه 28 مرداد 1387, 09:31 صبح
ادغام دو عكس با همديگر

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

سه تا 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
دوشنبه 28 مرداد 1387, 09:33 صبح
يك مثلث كه ميشه مربع بعد ميشه پنج ضلعي بعد ميشه شش ضلعي بعد ميشه ...
همه اينها در حال چرخش هستند.
كپي كنيد يك تايمر بزارين رو فرم بعد هم 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
دوشنبه 28 مرداد 1387, 09:36 صبح
استخراج آيكن هر نوع فايل

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

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
دوشنبه 28 مرداد 1387, 09:39 صبح
انتخاب قسمتي از عكس

يك كوچولو كد براي يك كار بزرگ.
به عكس نگاه كنيد معلومه كه چه چيزهايي لازم داريم.
قبل از اجراي برنامه 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
دوشنبه 28 مرداد 1387, 09:41 صبح
انتخاب رنگ جايي كه موس قرار دارد

يك 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
دوشنبه 28 مرداد 1387, 09:43 صبح
ادغام دو عكس با همديگر

نه دوست من هنوز يادم نرفته چند پست بالاتر با اين عنوان يك كوچولو كد گذاشتم.
اونو فقط براي اين گذاشتم تا كار با 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
چهارشنبه 30 مرداد 1387, 13:17 عصر
Messenger File Transfer

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

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

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

Mbt925
شنبه 09 شهریور 1387, 00:46 صبح
بستن فایل اجرایی:

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

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

بستن پنجره:


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

Mbt925
یک شنبه 17 شهریور 1387, 13:43 عصر
نقل قول از دوست عزیز AMIB



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

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

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

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


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

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

Mbt925
دوشنبه 18 شهریور 1387, 13:48 عصر
Create Text Border

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

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

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

Mbt925
شنبه 23 شهریور 1387, 14:47 عصر
How To Make Standard DLL

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

Mbt925
سه شنبه 26 شهریور 1387, 14:17 عصر
Make IE Toolbar

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

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

xxxxx_xxxxx
سه شنبه 26 شهریور 1387, 16:00 عصر
متاسفانه VB رویدادهایی مثل MouseIn و MouseOut نداره. اگه این دو رویداد رو داشت می تونستیم بفهمین که موس چه زمانی روی یک شی وارد میشه و چه زمانی خارج میشه.

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

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

موفق باشید/

VB.SOS
چهارشنبه 27 شهریور 1387, 11:02 صبح
كدي كه دوست عزيز xxxxx_xxxxx فرستادن رو وارد يه UserControl كردم و اينجا قرار ميدم. استفاده از اون خيلي راحته:قهقهه:

r0ot$harp
شنبه 30 شهریور 1387, 05:01 صبح
سلام دوستان


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

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


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


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




باتشکر احسان

r0ot$harp
یک شنبه 31 شهریور 1387, 01:09 صبح
سلام دوستان

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

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


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


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





باتشکر احسان

Mbt925
سه شنبه 02 مهر 1387, 13:10 عصر
Resource Viewer Dll-Exe

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

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

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