نقل قول از دوست عزیز AMIB
دقیقترین و سریعترین تبدیل تاریخ شمسی برای VB تاریخ شمسی یکی از مهمترین مسائل مورد توجه برای برنامهنویسان ایرانی هست
کدهای مختلفی و کتابخانههای متفاوتی هم برای انجام تبدیلهای مورد نیاز توسعه پیدا کردن
که هر کدوم مشکلات و عدم دقتهای خاص خودشون رو دارن
کدی که در ادامه میتونید دریافت کنید
دقیقترین و سریعترین تبدیل هست که به راحتی و بدون نیاز به کتابخانههای جانبی میتونید توی برنامههای VB خودتون ازش استفاده کنید
استفاده و انتشار از این کد آزاد هست
به دلیل احترام به نویسندهی اصلی این کد که اون رو به صورت آزاد در اینترنت قرار داده بود
منم این تبدیل رو به صورت آزاد انتشار میدم
امیدوارم بتونه مشکلات برنامهنویسان رو به طور کامل از بین ببره
دانلود
رمز: AMIB
متاسفانه VB رویدادهایی مثل MouseIn و MouseOut نداره. اگه این دو رویداد رو داشت می تونستیم بفهمین که موس چه زمانی روی یک شی وارد میشه و چه زمانی خارج میشه.
با این تابع نوشته شده خیلی راحت شما به اون تابع اسم شی رو میدید و اونوقت هروقت موس روی اون شی رفت شما متوجه میشید و زمانی هم که خارج شد همینطور.
در واقع با این کد شما دو رویداد MouseIn و MouseOut برای VB می سازید.
مرتبط با تاپیک ------> رویداد MouseMove روی یک شکل نامنظم
موفق باشید/
الگوریتم هایی که تاریخچه خود را فراموش می کنند، محکوم به تکرار آن هستند.
كدي كه دوست عزيز xxxxx_xxxxx فرستادن رو وارد يه UserControl كردم و اينجا قرار ميدم. استفاده از اون خيلي راحته
سلام دوستان
ابزاری که امروز آماده کردم یه DLL واقعا کاربردی که شاید گفت بیشتر برنامه نویس ها ازش استفاده می کنند .
این DLL که اسمش رو گذاشتم INIControl برای کار با فایلهای INI هست .
تا اونجایی که می شد کامل طراحی کردم بازهم اگر عیبی چیزی داشت بهم بگین تا رفع کنم .
در داخل فایل یه نمونه هم گذاشتم تا به خوبی شما دوستان بتونید از این ابزار استفاده کنید .
باتشکر احسان
سلام دوستان
فکر می کنم خیلی از دوستان تا به حال دنبال همچین ابزاری بودن که بتوانند با پروتکل یاهو هر کاری می خواهند رو انجام دهند .
این OCX که امروز می خوام بزارم تمام نیازهای اینگونه افراد رو برآورده می کند .
اسم این OCX هست YMSGProtcol .
فکر کنم خودتون دانلود کنید به قدرت این OCX پی می برید .
باتشکر احسان
سلام دوستان .
شاید بعضی وقت ها نیاز داشته باشین که وقتی کاربر در قسمت داخلی حاشیه اگر خواست فرم رو حرکت بده بشه .
برای این کار دو راه وجود دارد :
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
انجام چهار عمل اصلي (جمع، تفريق، ضرب و تقسيم) به صورت ساده و سريع براي اعداد بزرگ
https://barnamenevis.org/attach...1&d=1227038659
سلام هر تصویری رو میتونید برای بخش های مختلف این اسکرول ها بذارید. به درد برنامه نویسی با گرافیک بالا می خوره.
ارسال ايميل به وسيله پروتكل هاي SMTP
سورس آنتي ويروس Anti W32/Saldos
واقعا ويروس بي خود و مسخره اي
سورسش واسه يادگيري هم خيلي خوبه نكات خوبي توش داره
اين سورس يك برنامه خيلي حرفه اي هست - براي كساني كه مي خوان با Fire wal - Port و غيره كار كنن - يكي از قسمت هاي اين برنامه اينه كه شما به وسيله Firewall مي تونين يك پورت رو ببندين و اين خيلي كاربرد داره
موفق باشيد
آخرین ویرایش به وسیله Dr.Bronx : پنج شنبه 14 آذر 1387 در 17:39 عصر دلیل: ويرايش فايل ضميمه
اينم سورس يك ديكشنري
هم آفلاين هم آنلاين
دانلود كنين حالشو ببرين
اول فايل Setup رو بگيرين نصب كنين بعد سورس رو اجرا كنين
(آقا من خواهش مي كنم حجم فايلهاي قابل آپلود رو زياد كنين - بابا 488 k واقعا كمه)
اين فايل Setup
http://depositfiles.com/files/g4laj46k9
اين هم سورس
http://depositfiles.com/files/hcibmtcag
موفق باشيد
این برنامه یه برنامه چت سرور و کلاینت هست.
البته خیلی جا داره که روش کار بشه.اما چون وقت نداشتم تا همینجا بیشتر نرفتم.
برنامه یه سرور داره و کلاینت.
کلاینت ها به سرور درخواست میدن و سرور اگه ظرفیت داشته باشه قبول میکنه و کلاینتها رو به هم متصل میکنه
برای کار با Winsock خیلی خوبه
دانلود نکنی از دست رفته.
Server Centring.rar
خوب شاید برخی از شما نام نرم افزار Buddy Spy رو شنیده باشید , اگر هم نشنیده اید خوب من براتون می گم . کاربرد این برنامه برای Yahoo Messanger هست , مثلا شما می خواهید دیگران فکر کنند که شما WebCam دارید یا اینکه بفهمید یک شخص خاصی واقعاً invisible هست یا نه و اینکه شخص مورد نظر شما در Room های یاهو هست یانه و ..... . خوب این برنامه با ویژوال بیسیک نوشته شده و آقای Brandon Henricks لطف کردن و سورس این برنامه را بصورت Free و تحت GNU Licence عرضه کرده اند .
سلام اين يك نمونه برنامه افكت نمايش فروم و يا خروج از فرم مي باشد خيلي باحالهموفق باشيد
اينم يه برنامه نمايش فرم به صورت ليزري
آخرین ویرایش به وسیله Mbt925 : دوشنبه 02 دی 1387 در 09:45 صبح
اينم يه برنامه براي ري سايز كردن فرم و كنترلهاي درون آن به صورت خيلي جالب و كاربردي
سلام اينم XPFlexGrid هست خيلي جالبه برنامه داخل پوشه تست رو اجرا كنيد تا كاربردش رو ببينيد يه سري كنترل به صورت استايل ايكس پي هم همراهش هست .
به اين مي گن يه پوسته خيلي قشنگ و حرفه اي نگاه كنين اميدوارم شما هم خوشتون بياد.
اينم شبيه ساز Tab هاي مديا پلير قشنگ هستن
با اين برنامه مي تونيد خيلي راحت آلبوم عكس داشته باشيد و اونها رو با موضوعات مختلف تو پايكاه داده ذخيره كنيد. از اين لينك بگيريدش :http://www.4shared.com/file/76507335...9/ImageDB.html
نمايش فرم با يه افكت خيلي زيبا حتما خوشتون مياد البته اميدوارم حتما خوشتون بياد.
انشاء الله فردا سعيي مي كنم برنامه هاي بهتري را جهت استفاده دوستان بزارم . موفق باشيد
آخرین ویرایش به وسیله Mbt925 : یک شنبه 01 دی 1387 در 19:14 عصر
سلام و وقت بخيرخوب امروز هم با چند تا برنامه ادامه مي دم :اولين برنامه براي دوستاني هست كه مي خوام با كريستال ريپورت 10 كار كنن نمونه خوبي به نظرم مي تونه باشه براشون.---برنامه دوم هم يه كد براي كار كردن با progressbar هست - قشنگه و جالب ---برنامه سوم هم ارتباط با ديتابيش از طريق ADODB مثالي ابتدائي هست اميدوارم به دست دوستان بخوره
آخرین ویرایش به وسیله mhmoein : یک شنبه 01 دی 1387 در 19:44 عصر
اينم هم يه پوسته زيبا مثل لينوكس كه با وي بي هست كار گرافيكي خوبي مي تونه باشه ---دومي هم يه مثال براي ارسال محتويات بانك اطلاعاتي اطلاعات به اكسل يا HTML يا فرمت CSV هست. --- سومي هم بازم يه ProgressBar هست به صورت دايره اي اينم تقديم به دوستان.
آخرین ویرایش به وسیله mhmoein : یک شنبه 01 دی 1387 در 20:53 عصر
با سلام خدمت دوستان عزيز و ارجمندبرنامه اول : يك نمونه جهت نمايش اطلاعات هارد ديسك شما به صورت كامل .
برنامه دوم : شبه ساز اينترنت اكسپلور با محيطي زيبا .
برنامه سوم : رجيستر كردن كامپوننت هاي شما به صورت راحت و بي دردسر.
برنامه چهارم : يك ماشين حساب زيبا و قوي حتما ببينيد .
برنامه پنجم : نمايش كاراكتراهاي اسكي و Key code هر كاراكتر خيلي به درد مي خوره..
برنامه ششم : اين هم خط فرمان داس در وي بي اميدوارم به كارتون بياد.
دوستان عزيز نمي دونم اين تا حالا به مشكل انتقال بانك اطلاعاتي از DBF تحت داس به ويندوز و تبديل اون به بانكهاي اطلاعاتي تحت ويندوز برخورد كرديد يا نه با اجاز مدير بخش مي خوام از همين سايت برنامه نويس و قسمت بانكهاي اطلاتي فاكس پرو برنامه اي رو معرفي كنم كه كار جناب آقاي جواد حسيني مي بايد به نظرم خيلي كاربردي و حرفه اي طراحي شده و مي تونه كمك خوبي براي حل اين مشكل باشه البته برنامه ايشون با فاكس پرو نوشته شده اما بالاخره در تبديل اطلاعات از داس به ويندوز مي تونه كمك بسيار خوبي باشه كه با تنوع خوبي كه در فرمتهاي تبديلي داره مي تونه در مواقع لازم مورد استفاده همه قرار بگيره ضمن تشكر از حناب آقاي حسيني لينك اين برنامه رو مي زارم تا شما دوستان هم بتوننين سري بزنيد و خودتون با برنامه آشنا بشين. موفق باشين http://www.barnamenevis.org/sh...ad.php?t=41062
آخرین ویرایش به وسیله mhmoein : جمعه 06 دی 1387 در 15:43 عصر
سلام - اين هم يك نمونه براي LOAD و UN LOAD فرم به صورت خيلي زيبا حتما دانلود كنيد.
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
آخرین ویرایش به وسیله xxxxx_xxxxx : سه شنبه 24 دی 1387 در 23:24 عصر
الگوریتم هایی که تاریخچه خود را فراموش می کنند، محکوم به تکرار آن هستند.
سورس Registry Editor به زبان ویژوال بیسیک
پسورد : www.micro-tc.blogfa.com