مسائل جالب در vb6(سورس کدهای جالب کامپوننت های جالب و....)

Printable View

نمايش 40 تاپيکها در يک صفحه

17-09-2008, 12:12
SMNsoft

به عکس های زیر توجه کنید . با دانلود این فایل و تغییر نام آن با نام فایل exe تم نرم افزار به تم ویندوز xp تبدیل می شود
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

شما باید فایل را دانلود کنید و نام آن را بجز .Manifest عوض کنید. یعنی اگر نام نرم افزار vb.exe است، باید فایلی که در شاخه نرم ازفزار قرار می گیرد این باشد : vb.exe.manifest توضیحات بیشتر در فایل وجود دارد. باز هم اگر مشکلی داشتید بپرسید

دانلود از لینک زیر

کد:

http://smnsoft.persiangig.com/xp_style.zip
02-11-2008, 23:21
تکنیک برتر

نقل قول:

سورس برنامه ای را می خوام که Logpff کند Shutdown را دارم ولی.....؟

کد:

http://taknikbartar.parsaspace.com/se.zip
18-01-2009, 17:09
kamranwolf

تبدیل تاریخ میلادی به
شمسی
اگر تاریخ رو اشتباه وارد کنین پیغام خطا میده
اگر تاریخ رو مختصر بنویسین براتون کاملش میکنه
تو گزارش گیری ها برای دیتا بیس خیلی کاربرد داره یه ماژول بسازین و فراخوانیش کنین.
email:kamran_wolf@yahoo.com

کد:

Global Msg(9) As String Global MonthName(11) As String Global WeekdayName(6) As String Global ToDayDateN As String Global ToDayDate As String Global Path As String Sub SetNumber(InText As String, SortText As String) Dim T1 As String Dim T2 As String Dim T3 As String If Trim(Str(Val(Trim(InText)))) = Trim(InText) Then If Len(InText) < 5 Then TextNumber = "ÇÔÊÈÇå" Else TextNumber = InText SortNumber = InText End If Else If Len(InText) < 6 Then TextNumber = "ÇÔÊÈÇå" Else T2 = Trim(Str(Val(Trim(InText)))) If Len(T2) = 2 Then T1 = Mid(InText, 3, 1) T3 = Mid(InText, 4, 3) ElseIf Len(T2) = 3 Then T1 = Mid(InText, 4, 1) T3 = T2 T2 = Mid(InText, 5, 2) End If If Trim(Str(Val(T2))) <> Trim(T2) Or Trim(Str(Val(T3))) <> Trim(T3) Then TextNumber = "ÇÔÊÈÇå" Else TextNumber = T3 & T1 & T2 SortNumber = T1 & T2 & T3 End If End If End If InText = TextNumber SortText = SortNumber End Sub Function CheckDate(InData As String) As String i1 = InStr(InData, "/") i2 = InStr(i1 + 1, InData, "/") If Val(InData) < 77 Or Val(Mid$(InData, i1 + 1)) > 12 Or Val(Mid$(InData, i1 + 1)) < 1 Or Val(Mid$(InData, i2 + 1)) > 31 Or Val(Mid$(InData, i2 + 1)) < 1 Then CheckDate = "ÇÔÊÈÇå" Else CheckDate = Trim(Str((1300 + Val(InData) Mod 100))) + "/" + Right$("00" + Trim(Str$(Val(Mid$(InData, i1 + 1, 2)))), 2) + "/" + Right$("00" + Trim(Str$(Val(Mid$(InData, i2 + 1, 2)))), 2) End If End Function Public Sub DateF(YerF As Integer, MontF As Integer, DayF As Integer, WeekDayF As Integer) EYear = Year(Date) EMonth = Month(Date) EDay = Day(Date) WeekDayF = Weekday(Date, vbSaturday) - 1 If EYear Mod 4 = 0 Then Kdat = 1: Kdat3 = 1 If (EYear - 1) Mod 4 = 0 And (EMonth * 100 + EDay) < 321 Then Kdat = 1: Kdat2 = 1: Kdat3 = 0 Roozf = 0 For i = 1 To EMonth - 1 Select Case i Case 1, 3, 5, 7, 8, 10, 12: Rang = 31 Case 2: Rang = 28 + Kdat3 Case 4, 6, 9, 11: Rang = 30 End Select Roozf = Roozf + Rang Next i Roozf = Roozf + EDay Roozf = Roozf - 79 If Roozf <= 0 Then Roozf = Roozf + 365 + Kdat2 If Roozf < 187 Then MonthDays = 31 DayF = Roozf - ((Roozf \ 31) * 31) Ldat = 1 If DayF = 0 Then DayF = 31: Ldat = 0 MontF = Roozf \ 31 + Ldat End If If Roozf > 186 Then Roozf = Roozf - 6 DayF = Roozf - ((Roozf \ 30) * 30) Ldat = 1 If DayF = 0 Then DayF = 30: Ldat = 0 MontF = Roozf \ 30 + Ldat If MontF < 12 Then MonthDays = 30 Else MonthDays = 29 + Kdat2 End If If (EMonth * 100 + EDay) > 320 - Kdat Then gdat = 621 Else gdat = 622 If DayF = 30 And MontF = 12 Then gdat = 22 YerF = EYear - gdat End Sub
03-04-2009, 16:50
M A X I M U M

[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] Multi-Alarm Clock
لينك دانلود :

نقل قول:

کد:

http://www11.brinkster.com/notbono/download.asp?txtFile=AlarmSrc.zip
03-04-2009, 16:51
M A X I M U M

[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] MasterMind the Classic Game
لينك دانلود :

نقل قول:

کد:

http://www11.brinkster.com/notbono/download.asp?txtFile=MasterMindSrc.zip
03-04-2009, 16:52
M A X I M U M

[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] Plasma Generator with Waterfall Chart
لينك دانلود :

نقل قول:

کد:

http://www11.brinkster.com/notbono/download.asp?txtFile=Plasma.zip
03-04-2009, 16:52
M A X I M U M

[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] Floodfill Sample
لينك دانلود :

نقل قول:

کد:

http://www11.brinkster.com/notbono/download.asp?txtFile=FloodFill.zip
03-04-2009, 16:53
M A X I M U M

[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] Browser Helper Object Typelib
لينك دانلود :

نقل قول:

کد:

http://www11.brinkster.com/notbono/download.asp?txtFile=vbBHO.zip
03-04-2009, 16:53
M A X I M U M

[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] Binary to String
لينك دانلود :

نقل قول:

کد:

http://www11.brinkster.com/notbono/download.asp?txtFile=BinToString.zip
03-04-2009, 16:54
M A X I M U M

[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] 3D Maze Creation
لينك دانلود :

نقل قول:

کد:

http://www11.brinkster.com/notbono/download.asp?txtFile=MazeCreator.zip
03-04-2009, 16:54
M A X I M U M

[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] Eight Puzzle/Fifteen Puzzle Solver
لينك دانلود :

نقل قول:

کد:

http://www11.brinkster.com/notbono/download.asp?txtFile=SlidingTile.zip
06-04-2009, 15:26
sajjadnajafi

لینک خراب است دوست من...

نقل قول:

نوشته شده توسط تکنیک برتر [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

لینک دانلود را اصلاح کن:41:
11-04-2009, 12:58
hamidl2ez4

سلام.. مرسی از فعالیت های خوبتون که واقعا بدرد می خوره..
من دنبال یه متد میگردم که باهاش بتونم فرم رو reload کنم یعنی کاری مثل ریلود کردن انجام بده که فرم رو ببنده و دوباره باز کنه..
میخوام ازش برای دکمه ی New توی بازی فکر و بکر استفاده کنم
الان برای دکمه ی New بازیم مجبورم 100 خط برنامه بنویسم تا تمام خصوصیت های کنترل ها رو که در حین بازی تغییر کرده بروز اول در بیاره.. اما اگر یه همچین متد یا تابعی پیدا کنم که فرم رو ریلود کنه دیگه نیازی نیست که اینهمه خط الکی نوشته بشه..
ممنون میشم اگر راهنماییم کنین..
بای
11-04-2009, 13:27
smart_boy

HelpVistaXPDiamond Enterprise Edition 2008

HelpVistaXPDiamond Enterprise Edition 2008

یک مجموعه اکتیو ایکس برای تمهای XP و Vista .

[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

سایت سازنده:

کد:

http://www.helpsofts.com/

دانلود:

کد:

http://www.helpsofts.com/Package/HelpVistaXPDiamond.exe

دانلود کیجن:

کد:

http://www.2shared.com/file/5311396/407f8cde/HelpVista_Aero_2008_KGN.html
11-04-2009, 15:11
ar.constantine

برنامه اي براي باز و بسته كردن cd-rom

با سلام
اين برنامه با استفاده از توابع API نوشته شده است.
كافيه كه كدهاي زير را وارد كنيد :

Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long

دستور را در يك Command_Button بگذاريد

دستور بستن cd-rom

Private Sub Close_Click()
mciSendString "Set CDAudio Door Closed Wait", 0&, 0&, 0&
End Sub

دستور را در يك Command_Button بگذاريد
دستور باز كردن cd-rom

Private Sub Open_Click()
mciSendString "Set CDAudio Door Open Wait", 0&, 0&, 0&
End Sub

ar.constantine@yahoo.com
12-04-2009, 19:41
MrJamshidy

نقل قول:

نوشته شده توسط ar.constantine [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

با سلام
اين برنامه با استفاده از توابع api نوشته شده است.
كافيه كه كدهاي زير را وارد كنيد :

private declare function mcisendstring lib "winmm.dll" alias "mcisendstringa" (byval lpstrcommand as string, byval lpstrreturnstring as string, byval ureturnlength as long, byval hwndcallback as long) as long

دستور را در يك command_button بگذاريد

دستور بستن cd-rom

private sub close_click()
mcisendstring "set cdaudio door closed wait", 0&, 0&, 0&
end sub

دستور را در يك command_button بگذاريد

دستور باز كردن cd-rom

private sub open_click()
mcisendstring "set cdaudio door open wait", 0&, 0&, 0&
end sub

ar.constantine@yahoo.com

ممنون فعالیتت خوبه اما معنی این جینگولک بازی ها رو نمیفهمم

نقل قول:

ar.constantine@yahoo.com
14-04-2009, 19:22
vahid78

نقل قول:

نوشته شده توسط smart_boy [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

helpvistaxpdiamond enterprise edition 2008

یک مجموعه اکتیو ایکس برای تمهای xp و vista .

سایت سازنده:

کد:

http://www.helpsofts.com/

دانلود:

کد:

http://www.helpsofts.com/package/helpvistaxpdiamond.exe

دانلود کیجن:

کد:

http://www.2shared.com/file/5311396/407f8cde/helpvista_aero_2008_kgn.html

سلام !
میشه یکم بیشتر توضیح بدین ؟!
با تشکر
14-04-2009, 19:42
vahid78

فکر کنم عکس گویا باشه !

[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

کد:

http://www.teebo.com/Downloads/Demos/OfficeMDITabsDemo.msi

[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

کد:

http://www.teebo.com/Downloads/Demos/tssBalloonTipDemo.msi
18-04-2009, 14:29
honda1388

سلام من يك برنامه ي بانك اطلاعاتي درست كردم حالا يك برنامه ي جستجو مي خواهم كه اماكن search مطالب را داشته باشه. ممنون
18-04-2009, 22:35
honda1388

با سلام

از مطالبتون استفاده كردم خيلي جالب بود.
25-04-2009, 14:36
ar.constantine

Hi

با سلام
اينم يه برنامه بسيار ساده ولي كاربردي!
اين برنامه توسط توابع API درب CD-ROM رو باز و بسته ميكنه :

اينم لينك دانلود :

[IMG]file:///C:/DOCUME%7E1/Alireza/LOCALS%7E1/Temp/moz-screenshot.jpg[/IMG]http://rapidshare.com/files/225540210/cdrom.rar.html

ar.constantine@yahoo.com
:5:
09-05-2009, 13:17
adib202

سوال در مورد تاریخ در نوار وضعیت status bar

سلام
می خواستم بدونم چطور میشه یه نوار وضعیت(status bar) تو صفحه ایجاد کنم که تاریخ و زمان و توش نشون بده؟؟؟؟:5:

تورو خدا کمکم کنید:20:
12-05-2009, 14:12
desertt

واقعا خسته نباشید بابت زحماتی که می کشید.......ولی من در دانلود کردن کنترل های بالا یه مشکلی دارم وقتی می خوام کنترل ها را دانلود کنم مرورگر یک صفحه دیگر رو باز میکنه صفحه روبرو (http://www.persiangig.net/home/?l=fa) ........لطفا کمکم کنید .....چکر کنما
30-06-2009, 16:17
hossien20

فرم بی رنگ سورسش چیه ؟
27-07-2009, 12:39
eimanpaladin

با سلام من از یک ocx و اکتیوس استفاده کردم حالا وقتی فالیو exe می کنم وروی یه سیستم دیگه اجرا می کنم اجرا نمیشه
با ید چیکار کنم که ocx و اکتیوسه رو بشناسه ؟؟؟؟ با تشکر
03-08-2009, 14:45
abol_fa

نقل قول:

با سلام من از یک ocx و اکتیوس استفاده کردم حالا وقتی فالیو exe می کنم وروی یه سیستم دیگه اجرا می کنم اجرا نمیشه
با ید چیکار کنم که ocx و اکتیوسه رو بشناسه ؟؟؟؟ با تشکر

شما برنامه رو که میبری باید ocxو اکتیوکس رو هم باش کپی کنی
27-08-2009, 13:52
mranger

POPUP Menu

سلام من سورس برنامه ای رو می خواستم که یه ایکن تو System try ایجاد کنه و از اون ایکن یه tooltip با نوشته دلخواه باز بشه و...
با راست کلیک روی ایکن در system try یه منو باز بشه ...
ممنون:5:
27-08-2009, 13:58
mranger

نقل قول:

نوشته شده توسط Дttractive ζ [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] 3D Maze Creation
لينك دانلود :

ببخشید ... :11: اگه میشه در مورد سورس هایی که میذارید یه توضیح مختصر هم بدید ...
ممنون
30-08-2009, 09:56
mranger

ببخشید .مثل اینکه این تاپیک تعطیل شده ...:41:سه روز هیچ خبری تو این تاپیک نیست !!! :13:
03-09-2009, 15:16
Samsam2010

سورس كار با ModuleوClassModule رو ميخواستم

با سلام من سورس كار با ModuleوClassModule رو ميخواستم
و نحوه استفاده اونها در برنامه ممنون
03-09-2009, 22:56
pcnewpinky

سلام

بی زحمت سورس آپدیت آنلاین رو برای ویژوال بیسیک 6 بذارین :11:
ممنون :20:
19-09-2009, 13:15
مصطفي آقايي

دست شما درد نکنه .
چقدر زحمت کشیدین.
20-09-2009, 02:26
Samsam2010

با سلام
اگه دعوام نکنن براتون میخوام سورس یه ویروس نفله :21: به اسم جومونگ 4 رو براتو بگذارم

کد:

http://www.persiangig.com/pages/download/?dl=http://vb6-source.persiangig.com/vb6/Virus%20Jumoong%204%20[Www.VB6-Source.Blogfa.Com]%20.zip

تذکر :
برید از این برنامه درست استفاده کنید خوب ، آفرین
دوستان اگه ویروسی شدید بگید براتون ضدش رو بسازم (البته وروسش زیاد خفن نیست)
20-09-2009, 02:38
Samsam2010

سورس ساخت PDF

با سلام
شما با این سورس میتونید خوروجی PDF داشته باشید

کد:

http://vb6-source.persiangig.com/vb6/Make%20pdf%28www.vb6-source.blogfa.com%29.zip
20-09-2009, 02:40
Samsam2010

دفترچه تلفن سورسی برای بانک اطلاعاتی

با سلام
سورسی برای بانک اتطلاعاتی سورس دفترچه تلفن

کد:

http://vb6-source.persiangig.com/vb6/telbook%28www.vb6-source.blogfa.com%29.zip
20-09-2009, 02:41
Samsam2010

سورس کد برنامه سریال نامبر

سلام دوستان !
اگه برنامه نویس هستید و می خواهید روی برنامه خودتون سریال نامبر بزارین تا موقع استفاده از برنامه

باید با شما تماس بگیرند

این برنامه که معرفی می کنم واقعا به دردتون می خوره

یه چیزه دیگه این برنامه در بیشتر سایت ها برای فروش می باشد اما ما به صورت رایگان در اختیار شما میزارم تا خود را به عنوان یه برنامه نویس خوب به حساب در بیایید

کد:

http://vb6-source.persiangig.com/vb6/Keygen%28www.vb6-source.blogfa.com%29.zip
20-09-2009, 02:43
Samsam2010

دانلود برنامه VB Library 1.9.150

سلام دوستان خسته نباشد !
یه برنامه توووووپ که برای کسانی می خواند برنامه نویس عالی بشند

این برنامه سورس رایگان برای برنامه نویسان گذاشته است

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

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

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

کد:

http://www.hightechtalks.com/vb-code-library/vb_library.zip
20-09-2009, 02:44
Samsam2010

دانلود برنامه VB Library 1.9.150

سلام دوستان خسته نباشد !
یه برنامه توووووپ که برای کسانی می خواند برنامه نویس عالی بشند

این برنامه سورس رایگان برای برنامه نویسان گذاشته است

[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
که می تونید عکس اون رو ببینید

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

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

کد:

http://www.hightechtalks.com/vb-code-library/vb_library.zip
20-09-2009, 02:47
Samsam2010

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

خوب یک برنامه توپ برای برنامه نویسان عالی که می خواهند برنامه خود رو بروز رسانی کنند

این برنامه فقط آدرس فایل دانلود می دهید بعد این فایل خودش دانلود رو انجام می ده

خوب این هم عکسی از برنامه !
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

کد:

http://vb6-source.persiangig.com/vb6/Download%28www.vb6-source.blogfa.zip
20-09-2009, 02:49
Samsam2010

سورس برنامه ساخت پسورد با امكانات زياد

سلام دوستان برنامه نويس اميدوارم حالتون خوب باشه !
امروز با يه برنامه خيلي خوب براي برنامه نويسان خوب اومدم

برنامه كه آوردم براي شما پسورد مي سازه اين برنامه به صورت ساده توضيح داده شده تا برنامه نويس به خوبي اين برنامه را درك كنه

شما مي تونيد اين عكس برنامه ببينيد !
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

کد:

http://vb6-source.persiangig.com/vb6/PassMaker%28www.vb6-source.blogfa.com%29.zip

نمايش 40 تاپيکها در يک صفحه