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

[r0ot$harp]

سلام دوستان .


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

برای این کار دو راه وجود دارد :

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






باتشکر احسان

[Dr.Bronx]

سلام به همه
يك سري سورس كد داشتم كه گفتم شايد به دردتون بخوره
فقط چون همرو تست نكردم دقيقا نمي دونم بعضي هاش در چه موردي هست
ولي 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 مگابايت --- زيپ شده

[Dr.Bronx]

قسمت دوم سورس كدها

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

[Dr.Bronx]

قسمت سوم سورس كدها
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

[Dr.Bronx]

این یک سری آموزش برای مبتدیان هستش
کسانی که تازه می خوان VB رو شروع کنن
به صورت ساعت به ساعت هست و کلا 19 ساعت هست
امیدوارم که استفاده کنید
حجم هر کدوم از 8 کیلوبایت بیشتر نیست راحت میشه دانلود کرد
توی فایل 18 Hour Learning
کل آموزش ها هست و بقیه به صورت تکی که کسی خواست بتونه تک تک دانلود کنه
متاسفانه اجازه ارسال 4 ضمیمه رو بیشتر ندارم
توی پستهای جدا می دم

[Dr.Bronx]

قسمت اول - البته 5 تا ضمیمه می تونم داشته باشم

[Dr.Bronx]

قسمت دوم آموزش

[Dr.Bronx]

قسمت سوم آموزش

[Dr.Bronx]

قسمت چهارم و آخر

[vb2005]

دریافت اندازه طول وعرض نوار وظیفه (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

[r0ot$harp]

سلام به همه
يك سري سورس كد داشتم كه گفتم شايد به دردتون بخوره
فقط چون همرو تست نكردم دقيقا نمي دونم بعضي هاش در چه موردي هست
ولي 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

دوست عزیز تمام فایلهای Exe موجود در این 3 Package ویروسی هستن .

اینم یکی از فایلهای ویروسی :


ABOUTBOX\MYABOUT.exe

اینم نوع ویروس :


http://www.viruslist.com/en/search?VN=Virus.Win32.Virut.as&referer=kis

[VB.SOS]

انجام چهار عمل اصلي (جمع، تفريق، ضرب و تقسيم) به صورت ساده و سريع براي اعداد بزرگ
http://barnamenevis.org/forum/attachment.php?attachmentid=25611&d=1227038659

[f.nabavi]

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

[Dr.Bronx]

ارسال ايميل به وسيله پروتكل هاي SMTP

http://i38.tinypic.com/2v1ryux.gif

[Dr.Bronx]

سورس آنتي ويروس Anti W32/Saldos

واقعا ويروس بي خود و مسخره اي :عصبانی++:

سورسش واسه يادگيري هم خيلي خوبه نكات خوبي توش داره

[Dr.Bronx]

اين سورس يك برنامه خيلي حرفه اي هست - براي كساني كه مي خوان با Fire wal - Port و غيره كار كنن - يكي از قسمت هاي اين برنامه اينه كه شما به وسيله Firewall مي تونين يك پورت رو ببندين و اين خيلي كاربرد داره

http://i34.tinypic.com/23sj7nc.jpg

موفق باشيد

[Dr.Bronx]

اينم سورس يك ديكشنري
هم آفلاين هم آنلاين
دانلود كنين حالشو ببرين :لبخند:
اول فايل Setup رو بگيرين نصب كنين بعد سورس رو اجرا كنين

(آقا من خواهش مي كنم حجم فايلهاي قابل آپلود رو زياد كنين - بابا 488 k واقعا كمه):ناراحت:

اين فايل Setup
http://depositfiles.com/files/g4laj46k9
اين هم سورس
http://depositfiles.com/files/hcibmtcag

موفق باشيد

[.:KeihanCPU:.]

این برنامه یه برنامه چت سرور و کلاینت هست.
البته خیلی جا داره که روش کار بشه.اما چون وقت نداشتم تا همینجا بیشتر نرفتم.
برنامه یه سرور داره و کلاینت.
کلاینت ها به سرور درخواست میدن و سرور اگه ظرفیت داشته باشه قبول میکنه و کلاینتها رو به هم متصل میکنه
برای کار با Winsock خیلی خوبه
دانلود نکنی از دست رفته.
26333

[REZADG]

خوب شاید برخی از شما نام نرم افزار Buddy Spy رو شنیده باشید , اگر هم نشنیده اید خوب من براتون می گم . کاربرد این برنامه برای Yahoo Messanger هست , مثلا شما می خواهید دیگران فکر کنند که شما WebCam دارید یا اینکه بفهمید یک شخص خاصی واقعاً invisible هست یا نه و اینکه شخص مورد نظر شما در Room های یاهو هست یانه و ..... . خوب این برنامه با ویژوال بیسیک نوشته شده و آقای Brandon Henricks لطف کردن و سورس این برنامه را بصورت Free و تحت GNU Licence عرضه کرده اند .

http://matrix007.persiangig.com/image/Buddy.gif

http://matrix007.persiangig.com/image/download.gif (http://matrix007.persiangig.com/vb/BuddySpy%202.2.06%20Source.rar)دریافت Source برنامه (http://matrix007.persiangig.com/vb/BuddySpy%202.2.06%20Source.rar)

[mhmoein]

سلام اين يك نمونه برنامه افكت نمايش فروم و يا خروج از فرم مي باشد خيلي باحالهموفق باشيد

اينم يه برنامه نمايش فرم به صورت ليزري

[mhmoein]

اينم يه برنامه براي ري سايز كردن فرم و كنترلهاي درون آن به صورت خيلي جالب و كاربردي

سلام اينم XPFlexGrid هست خيلي جالبه برنامه داخل پوشه تست رو اجرا كنيد تا كاربردش رو ببينيد يه سري كنترل به صورت استايل ايكس پي هم همراهش هست .

به اين مي گن يه پوسته خيلي قشنگ و حرفه اي نگاه كنين اميدوارم شما هم خوشتون بياد.

اينم شبيه ساز Tab هاي مديا پلير قشنگ هستن

با اين برنامه مي تونيد خيلي راحت آلبوم عكس داشته باشيد و اونها رو با موضوعات مختلف تو پايكاه داده ذخيره كنيد. از اين لينك بگيريدش :http://www.4shared.com/file/76507335/acf40e49/ImageDB.html

نمايش فرم با يه افكت خيلي زيبا حتما خوشتون مياد البته اميدوارم حتما خوشتون بياد.

انشاء الله فردا سعيي مي كنم برنامه هاي بهتري را جهت استفاده دوستان بزارم . موفق باشيد

[mhmoein]

سلام و وقت بخيرخوب امروز هم با چند تا برنامه ادامه مي دم :اولين برنامه براي دوستاني هست كه مي خوام با كريستال ريپورت 10 كار كنن نمونه خوبي به نظرم مي تونه باشه براشون.---برنامه دوم هم يه كد براي كار كردن با progressbar هست - قشنگه و جالب ---برنامه سوم هم ارتباط با ديتابيش از طريق ADODB مثالي ابتدائي هست اميدوارم به دست دوستان بخوره

[mhmoein]

اينم هم يه پوسته زيبا مثل لينوكس كه با وي بي هست كار گرافيكي خوبي مي تونه باشه ---دومي هم يه مثال براي ارسال محتويات بانك اطلاعاتي اطلاعات به اكسل يا HTML يا فرمت CSV هست. --- سومي هم بازم يه ProgressBar هست به صورت دايره اي اينم تقديم به دوستان.

[mhmoein]

با سلام خدمت دوستان عزيز و ارجمندبرنامه اول : يك نمونه جهت نمايش اطلاعات هارد ديسك شما به صورت كامل .
برنامه دوم : شبه ساز اينترنت اكسپلور با محيطي زيبا .
برنامه سوم : رجيستر كردن كامپوننت هاي شما به صورت راحت و بي دردسر.

[mhmoein]

برنامه چهارم : يك ماشين حساب زيبا و قوي حتما ببينيد .
برنامه پنجم : نمايش كاراكتراهاي اسكي و Key code هر كاراكتر خيلي به درد مي خوره..
برنامه ششم : اين هم خط فرمان داس در وي بي اميدوارم به كارتون بياد.

[mhmoein]

دوستان عزيز نمي دونم اين تا حالا به مشكل انتقال بانك اطلاعاتي از DBF تحت داس به ويندوز و تبديل اون به بانكهاي اطلاعاتي تحت ويندوز برخورد كرديد يا نه با اجاز مدير بخش مي خوام از همين سايت برنامه نويس و قسمت بانكهاي اطلاتي فاكس پرو برنامه اي رو معرفي كنم كه كار جناب آقاي جواد حسيني مي بايد به نظرم خيلي كاربردي و حرفه اي طراحي شده و مي تونه كمك خوبي براي حل اين مشكل باشه البته برنامه ايشون با فاكس پرو نوشته شده اما بالاخره در تبديل اطلاعات از داس به ويندوز مي تونه كمك بسيار خوبي باشه كه با تنوع خوبي كه در فرمتهاي تبديلي داره مي تونه در مواقع لازم مورد استفاده همه قرار بگيره ضمن تشكر از حناب آقاي حسيني لينك اين برنامه رو مي زارم تا شما دوستان هم بتوننين سري بزنيد و خودتون با برنامه آشنا بشين. موفق باشين http://www.barnamenevis.org/forum/showthread.php?t=41062

[mhmoein]

سلام - اين هم يك نمونه براي LOAD و UN LOAD فرم به صورت خيلي زيبا حتما دانلود كنيد.

[Mbt925]

Refresh System

دانلود (http://s3.picofile.com/file/7411243010/RefreshSystem.rar.html)

[xxxxx_xxxxx]

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

[scarce]

سورس Registry Editor به زبان ویژوال بیسیک

پسورد : www.micro-tc.blogfa.com

[Faravahar]

اینکار خیلی آسونه. یک پروژه جدید باز کنید و تو فرمتون یک Command Button و یک TextBox بذارید و کد زیر رو تو قسمت جنرال فرمتون کپی کنید.


Private Declare Function tapiRequestMakeCall Lib "TAPI32.DLL" (ByVal Dest As String, ByVal AppName As String, ByVal CalledParty As String, ByVal Comment As String) As Long


Private Sub Command1_Click()
tapiRequestMakeCall Text1.Text, "", "", ""
End Sub

حالا برنامه رو اجرا کنید و تو TextBox شماره تلفن رو وارد کنید و کلید Command1 رو بزنید، میبینید که شماره گیری توسط خود ویندوز انجام میشه و احتیاجی نیست که شما کاری انجام بدید. موفق باشید.

[Faravahar]

پخش فایلهای MP3 از درون برنامه شما

یک پروژه جدید باز کنید و تو فرمتون یک TextBox و دو تا Command Button بزارید بعد از Command Button اول یک کپی بگیرید و Paste کنید تا آرایه ساخته بشه و بعد کد زیر رو تو قسمت جنرال فرمتون کپی کنید و برنامه رو اجرا کنید



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


Dim isPlaying As Boolean
Dim Mp3File As String


Private Sub Command1_Click(Index As Integer)
Mp3File = Chr$(34) + Trim(Text1.Text) + Chr$(34)
Select Case Index
Case 0
mciSendString "open " + Mp3File, 0&, 0&, 0&
mciSendString "play " + Mp3File, "", 0&, 0&
isPlaying = True
Case 1
mciSendString "close " + Mp3File, 0&, 0&, 0&
isPlaying = False
End Select
End Sub


Private Sub Command2_Click()
Unload Me
End Sub


Private Sub Form_Load()
Command1(0).Caption = "Start"
Command1(1).Caption = "Stop"
Command2.Caption = "Exit"
End Sub


Private Sub Form_Unload(Cancel As Integer)
If isPlaying = True Then
mciSendString "close " + Mp3File, 0&, 0&, 0&
End If
End Sub

حالا تو TextBox آدرس یک فایل MP3 رو وارد کنید و دکمه Start رو بزنید، موسیقی پخش میشه، به همین سادگی. لازم به ذکره که این کد بارها و بارها تست شده و هیچ گونه مشکلی نداره اگر کسی به مشکلی برخورد در قسمت نظرات مطرح کنه. سربلند باشید...

[Faravahar]

یک پروژه جدید باز کنید و توش یک Label بزارید و کدهای زیر رو تو قسمت جنرال فرمتون کپی کنید:



Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long


Private Sub Form_Load()
Label1.Caption = "www.barnamenevis.org"
End Sub


Private Sub Label1_Click()
Link Label1.Caption
End Sub


Public Function Link(ByVal URL As String) As Long
Link = ShellExecute(0&, vbNullString, URL, vbNullString, vbNullString, vbNormalFocus)
End Function

حالا برنامتون رو اجرا كنيد و روي Label كليك كنيد تا وارد سايت مربروطه بشه، به همين سادگي. سربلند باشید.

[Faravahar]

از اونجایی که اکثر برنامه نویس ها خوش سلیقه اند و اینکه به زیبایی محیط برنامه ای که می نویسند دقت دارن سوالات زیادی در مورد تغییرات روی فرم های برنامه پرسیده می شود.

شفاف سازی فرم:

این کار خیلی آسونه ، یک پروژه جدید باز کنید و تو قسمت جنرال فرمتون کدهای زیر رو کپی کنید.


Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hWnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long


Private Sub Command1_Click()
Dim Retval As Long
Retval = GetWindowLong(hWnd, -20)
Retval = Retval Or 524288
SetWindowLong hWnd, -20, Retval
SetLayeredWindowAttributes hWnd, 0, Val(Text1.Text), 2
End Sub


Private Sub Form_Load()
Text1.Text = 100
Command1_Click
End Sub


تو TextBox یک عدد از 0 تا 255 وارد کنید و کلید Command1 رو بزنید و شاهد شفاف شدن فرم باشید. شما همیشه سربلندید ... مگر نه؟

[Faravahar]

برای اینکار دو روش وجود داره؛ روش اول اینه که برنامه رو در پوشه Startup کپی کنیم که روش جالبی نیست چون کاربر میتونه به اون پوشه به و فایل رو پاک کنه و امّا روش دوّم (قابل توجّه ویروس نویسا) اینه که برنامه رو تو لیست برنامه های Startup در رجیستری ذخیره کنیم که روش مطمئن و بهتریه چون کاربر نمیدونه برنامه کجا قرار داره و از کجا اجرا میشه مگر اینکه از طریق رجیستری و یا برنامه System Configuration Utility (تایپ msconfig در Run ویندوز) متوجه مسیر برنامه بشه که خب خوشبختانه همه اینکارو بلد نیستن.

به ترتیب روش اول و بعد روش دوّم رو آموزش میدم. برای اجرای برنامه در Startup از طریق روش اول باید درایوی رو که ویندوز اونجا نصب شده و بدونید که من این کارو با توابع API انجام دادم. یک پروژه جدید باز کنید و کد زیر رو تو قسمت جنرال فرمتون کپی کنید :



Private Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long


Dim strSource As String, strDest As String


Private Sub Form_Load()
If App.PrevInstance = True Then End
strSource = App.Path & IIf(Len(App.Path) > 0, "\", Empty)
strSource = strSource & App.EXEName & ".exe"
strDest = WinDrive & "Documents and Settings\All Users\Start Menu\Programs\Startup\"
FileCopy strSource, strDest & App.EXEName & ".exe"
End Sub


Private Function WinDrive() As String
Dim strDrive As String
strDrive = Space(500)
A = GetWindowsDirectory(strDrive, Len(strDrive))
strDrive = Left(strDrive, 3)
WinDrive = strDrive
End Function



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

[Faravahar]

ولی روش دوّم، برای اینکار باید توابعی رو تعریف کنیم که با رجیستری سر و کار دارن و من این کارو برای راحتی شما انجام دادم. یک پروژه جدید باز کنید و کد زیر رو تو قسمت جنرال فرمتون کپی کنید :


Private Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Private Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpData As Any, ByVal cbData As Long) As Long
Private Declare Function RegDeleteValue Lib "advapi32.dll" Alias "RegDeleteValueA" (ByVal hKey As Long, ByVal lpValueName As String) As Long
Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
Private Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Private Const HKEY_LOCAL_MACHINE = &H80000002
Private Const REG_SZ = 1


Dim strAppPath As String


Private Sub Command1_Click()
AddToRun App.Title, strAppPath
End Sub


Private Sub Command2_Click()
RemoveFromRun App.Title
End Sub


Private Sub Form_Load()
Command1.Caption = "Add to Run"
Command2.Caption = "Remove from Run"
strAppPath = IIf(Len(App.Path) > 3, App.Path & "\", App.Path)
strAppPath = strAppPath & App.EXEName & ".exe"
End Sub


'---------------------------------------------


Private Sub AddToRun(ProgramName As String, FileToRun As String)
Call SaveString("Software\Microsoft\Windows\CurrentVersion\Run", ProgramName, FileToRun)
End Sub


Private Sub RemoveFromRun(ProgramName As String)
Call DeleteValue("Software\Microsoft\Windows\CurrentVersion\Run", ProgramName)
End Sub


Private Sub SaveString(strPath As String, strValue As String, strdata As String)
Dim keyhand As Long
Dim r As Long
r = RegCreateKey(HKEY_LOCAL_MACHINE, strPath, keyhand)
r = RegSetValueEx(keyhand, strValue, 0, REG_SZ, ByVal strdata, Len(strdata))
r = RegCloseKey(keyhand)
End Sub


Private Function DeleteValue(ByVal strPath As String, ByVal strValue As String)
Dim keyhand As Long
Dim r As Long
r = RegOpenKey(HKEY_LOCAL_MACHINE, strPath, keyhand)
r = RegDeleteValue(keyhand, strValue)
r = RegCloseKey(keyhand)
End Function



اگه برنامه اجرا بشه، مسیر فایل اجرایی برنامه در رجیستری ذخیره شده و در هر بار اجرای برنامه همراه برنامه های دیگه اجرا میشه. به همین سادگی. با سربلندی.

[Faravahar]

با این کار پنجره برنامه شما از همه پنجره ها سربلند تر می شه!

Always on top این اصطلاحیه که به اون میگیم . درسته!
خوب خیلی آسونه...
یک پروزه جدید باز کنید و کد زیر رو تو قسمت جنرال فرمتون کپی کنید :



Const HWND_TOPMOST = -1
Const HWND_NOTOPMOST = -2
Const SWP_NOSIZE = &H1
Const SWP_NOMOVE = &H2
Const SWP_NOACTIVATE = &H10
Const SWP_SHOWWINDOW = &H40
Private Declare Sub SetWindowPos Lib "User32" (ByVal hWnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long)


Private Sub SetTopMost(frm As Form, ByVal blnMod As Boolean)
If blnMod Then
SetWindowPos frm.hWnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOACTIVATE Or SWP_SHOWWINDOW Or SWP_NOMOVE Or SWP_NOSIZE
Else
SetWindowPos frm.hWnd, HWND_NOTOPMOST, 0, 0, 0, 0, SWP_NOACTIVATE Or SWP_SHOWWINDOW Or SWP_NOMOVE Or SWP_NOSIZE
End If
End Sub


Private Sub Check1_Click()
Call SetTopMost(Me, Check1.Value)
End Sub



با علامت دار کردن CheckBox فرم همیشه رو قرار میگیره و با برداشتن علامت فرم به حالت عادی برمیگرده. سبز و سربلند باشید.

[Faravahar]

این کار با تابع BlockInput انجام میشه و تمام ورودیهای کامپیوتر رو قفل میکنه. توجه داشته باشید که سیستم عامل هنگ نمیکنه و به کار خودش ادامه میده امّا شما نمیتونید هیچ کاری انجام بدید به جز Restart!

یک پروژه جدید باز کنید و کد زیر رو تو قسمت جنرال فرمتون کپی کنید :



Private Declare Function BlockInput Lib "user32" (ByVal fBlock As Long) As Long
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Private Sub Form_Load()
BlockInput True
Sleep 5000
BlockInput False
End Sub


به محض شروع برنامه، تمام وروردیها به مدّت 5 ثانیه قفل میشن و بعد از اون دوباره به حالت اول برمیگردن. در اینجا تابع Sleep فقط برای اتلاف وقت به کار رفته و استفاده دیگه ای نداره. سعی کنید با استفاده بجا و درست از این برنامه ، سربلندی خود را به همه اثبات کنید!

[Faravahar]

خوب اینم آسونه ...

این کد خیلی کاربردیه، حتماً به دردتون مبخوره. این کد باعث میشه که گوشه ها و قسمتهای اضافی فرم حذف بشه و فقط جاهایی که شما میخواید، قابل رویت باشه. مانند اسکین های Windows Media Player که بسیار زیباست.

یک پروژه جدید باز کنید و داخل فرمتون یک شئ Shape بذارید و کد زیر رو تو قسمت جنرال فرمتون کپی کنید :



Private Declare Function GetWindowLong Lib "User32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "User32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function SetLayeredWindowAttributes Lib "user32.dll" (ByVal hWnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long


Const LWA_COLORKEY = &H1
Const GWL_EXSTYLE = (-20)
Const WS_EX_LAYERED = &H80000
Const BM_SETSTATE = &HF3


Private Sub Form_Load()
Dim Ret As Long
Dim CLR As Long
Me.BackColor = RGB(1, 1, 1) ' تعیین رنگ پس زمینه فرم
CLR = Me.BackColor
Ret = GetWindowLong(Me.hWnd, GWL_EXSTYLE)
Ret = Ret Or WS_EX_LAYERED
SetWindowLong Me.hWnd, GWL_EXSTYLE, Ret
SetLayeredWindowAttributes Me.hWnd, CLR, 0, LWA_COLORKEY
End Sub



طرز کار : قسمتهای مشکی رنگ فرم رو حذف میکنه به همین سادگی حالا اگه بر حسب اتفاق شما مجبورید که از رنگ مشکی به عنوان پس زمینه فرمتون استفاده کنید باید در اون قسمتی که رنگ پس زمینه فرم تعیین میشه (به کد نگاه کنید) رنگ سفبد رو تعیین کنید یعنی Me.BackColor = RGB (255, 255, 255) به همین سادگی. در واقع این کد رنگی رو که شما تعیین میکنید رو از هر جای فرم حذف میکنه حتی اگه اون رنگ در وسط فرم باشه که در این صورت وسط فرم خالی میشه و هر چیزی که در پشت فرم قرار داره رو میشه از اون سوراخ دید. یک سربلندی دیگر.

[xxxxx_xxxxx]

اين روزها خيلي ها پرسيده بودند كه چطور ميشه محتويات يك فايل متني رو از يك سايت خواند.
يا چطور ميشه متوجه شد كه برنامه مون با توجه به فايل متني كه تو سايتمون قرار داديم نياز به آپديت داره يا نه. مثلاً براي مقايسه ورژن برنامه و ...

با اين روش شما مي تونيد محتويات يك فايل رو به اندازه دلخواه (تعداد بايت) از يك سايت بخوانيد.
نمونه زير براي خواندن 1000 بايت اول ايندكس سايت مايكروسافت هست.


Const INTERNET_OPEN_TYPE_DIRECT = 1
Const INTERNET_OPEN_TYPE_PROXY = 3
Const INTERNET_FLAG_RELOAD = &H80000000
Private Declare Function InternetOpen Lib "wininet" Alias "InternetOpenA" (ByVal sAgent As String, ByVal lAccessType As Long, ByVal sProxyName As String, ByVal sProxyBypass As String, ByVal lFlags As Long) As Long
Private Declare Function InternetCloseHandle Lib "wininet" (ByVal hInet As Long) As Integer
Private Declare Function InternetReadFile Lib "wininet" (ByVal hFile As Long, ByVal sBuffer As String, ByVal lNumBytesToRead As Long, lNumberOfBytesRead As Long) As Integer
Private Declare Function InternetOpenUrl Lib "wininet" Alias "InternetOpenUrlA" (ByVal hInternetSession As Long, ByVal lpszUrl As String, ByVal lpszHeaders As String, ByVal dwHeadersLength As Long, ByVal dwFlags As Long, ByVal dwContext As Long) As Long

Private Sub Form_Load()
Dim hOpen As Long, hFile As Long, sBuffer As String, Ret As Long
sBuffer = Space(1000)
hOpen = InternetOpen("XxxxX.100110", INTERNET_OPEN_TYPE_DIRECT, vbNullString, vbNullString, 0)
hFile = InternetOpenUrl(hOpen, "http://www.microsoft.com/index.htm", vbNullString, ByVal 0&, INTERNET_FLAG_RELOAD, ByVal 0&)
InternetReadFile hFile, sBuffer, 1000, Ret
InternetCloseHandle hFile
InternetCloseHandle hOpen
MsgBox sBuffer
End Sub
موفق باشيد/

[xxxxx_xxxxx]

نمايش پنجره Shutdown


Private Declare Function SHShutDownDialog Lib "shell32" Alias "#60" (ByVal YourGuess As Long) As Long
Private Sub Form_Load()
SHShutDownDialog 0
End Sub

[Faravahar]

میخوام پنجره های برنامه ای که تو VB6.0 نوشتم تم ایکس پی یا ویستا به خودشون بگیرن!
صبر کنید...
محیط ویژوال بیسیك 6.0، محیط ویندوز 98 هست یعنی ذاتش ماله 98 و ویندوزهای قدیمیه،
و نمیشه تو اون از ابزار های ایکس پی به همین راحتی استفاده کرد مگر با ocx های آماده که اونا هم پاسخ گوی تمامی قطعات برنامتون نیستند. انتظاری جز این نمیشه ازش داشت. ولی یه سوال:
آیا چیز غیر ممکنی هم برای برنامه نویسی مثل شما وجود دارد؟

این کار نه با توابع API و نه با کد نویسی ، امکان پذیر نیست، ولی با یه ترفند ساده عملیه...


لطفا" مراحل زیر رو مو به مو انجام بدید!

برنامه Notepad ویندوز رو اجرا کنید و کد زیر رو تو اون کپی کنید...



<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0">
<assemblyIdentity
version="1.0.0.0"
processorArchitecture="X86"
name="PROJECT NAME"
type="win32"
/>
<dependency>
<dependentAssembly>
<assemblyIdentity
type="win32"
name="Microsoft.Windows.Common-Controls"
version="6.0.0.0"
processorArchitecture="X86"
publicKeyToken="6595b64144ccf1df"
language="*"
/>
</dependentAssembly>
</dependency>
</assembly>


به جای PROJECT NAME که با حروف درشت نوشته شده نام برنامتونو بنویسید و اون رو با نام project1.exe.MANIFEST
کنار فایلی اجرائی که می خواید درست کنید ،ذخیره کنید ( توضیح اینکه در این نام گذاری به جای project1 نام برنامه ویژوال بیسیکی که نوشتید رو بذارید)


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




اول پروژه برنامتون رو باز كنید (.vbp). حالا از منوی Project گزینه Components… رو انتخاب كنید و Microsoft Windows Common Control 5.0 رو علامت بزنید تا به پروژتون اضافه بشه. حالا یكی از كنترلهای اونو مثلاً StatusBar و یا كنترل ProgressBar رو به فرمی كه در اول اجرای برنامه نمایش داده میشه اضافه كنید. مثلاً اگر برنامه شما با Splash Screen شروع میشه باید یكی از این كنترلها رو درون فرمتون قرار بدید (Progress Bar بهتره) ولی اگه برناتون تنها یك فرم داره (فرم اصلی) باید یكی از این كنترلها رو به همون فرم اضافه كنید. توجه داشته باشید كه اینكار ضروریه. بعد از اینكار از برنامتون یك فایل اجرایی بگیرید و دوباره فایلش رو اجرا كنید.

سبز باشید...

[Faravahar]

خیلی ساده :

با استفاده از کد زير در فرم اصلي برنامه تان مي توانيد از اجراي مجدد (Duplicate) برنامه جلوگيري کنيد


Private Sub Form_Load()
If App.PrevInstance = True Then
Dim Result As Integer
Result = MsgBox("برنامه در حال اجراست", vbInformation, "Warnnig")
Unload Me
End If
End Sub


تمام...

[Faravahar]

ابتدا بر روی فرم یک کادر تصویر قرار داده و مشخصه picture آن را مقدار دهی می کنیم .



Option Explicit

Private Sub Form_Load()
Picture1.Visible = False
End Sub

Private Sub Form_Paint()
Dim wid As Single
Dim hgt As Single
Dim X As Single
Dim Y As Single
wid = Picture1.ScaleWidth
hgt = Picture1.ScaleHeight
Y = 0
Do While Y < ScaleHeight
X = 0
Do While X < ScaleWidth
PaintPicture Picture1.Picture, X, Y, wid, hgt
X = X + wid
Loop
Y = Y + hgt
Loop
End Sub

[Faravahar]

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

برای مثال اگر شما مبلغ 120000 را وارد کردید برنامه برای شما چاپ کند :
صد و بیست هزار ریال.

يك پروژه جديد باز كنيد و دو TextBox و يك Module به برنامه اضافه كنيد و كد زير رو تو Module كپي كنيد :



Const strHezar = " هزار"
Const strMilion = " ميليون"
Const strMiliyard = " ميليارد"
Const strTrilion = " تريليون"
Const strTriliyard = " تريليارد"
Const strBilion = " بيليون"
Const strBiliyard = " بيليارد"
Const va = " و "

Public Function Horoof(ByVal strAdad As String) As String
strHoroofAshar = Array("", " دهم", " صدم", " هزام", " ده هزارم", " صد هزارم", " ميليونم", " ده ميليونم", " صد ميليونم", " ميلياردم", " ده ميلياردم", " صد ميلياردم", " تريليونم", " ده تريليونم", " صد تريليونم", " تريلياردم", " ده تريلياردم", " صد تريلياردم", " بيليونم", " ده بيليونم", " صد بيليونم", " بيلياردم", " ده بيلياردم", " صد بيلياردم")
intAshar = InStr(strAdad, ".")
intTedadAshar = Len(strAdad) – intAshar
Dim strAns As String, strLeft As String, strRight As String
If intAshar > 0 Then
strLeft = Tabdil(Left(strAdad, intAshar - 1))
strRight = Tabdil(Right(strAdad, Len(strAdad) - intAshar))
strAns = IIf(Val(Left(strAdad, intAshar - 1)) = 0, "", strLeft & " مميز ") & strRight
If intTedadAshar <22>= 4 Then
intS = Val(Right(strAadad, 3)) ' sadgan
intH = Val(Left(Right(strAadad, 6), Len(Right(strAadad, 6)) - 3)) ' hezargan
End If
If intLen >= 7 Then intM1 = Val(Left(Right(strAadad, 9), Len(Right(strAadad, 9)) - 6)) ' miliongan
If intLen >= 10 Then intM2 = Val(Left(Right(strAadad, 12), Len(Right(strAadad, 12)) - 9)) ' miliyardgan
If intLen >= 13 Then intT1 = Val(Left(Right(strAadad, 15), Len(Right(strAadad, 15)) - 12)) ' triliongan
If intLen >= 16 Then intT2 = Val(Left(Right(strAadad, 18), Len(Right(strAadad, 18)) - 15)) ' triliyardgan
If intLen >= 19 Then intB1 = Val(Left(Right(strAadad, 21), Len(Right(strAadad, 21)) - 18)) ' bilion
If intLen >= 22 Then intB2 = Val(Left(Right(strAadad, 24), Len(Right(strAadad, 24)) - 21)) ' biliyard
Select Case intLen
Case 1 To 3 'Sadgan
strHoroof = Tabdil_3Ragham(strAadad)
Case 4 To 6 ' Hezargn
strHoroof = Tabdil_3Ragham(intH) & strHezar & IIf(strAadad Mod 1000 = 0, "", va & (Tabdil_3Ragham(strAadad Mod 1000)))
Case 7 To 9 ' Miliongan
strHoroof = Tabdil_3Ragham(intM1) & strMilion & IIf(intH = 0, "", va & Tabdil_3Ragham(intH) & strHezar) & IIf(intS = 0, "", va & Tabdil_3Ragham(intS))
Case 10 To 12 ' Miliyardgan
strHoroof = Tabdil_3Ragham(intM2) & strMiliyard & IIf(intM1 = 0, "", va & Tabdil_3Ragham(intM1) & strMilion) & IIf(intH = 0, "", va & Tabdil_3Ragham(intH) & strHezar) & IIf(intS = 0, "", va & Tabdil_3Ragham(intS))
Case 13 To 15 ' Triliongan
strHoroof = Tabdil_3Ragham(intT1) & strTrilion & IIf(intM2 = 0, "", va & Tabdil_3Ragham(intM2) & strMiliyard) & IIf(intM1 = 0, "", va & Tabdil_3Ragham(intM1) & strMilion) & IIf(intH = 0, "", va & Tabdil_3Ragham(intH) & strHezar) & IIf(intS = 0, "", va & Tabdil_3Ragham(intS))
Case 16 To 18 ' Triliyardgan
strHoroof = Tabdil_3Ragham(intT2) & strTriliyard & IIf(intT1 = 0, "", va & Tabdil_3Ragham(intT1) & strTrilion) & IIf(intM2 = 0, "", va & Tabdil_3Ragham(intM2) & strMiliyard) & IIf(intM1 = 0, "", va & Tabdil_3Ragham(intM1) & strMilion) & IIf(intH = 0, "", va & Tabdil_3Ragham(intH) & strHezar) & IIf(intS = 0, "", va & Tabdil_3Ragham(intS))
Case 19 To 21 ' Bilion
strHoroof = Tabdil_3Ragham(intB1) & strBilion & IIf(intT2 = 0, "", va & Tabdil_3Ragham(intT2) & strTriliyard) & IIf(intT1 = 0, "", va & Tabdil_3Ragham(intT1) & strTrilion) & IIf(intM2 = 0, "", va & Tabdil_3Ragham(intM2) & strMiliyard) & IIf(intM1 = 0, "", va & Tabdil_3Ragham(intM1) & strMilion) & IIf(intH = 0, "", va & Tabdil_3Ragham(intH) & strHezar) & IIf(intS = 0, "", va & Tabdil_3Ragham(intS))
Case 22 To 24 ' Biliyard
strHoroof = Tabdil_3Ragham(intB2) & strBiliyard & IIf(intB1 = 0, "", va & Tabdil_3Ragham(intB1) & strBilion) & IIf(intT2 = 0, "", va & Tabdil_3Ragham(intT2) & strTriliyard) & IIf(intT1 = 0, "", va & Tabdil_3Ragham(intT1) & strTrilion) & IIf(intM2 = 0, "", va & Tabdil_3Ragham(intM2) & strMiliyard) & IIf(intM1 = 0, "", va & Tabdil_3Ragham(intM1) & strMilion) & IIf(intH = 0, "", va & Tabdil_3Ragham(intH) & strHezar) & IIf(intS = 0, "", va & Tabdil_3Ragham(intS))
Case Is > 24
strHoroof = "عدد بزرگتر از محدوده بيليارد است"
End Select
Tabdil = strHoroof
End Function

Private Function Tabdil_3Ragham(ByVal intAdad As Integer) As String
strYekan = Array("صفر", "يک", "دو", "سه", "چهار", "پنج", "شش", "هفت", "هشت", "نه", "ده", "يازده", "دوازده", "سيزده", "چهارده", "پانزده", "شانزده", "هفده", "هجده", "نوزده")
strDahgan = Array("", "ده", "بيست", "سي", "چهل", "پنجاه", "شصت", "هفتاد", "هشتاد", "نود")
strSadgan = Array("", "يکصد", "دويست", "سيصد", "چهارصد", "پانصد", "ششصد", "هفتصد", "هشتصد", "نهصد")
intY = intAdad Mod 10
intD = (intAdad Mod 100) \ 10
intS = intAdad \ 100
If intD <2> 0 And intD = 0 And intY = 0) Then strHoroof = strSadgan(intS)
Else
strHoroof = IIf(intS = 0, "", strSadgan(intS) & va) & strDahgan(intD) & IIf(intY = 0, "", va & strYekan(intY))
End If
Tabdil_3Ragham = strHoroof
End Function


حالا كد زير رو تو قسمت جنرال فرمتون كپي كنيد :



Private Sub Text1_Change()
Text2.Text = Horoof(Text1.Text)
End Sub


حالا برنامه رو اجرا كنيد. سبز باشید.

[vbhamed]

سلام

آموزش ساخت برنامه هاي چند زبانه به همراه نمونه 4 زبانه

http://www.barnamenevis.org/forum/showthread.php?t=149590

[caesarapp]

OpenFolder

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

دانلود (http://soda.parsaspace.com/MBT925/Learn-Sample/OpenFolder%20-FULL.rar)

اول باید از زحمتاتون تشکر کنم ولی کدی که من الان مینویسم خیلی ساده و کمه فقط باید از add refrence ,microsoft shell رو اضافه کنین.
dim x as new shell
x.open c:\

[aidin1386]

يه كد بدرد بخور براي كپي كردن فولدر كه جناب xxxxx.xxxxx زحمتش رو كشيدن، گفتم شايد بدردتون بخوره. ضميمه شد.

[Mbt925]

دو نمونه که یکی متن رو از جعبه متن، ماشین حساب ویندوز می خونه و نمایش میده و

دیگر متن دلخواه شما رو درش قرار میده

دانلود 1 (http://mbt925.googlepages.com/GetCalculator_Text.rar)
دانلود 2 (http://mbt925.googlepages.com/SetCalculator_Text.rar)

http://mbt925.googlepages.com/SetCalcTextScrShot.png

http://mbt925.googlepages.com/GetCalcTextScrShot.png

[Mbt925]

MBTextGrabber

دریافت متن از پنجره ها
متن برای جعبه متن ها و موجودیت های مشابه متنیه که درونشون نمایش داده میشه
و برای بقیه انواع پنجره ها می تونه عنوانشون یا موارد مشابه باشه.

http://mbt925.googlepages.com/TextGrabberScrShot.png

دانلود (http://mbt925.googlepages.com/MBTextGrabber.rar)

[Mbt925]

Self Replacer

این نمونه شامل یک فایل اجرایی هست که بعد از اینکه اجراش کنید،
خودش رو حذف می کنه و یک فایل اجرایی جدید رو جایگزین خودش می کنه.

می تونه برای دوستانی مفید باشه که قصد جایگزین کردن نسخه جدید فایل اجراییشون رو دارن. (بعد از بروزرسانی از طریق اینترنت یا ..)

دانلود (http://mbt925.googlepages.com/SelfReplacer.rar)

[ماهان مقدم]

اینم یه سورس نوار وضعیت از من. خیلی همه ساده است.

[Mbt925]

Move ScrollBar to end of object

این نمونه اسکرول بار همه اشیاء دارای هندل از قبیل TextBox، ListBox، RichTextBox و ...
رو به انتهای صفحه منتقل می کنه.

دانلود (http://mbt925.parsaspace.com/VBCodeSample%D9%8E/Move%20ScrollBar%20to%20end%20of%20object.rar)

[Mbt925]

Get CPU / Bios ID

2-3 تا سورس در این رابطه برای دوستانی که با جستجو مشکل دارن

دانلود (http://mbt925.parsaspace.com/VBCodeSample%D9%8E/Get%20CPU-Bios%20ID.rar)

[red11011]

Private Sub Command1_Click()

Dim oXL As Object ' Excel application
Dim oBook As Object ' Excel workbook
Dim oSheet As Object ' Excel Worksheet
Dim oChart As Object ' Excel Chart

Dim iRow As Integer ' Index variable for the current Row
Dim iCol As Integer ' Index variable for the current Row

Const cNumCols = 10 ' Number of points in each Series
Const cNumRows = 2 ' Number of Series

ReDim aTemp(1 To cNumRows, 1 To cNumCols)

'Start Excel and create a new workbook
Set oXL = CreateObject("Excel.application")
Set oBook = oXL.Workbooks.Add
Set oSheet = oBook.Worksheets.Item(1)

' Insert Random data into Cells for the two Series:
Randomize Now()
For iRow = 1 To cNumRows
For iCol = 1 To cNumCols
aTemp(iRow, iCol) = Int(Rnd * 50) + 1
Next iCol
Next iRow
oSheet.Range("A1").Resize(cNumRows, cNumCols).Value = aTemp

'Add a chart object to the first worksheet
Set oChart = oSheet.ChartObjects.Add(50, 40, 300, 200).Chart
oChart.SetSourceData Source:=oSheet.Range("A1").Resize(cNumRows, cNumCols)
' Make Excel Visible:
oXL.Visible = True
oXL.UserControl = True

End Sub


این برنامه هم از سایت میکروسافت گرفتم برای نمایش چارت در برنامه excel

[Mbt925]

Get Folder Size

این نمونه، خیلی ساده حجم پوشه ها رو بدست میاره.

یه مسیر وارد می کنید و لیست پوشه های موجود در اون و حجمشون رو مشاهده خواهید کرد.

دانلود (http://mbt925.googlepages.com/FolderSizeSample.rar)

[رضا نانوا]

برنامه ای برای بدست آوردن ریشه های معادله درجه دوم

[vbnovin]

سلام با تشكر از زحمات شما دوستان خوب موفق باشيد اين هم يك برنامه كامل با كد براي شما دوستان به
عنوان تشكر حتما ببينيد . رومنا [QUOTE]hamedromana@yahoo.com

[parsiyan_mohsen]

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



.:: به درویشی قناعت کن که بزرگی خطر دارد ::.

[hamid2live]

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

مثال از مدیدریت پرونده ها

اسکرین سرور با VB6

فرم تو خالی

پاک کردن فایلها در VB6

مثال مفید در مورد تغییر رنگ

[ezamnejad]

سلام
برنامه مثلث خیام با استفاده از آرایه

[Mbt925]

حذف کلمات تکراری از فایل

خیلی از دوستان درخواست چنین نمونه ای رو داشتن.

http://mbt925.googlepages.com/RemoveDuplicateWordsFromFileScrshot.jpg

در این نمونه حذف فایل های تکراری به کمک یه جدول درهم سازی انجام میشه.
اگه تعداد کلمات فایل از اندازه جدول کمتر باشه، بهترین روش برای این کار، همین روشه که مرتبه زمانیش
(O(n هست (n : تعداد کلمات)

----
فرمولی که برای درهم سازی استفاده شده بسیار ساده و در عین حال از توزیع خوبی برخورداره.

دانلود (http://mbt925.googlepages.com/RemoveDuplicateWordsFromFile.rar)

[hossein033]

با سلام

یه سورس کد بدردبخور در رابطه با Windows :قهقهه::قهقهه::قهقهه:

یه سورس کد برای کار با Shell32

[hossein033]

سلام دوستان :

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

اولیش اطلاعات BIOS رو بهتون میده
دومی هم اطلاعات Memory رو بهتون میده

موفق باشید.:لبخند:

[hossein033]

با سلام خدمت دوستان :

اینم دو تا کتاب آموزشی

اولیش در مورد ADO هست و دومی هم درباره MultiMedia

[hossein033]

سلام :

دو سورس کد بدردبخور

اولیش اطلاعات همه ی درایو ها رو به شما میده و امکان Print و Save هم داره :لبخند:
دومی هم یه FolderBrowser هست که خیلی بدردبخور هست :قهقهه:

HosSeiN 033 :تشویق::تشویق::تشویق:

[hossein033]

بازم سلام یه سوال داشتم :

چرا دیگه کسی هیچ مطلبی آپ نمیکنه ؟؟؟:متفکر:

بازم این تایپک رو راه بندازید HosSeiN 033

اینم دو تا سورس کده دیگه

اولی اطلاعاتی درباره Dispay رو به شما میده
دومی یه TextEfect هست

[hossein033]

با عرض سلام مجدد :

اینم 4 تا ScreenSaver خیلی جالبه :لبخند::قهقهه::لبخند:

توصیه می کنم دانلود کنید :بامزه:

[hossein033]

با سلام

اینم دو تا سورس کد بدردبخور که میشه خیلی چیزا ازشون یاد گرفت

امیدوارم که مفید باشه

[Mohsen6558]

این تابع افزودن قابلیت Stretch (کوچک و بزرگ کردن عکس برای جا گرفتن در کادر) برای PictureBox هست
Sub picStrech()
'Picture1.Picture = Image1(1).Picture
Picture1.ScaleMode = 3
Picture1.AutoRedraw = True
Picture1.PaintPicture Picture1.Picture, _
0, 0, Picture1.ScaleWidth, Picture1.ScaleHeight, _
0, 0, _
Picture1.Picture.Width / 26.46, _
Picture1.Picture.Height / 26.46
Picture1.Picture = Picture1.Image
End Sub

[hossein033]

با سلام خدمت دوستان عزیز

دو تا سورس کد براتون آماده کردم که خیلی ها دنبال اون هستند :تشویق:

اولی برای نمایش کار Cpu
دومی هم برای فریز کردن ویندوز

امیدوارم در یادگیری به شما کمک کنه موفق باشید :چشمک:

[ابوذر محمودی]

سلام
این برنامه از اسمش معلومه که کارش چیه.
محتویات فایلهای فشرده رو نشون میده.
دانلود شده از PSC

[vb2005]

تا حالا با برنامه های ساخت باکس تبلیغاتی کار کردید؟اینم یک نمونه از این نوع برنامه ها ،البته نمونه اولیه...

[vb2005]

یک افکت بسیار زیبا ، بازتاب آب...

[vb2005]

یک برنامه جالب برای یافتن کد تقلب بازیها از طریق اینترنت...

[earse+erse]

زير نويس ساز


طراحي برنامه اي كه پسوند جديد براي متن طراحي و باز كند.
زير نويس ساز؟
:متفکر:
زير نويس براي نرم افزار KM player با پسوند SRT
:لبخندساده::لبخند::تشویق:
با تمامي امكانات
دانلود نكردن = ضرر

توجه توجه

ورژن 2 srt در اين جا ببينيد (http://barnamenevis.org/forum/showthread.php?t=81542&page=34)

جالب تر و بهتره

[earse+erse]

سلام آیا امکانش هست سورس اولیه رو بدون تغییر اینجا قرار بدید؟
متشکرم


عليك سلام بله!:لبخند:
اين هم سورس اولیه بدون تغییر!!!

:تشویق:EarsText با پسوند ERT.*:قهقهه:

[earse+erse]

راست به چپ كننده جادويي:لبخند::تشویق::متفکر:

اعمال مشخصه Right To Left به شيء هايي كه فاقد آن اند.


خيلي آسون:قهقهه::قهقهه::قهقهه:
خيلي باحال :لبخند::لبخند::لبخند:

Tic Tac

تا به حال دوزبازي كرده ايد.:متفکر::لبخند:

دانلود نكردن= ضرر:متعجب::گریه::عصبانی++::مت� �کر::اشتباه::ناراحت:


STAR

برنامه اي كه مي تونه براي شما ستاره رسم كنه
خيلي مفيده:قهقهه:




EFFECT

افكتي زيبا براي ورود و خروج از فرم:بامزه:

[earse+erse]

KbMLock
قفل كردن تمامي ورودي ها از جمله صفحه كليد و موشواره

:چشمک::لبخندساده::تشویق:


قرار دادن فرم بر روي تمام پنجره ها Always on Top

با اين برنامه شما ميتونيد فرمتون رو روي تمام پنجره ها بزارين مثلWindows Task Manager

:قهقهه::قهقهه::قهقهه::قهقهه::� �هقهه::قهقهه::قهقهه:

[alihassanabadi]

سلام به همه دوستان
استفاده از کنترل AGToolTip با یه help ساده
از پنجره کمپو ننت ها(ctrl+t) گزینه AGToolTip را تیک بزنید تا بتوان از آن استفاده کرد



برنامه ای که در آن از webbrowser استفاده شده ودر هنگام دیدن یک سایت
تگ های html اون سایت رو داخل یک treeview نمایش میده.

[earse+erse]

برنامه اي براي باز و بسته كردن CDو DVD
خيلي آسون

پرو‍ژه دسته بازي (Joystic)
چگونگي استفاده از دسته بازي در برنامه خود
خيلي مفيد و زيبا

[earse+erse]

يك بازي ديدني و تماشايي خفن

با 1000 جور تابع و ... .

قورباغه رو از خيابون رد كنين!!!

من كه كيف كردم

فقط دانلود كنين

دانلود (http://www.persiangig.com/pages/download/?dl=http://ghoghnoos3w.persiangig.com/document/frog.zip)

[alihassanabadi]

سلام به همه دوستان
چرخش متن با استفاده از کنترل DAViewerControlWindowed
که میشه ازش در پرو ژه های screen saver هم استفاده کرد

با تشکر

[alihassanabadi]

سلام به دوستان
برنامه treeview
من قبلا این برنامه رو اپلود کردم ولی اینبار search هم بهش اضافه شده



______________________________

Praise be to allah lord of the world,the most beneficent,the most merciful

[Mbt925]

Send Message & Get Handle & Press Button & ...

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


http://mbt925.parsaspace.com/CSharp/Manage%20Calculator.png

دانلود:

http://soda.parsaspace.com/MBT925/Learn-Sample/Manage%20Calculator.rar

[alihassanabadi]

این برنامه
لیست برنامه های در حال اجرا رو تو لیست باکس نمایش میده.
_____________________________________
دست هایی که کمک میکنند مقدس تر از لب هایی هستند که دعا میکنند.کوروش کبیر

[earse+erse]

زير نويس ساز 2

SRT2

كساني كه از srt خوششنون اومد يا حتي نيومد با ديدن اين تعجب مي كنن

نكات قابل توجه اضافه شده به اين برنامه:


رفع باگ هاي موجود در سري قبل

اضافه كردن صفحه تنظيمات(براي اضافه كردن چه مقدار زمان بهد از تاييد زير نويس)

اضافه كردن صفحه رنگ

راهنماي استفاده از فايل

جست و جو در زير نويس ها

محيطي گرافيكي و زيبا

قرار دادن activeX هاي استفاده شده در برنامه

مصرف تجاري داشتن!!!

و . . .

اگه مشكلي داشت منو راهنمايي كنين

سوالي هم اگه هست بپرسين
كپي رايت هم محفوضه براي خود خودم!!!:چشمک:
اين هم activeX ها اند. (http://www.persiangig.com/pages/download/?dl=http://ghoghnoos3w.persiangig.com/document/a.x.SRT2.rar)

[alihassanabadi]

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

در تاپیک بعدی یه موزیک پلیر توپ براتون میزارم که امکانات خوبی رو براش گذاشتم(فعلا یه کم کار داره)
امیدوارم که به کارتون بیاد
عکس زیر هم مربوط به موزیک پلیر بعدی هستش.
با تشکر

[powerboy2988]

سلام
من قصد دارم يك سري سورس كد كه دارم تو سيستمم رو براتون اينجا بزارم..
اميدوارم كه به دردتون بخوره



3D Label control
3D Data Array
Extended Text Box & Action Buttom Ocx
Add a 3D Effect to Forms, Textboxes, and Labels
Add Columns and Titles Effortlessly to a ListView Control

[powerboy2988]

advance Text
Align Flexgrid Cells after Adding a Row or Column
Animated Form Unload
animated about
Automatically Select ListBox Item when the Mouse is Over It.zip

[powerboy2988]

AOLCmdButton
ArcText
aRoll
Auto-Complete Combo Box
Arrays To Columns in Text Box

[powerboy2988]

AutoSize ListView Column Headers
Black
Blank and Lock-Unlock Form Input Controls
caret
cascade_command

[powerboy2988]

cFormWizard
Change Back and Fore Color of Progress
Change the colors and fonts
Class_Elastic
Clear all Textboxes on a Form

[powerboy2988]

clsControlResizer
Color_Bar
color_func
controls2
CoolBar

[powerboy2988]

CoolFlex
Copy Contents of one MSFlexGrid To Another
cpvButtonOCX
cpvListBox_OCX
cpvSlider

[IamOverlord]

سلام دوستان!
کسانی که با Fractal ها (که بحث خیلی جذابیه) آشنایی دارن، ارزش این سورس رو می دونن.
ضمن این که در این سورس از تعدادی Module استفاده شده که شما هم می تونید از اون ها استفاده کنید و کار شما رو راحت تر می کنه...
پیشنهاد می کنم که این سورس رو از دست ندید:چشمک:

[IamOverlord]

سلام دوستان!
این هم سورس یه 3D_Engine هست که با این موتور سه بعدی می تونید اشکالی مثل مکعب و مخروط و... رو شبیه سازی کنید و اون ها رو از زوایای متفاوتی ببینید.
توی این سورس 2 Module وجود داره که می تونید از اون ها در برنامه ی خودتون هم استفاده کنید:لبخندساده:
دانلود کنید حتما تو پروژه های شبیه سازی به دردتون می خوره :چشمک:

[IamOverlord]

سلام دوستان!
این هم یه نمونه کد جالب دیگه:
توی این Source Code می تونید یه فایل Exe یا DLL رو انتخاب کنید و Resource هاش رو ببینین! یعنی تصاویر bitmap و تمام icon ها و رشته ها و... رو که داخل اون فایل Exe یا DLL بوده رو استخراج می کنه!
مزیت دیگه هم این که این Source Code هم با تعدادی Module نوشته شده...!
:چشمک:

[IamOverlord]

سلام دوستان!
این Source Code که گذاشتم خیلی جالبه!!! یه زبان ساختگی به نام ++D هست که دارای Editor و جالب تر از اون Compiler هست. دستورات این زبان ++D که با VB6 ساخته شده دستورات کم و ساده ای هست که بعد از دانلود می تونید دستوراتش رو از فایل DPP.txt پیدا کنید.
ضمنا بعد از دانلود، فایل DPPAPP.DLL رو تو پوشه ی C:\Windows\System32 (ممکنه تو کامپیوتر شما فرق داشته باشه) کپی کنید.
این Source Code یه نمونه ی ساده است برای کسانی که می خوان زبان برنامه نویسی ساده ای بنویسن!
:چشمک:

[IamOverlord]

سلام دوستان!
این هم از سورس بهترین برنامه ی Piano که با VB6 ساخته شده (لااقل من که از این بهتر ندیدم) ! :لبخندساده:
پیشنهاد می کنم این رو از دست ندید!
:چشمک:

[vb2005]

برای نمایش Common Dialog به صورت Thumbnail
همچنین نمایش جعبه قلم ها به همراه انتخاب رنگ...ببینید:

[parselearn]

توليد فايل PDF در VB
قابليت درج تصوير در فايل

[kh-hamid]

سلام
اول تشکر می کنم از همه اساتید سایت که اکتیواکس و سمپل های خوبی در این مورد در سایت گذاشته اند .
شما با این نمونه برنامه می تونید یک صفحه را اسکن کنید و با کمترین حجم ممکن ذخیره نمایید .
مزایا :
- بدون استفاده از اکتیواکس

- نمونه های دیگر موجود در سایت اگر در پنجره اسکن و قبل از شرع اسکن روی دکمه کنسل بزنیم برنامه هنگ می کنه ولی این مورد مشکل نداره . ( البته من فقط روی کامپیوتر و چاپگر خودم این مشکل وجود داره وروی چاپگر و کامیوتر های دیگر امتحان نکردم )

- امکان اسکن در دو سایز متفاوت بدون تنظیمات دستی

- امکان اسکن سیاه و سفید و سفارشی بدون تنظیمات دستی

- ذخیره تصاویر با کمترین حجم با استفاده از اکتیواکس pictureformat32a

- نمایش تصویر اسکن شده در سایز مورد نظر شما و امکان زوم روی آن

[Dr.Bronx]

ساخت لوگوهای سه بعدی با vb

http://www.planet-source-code.com/upload_PSC/screenshots/PIC2001528226286449.jpg

[Dr.Bronx]

اضافه کردن فایل WAV به یک فایل AVI
از این کدها استفاده کنید .


Option Explicit


Private Declare Sub AVIFileInit Lib "avifil32.dll" ()


Private Declare Function AVIFileOpen Lib "avifil32.dll" (ByRef ppfile As Long, ByVal szFile As String, ByVal uMode As Long, ByVal pclsidHandler As Long) As Long


Private Declare Function AVIFileCreateStream Lib "avifil32.dll" Alias "AVIFileCreateStreamA" _
(ByVal pfile As Long, ByRef ppavi As Long, ByRef psi As AVI_STREAM_INFO) As Long


Private Declare Function AVIStreamSetFormat Lib "avifil32.dll" (ByVal pavi As Long, _
ByVal lPos As Long, _
ByRef lpFormat As Any, _
ByVal cbFormat As Long) As Long


Private Declare Function AVIStreamWrite Lib "avifil32.dll" (ByVal pavi As Long, _
ByVal lStart As Long, _
ByVal lSamples As Long, _
ByVal lpBuffer As Long, _
ByVal cbBuffer As Long, _
ByVal dwFlags As Long, _
ByRef plSampWritten As Long, _
ByRef plBytesWritten As Long) As Long


Private Declare Function AVIStreamReadFormat Lib "avifil32.dll" (ByVal pAVIStream As Long, _
ByVal lPos As Long, _
ByRef lpFormat As PCMWAVEFORMAT, _
ByRef cbFormat As Long) As Long


Private Declare Function AVIStreamRead Lib "avifil32.dll" (ByVal pAVIStream As Long, _
ByVal lStart As Long, _
ByVal lSamples As Long, _
ByVal lpBuffer As Long, _
ByVal cbBuffer As Long, _
ByRef pBytesWritten As Long, _
ByRef pSamplesWritten As Long) As Long


Private Declare Function AVIFileGetStream Lib "avifil32.dll" (ByVal pfile As Long, ByRef ppaviStream As Long, ByVal fccType As Long, ByVal lParam As Long) As Long


Private Declare Function AVIStreamInfo Lib "avifil32.dll" (ByVal pAVIStream As Long, ByRef psi As AVI_STREAM_INFO, ByVal lSize As Long) As Long


Private Declare Function AVIStreamLength Lib "avifil32.dll" (ByVal pavi As Long) As Long


Private Declare Function AVIStreamRelease Lib "avifil32.dll" (ByVal pavi As Long) As Long


Private Declare Function AVIFileRelease Lib "avifil32.dll" (ByVal pfile As Long) As Long


Private Declare Sub AVIFileExit Lib "avifil32.dll" ()


Private Type WAVEFORMAT
wFormatTag As Integer
nChannels As Integer
nSamplesPerSec As Long
nAvgBytesPerSec As Long
nBlockAlign As Integer
End Type


Private Type PCMWAVEFORMAT
wf As WAVEFORMAT
wBitsPerSample As Integer
End Type


Private Type AVI_RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type


Private Type AVI_STREAM_INFO
fccType As Long
fccHandler As Long
dwFlags As Long
dwCaps As Long
wPriority As Integer
wLanguage As Integer
dwScale As Long
dwRate As Long
dwStart As Long
dwLength As Long
dwInitialFrames As Long
dwSuggestedBufferSize As Long
dwQuality As Long
dwSampleSize As Long
rcFrame As AVI_RECT
dwEditCount As Long
dwFormatChangeCount As Long
szName As String * 64
End Type
Private Const AVIERR_OK As Long = 0&
Private Const OF_READWRITE As Long = &H2
Private Const AVIIF_KEYFRAME As Long = &H10
Private Const streamtypeVIDEOAs Long = 1935960438
Private Const streamtypeAUDIOAs Long = 1935963489
Private Const streamtypeMIDIAs Long = 1935960429
Private Const streamtypeTEXTAs Long = 1937012852


Private Declare Function GlobalAlloc Lib "kernel32" (ByVal wFlags As Long, ByVal dwBytes As Long) As Long


Private Declare Function GlobalFree Lib "kernel32" (ByVal hMem As Long) As Long
Private Const GMEM_FIXED = &H0
Private Const GMEM_ZEROINIT = &H40
Private Const GPTR = (GMEM_FIXED Or GMEM_ZEROINIT)
'To use this function, need 2 files
'existing avi video file(without sound)
'existing wav audio file


Public Sub AddAudioStream(ByVal AVIFilePath As String, ByVal WAVFilePath As String) 'AddAudioStream(Destination AVI FilePath, Source WAV FilePath)

On Error Goto errHandler
Dim StreamInfo As AVI_STREAM_INFO
Dim StreamFormat As PCMWAVEFORMAT
Dim StreamLength As Long
Dim WaveData As Long
Dim AVIFile As Long
Dim AudioFile As Long
Dim AudioStream As Long
Dim AVIStream As Long
Call AVIFileInit 'Initialize the AVI library.


If AVIFileOpen(AVIFile, AVIFilePath, OF_READWRITE, ByVal 0&) = AVIERR_OK Then 'open the avi file


If AVIFileOpen(AudioFile, WAVFilePath, OF_READWRITE, ByVal 0&) = AVIERR_OK Then 'open the wave file
If AVIFileGetStream(AudioFile, AudioStream, streamtypeAUDIO, 0) <> AVIERR_OK Then Goto errHandler 'get the audio stream
If AVIStreamInfo(AudioStream, StreamInfo, Len(StreamInfo)) <> AVIERR_OK Then Goto errHandler 'read the stream's header information
AVIStreamReadFormat AudioStream, 0, StreamFormat, Len(StreamFormat) 'read the stream's format data
StreamLength = AVIStreamLength(AudioStream) * StreamInfo.dwSampleSize 'get the length of the stream
WaveData = GlobalAlloc(GPTR, StreamLength) 'get pointer To the wave data
AVIStreamRead AudioStream, 0, StreamLength, WaveData, StreamLength, 0, 0 'read audio data from the stream
AVIFileCreateStream AVIFile, AVIStream, StreamInfo 'create new stream
AVIStreamSetFormat AVIStream, 0, StreamFormat, Len(StreamFormat) 'set the format of new stream
AVIStreamWrite AVIStream, 0, StreamLength, WaveData, StreamLength, AVIIF_KEYFRAME, 0, 0 'copy the raw wave data To new stream
GlobalFree WaveData 'release the wave data pointer
AVIStreamRelease (AudioStream)
AVIStreamRelease (AVIStream)
AVIFileRelease AudioFile
AVIFileRelease AVIFile
Call AVIFileExit 'close the AVI library
End If

End If

errHandler:
End Sub

موفق باشید./

[Dr.Bronx]

یه سورس خیلی خیلی جالب
اگر علاقه ای هم به این کار ندارید فقط محظ دیدن این سورس رو امتحان کنید.
خیلی جالبه
البته خالی از اشکال هم نیست.

http://www.planet-source-code.com/Upload_PSC/ScreenShots/PIC20091030739218505.JPG

http://barnamenevis.org/forum/images/buttons/download.gif (http://barnamenevis.org/forum/downloads.php?do=file&id=50&act=down)

[vb2005]

یک موتور بازی دوبعدی که واقعاً عالیه...

[vb2005]

یک چهارراه با چراغ راهنمایی هوشمند...

[Netsky]

سلام به همگی .
اینم یه برنامه دیگه که واستون نوشتم .
بوسیله این برنامه میتونید آیکون همه درایوها رو عوض کنید .
عکس زیر رو ببینید و بعد دانلود کنید :

[parselearn]

بدست آوردن آدرس پوشه يك فايل


Private Sub CMD_Click()
Shell "explorer.exe " & Get_Path("Address File"), vbNormalFocus
End Sub

Function Get_Path(Path As String) As String
Dim DirList() As String, p As String
DirList = Split(Path, "\")
For i = LBound(DirList) To UBound(DirList) - 1
p = p & DirList(i) & "\"
Next i
Get_Path = p
End Function

[earse+erse]

با استفاده از اين برنامه مي تونيد به راحتي با Clipboard ارتباط برقرار كنيد.(‍Cut,Copy,Paste)

اگه تكراري بود ببخشيد.:لبخندساده:


اين هم كدي كه با اون مي تونيد چك كنين آيا كپس لوك روشن است و يا اون رو كنترل كنين

[ماهان مقدم]

سلام. این هم یه پروژه از خودم. البت تو اوغات فراغت این رو دو روز پیش درست کردم. یک پوسته و فرم نارنجی برای دوستان عزیز.


http://mahangraph.persiangig.com/shot.PNG

[ماهان مقدم]

این هم یکی دیگه از پروژه هام. گفتم که مثل پست قبل این رو هم در اوغات فراغت ساختم. البته منظورم این نیست که خیلی کشکی ساختمش نه اتفاقا خیلی هم استاندارد هست مثل قبلی و هرکی به راحتی می تونه استفاده کنه. اسم این پوسته رو Alpha گذاشتم. امدیوارم (امیدوارم) که خوشتون بیاد.


http://www.freeimagehosting.net/uploads/b696bbfc36.png

[Dr.Bronx]

دیگه توضیح نداره http://vadrouilles.moto.free.fr/smileys/yapyapyapf.gif
از تصویر کاملا مشخصه
حیفه دانلود نکنید واقعا . من که تاحالا ندیده بودم همچین کاری رو
شما دیدید ؟ http://www.picbaran.com/files/zmf8ta9b8ar0gx7mmqin.gif

http://www.planet-source-code.com/Upload_PSC/ScreenShots/PIC20101522456558.gif



'**************************************
'Windows API/Global Declarations for :Fl
' ipPage
'**************************************


Private Declare Function StretchBlt Lib "gdi32" ( _
ByVal hDC 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 nSrcWidth As Long, _
ByVal nSrcHeight As Long, _
ByVal dwRop As Long) As Long



http://barnamenevis.org/forum/images/buttons/download.gif (http://barnamenevis.org/forum/downloads.php?do=file&id=62&act=down)

موفق باشید http://www.forum.persiancoder.com/images/smilies/icon_gol.gif

[aryasoft2872]

یه سورس که حرکات موس رو ضبط می کنه

[Rezapcclick]

یه چند تا سورس که خودشون هم اکتیو ایکس داره براتون می زارم

اولی آنتی ویروس نیو فولدر هست
دومی هم آنتی ویروس کظم غیظ

ببخشین دیگه
دکمه تشکر هم پایییییییییییییینه

[parselearn]

نمايش سرعت آپلود و دانلود به صورت گرافيكي
و حجم دريافتي و ارسالي

[aryasoft2872]

استخراج آیکن
این مثال این کار رو انجام می ده

[lordarma]

خب دوستان احتمالا همه شما با فواید کد اسکی در برنامه نویسی آشنا هستید ،
همان طور که می دانید برنامه های زیادی برای به دست آوردن کد اسکی در محیط وب وجود دارد ، من هم سعی کردم شبه برنامه ای طراحی کنم که همین کار را انجام بدهد (البته با کمی تفاوت)
فرق این برنامه با سایر برنامه ها در این است که محیطی شبیه به کار با DX دارد.
اما پس از اینکه کد های برنامه را ببینید به حقه ای که در این برنامه به کار رفته شده پی خواهید برد ، برای اطلاعات بیشتر برنامه را از فایل ضمیمه دانلود نمایید.

[lordarma]

خب یه برنامه نوشتم که با اون می تونید (دوست دختر/دوست پسر/نامزد/معشوقه) خودتون رو سر کار بگذارید.
در واقع به غیر از چند تا کد ساده چیزی در این برنامه وجود ندارد ، شما فقط کافی است مشخصات خودتان را به جای حروف لاتین (A-Z) در سورس برنامه قرار دهید و سپس برنامه کامپایل شده را به طرف مقابل بدهید.
شرط می بندم که پس از استفاده از برنامه ، طرف مقابل عاشقانه دوستتان خواهد داشت !!!

[lordarma]

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

برخی از قابلیت های برنامه :
*امکان بروز رسانی و دانلود از اینترنت
*داشتن پایگاه اطلاعات اکسس
*محیطی روان و کاربر پسند
*و...

توجه : هرگونه استفاده تجاری و غیر تجاری از این برنامه آزاد می باشد. (CopyLeft)

[lordarma]

هم زمان با هالوین امسال بود که من تصمیم گرفتم برنامه ای بنویسم که در عین تبریک هالوین ،
با راه اندازی مجدد سیستم نیز اجرا شود و همچنین کمی گرافیکی باشد.
در این بخش فایل را برای شما قرار دادم تا شما هم بتوانید پیغام های دلخواه خود را در سیستم دیگران اجرا کنید.
پس از اجرا برنامه با کلیک بر روی آن ، برنامه بسته خواهد شد ...

[lordarma]

با این برنامه می توانید تمام مقسوم علیه های عدد مورد نظر خود را ببینید.
شایان ذکر است که اگر مقسوم علیه های یک عدد شامل خودش و یک بود ، آن عدد اول است.

[lordarma]

دوستان من این برنامه رو ننوشتم ولی فکر می کنم کاربردش خیلی زیاد باشه ، با استفاده از این ابزار شما می توانید در ویژوال بیسیک 6 حالت اسکرول با ماوس را فعال نمایید.
ابتدا برنامه را اجرا کنید و سپس وارد محیط VB6 شوید.
حال تعدادی کد بنویسید و دکمه وسط موس را حرکت دهید ، مشاهده می نمایید که اسکرول عمل می کند !
این ابزار به برنامه نویسی سرعت زیادی می دهد ،
اگر تکراری بود عذر می خواهم...

[EhsanAvr]

دو هزار تا پروژه با ویژوال بیسیک

لیست بعضی از پروژه های این مجموعه:

چندین برنامه در خصوص ساخت فایل اجرایی (EXE) با برنامه

سورس کد ۱۰۰ بازی جذاب با Visual Basic(فوتبال،تانک،سوپر ماریو،مار،مین،شطرنج،کانتر ،ماشین،ماز و …)

چندین برنامه در خصوص ساخت Media Player و پخش فایل های صوتی در VB

ساخت Label های سه بعدی

سورس کد چندین ویروس مختلف (از جمله New Folde,Kandida,30YA30 و …)

سورس کد چندین تروجان پیشرفته

سورس کد چندین نرم افزار هک و امنیت

سورس کد چند دفترچه تلفن

ضبط صدا در VB

ساعت های دیجیتال و آنالوگ در طرح های مختلف

ماشین حساب های ساده و مهندسی در طرح های مختلف

برنامه ارسال نظر در وبلاگ ها

ساخت Shortcut در VB

چندین سورس کد در زمینه کار با رجیستری در VB

تقویم شمسی

کار با توابع API

عکسبرداری از Desktop

کار با Clipboard ، خالی کردن Clipboard ، گرفتن و ارسال عکس،متن و دیتا از Clipboard

قرار دادن برنامه در Startup ویندوز و مخفی کردن برنامه در msconfig

فعال و غیر فعال کردن Task Menager,Regedit,masonfig,Folder Option و …

End Process کردن یک برنامه

مخفی کردن برنامه در Task Manager

کار با عکس ها، Load و Save و Edit عکس

کار با دیتابیس اکسس

کار با دیتابیس SQL Server

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

کار با فیلم و پخش و ویرایش فیلم

کار با انیمیشن های Gif

کار با فایل های فلش SWF در VB

فعال و غیر فعال کردن Control Panel,Desktop,Start Menu و …

کار با Tooltip

قرار دادن آیکن برنامه در System Try ویندوز(کنار ساعت)
کار با رنگ ها،تبدیل رنگ های VB به رنگ های HTML

سورس کد برنامه Resource Hacker

چندین برنامه Decompiler برای Visual Basic

DVD Player

تست اتصال به اینترنت

قطع ارتباط اینترنت(Disconnect)

چندین Progress Bar و کار با آنها

مخفی کردن درایو های ویندوز و نمایش مجدد آنها

کار با Dos

کار با فایل های ترتیبی،تصادفی،دیتابیس و …

چندین سورس کد Screen Saver برای ویندوز

ساخت کلیپ در VB

ساخت فایل های PDF در VB

کار با توابع SaveSetting و GetSetting

بستن پنجره با گرفتن عنوان آن

بدست آوردن IP و نام سیستم میزبان

تبدیل رادیان به درجه

غیر فعال کردن دکمه Close روی فرم برنامه

گرفتن اطلاعات ورودی از کیبورد

کنترل کامل Mouse، شبیه سازی حرکات آن،تعیین مختصات آن و …

پخش افکتهای صوتی در برنامه های مالتی مدیا

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

کار با فایل های Word و Exel در VB

کار با فایل های XML در VB

برنامه نمونه مشاور املاک

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

سورس برنامه ارسال فکس با VB

سورس برنامه پر کننده گرافیکی

فکر و بکر

جستجو در دیتابیس

سورس یک آکواریوم بسیار زیبا

برنامه محاسبه کننده زمان توقف موس

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

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

حرکت دهنده موس

حبس موس در یک چهار چوب

کار با ADO.NET و برقراری ارتباط با آن

نرم افزار چت سرور/کلاینت

سورس کد دفترچه تلفن

تعیین مدت زمان روشن بودن سیستم

تعیین شماره سریال CPU,Hrad

تعیین مشخصات Hard

قرار دادن آیکن در منو

اعداد تصادفی

ترسیم اشیاء

سورس کد چندین ویرایشگر متن

تغییر نام دادن تعداد زیادی فایل

برنامه ساخت آیکن

فرمی شبیه فرم ویندوز Vista

فرم و منو های Office 2007

Mail Bomber!

چندین برنامه برای ارسال ایمیل با فایل زمیمه در VB

برنامه ارسال Off در Yahoo Messanger!

کار با RichTextBox

خاموش کردن کامپیوتر،ریستارت کردن و کنترل کامپیوتر

کار با ASP در VB

کار با فایل های Bas

کار با فایل های Cab در VB

کار با کنترل ها در VB

کار با اکتیو ایکس ها در VB

کار با فایل های DAT در VB

کار با Firewalls

کار با توابع ریاضی در ویژوال بسیک

کار با اینترنت در Viual Basic

کار با فرم ها

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

کار با شبکه و کنترل شبکه در وی بی

کار با تایمر ها و زمان

کار با پنجره ها در VB

تغییر سایز کنترل های روی فرم با Resize کردن فرم(AutoSize)

کار با فایل های Help در ویژوال بیسیک

ساختن چندین فرم Aboutجذاب و گرافیکی

چندین جلوه ی گرافیکی برای پنجره ها

تعویض متن پنجره ی Internet Explorer

انتخاب یک صفحه اینترنتی به عنوان صفحه خانگی (Home Page)

برنامه پرینت گرفتن از یک سند

برنامه کد گذاری فایل

برنامه قفل کردن پوشه ها

نرم افزار آزمون گری مخصوص آموزشگاه های رایانه

کپی فایل،تغییر نام فایل،پاک کردن فایل،برش فایل

برنامه Piano با VB
http://www.ehsanavr.com/wp-content/uploads/2010/01/VB_Picture%20(7).png
http://www.ehsanavr.com/wp-content/uploads/2010/01/VB_Picture%20(5).png


لینک دانلود (http://ehsanavr.com/?p=244)

[lordarma]

این کد یک پرگار می باشد که کمی با پرگار های عادی متفاوت است!
شما با این پرگار می توانید به جای دایره ، مربع رسم کنید!
سورس را از فایل ضمیمه دریافت نمایید...

[lordarma]

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

[parselearn]

بدست آوردن رنکینگ گوگل
Page Rank Google

[lordarma]

با این کد می توانید کلمات را به صورت عجیب (حتی در بعضی مواقع رمزی!) تایپ کنید!
عملکرد این برنامه به این شکل است:

مثال:

"sghl" >>>>> "سلام"
"','g" >>>>> "گوگل"
"fvkhli k,ds" >>>>> "برنامه نویس"

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

توجه: در کل این سورس از کد های بسیار ساده تشکیل شده است و من فقط دریافت آن را برای مبتدیان پیشنهاد می کنم.

[M.T.P]

تا حالا پیش اومده که برنامه ای بنویسید و بخوایید با وارد کردن کدشناسه یک فرد یا یک کالا
در جعبه متن یا همون Textbox بلافاصله از مشخصاتش آگاه شید؟
با استفاده از بالن میتونید یه پیغام فوری و خوشگل بدون استفاده از MsgBox و یا ... رو داشته باشید.
اگه میخواین بالن راست به چپ باشه اول با API جعبه متن رو RTL کنید سپس بالن رو نمایش بدین...:قلب:

[EhsanAvr]

۹۸۵ پروژه برنامه نویسی ویژوال بیسیک
لینک مطلب و توضیحات (http://ehsanavr.com/?p=304)
لیست پروژه ها در قالب فایل Txt (http://ehsanavr.com/wp-content/uploads/2010/02/ProjectList.txt)
لینک دانلود مستقیم با حجم 97 مگابایت (http://ehsanavr.com/wp-content/plugins/download-monitor/download.php?id=985VisualBasicProjects.exe)

[parselearn]

چند نمونه کد برای کار با MSGBoxهای سفارشی
http://parselearn.persiangig.com/barnamenevis/CustomMsgbox.rar

مسیج باکس فارسی
مسیج باکس گرافیکی
مسیج باکس با فاصله زمانی خروج
تغییر در مسیج باکس پیشفرض ویندوز

[mobinco]

سلام دوستان
من برای تبدیل قالب ایران سیستم به ویندوز یه کد نوشتم و از سورس بهزاد دیکشنری هم استفاده کردم
و فک می کنم از نمونه های معرفی شده، بهتر عمل میکنه.
در ضمن یه مبدل دیگم که توسط شرکت نور ساخته شده داخلش هست که کلی فرمت ها رو پشتسبانی میکنه ولی متأسفانه کدش موجود نیست.

دانلود (http://barnamenevis.org/forum/attachment.php?attachmentid=43659&d=1265387617)

[alihassanabadi]

سلا م به همه دوستان
قرار شد من یه موزیک پلیر آپلود کنم ولی تا امروز فرصت نشد(ببخشید)
اگه خواستید دانلود کنید
تو پست قبلی یه موزیک پلیر گذاشتم ولی امکانات چندانی نداشت این پروژه از اون خیلی بهتره (حالا یه ذره)
امکانات:

1- اجرای یکی از فایلهای Mp3,mid,wav
2- انتخاب پوسته(skin) و ذخیره آن
3- انتخاب یک فایل وپخش

4- تکرار موزیک در صورت تمام شدن
5- پخش موزیک های موجود در یک پوشه(Directory)
6- User freindly
7- وب بروزر(Web Browser)

8- اسکرین سیور(Screen Saver)
9- چت و...
امیدوارم که به کارتون بیاد
http://barnamenevis.org/forum/E:\demo.jpg

[M.T.P]

عزیزان اینم یه برنامه باحال دیگه که حال و هوای برنامه هاتون رو تغییر میده و از لحاظ اطلاع رسانی به کاربر رنگ دات نت رو به خودش میگیره:چشمک:
پست 366 این تاپیک هم نوع دیگه از این برنامه هست دانلود کنید حالشو ببرید.:قلب:

[sg.programmer]

کار با لیست
با mid()
سرچ در لیست
و...

[aryasoft2872]

جستجوی یک فایل در درایو
2 تا گذاشتم اولی پیشرفته و دومی ساده

[aryasoft2872]

اینم یک زبان برنامه نویسی تحت عنوان Ace که با وی بی ساخته شده:

[Rejnev]

سلام
کپی و برش فایلهای ویدئویی خش دار
یک برنامه که به اون قسمتی از یک فایل رو میدیم(ترجیحا ویدئو) و برنامه برای ما توی مقصد کپی میکنه.
زیاد دقیق نیست ولی من خودم با همین تا به حال چند تا آهنگ از بخش های مختلف یک سی دی کنسرت رو که ویندوز نمیتونست کپی کنه کپی گرفتم. فقط یک چیزی اونم اینه که چون ساختار فایل مقصد عوض میشه(احتمالا بخش کنترلی فایل) فایل رو نمیتونید توی هر پلیری اجرا کنید. ولی با KMPlayer اجرا میشه
در این کار از توابع کار با فایل استفاده شده و در صورتی که برنامه نتونه از مبدا اطلاعات رو بخونه اون قسمت رو صرفنظر میکنه و رکوردهای بعدی رو میخونه.
فراموش نکنید که ویندوز صحت کپی یک فایل رو تضمین میکنه! ولی این برنامه نه. حتی اگه از 0 تا 100 درصد رو انتخاب کنید به خاطر این که برنامه چند کیلو چند کیلو از ورودی میخونه در نهایت ممکنه چند کیلو بایت اضافی توی فایل مقصد درج بشه و برای همین تضمینی در صحت فایل مقصد وجود نداره


http://barnamenevis.org/forum/attachment.php?attachmentid=45049&stc=1&d=1267697607

[hamed72]

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

[hamed72]

با این کد خیلی ساده میتونید فاکتوریل یک عدد رو به دست آورید :
Dim a, b, i As Single
Private Sub Command1_Click()
b = 1
Me.Cls
a = InputBox("")
For i = a To 1 Step -1
b = b * i
Next i
Print b
End Sub
Private Sub Form_Load()
b = 1
End Sub

فایل ضمیمه :

[hamed72]

با این برنامه می تونید از طزیق شماره ای که وارد می کنید از طریق مودم شماره گیری کنید

[hamed72]

سلام بر همه برنامه نویسان عزیز یک برنامه ی جالب واستون گذاشتم که پیشنهاد میکنم

دانلودش کنید

[hamed72]

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

کرده باشید

[aryasoft2872]

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

[aryasoft2872]

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

[aryasoft2872]

این هم که برای ocx هاست که با فعال کردنش توی هر فایل اکتیو ایکسی در منوی راست کلیک یک دونه گزینه می آد مال رجیستره و یک دونه هم آنرجیستره

[aryasoft2872]

با عرض سلام

برنامه ای که واستون می ذارم باهاش می تونید چیت کنید...
minesweeper رو که می شناسید (از اون بازی های توپ داخل ادراره است برای وقت کشی) این برنامه رو وقتی که اون بازی بازه بازش کنید و جای بمب ها رو ببیند.(مسیر اجرای خود بازی : Start > All programs > Games > minesweeper)

[aryasoft2872]

آموزش bitBlt

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

[aryasoft2872]

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

برنامه اي كه با اون مي تونيد نمودار دايره اي بسازيد (بدون استفاده از اكتيوايكس)

(با تشکر از Mbt925 برای ابزار پنل لیست)

[sina26]

سورس فایل حرکت نوشته ها بر روی TextBox و فرم
سلام
دوستان سورس فایل حرکت نوشته ها بر روی TextBox و فرم تقدیمتان میگردد واقعا کاری جالب و قابل استفاده در پروژه هاتون میباشد که امیدوارم از استفاده آن بهره کافی رو ببرید

[sina26]

نمایش و مخفی نمودن task bar
با سلام
دوستان این برنامه سورس فایل پنهان کردن و نمایش task bar میباشد

[EhsanAvr]

مجموعه 2100 پروژه ویژوال بیسیک در 18 قسمت.
http://ehsanavr.com/?p=454
http://ehsanavr.com/?p=471
http://ehsanavr.com/?p=473
http://ehsanavr.com/?p=476
http://ehsanavr.com/?p=479
http://ehsanavr.com/?p=482
http://ehsanavr.com/?p=484
http://ehsanavr.com/?p=487
http://ehsanavr.com/?p=489
http://ehsanavr.com/?p=491
http://ehsanavr.com/?p=494
http://ehsanavr.com/?p=497
http://ehsanavr.com/?p=500
http://ehsanavr.com/?p=502
http://ehsanavr.com/?p=504
http://ehsanavr.com/?p=505
http://ehsanavr.com/?p=507
http://ehsanavr.com/?p=509

[sina26]

سورس پروژه کامل مدیریت هتل
سلام
با تشکر از عزیزان سورس فایل تقدیمی سورس پروژه کامل مدیریت هتل میباشد که امیدوارم از استفاده اون لذت ببرید و نکات جالب آموزشی یاد بگیریم

دانلود (http://www.4shared.com/file/0OwfqBuW/HotelManagementSystem.html)

[daniyal_1363]

سلام

یکی از دوستان کدی شبیه به این میخواست

با این تکه کد میتونین یه عکس رو به صورت Strech یا غیر Strech توی یه صفحه مجزا نشون یدین البته
میدونم که شبیه این کد زیاد هستش ولی اگه خواسته باشین عکس رو به اندازه واقعی نشون بدین و اندازه ی عکس شما بیشتر از اندازه صفحه شما باشه 2 تا اسکرول بار عمودی و افقی اضافه میشه تا بتونین عکس رو اسکرول کنید

[M.T.P]

همینطور که همه میدونن متن داخل یه CommandButton بصورت پیش فرض در مرکزش قرار داره.
شاید برای بعضی ها پیش اومده باشه که بخوان متن داخل یک CommandButton موقعیتش رو تغییر بدن مثلا بالا ، پایین ، چپ ، راست ، پایین راست ، پایین چپ و ....
این کد میتونه موارد بالا رو برای شما انجام بده:(جایی که کد قرمز رنگ هست میتونین موقعیت رو عوض کنید.)
1. یک پروژه جدید باز کنید.
2. یک Command به فرم اضافه کنید.
3. کد زیر رو به فرم اضافه کنید.




Enum CmdTextPotion
A_CENTER = &H300&
A_TOP = &H400&
A_TOPLEFT = &H500&
A_TOPRIGHT = &H600&
A_BOTTOM = &H800&
A_BOTTOMLEFT = &H900&
A_BOTTOMRIGHT = &HA00&
A_LEFT = &H100&
A_RIGHT = &H200&
End Enum
Private Const GWL_STYLE& = (-16)
Private Declare Function GetWindowLong& Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long)
Private Declare Function SetWindowLong& Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long)
Private Sub Command1_Click()
Dim tmpValue&
Dim Align&
Dim ret&
fAlignment& = CmdTextPotion.A_BOTTOMRIGHT
tmpValue& = GetWindowLong&(Command1.hwnd, GWL_STYLE) And Not BS_RIGHT
ret& = SetWindowLong&(Command1.hwnd, GWL_STYLE, tmpValue& Or fAlignment&)
Command1.Refresh
End Sub

[Snoopboy]

همینطور که همه میدونن متن داخل یه CommandButton بصورت پیش فرض در مرکزش قرار داره.
شاید برای بعضی ها پیش اومده باشه که بخوان متن داخل یک CommandButton موقعیتش رو تغییر بدن مثلا بالا ، پایین ، چپ ، راست ، پایین راست ، پایین چپ و ....
این کد میتونه موارد بالا رو برای شما انجام بده:(جایی که کد قرمز رنگ هست میتونین موقعیت رو عوض کنید.)
1. یک پروژه جدید باز کنید.
2. یک Command به فرم اضافه کنید.
3. کد زیر رو به فرم اضافه کنید.




Enum CmdTextPotion
A_CENTER = &H300&
A_TOP = &H400&
A_TOPLEFT = &H500&
A_TOPRIGHT = &H600&
A_BOTTOM = &H800&
A_BOTTOMLEFT = &H900&
A_BOTTOMRIGHT = &HA00&
A_LEFT = &H100&
A_RIGHT = &H200&
End Enum
Private Const GWL_STYLE& = (-16)
Private Declare Function GetWindowLong& Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long)
Private Declare Function SetWindowLong& Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long)
Private Sub Command1_Click()
Dim tmpValue&
Dim Align&
Dim ret&
fAlignment& = CmdTextPotion.A_BOTTOMRIGHT
tmpValue& = GetWindowLong&(Command1.hwnd, GWL_STYLE) And Not BS_RIGHT
ret& = SetWindowLong&(Command1.hwnd, GWL_STYLE, tmpValue& Or fAlignment&)
Command1.Refresh
End Sub




ممنون خیلی آموزش خوبی بود . اگه ممکنه بگو چطوری رنگ متن داخل Command هم عوض کنیم :خجالت:

[M.T.P]

ممنون خیلی آموزش خوبی بود . اگه ممکنه بگو چطوری رنگ متن داخل Command هم عوض کنیم :خجالت:

تغییر رنگ Forecolor مربوط به CommandButton
http://vbnet.mvps.org/index.html?code/subclass/buttoncolour.htm

[daniyal_1363]

سلام

یکی از دوستان کدی شبیه به این میخواست

با این تکه کد میتونین یه عکس رو به صورت Strech یا غیر Strech توی یه صفحه مجزا نشون یدین البته
میدونم که شبیه این کد زیاد هستش ولی اگه خواسته باشین عکس رو به اندازه واقعی نشون بدین و اندازه ی عکس شما بیشتر از اندازه صفحه شما باشه 2 تا اسکرول بار عمودی و افقی اضافه میشه تا بتونین عکس رو اسکرول کنید

این نمونه خیلی خیلی کامتره


1 - نمایش سایز واقعی عکس
2 - تغییر سایز عکس با تغییر فرم
3 - تغییر سایز به سایز اولیه
4 - در صورتی بزرگتر بودن سایز عکس از صفحه نمایش ، نمایش و امکان اسکرول کردن عکس

[aryasoft2872]

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

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

[aryasoft2872]

ایجاد Gradient :

دانلود (http://barnamenevis.org/forum/attachment.php?attachmentid=49961&d=1275129567)

[aryasoft2872]

ساخت لوگو به طور نسبتا حرفه ای:

[aryasoft2872]

شیشه ای کردن تصاویر:

[Snoopboy]

Send Message & Get Handle & Press Button & ...

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


http://mbt925.parsaspace.com/CSharp/Manage%20Calculator.png

دانلود:

http://soda.parsaspace.com/MBT925/Learn-Sample/Manage%20Calculator.rar


خسته نباشید اگه ممکنه اینو یه جای دیگه آپلود کنید :قلب:

[aryasoft2872]

نمونه ای جالب LED مانند:
[/URL][URL="http://barnamenevis.org/forum/attachment.php?attachmentid=50107&stc=1&d=1275311560"]
(http://barnamenevis.org/forum/attachment.php?attachmentid=50106&stc=1&d=1275311395)

[aryasoft2872]

این کد هم مال گرفتن حرکات جوی استیک (البته فقط شک رو نمی تونه فعال کنه)

[daniyal_1363]

سلام

نمیدونم کسی تا حال همچین کاری انجام داده یا نه ولی این نمونه ProgressBar که خیلی خیلی ساده و با استفاده یه جرقه کوچک ذهنی درست شد


خصوصیات:

1- از هیچ کامپونتی استفاده نمیشه

2 - به جای قسمت نمایش ( ستون پر شونده ProgressBar) میتونین هر شی رو که خاصیت Width داشته باشه بزارین (فکر کنین چه کارایی میشه کرد)

3 - با استفاده از اشیاء معمولی و یک یا دو فرمول ساده ریاضی برنامه ریزی شده که راحت قابل فهم و قابل تغییره

موفق باشین


http://up.iranblog.com/Files/d21f8281999840f5a27c.JPG

[aryasoft2872]

یک فرم مناسب برای صفحه about:

[parselearn]

چند نمونه سورس براي قفل كردن پوشه ها
رمزگذاري پوشه
Lock Folder

(به هيچ كدومش نميشه اعتماد كرد)
(http://parselearn.persiangig.com/barnamenevis/Folder_Lock.rar)

[hoooooo]

دوستان فقط استفاده کننده نباشن.

با قرار دادن نمونه های خوبی که میشناسین یا دارین ، این مجموعه رو کامل تر کنین.
ببین من یک کد بلدم یاد همه میدم برای کپی کردن فایله
filecopy c,f
به جای cمبدا و به جای f مقصد رو بنویسید
برای این که بفهمید برنامه کجا اجرا شده باید از کد زیر استفاده کنید
"app.path &"/"&app.exename &".exe
خوب بود اگه بدردتون خورد بدونین نمیدونم از کدوم انجمن این رو اوردم نویسنده اش هم
انشا الله حلالم کنه دعا کنین

[arash020]

1 . گذاشتن تصویر تو پس زمینه درایوها یا پوشه ها !

http://arash020.persiangig.com/other/Eagle%20BD%20%20X1.rar

2 .نقاشی به همراه -> قرینه سازی !

http://arash020.persiangig.com/other/qarinesaz%20%20%20%20X1.rar

[hamid_shoja]

http://pasak.org/admin/img_product/166.jpg
دانلود (http://pasak.org/showproduct.php?id=166)

[M.T.P]

شاید تا حالا برای شما هم پیش اومده باشه که بخواین داخل یک جعبه متن کلمه عبور وارد کنید.
اکثر این جعبه متن (مثل تصویر زیر) از پیش یک متن با عنوان های Inter password یا ... رو بصورت کم رنگ نشون میدن و به محض فکوس روی اونها آماده دریافت پسورد میشن.

http://persianloord.persiangig.com/image/Login.jpg

این موضوع رو میتونین در برنامه زیر ببینید.
دانلود (http://www.persiangig.com/pages/download/?dl=http://persianloord.persiangig.com/other/Login.rar) از Persiangig

[parselearn]

شاید تا حالا برای شما هم پیش اومده باشه که بخواین داخل یک جعبه متن کلمه عبور وارد کنید.
اکثر این جعبه متن (مثل تصویر زیر) از پیش یک متن با عنوان های Inter password یا ... رو بصورت کم رنگ نشون میدن و به محض فکوس روی اونها آماده دریافت پسورد میشن.

http://persianloord.persiangig.com/image/Login.jpg

این موضوع رو میتونین در برنامه زیر ببینید.
دانلود (http://www.persiangig.com/pages/download/?dl=http://persianloord.persiangig.com/other/Login.rar)


سورس دوستمون با كمي تغييرات

[Vernal23]

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

[M.T.P]

این برنامه آیکن های 32بیتی موجود در dll ها و فایل های اجرایی exe را نمایش میدهد.
توسط این برنامه میتونید از آیکن های زیبای ویندوز در برنامه تون استفاده کنید.
اگه از MessageBox های اختصاصی و ساخت خودتون استفاده میکنید و دوست دارید messageboxتون از آیکن های ویندوز استفاده کنه این بهترین راه ممکنه.(مزیت این کار اینه که اگه برنامه رو در ویندوزهای جدید مثل 7 اجرا کنید ، برنامه تون آیکن های جدیدتر رو میخونه و استفاده میکنه.

http://persianloord.persiangig.com/image/icons.JPG

امیدوارم با توابع موجود در این برنامه بتونم تصاویر PNG رو هم تو PictureBox به نمایش دربیارم.(دارم روش کار میکنم.)

[M.T.P]

این دیکشنری با بیش از پنجاه هزار لغت امکان ترجمه کلمات لاتین را به فارسی و برعکس را دارد.
بانک این دیکشنری از نوع اکسس 2003 هست.
همچنین این برنامه میتواند آموزش خوبی برای اون دسته از عزیزان باشه که مایل به فراگیری کار با بانک های اطلاعاتی هستند.

http://persianloord.persiangig.com/image/MTP%20Dictionary.jpg

تقدیم به همه دوستان.
دانلود (http://www.persiangig.com/pages/download/?dl=http://persianloord.persiangig.com/other/MTP%20Dictionary.rar) از سایت persiangig

دانلود از سایت برنامه نویس:
این سه تا فایل رو دانلود کنید کنار هم قرار بدید و بعد از حالت فشرده خارج کنید.

[ali190]

سلام
دوست گرامی میشه لطف کنید و منظورتون رو از msgbox های سفارشی واضح تر بیان کنید؟
یعنی msgbox هایی که در قالب فرها درست میکنیم؟
یک سئ.ال دیگر هم داشتم
چطور میتونیم یک dll بسازیم و در اون آیکون های دلخواه خودمون رو قرار بدیم؟
فایل مربوط به برنامه دیشکنری هم دانلود نمیشه
ظاهراً لینک خرابه
ممنون از نمونه خوبی که قرار دادید

[arash020]

سلام

سورس برنامه گرفتن لیستی از پوشه های یک مسیر دلخواه و ذخیره در فایل متنی (http://arash020.persiangig.com/other/foldersin.zip)

موفق باشید.

Eagle computer

[M.T.P]

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


http://persianloord.persiangig.com/image/01.JPG

برنامه زیر با استفاده از یک تابع به نام Gradient میتونه در فرم ها و کنترل PictureBox شیب رنگ تولید کرده و فرم شما رو زیباتر کنه.
حالت های شیب رنگ:
افقی و عمودی.

نحوه استفاده :
روی فرم راست کلیک و چپ کلیک کنید.

[كريممحمودی]

جناب m.t.p سلام خسته نباشید
بنده چند وقت است دنبال استفاده از بالن در اکسس هستم ولی متاسفانه به جایی راه پیدا نکردم چگونه می توانم از برنامه بالن در اکسس استفاده کنم
ممنون میشم

[mormorbaba]

كدهاي Module1:





Option Explicit
Public m_hDllKbdHook As Long 'public variable holding
'the handle to the hook procedure

Public Const WH_KEYBOARD_LL As Long = 13 'enables monitoring of keyboard
'input events about to be posted
'in a thread input queue

Private Const HC_ACTION As Long = 0 'wParam and lParam parameters
'contain information about a
'keyboard message
Private Const LLKHF_UP As Long = &H80& 'test the transition-state flag
Public Type KeyboardBytes
kbByte(0 To 255) As Byte
End Type
Private Type KBDLLHOOKSTRUCT
vkCode As Long 'a virtual-key code in the range 1 to 254
scanCode As Long 'hardware scan code for the key
flags As Long 'specifies the extended-key flag,
'event-injected flag, context code,
'and transition-state flag
time As Long 'time stamp for this message
dwExtraInfo As Long 'extra info associated with the message
End Type
Public Declare Function SetWindowsHookEx Lib "user32" _
Alias "SetWindowsHookExA" _
(ByVal idHook As Long, _
ByVal lpfn As Long, _
ByVal hmod As Long, _
ByVal dwThreadId As Long) As Long

Public Declare Function UnhookWindowsHookEx Lib "user32" _
(ByVal hHook As Long) As Long
Public Declare Function CallNextHookEx Lib "user32" _
(ByVal hHook As Long, _
ByVal nCode As Long, _
ByVal wParam As Long, _
ByVal lParam As Long) As Long

Public Declare Sub CopyMemory Lib "kernel32" _
Alias "RtlMoveMemory" _
(pDest As Any, _
pSource As Any, _
ByVal cb As Long)
Public Declare Function GetKeyboardState Lib "user32" _
(kbArray As KeyboardBytes) As Long
Public Declare Function GetKeyState Lib "user32" _
(ByVal nVirtKey As Long) As Integer

Public Function LowLevelKeyboardProc(ByVal nCode As Long, _
ByVal wParam As Long, _
ByVal lParam As Long) As Long
Dim kbdllhs As KBDLLHOOKSTRUCT

If nCode = HC_ACTION Then

Call CopyMemory(kbdllhs, ByVal lParam, Len(kbdllhs))
If (kbdllhs.flags And LLKHF_UP) Then

MsgBox (kbdllhs.vkCode)


End If

End If 'nCode = HC_ACTION

LowLevelKeyboardProc = CallNextHookEx(m_hDllKbdHook, _
nCode, _
wParam, _
lParam)

End Function



كد هاي داخل فرم اصلي






Option Explicit

Private Sub Form_Load()
'set and obtain the handle to the keyboard hook
m_hDllKbdHook = SetWindowsHookEx(WH_KEYBOARD_LL, _
AddressOf LowLevelKeyboardProc, _
App.hInstance, _
0&)
If m_hDllKbdHook = 0 Then


MsgBox "Failed to install low-level keyboard hook."


End If


End Sub


Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If m_hDllKbdHook <> 0 Then
Call UnhookWindowsHookEx(m_hDllKbdHook)
End If


End Sub

[M.T.P]

همه برنامه نویس های ویژوال بیسیک 6 میدونن که فونت های(قلم) کدنویسی که بتونه هم لاتین و هم فارسی رو ساپورت کنه در واقع از پیش چند تا بیشتر نیست.
1. Arial
2. Courier New
3. Times New Roman
بصورت پیش فرض تنها با یکی از سه فونت بالا که البته جلوی اسمشون عبارت Arabic هست میشه تو کد نویسی فارسی هم تایپ کرد.
فونت زیر فونت زیبای Segoe UI هست که حتما میشناسیدش و با ورود ویندوز ویستا و 7 جزء فونت پیش فرض تم ویندوز شد ، و دارای خصوصیت Arabic هست و میتونید حال و هوای محیط کدنویسیتون رو باهاش عوض کنید. البته ویندوز ویستا و 7 این فونت رو نصب شده دارن اما نمیشه تو کدنویسی باهاش فارسی تایپ کرد .
پیشنهاد من سایز 11 هست.
امیدوارم مورد استفاده دوستان قرار بگیره.

[arash020]

سلام

مدت زیادی بود نوشته بودمش و داشت اون گوشه های هارد خاک می خورد

گفتم یه دستی به سرش بکشم بزارم رو تاقچه برنامه نویس شاید به درد خورد...

لینک دانلود (http://arash020.persiangig.com/other/Bing.rar)

[mds_boy]

لطفا از فضای خود این سایت استفاده کنید برای آپلود فایل.
هیچ کدام از فایلها از سایت http://parsaspace.com دانلود نمیشوند.

[arash020]

سلام
این بار اومدم یه نرم افزار جدید فلفلی رو بهتون معرفی کنم که می تونه بینهایت یاداشت های مهمتون رو بدون محدودیت براتون ذخیره کنه
برپایه فایل متنی کار میکنه
البته قصد اولم این بود که با رجیستری باشه ولی وسط راه به یه مشکل کوچیک خوردم و تصمیمم عوض شد
فکر کنم ساده تر از این نمیشه ها...


دانلود سورس برنامه دفترچه یاداشت (http://arash020.persiangig.com/other/My%20mem%20tx%20%20X1.rar)


با تشکر
Eagle computer

[sahand02]

با اين برنامه مي تونيد خيلي راحت آلبوم عكس داشته باشيد و اونها رو با موضوعات مختلف تو پايكاه داده ذخيره كنيد. از اين لينك بگيريدش :http://www.4shared.com/file/76507335/acf40e49/ImageDB.html

سلام اين لينكش مشكل داره لطفاً لينك ديگه اي بدين لازم دارم

[returnx]

این هم یک LED Table زیبا وجالب:
http://www.4shared.com/file/8TKW6Jl5/LEDTable.html

[akbarg64]

سلام.یه سورسی بود مربوط به یاهو.کارش این بود که پی ام میفرستاد به این صورت که وقتی Hi رو انتخاب میکردیم با شکلک ستاره Hi رو درست میکرد و میفرستاد یا با شکلک گل عکس قلب رو درست میکرد و واسه اون ادلیستی که مشخص کرده بودیم میفرستاد.آخرش همه نوشته میشد barnamenevis.org.هرچی گشتم تو سایت پیداش نکردم.ممنون میشم اگه کسی داره بزاره.

[aryasoft2872]

یک مثال برای کار با اسپریت ها و نیز چرخش شی با توجه به مکان موس:

[ehsan78mp]

سلام. این برنامه سورس یک HTML Crypter عالیه که خیلی به درد می خوره
از قابلیت هاش:
-با تگ Img سازگاری داره
-با انواع و اقسام تگ ها تست شده
-با فایرفاکس و اینترنت اکسپلورر تست شده درست جواب میده
-به جاوا اسکریپت برای خوندن احتیاجی نداره
اما عیبش اینه که با پارسی سازگار نیست که به زودی این مشکل هم حل میشه.
لذت ببرید!:متعجب::لبخند::لبخندسا ده::گیج::تشویق:

[akbarg64]

سلام.نمیدونم این سورس وجود داره یا نه.امیدوارم تکراری نباشه.اگه بود شرمنده.

[akbarg64]

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

[akbarg64]

اینم یه سورس دیگه.اینجا آپلود نمیشد.شرمنده.حجمش یه کم بالاست.

لینک دانلود (http://www.mediafire.com/?lww17tqatb8kykb)

[Slytherin]

این یک اسکرین سیور ساده می باشد که توسط خودم و به زبان ویژوال بیسیک 6 نوشته شده است.
نکته1: اگر می خواهید تغییری در کد این برنامه بدهید، پس تبدیل برنامه جدید به فرمت exe پسوند آن را با Rename به scr تغییر دهید.
نکته2: اگر می خواهید این اسکرین سیور جزء اسکرین سیور های پیش فرض شما باشد، آن را در مسیر System32 کپی کنید.

[Slytherin]

این یک کد به زبان ویژوال بیسیک 6 می باشد که توسط خودم نوشته شده است، به کمک این کد می توانید عملی را در تاریخ معین (روز، ماه، سال) برنامه ریزی کنید. به عنوان مثال می توانید برنامه ریزی کنید که در سال 2014 و در ماه 10 و در روز 28 فلان اتفاق بیافتد.
نکته: از این کد می توان برای ساختار کلی حملات DDOS استفاده کرد، به این شکل که ویروسی طراحی گردد و در یک تاریخ خاص از طرف میلیون ها رایانه خانگی صفحه سایتی درخواست شود و...:چشمک:

[Slytherin]

این برنامه نیز توسط خودم و به زبان ویژوال بیسیک 6 نوشته شده است، عملکرد این برنامه به گونه است که پس از اجرا شدن، وقتی کاربر در هر جای ویندوز کلیدی از صفحه کلید رایانه را فشار دهد، نام آن کلید توسط اسپیکر پخش خواهد شد!
از این کد می توان در جهت طراحی برنامه های مختلف برای نابینایان استفاده نمود.

[Slytherin]

اگر تا کنون سعی در ساخت بازی توسط ویژوال بیسیک 6 کرده باشید احتمالا دریافته اید که برای حرکت دادن یک جسم توسط کلید ها با کمی مشکل همراه هستیم، به گونه ای که مثلا اگر کلید UP و Right هم زمان فشرده شود، به جای اینکه جسم به صورت مایل حرکت کند، به سمت راست یا بالا می رود.
در این مورد با خیلی های صحبت کردم که اون ها استفاده از DX رو توصیه کردند!
اما من قانع نشدم!
کد پیش رو برنامه ای هست که به کمک یک تایمر، خاصیتی که در بالا ذکر شد را به جسم اضافه می کند، با این کد به راحتی می توان جهت های حرکتی مایل را ایجاد نمود.

[Slytherin]

برنامه پیش رو برنامه ای است که توسط خودم و به زبان ویژوال بیسیک 6 ساخته شده است، کافی است یک بار بر روی exe این برنامه کلیک کنید تا در دفعات بعد هنگام بالا آمدن ویندوز به شما خوش آمد گویی گفته شود!
خاسیت این برنامه اینکه که خودش یوزرنیم ویندوز رو تشخیص می ده و بر اساس اون خوش آمد گویی می کند!
حتی شما می توانید متن خوش آمد گویی را عوض کنید!

[Slytherin]

این کد یک جور دوربین مجازی می باشد که توسط من و دوستم به زبان ویژوال بیسیک 6 نوشته شده است.
کارایی این کد به این شکل است که ابتدا شما یک عکس به عنوان عکس مادر وارد می کنید، سپس کادری کوچک (به عنوان دوربین) در دسترس خواهد بود که با کلیک کردن بر روی عکس مادر، قسمتی از عکس که از آن عکس گرفته شده است جدا می شود! (باید کد رو تست کنید تا متوجه شوید)

[Slytherin]

این یک افکت زیبای متنی متحرک می باشد که توسط خودم نوشته شده است، این افکت متنی به غیر از زیبایی به گونه ای است که گویا متن بازگو کننده یک دیالوگ هست (مثل حرکت دیالوگ ها در بازی های سگا)
در عین حال سورس آن بسیار ساده است، پیشنهاد می کنم حتما دریافت کنید.

[Slytherin]

با این کد می توانید فایل های فیلم را به جای فایل های تصویری در بک گراند ویندوز خود داشته باشید!

[Slytherin]

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

[Slytherin]

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

[Slytherin]

این دو سورس گرافیکی مستقل و بسیار زیبا به صورت انیمیشین در یک پروژه می باشد، شما می توانید با کمی تغییر از این سورس به عنوان اسکرین سیور نیز استفاده نمایید.

[Slytherin]

بار ها در فروم های مختلف مشاهده کرده ام که در مورد ساخت exe توسط برنامه های ویژوال بیسیک 6 سوال شده است. کد پیش رو توسط یکی از دوستانم نوشته شده است و تا حدودی همین کار را انجام می دهد. (البته کامپایل نمی کند! بلکه از سیستم رسورس و تغییر در فایل اجرایی استفاده می کند.)
از این نمونه می توان در ساخت برنامه ساخت برنامه های معمولی توسط کاربر از قبیل اتوران ساز، تروجان/ویروس ساز و از این قبیل ابزار استفاده کرد.

[Slytherin]

سورس به دست آورن لیست درایو ها (به درخواست دوستان در پیام خصوصی)

[mohsen_archi]

تغییر تمام کنترل های VB6 به ویندوز(7,Vista,XP) بدون استفاده از فایل Manifest


http://static.cloob.com//public/user_data/album_photo/1173/3517513-b.jpg


اگه تکراری بود معذرت

[farzad93]

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

[فردان فردان]

برعكس نمودن زيرنويس فيلم

اگر فيلمهاي mkv را تماشا كنيد مي بينيد كه كلمات زيرنويس برعكس نوشته مي شوند.
مثلا : من به بازار مي روم را به صورت: روم مي بازار به من
برنامه پيوست فايل زيرنوس الحاقي را كه به فرمت srt مي باشد را برعكس مي كند تا راحت بتوانيد زيرنويس ها را بخوانيد.
اميدوارم از راهنمايي و نظرات شما بهره مند گردم

[Apache66]

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

http://persiancoder.com/pic/FlowChart.gif


http://www.persiancoder.com/index.php?newsid=38

[quiet_programmer]

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

کلمات کلیدی: تقویم شمسی- تبدیل تاریخ شمسی به میلادی- تبدیل تاریخ میلادی به شمسی- سال کبیسه

65226

http://parsaspace.com/files/3143668884/.rar.html
(http://parsaspace.com/files/3143668884/.rar.html)

[hossein033]

با سلام خدمت بروبچه برنامه نويس:

برنامه Stop :
برنامه اي كه با دادن پسورد به اون تموم ويندوز قفل ميشه و براي وارد كردن پسورد فقط 5 ثانيه وقت دارد در غير اينصورت برنامه بازم قفل ميشه :قهقهه:

توصيه مي كنم دانلود كنيد خيلي جالبه !!!
دانلود:

[parselearn]

برنامه اي براي تغيير بر روي فايلهاي آيكن و نشانگر موس

66832

[kuh_nur]

سلام
مدتها بود که می شنیدم دوستان می خوان با استفاده از کلید Enter عملکرد دکمه Tab رو در Run Time نیاز دارن و بعضی از دوستان اومده بودن و با تغییر keyAscii در تابع KeyPress اینکار رو انجام داده بودن ولی یک مشکل اساسی وجود داشت و اونم پخش صدای Beep کامپیوتر در زمان فشردن دکمه اینتر
مشکل با این سورس حل میشه این کد رو مدتها پیش نوشته بودم ولی از بخت بد نحوه نوشتنش یادم رفته بود (اثرات پیریه) ولی همین چند روزه دوباره به کد نیاز پیدا کردم و بلاخره یادم اومد
حالا نحوه کار
باید برای TextBox هایی که می خواین این حالت رو داشته باشن خاصیت MultiLine رو True کنین بهمین سادگی. شاید سئوال پیش بیاد که در صورت فشردن دکمه اینتر کرسر به خط بعد میره . با این کد این مشک رفع میشه
دانلود
68223

[M.T.P]

خاکستری یا سیاه و سفید کردن عکس

http://persianloord.persiangig.com/image/Colory.jpg

http://persianloord.persiangig.com/image/Gray.jpg

[Fery666]

قفل کردن ویندوز
این برنامه برای قفل کردن صفحه ویندوز هستش .
این برنامه رو توی سون امتحان نکردم .
ولی توی ایکس پی کارش اینه که : وقتی سیستم روشن میشه یه پنجره کوچیک میاد که اشاره گر موس فقط توی همون صفحه هستش و از اون صفحه بیرون نمیره .

باید رمزی که به برنامه دادین رو وارد کنید تا صفحه بسته بشه .
اگر 2 بار رمز رو اشتباه وارد کرده باشید و اگر سیستم شما به خط تلفن وصل باشه از طریق کامپیوتر به شماره تلفنی که به برنامه دادین تماس میگیره .
و شما رو از روشن شدن سیستمتون با خبر میشین .

لینک دانلود (http://www.pic.iran-forum.ir/images/jrn61bkvy6hss8pw4dl0.zip)

[MohammadGh2011]

سلام دوستان يه سوال داشتم در مورد OCX خوشحال ميشم راهنمايي كنيد
براي مثال من يك UserControl1 جديد در vb ايجاد ميكنم و يك ّForm1 بعد من تو UserControl1 يك TextBox ايجاد ميكنم
بعد UserControl1 رو ميبندم و فرم 1 رو باز ميكنم و اون UserControl1 كه داخلش تكس باكس گذاشتم به نوار ابزارم (ToolBox) يعني كامپوننت ايجاد ميشه
حالا من اين كامپوننت رو ميزارم تو داخل فرم 1 حالا من ميخوام وقتي رو تكس باكس كليك ميكنم(نه در حال اجرا) در قسمت properties خاصيت تكس داشته باشه.چه طوري ميشه كه خاصيت تكس داشته باشه ؟؟؟؟؟؟؟؟؟؟؟؟:ناراحت:
مثل اكثر دوستان كه خاصيت about براي خودشون ايجاد ميكنند
دوستان ممنون كه اين سوال من رو خوندين و ممنون ميشم كه جوابم رو بديد.

[Mr'Jamshidy]

Get Property
Let Property

[MohammadGh2011]

ببخشيد جناب Mr`Jamshidy
اين پاسخ منه يا چيز ديگست؟



Get Property
Let Property

[محسن واژدی]

ببخشيد جناب Mr`Jamshidy
اين پاسخ منه يا چيز ديگست؟

سلام علیکم
بله بگونه ای آقای Mr'Jamshidy دستوراتی که برای ایجاد یک property مورد نیاز است را نوشته اند
Get Property: مقدار فعلی یک خصوصیت را برمیگرداند
Let Property: مقدار خصوصیت مورد نظر که توسط کاربر تنظیم شده است را دریافت میکند

نمونه زیر را بررسی کنید، در این نمونه یک خاصیت Text برای usercontrol در فرم Properties اضافه شده است

البته یک نکته خیر مهم را مد نظر داشته باشید و آن هم این است که همیشه بایستی property جدید نوشته شده را به رویدادهای ReadProperties/WriteProperties نیز معرفی نمائید تا مقداردهی که در زمان طراحی برای خصوصیات controlتان انجام داده اید در زمان اجرای فرم در حافظه نگهداری شوند در غیراینصورت مقادیر تنظیم شده هم زمان با اجرا فرم، بستن پروژه و یا کامپایل ذخیره نشده و مجددا با داده های پیش فرض مقدار دهی میشوند

موفق باشید

[rahmatr]

من پنج ساله که برنامه نویسی با vb6 رو کنار گذاشتم و رفتم سراغ دات نت. روی کامپیوترم یه درایو دارم به اسم vb6 که پر از برنامه هاییه که نوشتم یا دانلود کردم. گفتم اینجا بزارم شاید بدرد کسی بخوره.

دو تای اولی:
ISO Creater که ایمیج میسازه
Burn که ایمیجو رو سی دی رایت میکنه

[rahmatr]

این هم چند تا دیگه:

capture برای عکس گرفتن از یک پنجره یا یک قسمت از یک پنجره
IconEditor برای ایجاد و ویرایش آیکونهای 32 در 32
Enable برای فعال کردن و نمایش دادن قسمت های غیرفعال و مخفی نرم افزارها (هنوز هم ازش استفاده میکنم)
Phone برای شماره گیری تلفن

[rahmatr]

چند تا دیگه:

Process شبیه taskManager
Firewall و FirewallAPP فایروال برای xp
ServiceManager لیست سرویسهای ویندوز

[rahmatr]

دو تا دیگه:

Digital design برای آموزش مدار منطقی. یادمه روی این یکی خیلی زحمت کشیدم و یکی از برنامه هاییه که خیلی دوستش داشتم. طرز کارش: روی گیت ها کلیک کنید و هر جای صفحه خواستید اونو قرار بدید. بعد دو سه تا ورودی (in) و یه خروجی (out) هم به صفحه اضافه کنید. بعد از اضافه کردن هر گیت کلیک راست کنید تا ماوس به حالت عادی برگردد و آماده سیم کشی شود. بعد از ورودیها به ورودی گیت ها سیم کشی کنید و از خروجی گیت ها به خروجی ها سیم کشی کنید تا مدار کامل شود. روی هر کدام از ورودیها کلیک کنید به ترتیب مقدار 0 و 1 میگیرند و اگر رو قسمت تولبار روی run کلیک کنید نتیجه در خروجی یا خروجی ها نمایش داده میشود.

72171


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

72170

[ali.rezaei7]

پروژه زیر رو دانلود کنید، درصورتی که نیاز به سورس کدی دارید که بتونه تغییراتی از قبیل درج و حذف مدیا(...USB,CD/DVD,Floppy) را کشف کنه.

Download Link | 2.37KB (http://www.up.iranblog.com/images/wqlrxxys97vj38hlcni.zip)

پ.ن: نسخه سی شارپ برنامه رو (همراه با توضیح)در تاپیک «نمونه برنامه مفید در سی شارپ» از بخش سی شارپ دانلود کنید.

موفق باشید.

[SalehVB]

Tray Icon

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

دانلود (http://soda.parsaspace.com/MBT925/Learn-Sample/TrayIcon_Definitive.rar)
سلام
این لینکش مشکل داره ممنون میشم اگه لینک رو چک کنید.

[محسن واژدی]

سلام
این لینکش مشکل داره ممنون میشم اگه لینک رو چک کنید.


سلام علیکم
سورس زیر را بررسی کنید:
http://www.planet-source-code.com/vb/scripts/ShowCode.asp?txtCodeId=73358&lngWId=1
تصویر:
http://www.planet-source-code.com/Upload_PSC/ScreenShots/PIC20108201043428958.JPG

همچنین:
http://www.planet-source-code.com/vb/scripts/ShowCode.asp?txtCodeId=70648&lngWId=1
تصویر:
http://www.planet-source-code.com/Upload_PSC/ScreenShots/PIC200866171345321.jpg

موفق باشید

[alinini]

سلام به همه ی دوستان این برنامه رو با هزار بد بختی از اینترنت گیر اوردم که مبدل تاریخه و برای بدست اوردن تعداد روز های بین تاریخ های شمسی می توانید استفاده کنید باید بگم که این برنامه خیلی دقیقه مخصوصا در محاسبه ی سال های کبیسه :لبخند::لبخند:

منبع (http://www.vojoudi.com/)

تبدیل تاریخ میلادی به تاریخ هجری شمسی
Download (http://www.vojoudi.com/vb/program/DATE_converter_01.exe)
برنامه اجرائی (32 کیلوبایت)

Download (http://www.vojoudi.com/vb/source/Date_converter_Source_01.zip)
سورس برنامه به صورت زیپ شده (5 کیلوبایت)



مبدل تاریخ هجری شمسی (ایرانی) به میلادی، هبرو و هجری قمری
Download (http://www.vojoudi.com/vb/program/persian_date_Converter.exe)
برنامه اجرائی (52 کیلوبایت)

Download (http://www.vojoudi.com/vb/source/persian_date_converter.zip)
سورس برنامه به صورت زیپ شده (21 کیلوبایت)

[Restlesa]

Detect_MS

این نمونه نصب بودن Word، Excel ،PowerPoint ،Outlook ،Access روی سیستم رو چک می کنه .

دانلود (http://soda.parsaspace.com/MBT925/Learn-Sample/Detect_MS.rar)

لینک خرابه لطفا تصحیحش کنید

[محسن واژدی]

لینک خرابه لطفا تصحیحش کنید


سلام علیکم

موفق باشید

[joker_pok]

سورس بازی 8 وزیر
سورس برنامه تولید Sound بدون دردسر و نداشتن آهنگ

حتما دانلود کنید .

[joker_pok]

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

[joker_pok]

ساخت object در موقع اجرای برنامه مثلا با کلیک روی باتون 1 باتون دیگر ساخته خواهد شد . به درد بخور خواهد بود .

[joker_pok]

کد کردن متن دلخواه ، فشرده کردن و خارج سازی با بهترین الگوریتم . حالشو ببرید

[joker_pok]

سورس برنامه آزمونگیر خیلی قشنگه

[joker_pok]

سورس برنامه آپدیت نرم افزار ( خیلی ها دنبالش هستن )

[joker_pok]

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

[joker_pok]

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

[joker_pok]

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

[Restlesa]

Get WinName and ConName

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

دانلود (http://soda.parsaspace.com/MBT925/Learn-Sample/WinName%20ConnName.rar)

لینک دانلود خرابه میگه که فایل وجود نداره لطفا تصحیحش کنید

[Restlesa]

OpenDialog

یه Open Dialop البته با API با همه ی ثابت هایی که می تونه داشته باشه.
از این ثابت ها می تونین برای CommonDialog استاندارد هم استفاده کنین.
منظورم از ثابت ها مقادیریه که خصوصیت Flags می گیره.

دانلود (http://soda.parsaspace.com/MBT925/ActiveX/GetOpenFileName-Dialog.rar)

این لینک هم مشکل بالایی رو داره ممنون میشم اینم تصحیحش کنید

[Restlesa]

Form Animate

لود و آنلود شدن با افکتی زیبا

دانلود (http://soda.parsaspace.com/MBT925/Learn-Sample/Form%20Animate.rar)

اینم مشکل داره

[Restlesa]

دوست عزیز تمامی فایل هایی که در سایت parsaspace آپلود شده اند غیر فعال هستن لطفا لینک های تاپیک رو مجددا به روز کنید
با تشکر فراوان

[nokhodi]

OpenFolder

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

دانلود (http://soda.parsaspace.com/MBT925/Learn-Sample/OpenFolder%20-FULL.rar)



میشه لطفا این سمپل رو دوباره قرار بدین...

[M.T.P]

باز کردن پوشه مورد نظر:


Dim dblRet As Double
dblRet = Shell("Explorer C:\", vbNormalFocus)

[nokhodi]

باز کردن پوشه مورد نظر:


Dim dblRet As Double
dblRet = Shell("Explorer C:\", vbNormalFocus)

اگه بخواهیم این مسیر..مسیر برنامه باشه چطوری ادرس دهی میکنیم؟!

[محسن واژدی]

اگه بخواهیم این مسیر..مسیر برنامه باشه چطوری ادرس دهی میکنیم؟!

از App.Path استفاده کنید:

Dim dblRet As Double
dblRet = Shell("Explorer " & App.Path, vbNormalFocus)


موفق باشید

[SlowCode]

لطفا کد انتخاب فایل مرد نظر در یک مسیر رو هم بزارید منظورم select هست.

[butterfly8528]

سلام دوست عزیز .

لطفا کد انتخاب فایل مرد نظر در یک مسیر رو هم بزارید منظورم select هست.
Shell "Explorer.exe /select , " & "FilePath", vbNormalFocus