لینک دانلود : VB Control Panel Api Download
پویا
لینک دانلود : ResHack Download 0.5 MB
لینک دانلود : VB Antegral Calculator and Grapher Download -By pooya sarraf
مثال :
SendKeys "%{f4}" 'Alt + F4 and closes the program
در اینجا لیست تمام مقادیر رو می تونین مشاهده کنین :
| Key | Code |
| BACKSPACE | {BACKSPACE}, {BS}, or {BKSP} |
| BREAK | {BREAK} |
| CAPS LOCK |
{CAPSLOCK} |
| DEL or DELETE | {DELETE} or {DEL} |
| DOWN ARROW | {DOWN} |
| END | {END} |
| ENTER | {ENTER} or ~ |
| ESC | {ESC} |
| HELP | {HELP} |
| HOME | {HOME} |
| INS or INSERT | {INSERT} or {INS} |
| LEFT ARROW | {LEFT} |
| NUM LOCK | {NUMLOCK} |
| PAGE DOWN | {PGDN} |
| PAGE UP | {PGUP} |
| PRINT SCREEN | {PRTSC} |
| RIGHT ARROW | {RIGHT} |
| SCROLL LOCK | {SCROLLLOCK} |
| TAB | {TAB} |
| UP ARROW | {UP} |
| F1 | {F1} |
| F2 | {F2} |
| F3 | {F3} |
| F4 | {F4} |
| F5 | {F5} |
| F6 | {F6} |
| F7 | {F7} |
| F8 | {F8} |
| F9 | {F9} |
| F10 | {F10} |
| F11 | {F11} |
| F12 | {F12} |
| F13 | {F13} |
| F14 | {F14} |
| F15 | {F15} |
| F16 | {F16} |
لینک دانلود : Vb 2 Excel Download
این برنامه امکانات زیادی برای رسم انواع نمودار دارد و با بان اطلاعاتی Access کار می کند ...
لینک دانلود : Vb Graph Download
نمایی از Print Preview برنامه :
دانلود 1 : Toolbar Icons
دانلود 2 : Windows XP Icons
با تشکر پویا
لینک دانلود : Vb Register Dlls & OCXs Download
لینک دانلود :VB AutoCad Ocx Download
برای استفاده در قسمت Components این فایل ocx رو Add کنین و از این object روی فرمتون قرار بدین.کد زیر مثالی برای چگونگی استفاده از این ActiveX Control هست.
TextRotate1.BeginRotation "Vbprogramming.blogfa.com","tahoma","10",Black
لینک دانلود: Vb 3D Rotate Text Download
۱)Server جدیدی که من برای میزبانی فایل هام استفاده می کنین باز هست و مشکلی نداره....همچنین تا حالا از 6 تا دانلود اخیر حدوداً 140 مورد دانلود شده که یعنی در دانلود هم مشکلی نیست....
2) برای استفاده از تمامی پروژه ها باید Visual Basic 6 ترجیحاً نسخه Enterprise روی Pc تون نصب باشه ....
3) پروژه ها رو از توی فایل های فشرده اجرا نکنید چون کار نمی کنند . حتماً قبل از استفاده اونارو تو یک پوشه Extract کنین.
4) افرادی که باز هم مشکل دارند نام برنامه مورد نظر و E-mail خودشون رو تو نظرات بذارن تا براشون E-mail کنم.
با تشکر پویا
لینک دانلود : VB Image Proc Download
فقط دو object رو بسازین : Command1 و List1
Private Sub Command1_Click()
Set Printer = Printers(List1.ListIndex)
End Sub
Private Sub Form_Load()
For a = 0 To Printers.Count - 1
List1.AddItem Printers(a).DeviceName
Next a
End Sub
لینک دانلود : VB painting Download
Public Const SC_CLOSE = &HF060
Public Const MF_BYCOMMAND = &H0
Public Declare Function GetSystemMenu Lib "user32" _
(ByVal hwnd As Long, ByVal bRevert As Long) As Long
Public Declare Function DeleteMenu Lib "user32" _
(ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long
Public Declare Function DrawMenuBar Lib "user32" (ByVal hwnd As Long) As Long
این کد رو هم در Form_load کپی کنید .
Dim hMenu As Long
hMenu = GetSystemMenu(Me.hwnd, 0&)
If hMenu Then
Call DeleteMenu(hMenu, SC_CLOSE, MF_BYCOMMAND)
DrawMenuBar (Me.hwnd)
End If
همونطور که تو شکل زیر میبینید دکمه Exit غیر فعال شده .
لینک دانلود : Visual Basic 2005 Pdf File 0.5MB
لینک دانلود : VB Quick Reference Download
اصولا ً افرادی که با برنامه نویسی زیاد سر و کار دارن باید بدونن که چطوری اشیائی درست کنن که به دردشون بخوره و ازش تو برنامه هاشون استفاده کنن .از مزایای ساختن ActiveX Objects نسبت به استفاده کد ها در رویه های داخلی برنامه میشه به موارد زیر اشاره کرد :
1) بالا رفتن سرعت برنامه نویسی برنامه نویس.
2) امکان استفاده از OCX های ایجاد شده در چند پروژه.
3) کاهش Bug های برنامه.
4) نظم و انسجام بیشتر برنامه و کدها و خواناتر شدن برنامه.
5) پایین آمدن تعداد خطوط برنامه و کم حجم تر شدن و Compile بهتر.
تفهیم موضوعی:
ما به عنوان نمونه می خوایم یک Object درست کنیم که دارای 2 عمل کرد باشد .هنگامی که دستور میدیم زمان رو نشون بده و وقتی می خوایم تاریخ رو نشون بده .
برای اینکار مراحل زیر رو رنبال کنید .
1) مطابق شکل VB رو باز کنید و گزینه ActiveX Control رو انتخاب نمایید.
2) حالا یک Label روی فرم با این خصیصه ها ایجاد کنید .
Alignment 2-Center
Backcolor &H00FFC0C0&
Border Style 1-Fixed Single
Caption [Empty]
3)حالا یک تایمر با interval 100 ایجاد کنید .و Enabled اون رو برابرFalse قرار بدین .
4)مطابق شکل عرض و طول فرم User Control (همونی که روش همه اشیا رو گذاشتین)رو با عرض و طول Label1 یکی کنین و Label 1 رو به گوشه بالا سمت چپ ببرین تا فقط Label دیده بشه .
5)درون پنجره کد این دو Function رو بنویسین.
Public Function SetTime()
Timer1.Enabled = True
End Function
Public Function SetDate()
Timer1.Enabled = False
Label1.Caption = Date
End Function
6) درون کد تایمر این کد رو تایپ کنین.
Label1.Caption = Time
7) کل پروژه رو Save کنید .
8) مطابق شکل می خواهیم فایل OCX رو که در واقع همین ActiveX Object ی هست که ساختیم رو ایجاد کنیم تا بتونیم کاراییش رو امتحان کنیم .
برای این کار از منو File گزینه make رو انتخاب نمایید.و در هر جایی که دوست داشتین Save کنید.
حالا می خوایم از این ActiveX Object استفاده کنیم .
1) VB رو باز کرده و یک پروژه ایجاد نمایید
2) در منو ابزار RClick کنین و Components رو بزنید.
3) از قسمت Browse فایل OCX ی رو که ساختین رو انتخاب و OK کنین.
4) همونطور که ملاحظه می کنین یک Object جدید به نوار ابزار اضافه شده که همون ActiveX Object ی هست که ساختیم یکی از اون رو روی فرم بذارین و 2 CommandButton مثل شکل ایجاد کنین و کدهای زیر رو توشون بذارین .
Private Sub Command1_Click()
UserControl11.SetTime
End Sub
Private Sub Command2_Click()
UserControl11.SetDate
End Sub
5) برنامه رو اجرا کنین و اون رو امتحان کنین و ببینین چقدر کیف میده.
هنگامی که Command1 کلیک می شود ActiveX Object ی که ساختیم زمان رو نشون میده .
وقتی که Command2 کلیک میشه تاریخ رو نشون میده .
لینک دانلود : VB Hardware Info Download
لینک دانلود : VB Arc Text Download
خب بسه زیادی درد دل کردم...D:
لینک دانلود : VB ADO Database Project Download
Function fnACOS(Y)
fnACOS = fnDeg(3.1415927 / 2 - (fnRad(fnASIN(Y))))
End Function
Function fnDeg(z)
fnDeg = z * 57.295779513
End Function
Function fnASIN(x)
fnASIN = fnAT(x / ((1 - x ^ 2) ^ 0.5))
End Function
Function fnRad(z)
fnRad = z / 57.295779513
End Function
Function fnCS(X2)
fnCS = Cos(fnRad(X2)
End Function
لینک دانلود : VB System Tray Icon Creator Download
Declare Function SetDoubleClickTime Lib "user32.dll" (ByVal wCount As Long) As Long
Private Sub Command2_Click()
Dim retval As Long
retval = SetDoubleClickTime(1000) ' set the double click speed to 1 second
Text2 = " 1 Second"
End Sub
Public Declare Function RasEnumConnections Lib "RasApi32.dll" Alias "RasEnumConnectionsA" (lpRasCon As Any, lpcb As Long, lpcConnections As Long) As Long
Public Declare Function RasGetConnectStatus Lib "RasApi32.dll" Alias "RasGetConnectStatusA" (ByVal hRasCon As Long, lpStatus As Any) As Long
'
Public Const RAS95_MaxEntryName = 256
Public Const RAS95_MaxDeviceType = 16
Public Const RAS95_MaxDeviceName = 32
'
Public Type RASCONN95
dwSize As Long
hRasCon As Long
szEntryName(RAS95_MaxEntryName) As Byte
szDeviceType(RAS95_MaxDeviceType) As Byte
szDeviceName(RAS95_MaxDeviceName) As Byte
End Type
'
Public Type RASCONNSTATUS95
dwSize As Long
RasConnState As Long
dwError As Long
szDeviceType(RAS95_MaxDeviceType) As Byte
szDeviceName(RAS95_MaxDeviceName) As Byte
End Type
Public Function IsConnected() As Boolean
Dim TRasCon(255) As RASCONN95
Dim lg As Long
Dim lpcon As Long
Dim RetVal As Long
Dim Tstatus As RASCONNSTATUS95
'
TRasCon(0).dwSize = 412
lg = 256 * TRasCon(0).dwSize
'
RetVal = RasEnumConnections(TRasCon(0), lg, lpcon)
If RetVal <> 0 Then
MsgBox "ERROR"
Exit Function
End If
'
Tstatus.dwSize = 160
RetVal = RasGetConnectStatus(TRasCon(0).hRasCon, Tstatus)
If Tstatus.RasConnState = &H2000 Then
IsConnected = True
Else
IsConnected = False
End If
End Function
مثال :
If IsConnected = True Then Label1.Caption = "Connected" Else Label1.Caption = "Disconnect"
لینک دانلود : N_Moadele_N_majhool With VB
روی نوار ابزار RClick کنید و Component سپس Browse .فایل رو انتخاب کنین .Open و بعد ok .تا به نوار اضافه بشه . بعد یکی رو فرمتون بذارین ازش که اسمش DBmanager هست .کد زیر کاملاً مفهوم هست و قسمتی از کارایی این Object رو نشون میده .نتیجه کد در تصویر نشون داده شده .سورس خوده فایل رو بعداً میذارم.....
لینک دانلود : DBManager OCX Download
Private Sub Form_Load()
Dim FileName As String
FileName = "c:\test.mdb"
With DBManager1
.CreateDB FileName, ""
.DBCreateTable FileName, "Table1"
.DBAddColumn FileName, "Table1", "FirstName"
.DBAddColumn FileName, "Table1", "LastName"
End With
End Sub