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

[sina26]

سورس فایل حرکت نوشته ها بر روی TextBox و فرم
سلام
دوستان سورس فایل حرکت نوشته ها بر روی TextBox و فرم تقدیمتان میگردد واقعا کاری جالب و قابل استفاده در پروژه هاتون میباشد که امیدوارم از استفاده آن بهره کافی رو ببرید

[sina26]

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

[EhsanAvr]

مجموعه 2100 پروژه ویژوال بیسیک در 18 قسمت.
http://ehsanavr.com/?p=454
http://ehsanavr.com/?p=471
http://ehsanavr.com/?p=473
http://ehsanavr.com/?p=476
http://ehsanavr.com/?p=479
http://ehsanavr.com/?p=482
http://ehsanavr.com/?p=484
http://ehsanavr.com/?p=487
http://ehsanavr.com/?p=489
http://ehsanavr.com/?p=491
http://ehsanavr.com/?p=494
http://ehsanavr.com/?p=497
http://ehsanavr.com/?p=500
http://ehsanavr.com/?p=502
http://ehsanavr.com/?p=504
http://ehsanavr.com/?p=505
http://ehsanavr.com/?p=507
http://ehsanavr.com/?p=509

[sina26]

سورس پروژه کامل مدیریت هتل
سلام
با تشکر از عزیزان سورس فایل تقدیمی سورس پروژه کامل مدیریت هتل میباشد که امیدوارم از استفاده اون لذت ببرید و نکات جالب آموزشی یاد بگیریم

دانلود

[daniyal_1363]

سلام

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

با این تکه کد میتونین یه عکس رو به صورت Strech یا غیر Strech توی یه صفحه مجزا نشون یدین البته
میدونم که شبیه این کد زیاد هستش ولی اگه خواسته باشین عکس رو به اندازه واقعی نشون بدین و اندازه ی عکس شما بیشتر از اندازه صفحه شما باشه 2 تا اسکرول بار عمودی و افقی اضافه میشه تا بتونین عکس رو اسکرول کنید

[M.T.P]

همینطور که همه میدونن متن داخل یه CommandButton بصورت پیش فرض در مرکزش قرار داره.
شاید برای بعضی ها پیش اومده باشه که بخوان متن داخل یک CommandButton موقعیتش رو تغییر بدن مثلا بالا ، پایین ، چپ ، راست ، پایین راست ، پایین چپ و ....
این کد میتونه موارد بالا رو برای شما انجام بده:(جایی که کد قرمز رنگ هست میتونین موقعیت رو عوض کنید.)
1. یک پروژه جدید باز کنید.
2. یک Command به فرم اضافه کنید.
3. کد زیر رو به فرم اضافه کنید.

 

Enum CmdTextPotion

A_CENTER = &H300&

A_TOP = &H400&

A_TOPLEFT = &H500&

A_TOPRIGHT = &H600&

A_BOTTOM = &H800&

A_BOTTOMLEFT = &H900&

A_BOTTOMRIGHT = &HA00&

A_LEFT = &H100&

A_RIGHT = &H200&

End Enum

Private Const GWL_STYLE& = (-16)

Private Declare Function GetWindowLong& Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long)

Private Declare Function SetWindowLong& Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long)

Private Sub Command1_Click()

Dim tmpValue&

Dim Align&

Dim ret&

fAlignment& = CmdTextPotion.A_BOTTOMRIGHT

tmpValue& = GetWindowLong&(Command1.hwnd, GWL_STYLE) And Not BS_RIGHT

ret& = SetWindowLong&(Command1.hwnd, GWL_STYLE, tmpValue& Or fAlignment&)

Command1.Refresh

End Sub

[Snoopboy]

همینطور که همه میدونن متن داخل یه CommandButton بصورت پیش فرض در مرکزش قرار داره.
شاید برای بعضی ها پیش اومده باشه که بخوان متن داخل یک CommandButton موقعیتش رو تغییر بدن مثلا بالا ، پایین ، چپ ، راست ، پایین راست ، پایین چپ و ....
این کد میتونه موارد بالا رو برای شما انجام بده:(جایی که کد قرمز رنگ هست میتونین موقعیت رو عوض کنید.)
1. یک پروژه جدید باز کنید.
2. یک Command به فرم اضافه کنید.
3. کد زیر رو به فرم اضافه کنید.

 

Enum CmdTextPotion

A_CENTER = &H300&

A_TOP = &H400&

A_TOPLEFT = &H500&

A_TOPRIGHT = &H600&

A_BOTTOM = &H800&

A_BOTTOMLEFT = &H900&

A_BOTTOMRIGHT = &HA00&

A_LEFT = &H100&

A_RIGHT = &H200&

End Enum

Private Const GWL_STYLE& = (-16)

Private Declare Function GetWindowLong& Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long)

Private Declare Function SetWindowLong& Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long)

Private Sub Command1_Click()

Dim tmpValue&

Dim Align&

Dim ret&

fAlignment& = CmdTextPotion.A_BOTTOMRIGHT

tmpValue& = GetWindowLong&(Command1.hwnd, GWL_STYLE) And Not BS_RIGHT

ret& = SetWindowLong&(Command1.hwnd, GWL_STYLE, tmpValue& Or fAlignment&)

Command1.Refresh

End Sub

ممنون خیلی آموزش خوبی بود . اگه ممکنه بگو چطوری رنگ متن داخل Command هم عوض کنیم

[M.T.P]

ممنون خیلی آموزش خوبی بود . اگه ممکنه بگو چطوری رنگ متن داخل Command هم عوض کنیم

تغییر رنگ Forecolor مربوط به CommandButton
http://vbnet.mvps.org/index.html?cod...ttoncolour.htm

[daniyal_1363]

سلام

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

با این تکه کد میتونین یه عکس رو به صورت Strech یا غیر Strech توی یه صفحه مجزا نشون یدین البته
میدونم که شبیه این کد زیاد هستش ولی اگه خواسته باشین عکس رو به اندازه واقعی نشون بدین و اندازه ی عکس شما بیشتر از اندازه صفحه شما باشه 2 تا اسکرول بار عمودی و افقی اضافه میشه تا بتونین عکس رو اسکرول کنید

این نمونه خیلی خیلی کامتره


1 - نمایش سایز واقعی عکس
2 - تغییر سایز عکس با تغییر فرم
3 - تغییر سایز به سایز اولیه
4 - در صورتی بزرگتر بودن سایز عکس از صفحه نمایش ، نمایش و امکان اسکرول کردن عکس

[aryasoft2872]

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

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

[aryasoft2872]

ایجاد Gradient :

دانلود

[aryasoft2872]

ساخت لوگو به طور نسبتا حرفه ای:

[aryasoft2872]

شیشه ای کردن تصاویر:

[Snoopboy]

Send Message & Get Handle & Press Button & ...

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




دانلود:

http://soda.parsaspace.com/MBT925/Learn-Sample/Manage%20Calculator.rar

خسته نباشید اگه ممکنه اینو یه جای دیگه آپلود کنید

[aryasoft2872]

نمونه ای جالب LED مانند:

[aryasoft2872]

این کد هم مال گرفتن حرکات جوی استیک (البته فقط شک رو نمی تونه فعال کنه)

[daniyal_1363]

سلام

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


خصوصیات:

1- از هیچ کامپونتی استفاده نمیشه

2 - به جای قسمت نمایش ( ستون پر شونده ProgressBar) میتونین هر شی رو که خاصیت Width داشته باشه بزارین (فکر کنین چه کارایی میشه کرد)

3 - با استفاده از اشیاء معمولی و یک یا دو فرمول ساده ریاضی برنامه ریزی شده که راحت قابل فهم و قابل تغییره

موفق باشین

[aryasoft2872]

یک فرم مناسب برای صفحه about:

[parselearn]

چند نمونه سورس براي قفل كردن پوشه ها
رمزگذاري پوشه
Lock Folder

(به هيچ كدومش نميشه اعتماد كرد)

[hoooooo]

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

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

ببین من یک کد بلدم یاد همه میدم برای کپی کردن فایله
filecopy c,f
به جای cمبدا و به جای f مقصد رو بنویسید
برای این که بفهمید برنامه کجا اجرا شده باید از کد زیر استفاده کنید
"app.path &"/"&app.exename &".exe
خوب بود اگه بدردتون خورد بدونین نمیدونم از کدوم انجمن این رو اوردم نویسنده اش هم
انشا الله حلالم کنه دعا کنین

[arash020]

1 . گذاشتن تصویر تو پس زمینه درایوها یا پوشه ها !

http://arash020.persiangig.com/other...BD%20%20X1.rar

2 .نقاشی به همراه -> قرینه سازی !

http://arash020.persiangig.com/other...20%20%20X1.rar

[hamid_shoja]

دانلود

[M.T.P]

شاید تا حالا برای شما هم پیش اومده باشه که بخواین داخل یک جعبه متن کلمه عبور وارد کنید.
اکثر این جعبه متن (مثل تصویر زیر) از پیش یک متن با عنوان های Inter password یا ... رو بصورت کم رنگ نشون میدن و به محض فکوس روی اونها آماده دریافت پسورد میشن.



این موضوع رو میتونین در برنامه زیر ببینید.
دانلود از Persiangig

[parselearn]

شاید تا حالا برای شما هم پیش اومده باشه که بخواین داخل یک جعبه متن کلمه عبور وارد کنید.
اکثر این جعبه متن (مثل تصویر زیر) از پیش یک متن با عنوان های Inter password یا ... رو بصورت کم رنگ نشون میدن و به محض فکوس روی اونها آماده دریافت پسورد میشن.



این موضوع رو میتونین در برنامه زیر ببینید.
دانلود

سورس دوستمون با كمي تغييرات

[Vernal23]

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

[M.T.P]

این برنامه آیکن های 32بیتی موجود در dll ها و فایل های اجرایی exe را نمایش میدهد.
توسط این برنامه میتونید از آیکن های زیبای ویندوز در برنامه تون استفاده کنید.
اگه از MessageBox های اختصاصی و ساخت خودتون استفاده میکنید و دوست دارید messageboxتون از آیکن های ویندوز استفاده کنه این بهترین راه ممکنه.(مزیت این کار اینه که اگه برنامه رو در ویندوزهای جدید مثل 7 اجرا کنید ، برنامه تون آیکن های جدیدتر رو میخونه و استفاده میکنه.



امیدوارم با توابع موجود در این برنامه بتونم تصاویر PNG رو هم تو PictureBox به نمایش دربیارم.(دارم روش کار میکنم.)

[M.T.P]

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



تقدیم به همه دوستان.
دانلود از سایت persiangig

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

[ali190]

سلام
دوست گرامی میشه لطف کنید و منظورتون رو از msgbox های سفارشی واضح تر بیان کنید؟
یعنی msgbox هایی که در قالب فرها درست میکنیم؟
یک سئ.ال دیگر هم داشتم
چطور میتونیم یک dll بسازیم و در اون آیکون های دلخواه خودمون رو قرار بدیم؟
فایل مربوط به برنامه دیشکنری هم دانلود نمیشه
ظاهراً لینک خرابه
ممنون از نمونه خوبی که قرار دادید

[arash020]

سلام

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

موفق باشید.

Eagle computer

[M.T.P]

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

برنامه زیر با استفاده از یک تابع به نام Gradient میتونه در فرم ها و کنترل PictureBox شیب رنگ تولید کرده و فرم شما رو زیباتر کنه.
حالت های شیب رنگ:
افقی و عمودی.

نحوه استفاده :
روی فرم راست کلیک و چپ کلیک کنید.

[كريممحمودی]

جناب m.t.p سلام خسته نباشید
بنده چند وقت است دنبال استفاده از بالن در اکسس هستم ولی متاسفانه به جایی راه پیدا نکردم چگونه می توانم از برنامه بالن در اکسس استفاده کنم
ممنون میشم

[mormorbaba]

كدهاي Module1:

 

Option Explicit

Public m_hDllKbdHook As Long       'public variable holding

                                   'the handle to the hook procedure

 

Public Const WH_KEYBOARD_LL As Long = 13 'enables monitoring of keyboard

                                    'input events about to be posted

                                    'in a thread input queue

 

Private Const HC_ACTION As Long = 0 'wParam and lParam parameters

                                    'contain information about a

                                    'keyboard message

Private Const LLKHF_UP As Long = &H80&     'test the transition-state flag

Public Type KeyboardBytes

   kbByte(0 To 255) As Byte

End Type

Private Type KBDLLHOOKSTRUCT

  vkCode As Long        'a virtual-key code in the range 1 to 254

  scanCode As Long      'hardware scan code for the key

  flags As Long         'specifies the extended-key flag,

                        'event-injected flag, context code,

                        'and transition-state flag

  time As Long          'time stamp for this message

  dwExtraInfo As Long   'extra info associated with the message

End Type

Public Declare Function SetWindowsHookEx Lib "user32" _

   Alias "SetWindowsHookExA" _

  (ByVal idHook As Long, _

   ByVal lpfn As Long, _

   ByVal hmod As Long, _

   ByVal dwThreadId As Long) As Long

 

Public Declare Function UnhookWindowsHookEx Lib "user32" _

  (ByVal hHook As Long) As Long

Public Declare Function CallNextHookEx Lib "user32" _

  (ByVal hHook As Long, _

   ByVal nCode As Long, _

   ByVal wParam As Long, _

   ByVal lParam As Long) As Long

 

Public Declare Sub CopyMemory Lib "kernel32" _

   Alias "RtlMoveMemory" _

  (pDest As Any, _

   pSource As Any, _

   ByVal cb As Long)

Public Declare Function GetKeyboardState Lib "user32" _

   (kbArray As KeyboardBytes) As Long

Public Declare Function GetKeyState Lib "user32" _

  (ByVal nVirtKey As Long) As Integer

 

Public Function LowLevelKeyboardProc(ByVal nCode As Long, _

                                     ByVal wParam As Long, _

                                     ByVal lParam As Long) As Long

   Dim kbdllhs As KBDLLHOOKSTRUCT

 

   If nCode = HC_ACTION Then

 

      Call CopyMemory(kbdllhs, ByVal lParam, Len(kbdllhs))

      If (kbdllhs.flags And LLKHF_UP) Then

 

       MsgBox (kbdllhs.vkCode)

 

 

      End If

 

   End If  'nCode = HC_ACTION

 

   LowLevelKeyboardProc = CallNextHookEx(m_hDllKbdHook, _

                                         nCode, _

                                         wParam, _

                                         lParam)

 

End Function

كد هاي داخل فرم اصلي

Option Explicit

Private Sub Form_Load()

 'set and obtain the handle to the keyboard hook

  m_hDllKbdHook = SetWindowsHookEx(WH_KEYBOARD_LL, _

                                  AddressOf LowLevelKeyboardProc, _

                                  App.hInstance, _

                                  0&)

  If m_hDllKbdHook = 0 Then
 

     MsgBox "Failed to install low-level keyboard hook."
 

  End If
 

End Sub
 

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)

  If m_hDllKbdHook <> 0 Then

     Call UnhookWindowsHookEx(m_hDllKbdHook)

  End If
 

End Sub

[M.T.P]

همه برنامه نویس های ویژوال بیسیک 6 میدونن که فونت های(قلم) کدنویسی که بتونه هم لاتین و هم فارسی رو ساپورت کنه در واقع از پیش چند تا بیشتر نیست.
1. Arial
2. Courier New
3. Times New Roman
بصورت پیش فرض تنها با یکی از سه فونت بالا که البته جلوی اسمشون عبارت Arabic هست میشه تو کد نویسی فارسی هم تایپ کرد.
فونت زیر فونت زیبای Segoe UI هست که حتما میشناسیدش و با ورود ویندوز ویستا و 7 جزء فونت پیش فرض تم ویندوز شد ، و دارای خصوصیت Arabic هست و میتونید حال و هوای محیط کدنویسیتون رو باهاش عوض کنید. البته ویندوز ویستا و 7 این فونت رو نصب شده دارن اما نمیشه تو کدنویسی باهاش فارسی تایپ کرد .
پیشنهاد من سایز 11 هست.
امیدوارم مورد استفاده دوستان قرار بگیره.

[arash020]

سلام

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

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

لینک دانلود

[mds_boy]

لطفا از فضای خود این سایت استفاده کنید برای آپلود فایل.
هیچ کدام از فایلها از سایت http://parsaspace.com دانلود نمیشوند.

[arash020]

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


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


با تشکر
Eagle computer

[sahand02]

با اين برنامه مي تونيد خيلي راحت آلبوم عكس داشته باشيد و اونها رو با موضوعات مختلف تو پايكاه داده ذخيره كنيد. از اين لينك بگيريدش :http://www.4shared.com/file/76507335...9/ImageDB.html

سلام اين لينكش مشكل داره لطفاً لينك ديگه اي بدين لازم دارم

[returnx]

این هم یک LED Table زیبا وجالب:
http://www.4shared.com/file/8TKW6Jl5/LEDTable.html

[akbarg64]

سلام.یه سورسی بود مربوط به یاهو.کارش این بود که پی ام میفرستاد به این صورت که وقتی Hi رو انتخاب میکردیم با شکلک ستاره Hi رو درست میکرد و میفرستاد یا با شکلک گل عکس قلب رو درست میکرد و واسه اون ادلیستی که مشخص کرده بودیم میفرستاد.آخرش همه نوشته میشد barnamenevis.org.هرچی گشتم تو سایت پیداش نکردم.ممنون میشم اگه کسی داره بزاره.

[aryasoft2872]

یک مثال برای کار با اسپریت ها و نیز چرخش شی با توجه به مکان موس: