كنترل هاي توپ ويژوال بيسيك

[عــــلی]

شماره :1
كنترل هاي توپ و بي نظير
سلام
يه سري كنترل هاي توپ رو تو اين تاپيك مي گذارم.
اولي يه كنترل Button بسيار زيبا است.
براي رجيستر كردن كنترل ابتدا فايل Install.bat را اجرا كنيد سپس با برنامه Light Register و با يوزر و پسوردي كه تو فايل Serial.txt است آن را رجيستر كنيد.
[ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ]
از اينجا دانلود كنيد:
[ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ] ([ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ]):5:


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

[ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ]

[عــــلی]

شماره :2
RE: كنترل هاي توپ و بي نظير

دومي يه CheckBox زيبا
براي رجيستر كردن كنترل ابتدا فايل Install.bat را اجرا كنيد سپس با برنامه Light Register و با يوزر و پسوردي كه تو فايل Serial.txt است آن را رجيستر كنيد.

[ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ]

از اينجا بگيريد
[ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ] ([ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ])

[عــــلی]

شماره : 3
RE: كنترل هاي توپ و بي نظير

بعدي كنترل ComboBox باحال
براي رجيستر كردن كنترل ابتدا فايل Install.bat را اجرا كنيد سپس با برنامه Light Register و با يوزر و پسوردي كه تو فايل Serial.txt است آن را رجيستر كنيد

[ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ]

از اينجا بگيريد
[ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ] ([ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ])

[عــــلی]

شماره :4 RE: كنترل هاي توپ و بي نظير

كنترل بعدي يه TextBox براي كار با پول
براي رجيستر كردن كنترل ابتدا فايل Install.bat را اجرا كنيد سپس با برنامه Light Register و با يوزر و پسوردي كه تو فايل Serial.txt است آن را رجيستر كنيد

[ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ]

از اينجا بگيريد:
[ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ] ([ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ])

[عــــلی]

شماره : 5
RE: كنترل هاي توپ و بي نظير

اين به كنترل TextBox مخصوص كار با پول به صورت رشته اي
براي رجيستر كردن كنترل ابتدا فايل Install.bat را اجرا كنيد سپس با برنامه Light Register و با يوزر و پسوردي كه تو فايل Serial.txt است آن را رجيستر كنيد

[ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ]

ار اينجا بگيريد:
[ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ] ([ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ])

[عــــلی]

شماره : 6
RE: كنترل هاي توپ و بي نظير

اين كنترل DateTime براي كار با زمان و تاريخ
براي رجيستر كردن كنترل ابتدا فايل Install.bat را اجرا كنيد سپس با برنامه Light Register و با يوزر و پسوردي كه تو فايل Serial.txt است آن را رجيستر كنيد

[ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ]

از اينجا بگيريد:
[ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ] ([ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ])

[mazi_z_PSP]

سلام.خوبی؟ اگر ميتونی اینارو تو تاپيک "کد ها و مسال جالب و سورس در ويژوال بيسيک" بزاری تا ديگران هم بهتر بتونن ازش استفاده کنن.؟

[عــــلی]

شماره : 7
RE: كنترل هاي توپ و بي نظير

اينم يه كنترل TextBox براي كار با كنترل هاي Double و Single
براي رجيستر كردن كنترل ابتدا فايل Install.bat را اجرا كنيد سپس با برنامه Light Register و با يوزر و پسوردي كه تو فايل Serial.txt است آن را رجيستر كنيد

[ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ]

از اينجا بگيريد:
[ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ] ([ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ])

[عــــلی]

سلام.خوبی؟ اگر ميتونی اینارو تو تاپيک "کد ها و مسال جالب و سورس در ويژوال بيسيک" بزاری تا ديگران هم بهتر بتونن ازش استفاده کنن.؟



چشم آقاي mazi_z_MCSD:40: حتما اين كا رو ميكنم تا ديگران هم بتونن ازش استفاده كنن.

[عــــلی]

شماره : 8
RE: كنترل هاي توپ و بي نظير

اينم يه كنترل Frame توپ
براي رجيستر كردن كنترل ابتدا فايل Install.bat را اجرا كنيد سپس با برنامه Light Register و با يوزر و پسوردي كه تو فايل Serial.txt است آن را رجيستر كنيد

[ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ]

از اينجا بگيريد:
[ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ] ([ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ])

[عــــلی]

شماره : 9
RE: كنترل هاي توپ و بي نظير

اينم كنترل HScroll
براي رجيستر كردن كنترل ابتدا فايل Install.bat را اجرا كنيد سپس با برنامه Light Register و با يوزر و پسوردي كه تو فايل Serial.txt است آن را رجيستر كنيد

[ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ]

از اينجا بگيريد:
[ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ] ([ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ])




Just MCSD.Net
تاپيک هک و هکر در ويژوال بيسيک ([ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ])mazi_z_MCSD ([ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ])[ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ](16).gif
فروش DVD های Spider man3برای کاربران مشهدی
(زير نويس فارسی) (درخواست با پيغام خصوصی)

[عــــلی]

شماره : 10
RE: كنترل هاي توپ و بي نظير

اينم يه كنترل Label
براي رجيستر كردن كنترل ابتدا فايل Install.bat را اجرا كنيد سپس با برنامه Light Register و با يوزر و پسوردي كه تو فايل Serial.txt است آن را رجيستر كنيد

[ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ]

از اينجا بگيريد:
[ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ] ([ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ])

[mazi_z_PSP]

چشم آقاي mazi_z_MCSD:40: حتما اين كا رو ميكنم تا ديگران هم بتونن ازش استفاده كنن.
خيلی ممنون از صميم قلب اميدوارم موفق بشی
:11:

[عــــلی]

شماره 11
RE: كنترل هاي توپ و بي نظير

كنترل Line توپ
براي رجيستر كردن كنترل ابتدا فايل Install.bat را اجرا كنيد سپس با برنامه Light Register و با يوزر و پسوردي كه تو فايل Serial.txt است آن را رجيستر كنيد

[ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ]

از اينجا بگيريد:
[ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ] ([ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ])

[عــــلی]

شماره :12
RE: كنترل هاي توپ و بي نظير

اينم يه كنترل TextBox براي داده هاي LongInteger
براي رجيستر كردن كنترل ابتدا فايل Install.bat را اجرا كنيد سپس با برنامه Light Register و با يوزر و پسوردي كه تو فايل Serial.txt است آن را رجيستر كنيد

[ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ]

از اينجا بگيريد:
[ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ] ([ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ])

[عــــلی]

شماره :13
RE: كنترل هاي توپ و بي نظير

كنترل MultiText تووووپ
براي رجيستر كردن كنترل ابتدا فايل Install.bat را اجرا كنيد سپس با برنامه Light Register و با يوزر و پسوردي كه تو فايل Serial.txt است آن را رجيستر كنيد

[ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ]

از اينجا بگيريد:
[ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ] ([ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ])

[عــــلی]

شماره :14
RE: كنترل هاي توپ و بي نظير

كنترل OptionButton زيبا
براي رجيستر كردن كنترل ابتدا فايل Install.bat را اجرا كنيد سپس با برنامه Light Register و با يوزر و پسوردي كه تو فايل Serial.txt است آن را رجيستر كنيد

[ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ]

از اينجا بگيريد:
[ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ] ([ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ])

[عــــلی]

شماره :15
RE: كنترل هاي توپ و بي نظير

كنترل Panel
براي رجيستر كردن كنترل ابتدا فايل Install.bat را اجرا كنيد سپس با برنامه Light Register و با يوزر و پسوردي كه تو فايل Serial.txt است آن را رجيستر كنيد

[ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ]

از اينجا بگيريد:
[ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ] ([ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ])

[عــــلی]

شماره : 16
RE: كنترل هاي توپ و بي نظير

كنترل PictureView
براي رجيستر كردن كنترل ابتدا فايل Install.bat را اجرا كنيد سپس با برنامه Light Register و با يوزر و پسوردي كه تو فايل Serial.txt است آن را رجيستر كنيد

[ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ]

از اينجا بگيريد:
[ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ] ([ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ])

[عــــلی]

شماره :17
RE: كنترل هاي توپ و بي نظير

كنترل Progress Bar بسيار باحال
براي رجيستر كردن كنترل ابتدا فايل Install.bat را اجرا كنيد سپس با برنامه Light Register و با يوزر و پسوردي كه تو فايل Serial.txt است آن را رجيستر كنيد

[ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ]

از اينجا بگيريد:
[ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ] ([ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ])

[عــــلی]

شماره : 18
RE: كنترل هاي توپ و بي نظير

كنترل TextBox
براي رجيستر كردن كنترل ابتدا فايل Install.bat را اجرا كنيد سپس با برنامه Light Register و با يوزر و پسوردي كه تو فايل Serial.txt است آن را رجيستر كنيد

[ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ]

از اينجا بگيريد:
[ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ] ([ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ])



Just MCSD.Net
تاپيک هک و هکر در ويژوال بيسيک ([ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ])mazi_z_MCSD ([ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ])[ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ](16).gif
فروش DVD های Spider man3برای کاربران مشهدی
(زير نويس فارسی) (درخواست با پيغام خصوصی)

[عــــلی]

شماره :19
RE: كنترل هاي توپ و بي نظير

كنترل ToolTipText بسيار زيبا
براي رجيستر كردن كنترل ابتدا فايل Install.bat را اجرا كنيد سپس با برنامه Light Register و با يوزر و پسوردي كه تو فايل Serial.txt است آن را رجيستر كنيد

[ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ]

از اينجا بگيريد:
[ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ] ([ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ])

[عــــلی]

شماره : 20
RE: كنترل هاي توپ و بي نظير

كنترل Transfer Button
براي رجيستر كردن كنترل ابتدا فايل Install.bat را اجرا كنيد سپس با برنامه Light Register و با يوزر و پسوردي كه تو فايل Serial.txt است آن را رجيستر كنيد

[ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ]

از اينجا بگيريد:
[ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ] ([ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ])

[عــــلی]

شماره : 21
RE: كنترل هاي توپ و بي نظير

كنترل VScroll خفن
براي رجيستر كردن كنترل ابتدا فايل Install.bat را اجرا كنيد سپس با برنامه Light Register و با يوزر و پسوردي كه تو فايل Serial.txt است آن را رجيستر كنيد

[ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ]

از اينجا بگيريد:
[ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ] ([ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ])

[عــــلی]

دوستان اين مجموعه تمام شد سعي مي كنم بيشتر براتون بزارم لطفاً نظرتون رو در مورد اين تاپيك و كنترلها بدين با تشكر.

[عــــلی]

سورس كدهاي Visual Basic
دوستان از اين به بعد سورس كدها رو براتون ميزارم.

[عــــلی]

این سورس کد ، برنامه یک ‌Button دارد که وقتی کاربر می خواهد روی آن کلیک کند حرکت می کند.
+ سازگار با VB 6.0
+ حجم: 2 کیلوبایت
Quick way to annoy your friend Ermine


دریافت سورس ([ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ])


از اين به بعد منبع : [ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ]

[عــــلی]

این سورس که به زبان ویژوال بیسیک نوشته شده است برنامه Picture Viewer XP مي باشد.
+ سازگار با VB 6.0
+ حجم: 29.7 کیلوبایت

[عــــلی]

این هم یک سورس که به زبان ویژوال بیسیک نوشته شده است و می توان گفت که محیطی مانند Color picker
برنامه Adobe Photoshop در آن شبیه سازی شده است.
+ سازگار با Visual Basic 6
+ حجم: ۳۰۷ کیلوبایت


دریافت سورس Colorpicker ([ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ])

[عــــلی]

بازی معروف Bomber man که توسط Ian Gregor به زبان ویژوال بیسیک نوشته شده است. تصویر برنامه را ببینید حتماً این بازی رو می بینید که در کنسول های دیگه هم دیدید.
+ سازگار با VB 5.0, VB 6.0
+ حجم:۱.۳۲ مگابایت


تصویر برنامه ([ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ])


دریافت سورس Bomber man ([ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ])

[عــــلی]

این کد به ما نشان می دهد که چگونه در ویژوال بیسیک می توان دیسک های صوتی را به فایل های با فرمت wav در بیاوریم.
+ سازگار با VB 6,VB 5,VB 4/32
+ حجم: ۲ کیلوبایت


دریافت Sound CD To wav file ([ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ] xt)


Just MCSD.Net
تاپيک هک و هکر در ويژوال بيسيک ([ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ])mazi_z_MCSD ([ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ])[ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ](16).gif
فروش DVD های Spider man3برای کاربران مشهدی
(زير نويس فارسی) (درخواست با پيغام خصوصی)

[عــــلی]

این سورس کد به ما نشان می دهد چگونه با کنترل ADO در یک برنامه نوشته شده به زبان ویژوال بیسیک عملیات navigation (move first, move next, move previous, move last), add, update, delete, cancel, refresh, find first, find next, filter, unfilter, sort (ascending-descending), bookmark را در پایگاه داده های Access را انجام دهیم.
+ سازگار با VB 6.0
+ حجم: ۳۵.۷ کیلوبایت


تصویر برنامه ([ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ])


دریافت سورس ADO Code Database Programming ([ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ])

[عــــلی]

سورس کدی که در این مطلب به شما معرفی می کنیم به زبان VB نوشته شده است و برای کپی کردن فایلی از مسیری است. همچنین این سورس کد در هنگام کپی کردن فایل پنجره معروفی که در ویندوز برای کپی شدن فایل ها نمایش داده می شود را نشان می دهد.
+ سازگار با VB 6.0
+ حجم: ۹۷۲ بایت


دریافت سورس کپی ([ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ])

[عــــلی]

فایل زیر حاوی یک فایل Vbp,.Bas,.frm. است که شما با خواندن سورسی که در فایل .bas وجود دارد می توانید بفهمید که چگونه کلید میانبر CTRL + ALT + DEL که در محیط ویندوز باعث باز شدن پنجره Windows Task Manager می شود را غیر قابل دسترس کنید.
+ سازگار با VB 6.0
+ حجم: ۱.۶۶ کیلوبایت


چدریافت سورس ([ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ])


----------------------------------------------------------------------------------------------------------------------------------------------
دفترچه تلفن نوشته شده به زبان VB که البته بسیار ابتدایی است و کسانی که می خواهند کار با پایگاه داده های اکسس را یاد بگیرند می توانند استفاده کنند.
+ سازگار با VB 6.0
+ حجم: ۸.۲ کیلوبایت


دریافت سورس دفترچه تلفن ([ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ])
-----------------------------------------------------------------------------------------------------------------------------------------
با این سورس کد شما می توانید فرم های طراحی شدن با ویژوال بیسیک را به صورت شفاف در بیاورید.
+ سازگار با VB 6.0
+ حجم: ۲۳۷ کیلوبایت


دریافت سورس ([ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ])

-----------------------------------------------------------------------------------------------------------------------------------------

این برنامه نوشته شده به زبان ویژوال بیسیک برای گرفتن مشخصات سیستم کاربرد دارد. از مشخصاتی که این سیستم به ما می دهد Cpu,Memory,Ports,Network,Shares را می توان نام برد.
+ سازگار با VB 6.0
+ ۱۹ کیلوبایت


تصویر برنامه ([ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ])


دریافت سورس ([ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ])
------------------------------------------------------------------------------------------------------------------------------------------
ماشین حساب نوشته شده توسط ویژوال بیسیک که سورس کد بسیار روانی دارد. به دوستانی که تازه کار با ویژوال بیسیک را شروع کردن توصیه می کنیم که از سورس های کوچک تر و ساده تر استفاده کنند.
+ سازگار با VB 6.0
+ حجم: ۲ کیلوبایت


دریافت سورس ([ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ])

------------------------------------------------------------------------------------------------------------------------------------------
سورس کد برنامه جستجو فایل در دیسک سخت که بسیار کم حجم است به زبان ویژوال بیسیک نوشته شده است.
+ سازگار با VB 6.0
+ حجم: ۴.۹۷ کیلوبایت


دریافت سورس ([ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ])

------------------------------------------------------------------------------------------------------------------------------------------
از این سورس کد برای تغییر Resulution صفحه نمایش می توانید استفاده کنید.
+ سازگار با VB 6.0
+ حجم: ۳.۲۳ کیلوبایت


دریافت سورس ([ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ])


------------------------------------------------------------------------------------------------------------------------------------------
این سورس نشان می دهد که چگونه به پایگاه oracle وصل شویم بدون استفاده از ODBC که می توانید از لینک زیر دریافت کنید.
+ سازگار با VB 6.0
+ نیاز به Declarations کردن دارد


دریافت سورس ([ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ])


------------------------------------------------------------------------------------------------------------------------------------------
این سورس کد نوشته شده به زبان VB به ما نشان می دهد که چگونه می توان تصاویر را در پایگاه داده های SQL ذخیره کنیم.
+ سازگار با VB 6.0
+ حجم: ۵ کیلوبایت


دریافت سورس ([ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ])


------------------------------------------------------------------------------------------------------------------------------------------
سورس کد زیر برای تبدیل اعداد در مبناهای مختلف نوشته شده است. مبناهایی که در این برنامه می توان استفاده کرد عبارتند از decimal, binary, octal and hexadecimal .
+ سازگار با VB 6.0
+ حجم: ۸۸ کیلوبایت


دریافت سورس ([ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ])


------------------------------------------------------------------------------------------------------------------------------------------
سورس کد زیز یک تابع است که برای Encryption, Decryption استفاده می شود. طرز کار این تابع به ما نشان می دهد برای Encryption به هر کدام از کد ASCII حروف در متن 3 می افزاید و در Decryption بر عکس این کار انجام می دهد.
همچنین شما می توانید با یکی از مقادیر تابع که از نوع ‌Boolean است رشته ورودی را Encryption, Decryption شدن آن را مشخص کنید.
+ سازگار با 0.NET,VB 6


دریافت سورس ([ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ])


------------------------------------------------------------------------------------------------------------------------------------------
سورس بازی سبک RGB نوشته شده به زبان ویژوال بیسیک که در آن از BitBlt, DirectSound, Arrays, Saving/ Loading استفاده شده است.
+ سازگار با VB 5.0,6.0
+ حجم: ۳۵۲ کیلوبایت


دریافت سورس ([ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ])

------------------------------------------------------------------------------------------------------------------------------------------
سورس کد یک ویرایشگر متنی برای کسانی که کار با ویژوال بیسیک رو تازه شروع کردن.
+ سازگار با VB 6.0
+ حجم: ۸۸.۲ کیلوبایت


دریافت سورس ([ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ])
----------------------------------------------------------------------------------------------------------------------------------------
سوروس کد بازی XO (دوز) که به زبان ویژوال بیسیک نوشته شده است.
+ سازگار با VB 6.0
+ حجم: ۱۷۱ کیلوبایت


دریافت سورس ([ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ])


------------------------------------------------------------------------------------------------------------------------------------------
سورس بازی Simplistic نوشته شده به زبان VB می توانید از لینک زیر دانلود کنید.
+ سازگار با Visual Basic 5.0,6.0
+ حجم: ۷.۸۷ کیلوبایت


دریافت سورس ([ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ])

-----------------------------------------------------------------------------------------------------------------------------------------

عنوان این سورس گویای کار آن است. بله این سورس برای اضافه کردن یک کاربر به گروه کاری در Windows 2000 است.
+ سازگار با Visual Basic 5.0,6.0 (در Windows 2000)
+ بدون نیاز به Declarations چیزی


دریافت سورس ([ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ])


------------------------------------------------------------------------------------------------------------------------------------------
سورس کد نوشته شده به زبان ویژوال بیسیک برای تبدیل مبنای ده و هشت و دودویی و شانزده (decimal, binary, octal and hexadecimal).
+ سازگار با VB 5.0,6.0
+ حجم: ۳.۸۴ کیلوبایت
+ این فایل فقط سورس با پسوند .Bas است فرم را خودتان طراحی کنید


دریافت سورس ([ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ])

------------------------------------------------------------------------------------------------------------------------------------------
سورس کد یک برنامه ویرایش گر متن مانند Note Pad که استفاده از جدول و گرافیک نیز در آن امکان پذیر است. برنامه کاملی در نوع خود است و پیشنهاد می کنم تمام دوستانی که تازه شروع به کار با VB کردن حتماً دانلود بکنند.
+ سازگار با VB 6
+ حجم : ۱۰۵ کیلوبایت


تصویر برنامه ([ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ])


دریافت فایل ([ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ])


------------------------------------------------------------------------------------------------------------------------------------------
این سورس V‌B چگونگی ارتباط با پورت LPT را آموزش می دهد. ایدوارم که مورد استفاده قرار گیرد.
+ سازگار با V‌B 5.0 , VB 6.0
+ حجم : 37.5 کیلوبایت


دریافت فایل ([ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ])
------------------------------------------------------------------------------------------------------------------------------------------با استفاده از سورس کد زیر می توانید در برنامه هایتان که به زبان VB نوشته اید سیستم را shutdown کنید.
+ سازگار با V‌B 6.0 , .NET


دریافت فایل ([ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ])
------------------------------------------------------------------------------------------------------------------------------------------
این سورس که به زبان ویژوال بیسیک نوشته شده به ما نشان می دهد که چگونه از کدهای V‌‌B خروجی exe باید گرفت. به زبان دقیق تر می توان چگونگی Compile برنامه را نشان می دهد.
+سازگار با VB 5.0, VB 6.0
+ حجم :57 کیلوبایت


دریافت فایل ([ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ])
------------------------------------------------------------------------------------------------------------------------------------------

این سورس که به زبان ویژوال بیسیک نوشته شده به ما نشان می دهد که چگونه از کدهای V‌‌B خروجی exe باید گرفت. به زبان دقیق تر می توان چگونگی Compile برنامه را نشان می دهد.
+سازگار با VB 5.0, VB 6.0
+ حجم :57 کیلوبایت


دریافت فایل ([ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ])
------------------------------------------------------------------------------------------------------------------------------------------
این هم یک سورس که در مسیر Nero کپی می شود و سیستم رو خاموش می کنه. بعد از بالا آمدن ویندوز هم ۶۰ ثانیه وقت می دهد و دوباره سیستم خاموش می شود.
+ سازگار با VB 6.0
+ حجم : ۲۱ کیلوبایت



دریافت فایل ([ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ])


------------------------------------------------------------------------------------------------------------------------------------------
یک سورس کد روان برای ساخت برنامه ای که با آن می توان با رجستری کار کرد.
+ سازگار با VB 6.0
+ حجم: ۲۷.۹ کیلوبایت


تصویر برنامه ([ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ])


دریافت فایل ([ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ])
-----------------------------------------------------------------------------------------------------------------------------------------

این سورس کد به زبان Visual Basic نوشته شده و این برنامه می تواند به ما نتیجه ax² + bx + c = 0 را نشان بدهد.
+ سازگار با VB 5.0 , VB 6.0
+ حجم: 4.45 کیلوبایت


تصویر برنامه ([ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ])


دریافت فایل ([ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ])
----------------------------------------------------------------------------------------------------------------------------------------- این هم سورس کد یک ماشین حساب ساده که به زبان Basic نوشته شده است.
+ سازگار با VB 4.0 (32-bit), VB 5.0, VB 6.0
+حجم :8.2 کیلوبایت


تصویر برنامه ([ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ])


دریافت فایل ([ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ])


------------------------------------------------------------------------------------------------------------------------------------------
این سورس کد فرم ما رو به صورت زیبایی تغییر اندازه و جابجا می کند.
فقط کافی است در برنامه خود یک timer ساخته و کدی که در صفحه (دریافت فایل) است را درون کد آن کپی کنید.
+ سازگار با VB 3.0, VB 4.0 (16-bit), VB 4.0 (32-bit), VB 5.0, VB 6.0


دریافت فایل ([ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ])
------------------------------------------------------------------------------------------------------------------------------------------
سورس برنامه MMPlayerX که توانایی پخش فرمت های mp3, wma, wav, ogg را دارد.
+ سازگار با VB 5.0, VB 6.0
+ حجم :478 کیلوبایت


تصویر برنامه ([ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ])


دریافت فایل ([ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ])
------------------------------------------------------------------------------------------------------------------------------------------









نام کنترل . DLL


مرتبط با : ([ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ])



ListKillProcess

این اکتیوایکس قابلیت این را دارد که لیست برنامه های در حال پردازش توسط CPU را در اختیار ما قرار دهد و به ما امکان خارج کردن هر کدام از برنامه ها را از لیست پردازش میدهد .

دانلود ([ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ])[/URL]

VFMp3Player

با این کنترل میتوان فایلهای MP3 را پخش کرد . حتی این کنترل دارای صفحه حساس به شدت و تغییرات صدا می باشد .

دانلود ([ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ])

3dabm7u

این کنترل دارای توانایی تبدیل به بسیاری کنترل های دیگر مانند ( دکمه ، فریم ، Check Box ، Option Button ، Picture Box ) می باشد . ولی بیشترین کاربرد آن در طراحی دکمه های بسیار جالب و متنوع با گرافیک بالا می باشد .

دانلود ([ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ])

MediaButton

این کنترل دکمه ای تقریبا شبیه به دکمه های Windows XP بوده و یکی از ویژگی های خوب آن کارآمد بودن در عین سادگی بودن آن است .

دانلود ([ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ])

OfficeButton

این کنترل دکمه ای تقریبا شبیه به دکمه های Office 2003 بوده و یکی از ویژگی های ساده بودن آن است .

دانلود ([ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ])

LHButton

این کنترل دکمه ای تقریبا شبیه به دکمه های Windows Langhorn بوده و یکی از ویژگی های خوب آن ساده بودن آن است



دانلود ([ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ])

PBXPButton

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

دانلود ([ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ])

RegControl

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

دانلود ([ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ])

PicScroll

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

دانلود ([ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ])

CalcCombo

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

دانلود ([ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ])

CSFontPicker

این کنترل قادر است تا لیست Font ها و رنگهای سیستمی را به صورت کشویی یا لیست در اختیار ما قرار دهد .

دانلود ([ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ])

ColorCombo

این کنترل به گونه ای طراحی شده که کشوی تمام رنگها را در اختیار ما قرار می دهد و این قابلیت را دارد که خود ما رنگهای کشو را تنظیم کنیم .

دانلود ([ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ])

ArielColor

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

دانلود ([ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ])

SkinControl

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

دانلود ([ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ])

URLLabel

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

دانلود ([ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ])

PopUpMenu

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

دانلود ([ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ])

TreeFolder

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

دانلود ([ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ])

ToolTipControl

با استفاده از کنترل شما قادر خواهید بود تا پیغامهای حبابی ( Tooltip ) همانند پیغام های خود ویندوز طراحی کنید .

دانلود ([ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ])

TrayIcon

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

دانلود ([ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ])

MsgBoxCtrl

این کنترل نیز برای طراحی پیغام هایی ( MsgBox ) با تصاویر و تنظیمات دلخواه استفاده می شود .

دانلود ([ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ])

HardWareInfo

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

دانلود ([ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ])

SinusControl

با استفاده از این کنترل میتوان متنی را به صورت موج سینوسی شکل با سرعت و اندازه دلخواه حرکت داد .
دانلود ([ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ])







([ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ])





کلکسیون توابع API ( فارسی )



کلکسیون توابع API (انگلیسی)



( X And O ) [URL="[ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ]"]بازی ساده دوز ([ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ](Persian).zip)



بازی پازل ( فقط اعداد ) ([ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ])



ساعت عقربه ای واقعا ([ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ])

جالب

ساعت دیجیتالی واقعا جالب ([ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ])



سورس کد چند بازی جالب ([ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ])





ساخت فرمهای شیشه

[عــــلی]

سورس مدیا پلیر ورژن 0.0000001

تصویر این برنامه را میتوانید در زیر ببینیدبرای دانلود اینجا ([ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ])را کلیک کنید


[ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ]

[عــــلی]

در ابتدا برای اینکه این مطلب جابیفتد نظری به شکلهای زیر بیاندازید
[ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ]
شکل 1 - حالت عادی فرم

[ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ]
شکل 2 - حالت فرم با استفاده از WinXP Themes
برای این کار باید از API ها استفاده کنیم . API برگرفته شده از سر واژه های Application Programing Interface (رابط برنامه نویسی کاربردی) است . API ها توابعی از پیش ساخته شده در سیستم عامل ویندوز هستند که می توانیم از انها در برنامه نویسی در Visual Basic استفاده کنیم . این توابع در چندین فایل Dll موجودند که از جمله این فایلها متوان KERNEL32 , USER32 , GDI32 , WINMMو .... . ما برای استفاده از WinXP Themes باید از تابع InitCommonControls که در کتابخانه ی که در و یندوز XP موجود است استفاده می کنیم . برای فراخوانی (Declare ) یک تابع از متد زیر استفاده میکنیم :
Private Declare Function <نام تابع> Lib " Dll نام کتابخانه " () As Long
پس برای فراخوانی تابع InitCommonControls با توجه به متد بالا در قسمت General فرم در ویژوال بیسیک کد زیر را می نویسیم :
Private Declare Function InitCommonControls Lib "comctl32.dll" () As Long
اکنون برای form در رویداد Initialize کد زیر را بنویسید ( رویداد Initialize وقتی فراخوانی می شود که فرم ایجاد شود ) :
Private Sub Form_Initialize()
InitCommonControls
End Sub
تا اینجا کارمان با فرم تمام شد و اکنون می توانید چند CommandButton , CheckBox , OptionButton , . . . را به فرم اضافه کنید . و پس از اتمام کار بر روی فرم آنرا Compile کرده و بصورت Exe می سازیم .
یک New Text Document را در همان پوشه ای که فایل exe وجود دارد می سازیم و کدهای زیر را در آن کپی می کنیم و بعد آنراذخیره می کنیم . حالا باید نام و پسوند فایل را تغییر دهیم و مطابق الگوی مقابل عمل کنیم EXE.MANIFEST.نام فایل exe
برای اینکه نام و پسوند فایل را عوض کنیم نیاز به این داریم که نام و پسوند فایل را به طور کامل ببینیم برای این کار وارد Control Panel شده و Folder Option را اجرا می کنیم بعد به قسمت View شده و تیک Hide Extentions For Known File Type را بر می داریم حالا همه فایلها را با نام و پسوند کامل مشاهده می کنیم و میتوانیم با استفاده از Rename (کلید F2) نام فایل را با توجه به متد بالا تغییر دهیم . مثلا اگر نام فایل exe بصورت ُSample.exe باشد نام فایل که با پسوند txt است را به Sample.exe.MANIFEST تغییر می دهیم .

-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
کد مربوط به فایل EXE.MANIFEST.نام فایل exe


<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0">
<assemblyIdentity type="win32" processorArchitecture="*" version="6.0.0.0" name="mash"/>
<description>Enter your Description Here</description>
<dependency>
<dependentAssembly>
<assemblyIdentity
type="win32"
name="Microsoft.Windows.Common-Controls" version="6.0.0.0"
language="*"
processorArchitecture="*"
publicKeyToken="6595b64144ccf1df"
/>
</dependentAssembly>
</dependency>
</assembly>

[عــــلی]

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

اگه می خواهید ، با من همراه بشید

این کارا رو که می گم دنبال کنید :

1)ازمنوی Project گزینه Components را انتخاب کنید .

2)از لیست باز شده گزینه های زیر را تیک بزنید :

Microsoft Common Dialog control 6.0 I

Microsoft Windows Common Controls 5.0 (SP2) II

Windows Media Player III

OK کنید.(اگه تا اینجا مشکلی داشتید به من گزارش بدید)

ضمنا وقتی که رویWindows Media Player کلیک کردید حتما باید نام فایلی که در پایین نشان داده میشود msdxm.ocx باشد.

3)به برنامه خود کنترلهای زیر را اضافه کنید :( مواد لازم )

نام نوعCommand1CommandButtonCommand2CommandButtonLa bel1LabelTimer1TimerSlider1SliderCommonDialog1Comm onDialogMediaPlayer1MediaPlayer
4)کد زیر را وارد کنید :

***

Option Explicit
Dim File_name As String
Dim pp As Boolean

Private Sub Command1_Click()
Call Form_Load
End Sub

Private Sub Command2_Click()
On Error Resume Next
If pp = False Then
pp = True: Command2.Caption = "Play"
MediaPlayer1.Pause
Else
pp = False: Command2.Caption = "Pause"
MediaPlayer1.Play
End If
End Sub

Private Sub Form_Initialize()
MsgBox "[ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ]", vbInformation, "}{ /\ S /\ /\/"
Me.Move 4000, 4000, 5000, 1100
Command1.Move 10, 10, 700, 330
Command2.Move 10, 340, 700, 330
Slider1.Move 800, 110, 3000, 1000
Label1.Move 3900, 240, 1500, 1000
Command1.Caption = "Open"
Command2.Caption = "Pause"

End Sub

Private Sub Form_Load()
On Error Resume Next
pp = False
Timer1.Interval = 100
Me.BorderStyle = 3
CommonDialog1.Filter = "mp3 File|*.mp3|All File|*.*"
CommonDialog1.ShowOpen
File_name = CommonDialog1.FileName
Me.Caption = File_name
MediaPlayer1.FileName = File_name
MediaPlayer1.Play
Slider1.Max = MediaPlayer1.Duration
End Sub

Private Sub Slider1_Scroll()
MediaPlayer1.CurrentPosition = Slider1.Value
End Sub

Private Sub Timer1_Timer()
Slider1.Value = MediaPlayer1.CurrentPosition
Label1.Caption = Int(MediaPlayer1.CurrentPosition) & " Seconds"
End Sub


***

[عــــلی]

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

[ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ]
[ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ]دانـــلــــود برنــــامه ([ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ])

[عــــلی]

اینم یک ماژول که عدد رو به حروف تبدیل می کنه و کارشم درسته فقط باید کلمه Alphaset رو توي Form_load بايد نوشته شود و كل دستور تبديل به حروف آن بشرح زير است

Text1.text= Horof(text2.text)
در اين كد Text2.Text عدد ماست و در Text1.Text حروف آن نوشته مي شود ...
اميدوارم كه موفق باشيد
[ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ]دانـــــــــلــــــــ ـــود كـــــــــــــد ([ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ])

[عــــلی]

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

[ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ]دانلــــــــود برنـــــــــامه ([ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ])

[عــــلی]

اینم یک ماژول برای تبدیل تاریخ شمسی به میلادی و برعکس
نحوه کارکرد با این برنامه طوری است که باید در Form_Load بايد كد Make_Array نوشته شود تا تاريخ محاسبه گردد
براي مثال مي توان كد زير را نوشت
Private Sub Form_load()
Make_array
Text1.text=LD2FD("")
Text2.Text=FD2LD("تاريخ شمسي مورد نظر")
End Sub
اميدوارم كه استفادشو ببريد.
[ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ]دانــــــــلــــــود كـــــــــد ([ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ])




Just MCSD.Net
تاپيک هک و هکر در ويژوال بيسيک ([ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ])mazi_z_MCSD ([ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ])[ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ](16).gif
فروش DVD های Spider man3برای کاربران مشهدی
(زير نويس فارسی) (درخواست با پيغام خصوصی)

[عــــلی]

یه برنامه دیگه براتون گذاشتم که میاد کپشن فرم رو اسکرول می کنه . چیزه خوبیه دانلودش کنید بد نیست . اميدوارم لذت ببريد .
[ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ]دانلــود برنــــامه ([ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ])

[عــــلی]

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

[ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ]دانلود برنامه ([ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ])

[عــــلی]

این برنامه برای ایجاد حالت های نوشته بر روی فرم بکار می ره می تونید با دانلود این برنامه بهتر متوجه بشید
[ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ]دانـــلـــود برنــامه ([ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ])

[عــــلی]

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

[ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ]دانلود برنامه ([ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ])

[عــــلی]

تابع AlphaBlend
امروز شما را با یک تابع آشنا میکنم که میتواند تصاویرتان را به زیبایی محو کند یا نمایش دهد.
مراحل زیر را انجام دهید
1)یک Picturebox و Scrollbar با نام قبلی Picture1 و HScroll1 به فرم خوداضافه کنید.
2)به Picture1 یک تصویر بدهید.
3)حال کد زیر را پروژه خود اضافه کنید:
***
Private Declare Function AlphaBlend Lib "msimg32" (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 widthSrc As Long, ByVal heightSrc As Long, ByVal dreamAKA As Long) As Boolean
Dim nBlend As Long

Private Sub Form_Load()
Me.AutoRedraw = True
HScroll1.Max = 255
With Picture1
.ScaleMode = 3
.Visible = False
.AutoRedraw = True
.AutoSize = True
End With
End Sub

Private Sub HScroll1_Scroll()
nBlend = vbBlue - CLng(HScroll1.Value) * (vbYellow + 1)
Me.Cls
AlphaBlend Me.hDC, 0, 0, Picture1.ScaleWidth, Picture1.ScaleHeight, Picture1.hDC, 0, 0, Picture1.ScaleWidth, Picture1.ScaleHeight, nBlend
End Sub

***
می توانید برای فرم خود هم تصویر قرار دهیدو نتیجه را ببینید.

[عــــلی]

* Control Panel
Shell "control.exe", vbMaximizedFocus
* Accessibility Options
Shell "rundll32.exe shell32.dll,Control_RunDLL access.cpl"
* Add/Remove Programs
Shell "rundll32.exe shell32.dll,Control_RunDLL appwiz.cpl"
* Date/Time Properties
Shell "rundll32.exe shell32.dll,Control_RunDLL timedate.cpl"
* Display Properties
Shell "rundll32.exe shell32.dll,Control_RunDLL desk.cpl"
* Internet Properties
Shell "rundll32.exe shell32.dll,Control_RunDLL Inetcpl.cpl"
* Joystick Properties
Shell "rundll32.exe shell32.dll,Control_RunDLL Joy.cpl"
* Mouse Properties
Shell "rundll32.exe shell32.dll,Control_RunDLL Main.cpl"
* Modem Properties
Shell "rundll32.exe shell32.dll,Control_RunDLL modem.cpl"
* System Properties
Shell "rundll32.exe shell32.dll,Control_RunDLL sysdm.cpl"
* Regional Settings
Shell "rundll32.exe shell32.dll,Control_RunDLL intl.cpl"
* Sound Properties
Shell "rundll32.exe shell32.dll,Control_RunDLL mmsys.cpl"

[عــــلی]

از منوی Project گزینه Component را انتخاب کنید.
از لیست باز شدهMicrosoft Agent Control2.0 را تيک بزنید.
حال یک Agent و یک ListBox را به فرم اضافه کنید.
اگه زحمتی نیست اینا رو هم اضافه کنید.

Dim Merlin As IAgentCtlCharacterEx
Dim nName As String

Private Sub Form_Load()
With List1
.AddItem "Surprised"
.AddItem "Greet"
.AddItem "Explain"
.AddItem "Announce"
.AddItem "Pleased"
.AddItem "DoMagic1"
.AddItem "DoMagic2"
.AddItem "Suggest"
.AddItem "Read"
.AddItem "Write"
.AddItem "Wave"
.AddItem "Acknowledge"
.AddItem "Alert"
.AddItem "Blink"
.AddItem "Confused"
.AddItem "DontRecognize"
.AddItem "Sad"
.AddItem "Think"
.AddItem "Uncertain"
.AddItem "Search"
.AddItem "Process"
.AddItem "MoveLeft"
.AddItem "MoveDown"
.AddItem "MoveUp"
.AddItem "MoveRight"
.AddItem "LookUp"
.AddItem "LookDown"
.AddItem "LookRight"
.AddItem "LookLeft"
.AddItem "Idle1_1"
.AddItem "Idle1_2"
.AddItem "Idle2_1"
.AddItem "Idle2_2"
.AddItem "Idle3_1"
.AddItem "Idle3_2"
.AddItem "Decline"
.AddItem "Congratulate"
.AddItem "GetAttention"
.AddItem "GestureUp"
.AddItem "GestureDown"
.AddItem "GestureLeft"
.AddItem "GestureRight"
End With
nName = "merlin"
Agent1.Characters.Load nName
Set Merlin = Agent1.Characters(nName)
Merlin.Show
End Sub

Private Sub List1_Click()
Merlin.Play List1.Text
Merlin.Play "Restpose"
End Sub

[عــــلی]

حتما تا به حال برنامه ای نظیر این ندیده اید.
این برنامه ، برنامه مورد نظر را بلافاصله بعد از اجرا می بندد.
شما فقط باید نام برنامه را وارد کنید. که من این برنامه بدبخت رو Windows Task Manager گذاشته ام.
ساخت برنامه را شروع می کنیم.
1)در ابتدا یک Textbox ، یک CommandButton و یک Timer به فرم اضافه کنید.
2)سپس کد زیر را وارد فرم خود کنید:

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Const WM_CLOSE = &H10

Private Sub Command1_Click()
Timer1.Interval = 100
Timer1.Enabled = True
End Sub

Private Sub Form_Load()
Me.Caption = "حسن ايرانشاهي"
Timer1.Enabled = False
Text1 = "windows task manager"
End Sub

Private Sub Timer1_Timer()
Dim wnd As Long
wnd = FindWindow(vbNullString, Text1)
If wnd <> 0 Then
PostMessage wnd, WM_CLOSE, 0&, 0&
End If
End Sub

[عــــلی]

دوستان نظر بدین تا بیشتر براتون بزارم.:40: :11:

[mazi_z_PSP]

بيشتر برامون بزار

[عــــلی]

[ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ]این برنامه چگونگی برنامه نویسی برای رجیستری ویندوز را نشان را می دهد , شما با یک نگاه به سورس این برنامه متوجه می شوید که چگونه عمل می کند . در ضمن علت اینکه من دیگه مثل گذشته توضیحی برای سورس برنامه نمی دهم این است که اصلاً وقت نمی شه , اگه باز هم احساس می کنید که در فهم سورس این برنامه مشکلی دارید برام ایمیل بزنید تا در اولین موقعیت برایتان توضیح دهم .
[ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ]

[ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ]دریافت برنامه ([ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ])
همچنین یه Help هم برای دانلود گذاشتم که شما را برای رسیدن به آدرس مورد نظر برای تغییر در رجیستری ویندوز کمک می کنه . این Help طبقه بندی شده است و بسیار کامل و خوب هست حتماً دانلود کنید .
[ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ]دریافت برنامه ([ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ])

[عــــلی]

خوب حالا یه پروژه جدید بسازین و در ضمن یک تصویر Bitmap با اندازه Pixel 10*10 هم آماده کنید تا در این پروژه ازش استفاه کنید. خوب روی فرمتون دوبار کلیک کنید و کد زیر رو تو قسمت Declaration وارد کنید:

Option Explicit

Private Declare Function GetMenu Lib "user32" (ByVal hwnd As Long) As Long

Private Declare Function GetSubMenu Lib "user32" (ByVal hMenu As Long, _
ByVal nPos As Long) As Long

Private Declare Function SetMenuItemBitmaps Lib "user32" _
(ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long, _
ByVal hBitmapUnchecked As Long, ByVal hBitmapChecked As Long) As Long

Private Declare Function LoadImage Lib "user32" Alias "LoadImageA" _
(ByVal hInst As Long, ByVal lpsz As String, ByVal un1 As Long, _
ByVal n1 As Long, ByVal n2 As Long, ByVal un2 As Long) As Long

' Constant for SetMenuItemBitmaps
Private Const MF_BYPOSITION = &H400&

' Constants for LoadImage
Private Const IMAGE_BITMAP = &O0
Private Const LR_LOADFROMFILE = 16
Private Const LR_CREATEDIBSECTION = 8192

خوب تو این قسمت ما چهار تا تابع API تعریف کردیم که اینجا کارشونو به طور مختصر شرح میدم:
GetMenu: از این تابع برای بدست آوردن یک Handle (HWND) از کل منوی فرم استفاده میشه.
GetSubMenu: از این تابع برای بدست آوردن hwnd یکی از منوها (مثلا منوی File یا منوی Edit) استفاده میشه.
SerMenuItemBitmap: خوب این تابع نقش اصلی رو بازی میکنه و برای قرار دادن تصویر Bitmap در کنار نام زیر منو استفاده میشه.
LoadImage: از این تابع برای Load کردن تصویر Bitmap درون حافظه استفاده میکنیم.

خوب حالا یه Command Button به پروژتون اضافه کنید و کد زیر رو توش وارد کنید (رو دکمه دوبار کلیک کنید و کد رو Paste کنید):

Dim hMenu As Long
Dim hSubMenu As Long
Dim hMenuImg As Long
Dim sFileName As String

' Get the bitmap.
sFileName = App.Path & "\MenuImg.bmp"
hMenuImg = LoadImage(0, sFileName, IMAGE_BITMAP, 0, 0, _
LR_LOADFROMFILE Or LR_CREATEDIBSECTION)
' Get the menu item handle.
hMenu = GetMenu(Me.hwnd)
hSubMenu = GetSubMenu(hMenu, 1)
' Set the "mnuTwo" bitmap to the one that is loaded in memory.
Call SetMenuItemBitmaps(hSubMenu, 0, MF_BYPOSITION, hMenuImg, 0)

خوب تو این قسمت اول سک متغیر برای hwnd کلی منو، یکی برای منو، و یک اشاره گر به تصویری که فراره تو حافظه Load شه و یک رشته برای مسیر فایل Bitmap تعریف کردیم. بعد مسیر فایل رو تعیین کردیم که من Bitmap خودمو تو مسیر پروژم (App.path) با نام MenuImg.bmp ذخیره کردم ولی شما میتونین اونو به مسیر فایل خودتون تغییر بدین. بعد توسط تابع LoadImage اونو Load کردیم. بعد از اون hwnd کلی منو و hwnd منوی شماره یک (مثلا اگه شما دو تا منو به ترتیب از چپ به راست File و Edit دارین شماره منوی File میشه 0 و شماره منوی Edit میشه 1 و بقیه هم به همین صورت) رو بدست آوردیم. در مرحله آخر تصویر Bitmap رو برای زیر منوی اول این منو set کردیم. (این هم از 0 شروع میشه یعنی شماره 0 به زیرمنوی اول اشاره میکنه). شما میتونین واسه بقیه منوها هم این کار رو بکنین فقط باید مسیر فایل و شماره منو و شماره زیر منو رو تغییر بدین.

[عــــلی]

سلام.

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

Private Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
lpBuffer یک بافر و nSize اندازه بافر
Dim sBuf As String * 255
Dim lLen As Long
lLen = GetWindowsDirectory(sBuf, 255)
MsgBox Left(sBuf, lLen)
به دست آوردن دایرکتوری سیستم:

Private Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
مثل قبلی
به دست آوردن دایرکتوری Temp:

Private Declare Function GetTempPath Lib "kernel32" Alias "GetTempPathA" (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long
nBufferLength طول بافر و lpBuffer هم یک بافر
Dim sBuf As String * 255
Dim lLen As Long
lLen = GetTempPath(255, sBuf)
MsgBox Left(sBuf, lLen)
البته این کارا رو با استفاده از FileSystemObject هم میشه انجام داد. برای این کار باید از متد GetSpecialFolder استفاده کنیم:

FileSystemObject.GetSpecialFolder(folderspec)

که folderspec دایرکتوری مورد نظر ما را مشخص می کند و مقادیر آن 0 برای دایرکتوری ویندوز، 1 برای دایرکتوری سیستم و 2 برای دایرکتوری موقت می باشد.
کد زیر دایرکتوری سیستم را به ما میدهد:

Dim oFSO As Object
Set oFSO = CreateObject("Scripting.FileSystemObject")
MsgBox oFSO.GetSpecialFolder(1)

[عــــلی]

چگونه ActiveX بسازیم؟


ActiveX چیست؟

مایکروسافت از نگارش 4 به بعد ویژوال بیسیک تکنولوژی جدیدی به نام ActiveX یا OCX به جای VBX در آن گنجاند که با استقبال خوبی روبرو شد. ActiveX ابزاری است که شما میتوانید با آن به برنامه خود شیئی را اضافه کنید که از قبل تعریف شده است و دارای توانیی هایی باشد که زبان برنامه نویسی شما قادر به انجام آن نیست. مثلاً پخش فایل صوتی با پسوند خاص (مثل:OGG) که زیبان بیسیک نمیتواند این کار را انجام دهد.
توجه:
تمامی مثال ها این مجموعه مربوط به ActiveX Windows Media Player است با نام MP1.


ActiveX شامل چیست:

يك ActiveX خوب و كارامد باید دارای امکانات زیر باشد:
Fuction یا دستور قابل اجرا:


MP1.Play
مشخص یا Property:


MP1.FileName
رویداد یا Event (مثلا هنگام کلیک برروی چیزی کدی اجرا شود که کاربر به آن می دهد):


MP1_Click
اینها تقریباً مهمترین اجرا هستند. اما می توان از اجزای دیگری مثل کلید عکس ویا حتی ActiveX دیگر در آن قرار داد.

شروع کار:
وارد محیط Visual Basic شوید و در کادر اولی که باز میشود گزینه ActiveX Control را از سربرگ New دابل کلیک کنید.
درصورتی که کادر بازنشد از کلیدهای Ctrl+N استفاده کنید.
یک ActiveX جدید ایجاد شده است.

مشخصات کنترلها (Properties):


مهمترین مشخصات یک ActiveX عبارتند از:
Name: نام کنترل در هنگام قرار دادن در برنامه. (معمولا به شکل Name1 میباشد).
Appearance: نوع نمایش آن که به دونوع سه بعدی و فلات قابل تنظیم است.
AutoRedraw: این قسمت مربوط به این است که اشکالی مثل مربع یا متن هایی که با فرمان Print نوشته یا ایجاد شده اند با خارج شدن آن قسمت از فرم ازبین برند یا نه. (True = از بین نروند)
BackColor: رنگ پس زمینه کنترل
BackStyle: نوع کنترل که به دونوع شفاف و کدر تقسیم میشود. در صورت شفاف بودن فقط آبجکتها نمایش داده میشوند و خودکنترل به صورت شفاف یا Transparent نمایش داده میشود.
CanGetFocus: قابلیت فکوس داشتن. یعنی یک آبجکت محسوب شود و بافشردن کلید Tab فوکوس بگیرد.
Font: فونت پیشفرض آبجکتها و کنترل
FontTransparent: شفافیت و زیبایی فونت
ForeColor: رنگ رو. مثل کاملاتی که با دستور Print نوشته میشوند.
Height: ارتفاع یا طول کنترل
InvisibleAtRuntime: این گزینه اگر True باشد در هنگام اجرا قابلیتهایی مثل Drag و Drop رو از دست میده.
KeyPreview : این گزینه به شما میگوید که وقتی کلیدی فشرده شد اول به فرم انتقال داده شود بعد به آبجکت.
MouseIcon: آیکن ماوس کنترل
MousePointer: نشانه گرد ماوس. مثل Hourglass که برابر است با 11
Picture: عکس پس زمینه کنترل
PropertyPage: فعال بودن با نبودن صفحاتی مثل Font و ...
Public: قابلیت قرار گرفتن روی فرم. (همیشه باید True باشد)
RightToLeft: طریقه نوشتن کنترل. مثلا در دستور Print متن از سمت راست کنترل نوشه میشود
ScaleMode: تعیین نوع واحد ها مثل تویپ پیکسل و ...
ToolboxPicture: عکسی که در هنگامی که در لیست کنترل ها قرار گیرد
Width: عرض و پهنای کنترل

اضافه کردن Function و Sub به ActiveX

فرق بین Function و Sub:

Sub و Function هر دو - بوسیله یک سری متغییر که از کاربر میگیرند – دستوراتی را انجام میدهند. با این تفاوت که Sub فقط انجام میدهد. اما Function علاوه بر آن که دستورات را انجام میدهد نقش متغیر را نیز دارد و به خود یک متغیر نسبت میدهد.
برای اضافه کردن Function به کنترل:
در قسمت General Declaration کد زیر را اضافه کنید:
Public Function FuncName(ByVal Var1 As String, ByVal Var2 As Integer) As String

End Function
به جاي FuncName نام Function را بنويسيد. به جاي Var1 و Var2 نام متغير دلخواه را تايپ کنید. برای اضافه کردن متغیر هایی دیگر مانند نمونه کد بالا عمل کنید.
در صورتی که متغیر اختیاری باشد و نسبت دادن به آن اجباری نباشد از نمونه زیر استفاده کنید.
Public Function FuncName(ByVal Optional Var1 As String = "Text", ByVal Var2 As Integer) _ As String

End Function
در نمونه بالا Var1 اختیاری است و در صورت وارد نکردن به Text تبدیل میشود.
در بین Public Function … و End Function میتوان دستورات را نوشت.
نمونه زیر از کاربر دو متغیر را میگیرد و سپس جمع آن دو را به خود نسبت میدهد.

Public Function Add(ByVal Number1 As String, ByVal Number2 As Integer) As Integer
Dim Addition As Integer
Addition = Number1 + Number2
Add = Addition
End Function
در اجرای این Function این چنین مینویسیم:
MsgBox UserControl1.Add(12, 11)
برای ایجاد یک Sub دقیقا مانند Function عمل میکنیم. با این تفاوت که دیگر بعد از بستن پرانتز آخر نمیتوان نوع متغیر را مشخص نمود. مانند:
Public Sub Add(ByVal Number1 As String, ByVal Number2 As Integer)
Dim Addition As Integer
Addition = Number1 + Number2
MsgBox Addition
End Sub
یک ترفند جالب
ممکن است شما بخواهید در قسمت Properties کنترل خود یک مورد با نام (About) نیز وجود داشته باشد. برای این کار:
1- از منوی Project گزینه Add Form را کلیک کرده و از کادر گزینه About Dialog را دابل کلیک کنید.

2- سپس به کنترل برگردید و یک Sub به آن اضافه کنید. مانند زیر


Public Sub ShowAboutBox ()


frmAbout.Show 1

End Sub
از منوی Tools گزینه Procedure Attributes را انتخاب کنید.
از قسمت Name گزینه ShowAboutBox را انتخاب نمایید.
گزینه Advanced >> را کلیک کنید.
از قسمت Procedure ID گزینه AboutBox را انتخاب کنید.
کلید OK را کلیک کنید.


اضافه کردن Property به ActiveX

برای اضافه کردن Property به کنترل دو راه وجود دارد.
راه اول:
در قسمت General Declaration کد زیر را اضافه کنید:
Public Text As String
اما این روش خوبی نیست. دلیلش رو باروش دوم میشه فهمید.

راه دوم:
این راه خیلی سخت تر از روش اول هست. از دو قسمت Get و Let و گاهی اوقات نیز از Set نیز دراین
تشکیل میشود.

در این نمونه یک Label برروی فرم موجود است که با این Property میتوان متن آن را تغییر داد.
ابتدا یک Label به کنترل اضافه کنید.
Get
نخست باید یک متغیر در General Declaration تعریف کرد.

Dim varText As String
بعد کد زیر را اضافه کنید.

Public Property Get Text() As String
Text = Label1.Caption
End Property
Property Get هنگامی اجرا میشود گه شما بخواهید مقدار مورد نظر (در اینجا Text) را بگیرید. مثلا:

MsgBox UserControl1.Text
Let
کد زیر را اضافه کنید.

Public Property Let Text(New_Text As String)
Label1.Caption = New_Text
PropertyChanged "Text"
End Property
Property Let هنگامي اجرا ميشوى كه شما بخواهيد مقدار مورد نظر (در اینجا Text) را تغییر دهید.
Propery Set نیز مانند Property Set میماند ام معمولا برای فونت ها به جای Let استفاده میشود.
اضافه کردن Event به کنترل
Event مجموعه دستوراتی هستند که کاربر آن ها را در هنگام اجرای برنامه تعریف میکند. اما زمان اجرای آن دست برنامه نویس است.
نمونه: در این نمونه یک Shape وجود دارد. یک Property رنگ نیز موجود است که با تغییر آن رنگ Shape نیز تغییر میکند. با تغییر رنگ Shape دستوراتی که کابر در هنگام اجرا میشود.

ایتدا یک Shape به کنترل اضافقه کنید و حالت BackStyle آن را به Opaque تغییر دهید.

اول یک رویداد در General Declaration با نام Change ایجاد میکنیم.

Public Event Change(OldColor As Long, NewColor As Long)
بعد یک متغیر برای رنگ تعریف می کنیم.

Dim varColor As Long
اکنون یک Property جدید با نام BackColor ایجاد میکنیم.

Public Property Get BackColor() As OLE_COLOR
BackColor = Shape1.BackColor
End Property
Public Property Let BackColor(New_BackColor As OLE_COLOR)
Dim S As Long
S = Shape1.BackColor
Shape1.BackColor = New_BackColor
RaiseEvent Change(S, New_BackColor)
PropertyChanged "BackColor"
End Property
فرمان RaiseEvent برای اجرای دستورات یک Event است که این فرامین را کاربر در هنگام Runtime تعریف میکند.

مشخصات متغیرها
برای تغییر مشخصات متغیرها از منوی Tools گزینه Procedure Attributes را انتخاب کنید.
از قسمت Name نام متغیر را انتخاب کنید و در قسمت Description توضیحی در مورد آن بنویسید.


ایجاد Type جدید

Type یا نوع چیزهایی هستند که کاربر را در انتخاب مقدار متغییرها در هنگام اجرای یک Sub و یا ... راهنمایی میکنند.
برای ایجاد یک Type جدید ابتدا در قسمت General Declaration کد زیر را تایپ کنید.

Public Type Color
Red As Long
Green As Long
Yellow As Long
Black As Long
White As Long
End Type
به جای Color میتوان نام مورد نظر را جایگزین کرد. در بین Private Type و End Type میتوان متغیر و نوع آن را مشخص کرد. ىر حال حاضر يك Type جدید ایجاد شده است.
اکنون باید متغیرها را مقداردهی کرد.

Const Red = 255

Const Green = 65280


Const Yellow = 65535


Const blcak = 0


Const White= 16777215
اضافه کردن Property Page
Property Page صفحاتي مانند فرم هستند که میتوان درون آن ها نیز آبجکت و ... قرار داد. برای اضافه کردن در پنجره Project در بالا سمت راست رو Project موردنظر کلیک راست کرده و از زیر مجموعه Add گزینه Property Page را انتخاب کنید.

از کادر بازشده Open را کلیک کنید.
پنجره Property خود را مانند زیر آرایش کنید:

سپس کد زیر را برای این صفحه وارد کنید:


Private Sub Combo1_Click()


Label1.FontName = Combo1.Text


End Sub





Private Sub PropertyPage_Initialize()


For i = 0 To Combo1.ListCount - 1


Combo1.RemoveItem 0


Next i


For i = 0 To Screen.FontCount - 1


Combo1.AddItem Screen.Fonts(i)


Next i


End Sub
از مشخصات کنترل گزینه PropertyPages را انتخاب كرده و گزینه PropertyPage1 را فعال نمایید و کلید OK را کلیک کنید.

اکنون هنگام اجرا در مشخصات کنترل برنامه خود گزینه ای بانام (Custom) وجود دارد که باکلیک کزدن برروی آن پنجره مورد نظر نمایش داده میشود.

[عــــلی]

Long, ByVal nIndex As Long) As Long
Private Declare Function SetClassLong Lib "user32" Alias "SetClassLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Const CS_DROPSHADOW = &H20000
Private Const GCL_STYLE = (-26)
Sub DropShadow(hwnd As Long)
SetClassLong hwnd, GCL_STYLE, GetClassLong(hwnd, GCL_STYLE) Or CS_DROPSHADOW
End Sub
Private Sub Form_Load()
DropShadow Form1.hwnd
End Sub


حالا اجرا کنید که شاید برای بعضی ها سایه نیفتاد که باید روی دسکتاپ راست کلیک کنید و گزینه Propetice رو انتخاب و در تب Apperance روی دکمه Effect کلیک کنید و گزینه show shadow under menu رو فعال کنید.

[AHMADUSE]

اقا واقعا دست مريزاد
اما
ايكاش همه اينها در vb.net بود

[winer3549]

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

نمیدونی چه شهر نویی شد !!!!!!!!!!!

[mehdibarghi]

آقا واقعاً دستتون درد نکنه !! عالیه ...

[301]

علی آقا دمت گرم، خیلی علی بود

بازم زار....

[Baby nfs]

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

[Oracle_Eldorado]

شماره :1
كنترل هاي توپ و بي نظير
سلام
يه سري كنترل هاي توپ رو تو اين تاپيك مي گذارم.
اولي يه كنترل Button بسيار زيبا است.
براي رجيستر كردن كنترل ابتدا فايل Install.bat را اجرا كنيد سپس با برنامه Light Register و با يوزر و پسوردي كه تو فايل Serial.txt است آن را رجيستر كنيد.
[ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ]
از اينجا دانلود كنيد:
[ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ] ([ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ]):5:


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

[ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ]


شماره :2
RE: كنترل هاي توپ و بي نظير

دومي يه CheckBox زيبا
براي رجيستر كردن كنترل ابتدا فايل Install.bat را اجرا كنيد سپس با برنامه Light Register و با يوزر و پسوردي كه تو فايل Serial.txt است آن را رجيستر كنيد.

[ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ]

از اينجا بگيريد
[ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ] ([ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ])


شماره : 3
RE: كنترل هاي توپ و بي نظير

بعدي كنترل ComboBox باحال
براي رجيستر كردن كنترل ابتدا فايل Install.bat را اجرا كنيد سپس با برنامه Light Register و با يوزر و پسوردي كه تو فايل Serial.txt است آن را رجيستر كنيد

[ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ]

از اينجا بگيريد
[ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ] ([ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ])


شماره : 8
RE: كنترل هاي توپ و بي نظير

اينم يه كنترل Frame توپ
براي رجيستر كردن كنترل ابتدا فايل Install.bat را اجرا كنيد سپس با برنامه Light Register و با يوزر و پسوردي كه تو فايل Serial.txt است آن را رجيستر كنيد

[ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ]

از اينجا بگيريد:
[ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ] ([ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ])

ببخشید میشه این لینک ها رو ویرایش کنید ؟
چون وقتی میخوام دانلود کنم ارور میده .
اگه توجه کرده باشید لینک ها کامل نیست .
مثلا آخری بعد از LightT 3 تا نقطه گذاشته یعنی طول نوشته بیشتره که این کمش کرده و نقطه گذاشته .
حالا میشه ویرایش کنید ؟

[MrJamshidy]

دوستان اینا که همه قدیمیه همه اینا رو تکنیک برتر تو مسائل جالب در Vb6 گذاشته

[MrJamshidy]

ویرایش شد یک اشتباه لپی

[دخی آسمونی]

دانلود نمیشههههههه

[پسراژدهاسوار]

دوست عزیز لینک اول اولت خرابه درست کنش