Printable View
FindOut See Last Line
یکی از دوستان یه سوال مطرح کرده بودن که برای فهمیدن اینکه کاربر تا آخر یه تکس باکس (که اسکرول بار داره) رفته و آخرین خط رو دیده باید چیکار کرد ؟
البته این که این کار دلیلی داره یا کاربردی داره دیگه بماند.
این نمونه یه روش برای این کار رو نشون میده :
2D Array Sample
این نمونه برای کار با آرایه ی 2 بعدی اه پویا هست.
توجه کنید که از کلمه ی کلیدی Preserve توی همه ی تغییر ابعاد نمی تونید استفاده کنید.
دانلود
Internet Download File-Url - ProX
این نمونه برای دانلود فایل هست که از یوزر و پسورد هم پشتیبانی می کنه.
سورس کدهای مربوط به کار با سیستم و ویندوز :
سورس کدهای به نوعی مرتبط با گرافیک سیستم :
Picture Analyze
یه نمونه ی ساده برای کار با تصویر
این نمونه حاشیه عکس رو حذف می کنه.
قادر به چرخش تصویر هم هست.
دانلود
http://mbt925.persiangig.com/Learn_S...pleScrShot.jpg
یه نمونه ی ساده برای کار به Printer (تعیین پرینتر پیش فرض) و ListView
دانلود
FadeText Sample
این نمونه ی ساده یه ترفند جالب اه برای افکت تدریجی متن.
بدرد ساختن About می خوره.
http://mbt925.persiangig.com/Learn_S...TextSample.bmp
دانلود
Register HotKey - MouseButton Sample
مونیتور کردن فشرده شدن ترکیب کلید های Shift,Ctrl,Alt و کلید های موس.
نمونه ی خیلی خوبی هست.
http://mbt925.parsaspace.com/VBCodeS...pleScrShot.png
دانلود
Form ِDrop Shadow
ایجاد سایه برای فرم
http://mbt925.parsaspace.com/VBCodeS...dowScrShot.jpg
دانلود
BackGround Picture for Transparent TextBox
http://mbt925.persiangig.com/Learn_S...BoxScrShot.jpg
دانلود
Process Gateway
یه نمونه ی خوب و کامل برای کار با پراسس ها.
یه سری ابزارهای سورس باز هم توش هست.
http://mbt925.persiangig.com/Learn_S...wayScrShot.jpg
دانلود
PaintPicture Sample
http://mbt925.persiangig.com/Learn_S...pleScrShot.jpg
دانلود
Access Field Mapper
از تصویر کارش مشخصه.
ولی یکی از کاربرد هاش در آوردن لیست جداول و فیلدهای دیتابیس اه.
http://mbt925.parsaspace.com/VBCodeS...perScrShot.jpg
دانلود
Excel Chart
خیلی دنباله نمونه ای می گردن که ارتباط با Excel و رسم نمودار از طریق کد رو توضیح بده.
http://mbt925.persiangig.com/Learn_S...artScrShot.jpg
دانلود
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
Avi Extractor
استخراج فریم ها از AVI
http://mbt925.parsaspace.com/VBCodeS...eExtractor.png
دانلود
AccessTextBox_By Label AccessKey
حتما تا حالا برای دکمه هاتون AccessKey قرار دادین. (Command1&) -> (Command)
با زدن Alt + c دکمه کلیک میشه.
یه ترفند ساده برای گذاشتن AccessKey برای تکس باکس :
http://mbt925.parsaspace.com/VBCodeS...KeyScrShot.png
دانلود
Zoom text better than StretchBlt
http://mbt925.parsaspace.com/VBCodeS...BltScrShot.png
دانلود
ذوب شدن فرم به شکل بستنی
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
ببخشید اگه تکراریه
Change Exe Icon
نمونه ای برای تغییر آیکون فایل های اجرایی. همون کاری که برنامه های ویرایش فایل های اجرایی انجام میدن.
http://mbt925.parsaspace.com/VBCodeS...gerScrShot.jpg
دانلود
Expression Analyzer
به علت درخواست زیاد دوستان برای برنامه ای که بتونه
رشته های ریاضی رو آنالیز کنه و اونا رو به عبارت پسوندی تبدیل و یا نتیجشو محاسبه کنه،
این dll رو آماده کردم.
استفاده ازش توی نمونه کاملا مشخصه و بسیار ساده است.
دانلود
Expression Analyzer 1.1.0
کمی فرصت پیدا شد، Dll قبلی رو کمی ارتقا دادم.
قابلیت ها :
تبدیل عبارت میانوندی به پیشوندی و پسوندی
پرانتبندی کردن عبارت ریاضی بر اساس اولویت ها
محاسبه نتیجه ی عبارت
ImageInfo Sample
بدست آوردن یه سری اطلاعات از تصاویر
مثل
حجم
اندازه
فرمت
Split & Merge Files
یه نمونه ی خیلی خوب و کامل برای قطعه قطعه کردن فایل ها و اتصال قطعه ها بهمه.
http://mbt925.googlepages.com/FragIt...rgeScrShot.jpg
دانلود
The Matrix
فکر کنم این نمونه خیلی طرفدار پیدا کنه ، چون واقعا زیباست.
http://mbt925.parsaspace.com/VBCodeS...rixScrShot.jpg
دانلود
WaterText Effect
این نمونه از ترفند جالبی برای ایجاد افکت بروی متن استفاده کرده.
http://mbt925.parsaspace.com/VBCodeS...ectScrShot.jpg
دانلود
Creatre Shortcut
ایجاد میانبر از همه چیز
http://mbt925.parsaspace.com/VBCodeS...cutScrShot.jpg
دانلود
DVD Player
اینم یه نمونه DVD Player .
دانلود
vnAntivirus
این نمونه رو برای دوست داران آنتی ویروس نویسی قرار دادم.
http://mbt925.persiangig.com/Learn_S...rusScrShot.gif
دانلود
Photo On Drive
اين هم يه سورس برنامه توپ كه مي تونه عكس دلخواه شما رو در پشت درايو ها بزاره
با استفاده از اين سورس شما مي توانيد شماره سريال هارد كامپيوتر يوز را بخوانيد و آنرا درون برنامه خود بكار ببريد و برنامه را در برابر كپي هاي غير مجاز جلوگيري كنيد
توسط این کد میتونید حافظه اشغال شده رو ببینید
ضمیمه 18884
اطلاعات کاملتری از هارد
ضمیمه 18885
کنترل پنل
پیشنهاد میکنم حتما دانلود کنید
ضمیمه 18887
اطلاعات کاملی از درایوها ,نوع آنها و ...
ضمیمه 18888
رقص موس
ضمیمه 18889
اطلاعات راجع به Bios
ضمیمه 18890
از اسمش مشخصه
ضمیمه 18891
Find Win32
ضمیمه 18892
از اسمش مشخصه
ضمیمه 18893
خیلی با حاله رقص آیکون های دسکتاپ
ضمیمه 18894
اینم از مدیریت ویندوز
ضمیمه 18895
File manager
ضمیمه 18896
نمیدونم چه اسمی براش انتخاب کنم!!!
ضمیمه 18897
اینم نمیدونم چی بهش باید گفت ,حرفه ای
ضمیمه 18899
واسه اونایی که Paint میخوان بسازن
ضمیمه 18900
اطلاعات بسیار کامل از سیستم
ضمیمه 18901
اینم برنامه داس در ویندوز
ضمیمه 18902
:قلب:حرکت موس رو بر عکس میکنه:قلب:
ضمیمه 18903
اینم یه انیمیشن برای فرمهای About Me
ضمیمه 18923
هر جا موس بره اسم پنجره رو برمیگردونه
ضمیمه 18924
از اسمش که مشخصه
ضمیمه 18925
گرفتن سورس سایت بدون باز کردن سایت
ضمیمه 18926
Key Logger در تمام پنجره ها
ضمیمه 18927
Hide ,Min, Max ,... کردن پنجره های ویندوزی
خیلی عالیه
ضمیمه 18931
دیالوگ Find text,Replace
ضمیمه 18932
باز کردن فایل Txt
ضمیمه 18933
AMIB_MathTR
یه سورس هست که با نوشتن یه فرمول ساده مثل فرمول زیر تصاویر متحرک زیبا با کمک ریاضی ایجاد کنید
R = Abs(A) * 40
هر فرمولی دوست داشتید به جای اون بنویسید تصاویر متحرک جذابی ایجاد میشه.
(کاری از دوست عزیز AMIB)