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

[Mbt925]

FindOut See Last Line

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

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

[Mbt925]

2D Array Sample

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

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

دانلود

[Mbt925]

Internet Download File-Url - ProX

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

[aidin1386]

» نمایش فرم به صورت شیشه ای

[aidin1386]

» نمایش فرم ها با انیمیشن خاص

» تغییر شکل فرم به شکل یک ستاره

» قرار دادن یک دکمه روی نوار عنوان

» طراحی فرم های سوراخ دار

» طراحی فرمهایی به شکل بیضی

[aidin1386]

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

» شناسایی CD ROM در سیستم

» بررسی کردن وضعیت چراغ Caps Lock

» نمایشگر نوار کارکرد پردازنده

» بررسی کننده ظرفیت درایوها

» برنامه ای برای Hibernate کردن سیستم

» پنهان کردن درایوها از My Computer

» جابجا شدن حرکت نشانگر موس

» بستن برنامه ها با استفاده از عنوان آنها

» راه اندازی مجدد سیستم ( Restart )

» جستجوی سریع فایلها در سیستم

» خاموش کردن سیستم ( ShutDown )

» ضبط کردن صداهای پخش شده در ویندوز

» استخراج کردن مشخصات سیستم

» قرار دادن آیکون برنامه در کنار ساعت
» قرار دادن برنامه در Startup ویندوز
» استخراج اطلاعات Dialup های موجود در سیستم ( UserName و Password )

[aidin1386]

سورس کدهای به نوعی مرتبط با گرافیک سیستم :

» حرکت دادن آیکونهای موجود در دسکتاپ

» استخراج ابعاد تصویر بدون بار کردن آن

» عکس گرفتن از تصویر زمینه دسکتاپ

» اسکرین سیور شماره 1

» اسکرین سیور شماره 2

» اسکرین سیور شماره 3

» اسکرین سیور شماره 4

» شیشه ای کردن نوار وظیفه ( TaskBar )

» تغییر والپر ( WallPaper ) ویندوز

» بزرگنمایی تصویر همراه با اسکرول

[amirsajjadi]

آموزش کامل Sendkeys

[Mbt925]

Picture Analyze

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

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

دانلود

[Mbt925]

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

دانلود

[Mbt925]

FadeText Sample

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



دانلود

[Mbt925]

Register HotKey - MouseButton Sample

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



دانلود

[Mbt925]

Form ِDrop Shadow

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



دانلود

[Mbt925]

BackGround Picture for Transparent TextBox



دانلود

[Mbt925]

Process Gateway

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



دانلود

[Mbt925]

PaintPicture Sample



دانلود

[Mbt925]

Access Field Mapper

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




دانلود

[Mbt925]

Excel Chart

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



دانلود

[shaghaghi]

Dim strSQL as String

strSQL="Select * From Table1 Where code=12"

Dim rst As New ADODB.Recordset

rst.Open strSQL, "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\test.mdb",adOpenForwardOnly, adLockOptimistic

 

If Not rst.EOF Then

   Set DataReport1.DataSource = rst

   DataReport1.DataMember = rst.DataMember

   DataReport1.Show

End If

[Mbt925]

Avi Extractor

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



دانلود

[Mbt925]

AccessTextBox_By Label AccessKey

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

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



دانلود

[Mbt925]

Zoom text better than StretchBlt



دانلود

[majjjj]

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

 

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

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

 

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)

    If KeyCode = vbKeyEscape Then Unload Me

End Sub

 

Private Sub Form_Load()

    Dim lngDC As Long

    Dim intWidth As Integer, intHeight As Integer

    Dim intX As Integer, intY As Integer

 

    lngDC = GetDC(0)

 

    intWidth = Screen.Width / Screen.TwipsPerPixelX

    intHeight = Screen.Height / Screen.TwipsPerPixelY

 

    Form1.Width = intWidth * 15

    Form1.Height = intHeight * 15

 

    Call BitBlt(hdc, 0, 0, intWidth, intHeight, lngDC, 0, 0, vbSrcCopy)

    Form1.Visible = vbTrue

 

    Do

        intX = (intWidth - 128) * Rnd

        intY = (intHeight - 128) * Rnd

 

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

            vbSrcCopy)

 

        DoEvents

    Loop

End Sub

 

Private Sub Form_Unload(Cancel As Integer)

    Set Form1 = Nothing

    InvalidateRect 0&, 0&, False

    End

End Sub

 

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

[Mbt925]

Change Exe Icon

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



دانلود

[Mbt925]

Expression Analyzer

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



دانلود

[Mbt925]

Expression Analyzer 1.1.0

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

قابلیت ها :

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

[Mbt925]

ImageInfo Sample

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

[Mbt925]

Split & Merge Files

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



دانلود

[Mbt925]

The Matrix

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



دانلود

[Mbt925]

WaterText Effect

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



دانلود

[Mbt925]

Creatre Shortcut

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



دانلود

[Mbt925]

DVD Player

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

دانلود

[Mbt925]

vnAntivirus

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



دانلود

[vahid1369]

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

[sh2007]

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

[.:KeihanCPU:.]

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

اطلاعات کاملتری از هارد
HDDSerial.zip

کنترل پنل
پیشنهاد میکنم حتما دانلود کنید
ControlPanel.zip

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

رقص موس
Dancing_Mouse.zip

اطلاعات راجع به Bios
BiosInfo.zip

[.:KeihanCPU:.]

از اسمش مشخصه
SysMetrics.zip

Find Win32
FndWin32.zip

از اسمش مشخصه
MouseOverAnimation.zip

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

اینم از مدیریت ویندوز
WindowManager.zip

[.:KeihanCPU:.]

File manager
Association.zip

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

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

واسه اونایی که Paint میخوان بسازن
paint.zip

اطلاعات بسیار کامل از سیستم
Diag.zip

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

حرکت موس رو بر عکس میکنه
Inverse.zip

[.:KeihanCPU:.]

اینم یه انیمیشن برای فرمهای About Me
animatedAbout.rar

هر جا موس بره اسم پنجره رو برمیگردونه
Mouse_Move.zip

از اسمش که مشخصه
Hyperlink.zip

گرفتن سورس سایت بدون باز کردن سایت
WebCapture.zip

Key Logger در تمام پنجره ها
fVBKeyLog.zip

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

دیالوگ Find text,Replace

FindReplace.zip

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

CustOpen.zip

[Mbt925]

AMIB_MathTR

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

R = Abs(A) * 40

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

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