بستن فایل اجرایی:
http://mbt925.googlepages.com/StopProcess.gif
دانلود
بستن پنجره:
دانلود
Printable View
بستن فایل اجرایی:
http://mbt925.googlepages.com/StopProcess.gif
دانلود
بستن پنجره:
دانلود
نقل قول از دوست عزیز AMIB
نقل قول:
دقیقترین و سریعترین تبدیل تاریخ شمسی برای VB تاریخ شمسی یکی از مهمترین مسائل مورد توجه برای برنامهنویسان ایرانی هست
کدهای مختلفی و کتابخانههای متفاوتی هم برای انجام تبدیلهای مورد نیاز توسعه پیدا کردن
که هر کدوم مشکلات و عدم دقتهای خاص خودشون رو دارن
کدی که در ادامه میتونید دریافت کنید
دقیقترین و سریعترین تبدیل هست که به راحتی و بدون نیاز به کتابخانههای جانبی میتونید توی برنامههای VB خودتون ازش استفاده کنید
استفاده و انتشار از این کد آزاد هست
به دلیل احترام به نویسندهی اصلی این کد که اون رو به صورت آزاد در اینترنت قرار داده بود
منم این تبدیل رو به صورت آزاد انتشار میدم
امیدوارم بتونه مشکلات برنامهنویسان رو به طور کامل از بین ببره
http://tinypic.info/files/yykmtp7smv90kopd31wp.gif
دانلود
رمز: AMIB
Create Text Border
این نمونه با استفاده از متد Point برای متن حاشیه ایجاد می کنه.
http://mbt925.googlepages.com/Create...pleScrShot.jpg
دانلود
How To Make Standard DLL
دانلود
Make IE Toolbar
ساخت ToolBar برای اینترنت اکسپلورر با وی بی یکم دشواره و به این راحتی نمونه ای براش گیر نمیاد.
دانلود
متاسفانه VB رویدادهایی مثل MouseIn و MouseOut نداره. اگه این دو رویداد رو داشت می تونستیم بفهمین که موس چه زمانی روی یک شی وارد میشه و چه زمانی خارج میشه.
با این تابع نوشته شده خیلی راحت شما به اون تابع اسم شی رو میدید و اونوقت هروقت موس روی اون شی رفت شما متوجه میشید و زمانی هم که خارج شد همینطور.
در واقع با این کد شما دو رویداد MouseIn و MouseOut برای VB می سازید.
مرتبط با تاپیک ------> رویداد MouseMove روی یک شکل نامنظم
موفق باشید/
كدي كه دوست عزيز xxxxx_xxxxx فرستادن رو وارد يه UserControl كردم و اينجا قرار ميدم. استفاده از اون خيلي راحته:قهقهه:
سلام دوستان
ابزاری که امروز آماده کردم یه DLL واقعا کاربردی که شاید گفت بیشتر برنامه نویس ها ازش استفاده می کنند .
این DLL که اسمش رو گذاشتم INIControl برای کار با فایلهای INI هست .
تا اونجایی که می شد کامل طراحی کردم بازهم اگر عیبی چیزی داشت بهم بگین تا رفع کنم .
در داخل فایل یه نمونه هم گذاشتم تا به خوبی شما دوستان بتونید از این ابزار استفاده کنید .
باتشکر احسان
سلام دوستان
فکر می کنم خیلی از دوستان تا به حال دنبال همچین ابزاری بودن که بتوانند با پروتکل یاهو هر کاری می خواهند رو انجام دهند .
این OCX که امروز می خوام بزارم تمام نیازهای اینگونه افراد رو برآورده می کند .
اسم این OCX هست YMSGProtcol .
فکر کنم خودتون دانلود کنید به قدرت این OCX پی می برید .
باتشکر احسان
Resource Viewer Dll-Exe
یک Resouce Viewer خیلی خوب و کامل
http://mbt925.googlepages.com/Resour...ExeScrShot.jpg
دانلود
سلام دوستان .
شاید بعضی وقت ها نیاز داشته باشین که وقتی کاربر در قسمت داخلی حاشیه اگر خواست فرم رو حرکت بده بشه .
برای این کار دو راه وجود دارد :
1) استفاده از کد نویسی .
2) استفاده از API .
برای استفاده از API شما باید کدهای زیر رو در داخل کد فرم بزارین و بقیه کار رو بدین دست API :قهقهه::قهقهه::قهقهه::قهقهه:
مزیت این کار این هست که کد نویسی نداره و شما بدونه این که حاشیه رو بگیرین می تونید فرم رو حرکت دهید .
Private Declare Function SendMessage _
Lib "User32" _
Alias "SendMessageA" (ByVal hWnd As Long, _
ByVal wMsg As Long, _
ByVal wParam As Long, _
lParam As Any) As Long
Private Declare Sub ReleaseCapture Lib "User32" ()
Const HTCAPTION = 2
Const WM_NCLBUTTONDOWN = &HA1
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim MValue As Long
If Button = 1 Then
Call ReleaseCapture
MValue = SendMessage(Me.hWnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&)
End If
End Sub
باتشکر احسان
سلام به همه
يك سري سورس كد داشتم كه گفتم شايد به دردتون بخوره
فقط چون همرو تست نكردم دقيقا نمي دونم بعضي هاش در چه موردي هست
ولي 90% ميشه از اسمش فهميد
قسمت اول سورس كد ها
ABOUTBOX
ATOMIC
Autoredo
BASEXP
BHELP
BTNDMO
Buttons
CGI_BAS
COWBOY
DAOCLASS
DATAWIZ
DIRCTRL
Draw
EASTER
EASYTP
ENCRYP
ESPIN
EZTIPS
Factors
FormFading
FTAB95
FUNCT-UP
GAMES1
JDSAVER
LRPAD
MCIHELP
METAGIFB
Minicom
MODULES
MouseStuff
MSGBXCLS
PARSED
PCLVBW10
PCLVBW11
PI
PicScrol
PICTAB
PIXEL10
POPUPF
PRINTF
حجم فايل 1 مگابايت --- زيپ شده
قسمت دوم سورس كدها
PRNTSTAT
PRTPREV
PrtPreview
RANDOM
RGBCOLOR
Scroll
SendMessage
ShellExecute
SLIDER
SORTCOLL
SPLTRCLS
SSORT
SSPW
StickMan
SYSCOLOR
TASK
TDSRC
TEXTOB
TH32
TOOLTIP
TRAY1
VB2DOC
VB_ICONS
VBABOUT
VBCNTX
VBCODE
VBDN
VBPrint
VBRASA
VBROTARY
VBTABDLG
Vbver32
VP3DBOX
WAVEPLAY
WindowStuff
XCOPY
XCopy&DTree
قسمت سوم سورس كدها
AddressBook
AlbumScreenSaver
AllinoneSearchEngine
ATOMIC
Audio Recorder 2.0
Barcode Generator 2.0
Calendar
Chat
Directory Mapper
DirectXMidiPlayer
Document Program
Easy HTML editor
EasyNotepad
EASYTP
FormFading
FULL TEXT WRITER
Geometry Calculator
FUNCT-UP
HTML Fader
HTML Text Editor
Label Print
MODULES
MP3 Player
MS Office Toolbar
Music Alarm
NetHero
Personal Phone Book
Remind Me
SendMessage
SerialNum
System Speed Test
WAVEPLAY
Web Browser 2000
Webpage Maker 2000
WindowStuff
این یک سری آموزش برای مبتدیان هستش
کسانی که تازه می خوان VB رو شروع کنن
به صورت ساعت به ساعت هست و کلا 19 ساعت هست
امیدوارم که استفاده کنید
حجم هر کدوم از 8 کیلوبایت بیشتر نیست راحت میشه دانلود کرد
توی فایل 18 Hour Learning
کل آموزش ها هست و بقیه به صورت تکی که کسی خواست بتونه تک تک دانلود کنه
متاسفانه اجازه ارسال 4 ضمیمه رو بیشتر ندارم
توی پستهای جدا می دم
قسمت اول - البته 5 تا ضمیمه می تونم داشته باشم
قسمت دوم آموزش
قسمت سوم آموزش
قسمت چهارم و آخر
دریافت اندازه طول وعرض نوار وظیفه (Taskbar) ویندوز.
Private Const ABM_GETTASKBARPOS = &H5
Private Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
Private Type APPBARDATA
cbSize As Long
hwnd As Long
uCallbackMessage As Long
uEdge As Long
rc As RECT
lParam As Long
End Type
Private Declare Function SHAppBarMessage Lib "shell32.dll" (ByVal dwMessage As Long, pData As APPBARDATA) As Long
Function GetTaskBarSize()
Dim ABD As APPBARDATA
SHAppBarMessage ABM_GETTASKBARPOS, ABD
MsgBox "Width:" & ABD.rc.Right - ABD.rc.Left
MsgBox " Height:" & ABD.rc.Bottom - ABD.rc.Top
End Sub
دوست عزیز تمام فایلهای Exe موجود در این 3 Package ویروسی هستن .
اینم یکی از فایلهای ویروسی :
ABOUTBOX\MYABOUT.exe
اینم نوع ویروس :
http://www.viruslist.com/en/search?VN=Virus.Win32.Virut.as&referer=kis
انجام چهار عمل اصلي (جمع، تفريق، ضرب و تقسيم) به صورت ساده و سريع براي اعداد بزرگ
https://barnamenevis.org/attach...1&d=1227038659
سلام هر تصویری رو میتونید برای بخش های مختلف این اسکرول ها بذارید. به درد برنامه نویسی با گرافیک بالا می خوره.
ارسال ايميل به وسيله پروتكل هاي SMTP
http://i38.tinypic.com/2v1ryux.gif
سورس آنتي ويروس Anti W32/Saldos
واقعا ويروس بي خود و مسخره اي :عصبانی++:
سورسش واسه يادگيري هم خيلي خوبه نكات خوبي توش داره
اين سورس يك برنامه خيلي حرفه اي هست - براي كساني كه مي خوان با Fire wal - Port و غيره كار كنن - يكي از قسمت هاي اين برنامه اينه كه شما به وسيله Firewall مي تونين يك پورت رو ببندين و اين خيلي كاربرد داره
http://i34.tinypic.com/23sj7nc.jpg
موفق باشيد
اينم سورس يك ديكشنري
هم آفلاين هم آنلاين
دانلود كنين حالشو ببرين :لبخند:
اول فايل Setup رو بگيرين نصب كنين بعد سورس رو اجرا كنين
(آقا من خواهش مي كنم حجم فايلهاي قابل آپلود رو زياد كنين - بابا 488 k واقعا كمه):ناراحت:
اين فايل Setup
http://depositfiles.com/files/g4laj46k9
اين هم سورس
http://depositfiles.com/files/hcibmtcag
موفق باشيد
این برنامه یه برنامه چت سرور و کلاینت هست.
البته خیلی جا داره که روش کار بشه.اما چون وقت نداشتم تا همینجا بیشتر نرفتم.
برنامه یه سرور داره و کلاینت.
کلاینت ها به سرور درخواست میدن و سرور اگه ظرفیت داشته باشه قبول میکنه و کلاینتها رو به هم متصل میکنه
برای کار با Winsock خیلی خوبه
دانلود نکنی از دست رفته.
ضمیمه 26333
خوب شاید برخی از شما نام نرم افزار Buddy Spy رو شنیده باشید , اگر هم نشنیده اید خوب من براتون می گم . کاربرد این برنامه برای Yahoo Messanger هست , مثلا شما می خواهید دیگران فکر کنند که شما WebCam دارید یا اینکه بفهمید یک شخص خاصی واقعاً invisible هست یا نه و اینکه شخص مورد نظر شما در Room های یاهو هست یانه و ..... . خوب این برنامه با ویژوال بیسیک نوشته شده و آقای Brandon Henricks لطف کردن و سورس این برنامه را بصورت Free و تحت GNU Licence عرضه کرده اند .
سلام اين يك نمونه برنامه افكت نمايش فروم و يا خروج از فرم مي باشد خيلي باحالهموفق باشيد
اينم يه برنامه نمايش فرم به صورت ليزري
اينم يه برنامه براي ري سايز كردن فرم و كنترلهاي درون آن به صورت خيلي جالب و كاربردي
سلام اينم XPFlexGrid هست خيلي جالبه برنامه داخل پوشه تست رو اجرا كنيد تا كاربردش رو ببينيد يه سري كنترل به صورت استايل ايكس پي هم همراهش هست .
به اين مي گن يه پوسته خيلي قشنگ و حرفه اي نگاه كنين اميدوارم شما هم خوشتون بياد.
اينم شبيه ساز Tab هاي مديا پلير قشنگ هستن
با اين برنامه مي تونيد خيلي راحت آلبوم عكس داشته باشيد و اونها رو با موضوعات مختلف تو پايكاه داده ذخيره كنيد. از اين لينك بگيريدش :http://www.4shared.com/file/76507335...9/ImageDB.html
نمايش فرم با يه افكت خيلي زيبا حتما خوشتون مياد البته اميدوارم حتما خوشتون بياد.
انشاء الله فردا سعيي مي كنم برنامه هاي بهتري را جهت استفاده دوستان بزارم . موفق باشيد
سلام و وقت بخيرخوب امروز هم با چند تا برنامه ادامه مي دم :اولين برنامه براي دوستاني هست كه مي خوام با كريستال ريپورت 10 كار كنن نمونه خوبي به نظرم مي تونه باشه براشون.---برنامه دوم هم يه كد براي كار كردن با progressbar هست - قشنگه و جالب ---برنامه سوم هم ارتباط با ديتابيش از طريق ADODB مثالي ابتدائي هست اميدوارم به دست دوستان بخوره
اينم هم يه پوسته زيبا مثل لينوكس كه با وي بي هست كار گرافيكي خوبي مي تونه باشه ---دومي هم يه مثال براي ارسال محتويات بانك اطلاعاتي اطلاعات به اكسل يا HTML يا فرمت CSV هست. --- سومي هم بازم يه ProgressBar هست به صورت دايره اي اينم تقديم به دوستان.
با سلام خدمت دوستان عزيز و ارجمندبرنامه اول : يك نمونه جهت نمايش اطلاعات هارد ديسك شما به صورت كامل .
برنامه دوم : شبه ساز اينترنت اكسپلور با محيطي زيبا .
برنامه سوم : رجيستر كردن كامپوننت هاي شما به صورت راحت و بي دردسر.
برنامه چهارم : يك ماشين حساب زيبا و قوي حتما ببينيد .
برنامه پنجم : نمايش كاراكتراهاي اسكي و Key code هر كاراكتر خيلي به درد مي خوره..
برنامه ششم : اين هم خط فرمان داس در وي بي اميدوارم به كارتون بياد.
دوستان عزيز نمي دونم اين تا حالا به مشكل انتقال بانك اطلاعاتي از DBF تحت داس به ويندوز و تبديل اون به بانكهاي اطلاعاتي تحت ويندوز برخورد كرديد يا نه با اجاز مدير بخش مي خوام از همين سايت برنامه نويس و قسمت بانكهاي اطلاتي فاكس پرو برنامه اي رو معرفي كنم كه كار جناب آقاي جواد حسيني مي بايد به نظرم خيلي كاربردي و حرفه اي طراحي شده و مي تونه كمك خوبي براي حل اين مشكل باشه البته برنامه ايشون با فاكس پرو نوشته شده اما بالاخره در تبديل اطلاعات از داس به ويندوز مي تونه كمك بسيار خوبي باشه كه با تنوع خوبي كه در فرمتهاي تبديلي داره مي تونه در مواقع لازم مورد استفاده همه قرار بگيره ضمن تشكر از حناب آقاي حسيني لينك اين برنامه رو مي زارم تا شما دوستان هم بتوننين سري بزنيد و خودتون با برنامه آشنا بشين. موفق باشين http://www.barnamenevis.org/sh...ad.php?t=41062
سلام - اين هم يك نمونه براي LOAD و UN LOAD فرم به صورت خيلي زيبا حتما دانلود كنيد.
Refresh System
دانلود
Delete كردن يك فولدر با همه زيرشاخه ها و فايل هاش
دوستان حتماً مي دونيد كه براي delete كردن يك فولدر ميشه از تابع API به نام RemoveDirectoryA استفاده كرد ولي به شرطي كه فولدر موردنظر خالي باشه.
حالا با اين چند دستور مي تونيم يك فولدر كه شامل فولدرها و فايل هاي ديگري هست حتي فايل هاي Read only و مخفي و سيستمي را delete كنيم.
توجه: Microsoft Scripting Runtime رو دربخش References فعال كنيد.
Private Function KillFolder(ByVal FullPath As String) As Boolean
On Error Resume Next
Dim oFso As New Scripting.FileSystemObject
If Right(FullPath, 1) = "\" Then FullPath = Left(FullPath, Len(FullPath) - 1)
If oFso.FolderExists(FullPath) Then
oFso.DeleteFolder FullPath, True
KillFolder = Err.Number = 0 And oFso.FolderExists(FullPath) = False
End If
End Function
سورس Registry Editor به زبان ویژوال بیسیک
پسورد : www.micro-tc.blogfa.com