Printable View
System Information
یه نمونه ی خیلی کامل برای نمابش اطلاعات سیستم
توابع آماده خیلی مفیدی داره.
دانلود
این هم یک برنامه جهت کپی کردن همراه با انیمیشن کپی البته میتونید کسترشش هم بدید
Multi Language
امروزه دیگه اکثر برنامه هایی که می بینید ، دارای منوی انتخاب زبان هستن.
روش معمول ، استاندارد ، سریع برای این کار این روشه:
دانلود
این برنامه پسورد ویندوز رو پیدا می کنه ولی تا 4 یا 6 حرف بیشتر رو پیدا نمی کنه
دوستان می تونن از این فایل استفاده کنن چیز جالبیه
Manage TreeView
نمی دونم تا حالا برنامه نوشتین که همه ی کارتون با TreeView باشه یا نه .
توی برنامه هایی که ابزار اصلی کارشون TreeView هست ،
از کارهای معمول بالا و پایین کردن نودها و عقب و جلو کردن نود هاست.
و یا حذف نود بدون حذف فرزندهاش و یا برعکس.
با این نمونه می تونین همه ی این کارارو بدون دردسر انجام بدین.
http://soda.parsaspace.com/MBT925/Le...odeScrShot.bmp
دانلود
Connection , Send , Recieve , Speed
نمونه ی بدی نیست :
با این نمونه می تونین لیست کانکشن ها رو بدست بیارین.
اتصال به اینترنت رو چک کنید .
ارسال و دریافت رو کنترل کنید.
....
دانلود
Get Drive List
معمولا دوستان زیاد سوال می پرسن که چطور میشه لیست درایو های سیستم و نوعشونو پیدا کرد.
این نمونه این کار رو خیلی ساده انجام میده.
دانلود
بدست آوردن ورژن یک فایل ... مثلا ورژن یک فایل exe
Private Type VS_FIXEDFILEINFO
dwSignature As Long
dwStrucVersion As Long 'e.g. 0x00000042 = "0.42"
dwFileVersionMS As Long 'e.g. 0x00030075 = "3.75"
dwFileVersionLS As Long 'e.g. 0x00000031 = "0.31"
dwProductVersionMS As Long 'e.g. 0x00030010 = "3.10"
dwProductVersionLS As Long 'e.g. 0x00000031 = "0.31"
dwFileFlagsMask As Long 'e.g. 0x3F for version "0.42"
dwFileFlags As Long 'e.g. VFF_DEBUG Or VFF_PRERELEASE
dwFileOS As Long 'e.g. VOS_DOS_WINDOWS16
dwFileType As Long 'e.g. VFT_DRIVER
dwFileSubtype As Long 'e.g. VFT2_DRV_KEYBOARD
dwFileDateMS As Long 'e.g. 0
dwFileDateLS As Long 'e.g. 0
End Type
Private Declare Function GetFileVersionInfoSize Lib "version.dll" _
Alias "GetFileVersionInfoSizeA" _
(ByVal lptstrFilename As String, _
lpdwHandle As Long) As Long
Private Declare Function GetFileVersionInfo Lib "version.dll" _
Alias "GetFileVersionInfoA" _
(ByVal lptstrFilename As String, _
ByVal dwHandle As Long, _
ByVal dwLen As Long, _
lpData As Any) As Long
Private Declare Function VerQueryValue Lib "version.dll" _
Alias "VerQueryValueA" _
(pBlock As Any, _
ByVal lpSubBlock As String, _
lplpBuffer As Any, nVerSize As Long) As Long
Private Declare Sub CopyMemory Lib "kernel32" _
Alias "RtlMoveMemory" _
(Destination As Any, _
Source As Any, _
ByVal Length As Long)
Public Function HiWord(dw As Long) As Long
If dw And &H80000000 Then
HiWord = (dw \ 65535) - 1
Else
HiWord = dw \ 65535
End If
End Function
Public Function LoWord(dw As Long) As Long
If dw And &H8000& Then
LoWord = &H8000& Or (dw And &H7FFF&)
Else
LoWord = dw And &HFFFF&
End If
End Function
Public Function GetFileVersion(sDriverFile As String) As String
Dim FI As VS_FIXEDFILEINFO
Dim sBuffer() As Byte
Dim nBufferSize As Long
Dim lpBuffer As Long
Dim nVerSize As Long
Dim nUnused As Long
Dim tmpVer As String
'GetFileVersionInfoSize determines whether the operating
'system can obtain version information about a specified
'file. If version information is available, it returns
'the size in bytes of that information. As with other
'file installation functions, GetFileVersionInfoSize
'works only with Win32 file images.
'
'A empty variable must be passed as the second
'parameter, which the call returns 0 in.
nBufferSize = GetFileVersionInfoSize(sDriverFile, nUnused)
If nBufferSize > 0 Then
'create a buffer to receive file-version
'(FI) information.
ReDim sBuffer(nBufferSize)
Call GetFileVersionInfo(sDriverFile, 0&, nBufferSize, sBuffer(0))
'VerQueryValue function returns selected version info
'from the specified version-information resource. Grab
'the file info and copy it into the VS_FIXEDFILEINFO structure.
Call VerQueryValue(sBuffer(0), "\", lpBuffer, nVerSize)
Call CopyMemory(FI, ByVal lpBuffer, Len(FI))
'extract the file version from the FI structure
tmpVer = Format$(HiWord(FI.dwFileVersionMS)) & "." & _
Format$(LoWord(FI.dwFileVersionMS), "00") & "."
If FI.dwFileVersionLS > 0 Then
tmpVer = tmpVer & Format$(HiWord(FI.dwFileVersionLS), "00") & "." & _
Format$(LoWord(FI.dwFileVersionLS), "00")
Else
tmpVer = tmpVer & Format$(FI.dwFileVersionLS, "0000")
End If
End If
GetFileVersion = tmpVer
End Function
اینم یه اکتیویکس واسه تغییر رزولوشن
http://soda.parsaspace.com/MBT925/Ac...eV3ScrShot.pngنقل قول:
نوشته شده توسط surpriser
]
این نمونه که قرار میدم و سایر نمونه هایی که آیکون استخراج میکنن هم می تونن آیکون درایو ها و فولدر ها رو استخراج کنن.نقل قول:
نوشته شده توسط surpriser
Extract Drive Icon
دانلود
iBMP_Pic Browser good
یه نمونه خیلی خوب برای کار با تصویر.
در ضمن این برنامه PNG رو هم باز می نه.
http://soda.parsaspace.com/MBT925/Le...oodScrShot.bmp
دانلود
بریدن قسمتی از فرم توسط تصویر
http://soda.parsaspace.com/MBT925/Le...ionScrShot.jpg
نمونه اول
نمونه دوم
MBDir
این نمونه هم بد نیست ، برای کار با خصوصیات فایل ها بدرد میخوره.
http://soda.parsaspace.ir/MBT925/Lea...DirScrShot.jpg
دانلود
Get IP
بدست آوردن IP سیستم از اون سوال هایی اه که زیاد مطرح میشه.
دانلود
اضافه کردن دکمه به نوار عنوان :
http://soda.parsaspace.ir/MBT925/Lea...BarScrShot.jpg
دانلود
Multi Threading
یه نمونه ساده برای استفاده از Multi Threading توی ویبی.
دانلود
Simple Media Player
یه نمونه ساده برای اونایی که با این ابزار کار نکردن.
http://soda.parsaspace.ir/MBT925/Lea...erSnapshot.JPG
دانلود
CharsetMap
تغییر CharSet یا همون Script فونت
http://soda.parsaspace.ir/MBT925/Lea...pleScrShot.jpg
دانلود
دو نمونه دانلودر که از Thread استفاده کردن.
Multi Thread Downloader
Asynchronous Download
Set Wallpaper
با این نمونه می تونین Wallpaper رو تغییر بدین.
دانلود
Gif Player
نمونه ای برای پخش تصاویر متحرک Gif
دانلود
Use Asterix symbol in input box dialog
تا حالا شده بخواین متن رو بشکل ستاره توی InputBox نشون بدید ؟
مثلا برای دریافت پسورد ؟
http://soda.parsaspace.com/MBT925/Le...boxScrShot.jpg
دانلود
Option Explicitنقل قول:
نوشته شده توسط Mbt925
'################################################# ###################################
'# Program name: Three Way Call Hook-Flash demo #
'# #
'# Version: v1.0 #
'# #
'# Date: July 20th 2004 #
'# #
'# Requirements: #
'# VOICE modem or TAPI compliant telephony device #
'# Phone line with 3-way calling #
'# #
'# Operating System: Windows 98, Windows ME, Windows NT 4, Windows 2000, Windows XP #
'# #
'# Note: Under Windows NT 4 voice modems may not supported because of the lack of a #
'# voice capable TAPI universal modem driver. #
'# #
'# Program Purpose: To demonstrate how to add telephony functions to your application#
'# using the TAPIEx ActiveX control. #
'# #
'################################################# ###################################
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Dim currCall As ITAPICall
Private Sub BnDial1_Click()
Dim deviceID As Long
Dim currLine As ITAPILine
deviceID = CbLines.ItemData(CbLines.ListIndex)
Set currLine = mTAPIEx.GetLineFromDeviceID(deviceID)
If currLine.Open() Then ' Open the device
Set currCall = currLine.MakeCall(Txt1StPhN.Text) 'make the first call
BnDial1.Enabled = False
End If
End Sub
Private Sub BnDial2_Click()
' make the second call here
currCall.GenerateDTMF "!" ' send the hook-flash command
Sleep (1500) 'wait 1.5 second for the dialtone
currCall.GenerateDTMF Txt2ndPhN.Text ' now Dial the second phone number
BnDial2.Enabled = False
BnThreeWay.Enabled = True
End Sub
Private Sub BnDropCall_Click()
currCall.Drop
BnDial1.Enabled = True
BnThreeWay.Enabled = False
End Sub
Private Sub BnThreeWay_Click()
currCall.GenerateDTMF "!" 'flash again
End Sub
Private Sub CbLines_Click()
'
BnDial1.Enabled = CbLines.ListIndex >= 0
End Sub
Private Sub Form_Load()
Dim line As ITAPILine
mTAPIEx.Initialize
For Each line In mTAPIEx.Lines 'enumerate the line devices
If (line.Caps.Line_Features And LINE_FEATURE_MAKECALL) > 0 Then
CbLines.AddItem line.DeviceName
CbLines.ItemData(CbLines.ListCount - 1) = line.deviceID
End If
Next
End Sub
Private Sub mTAPIEx_OnConnected(ByVal m_Call As TAPIEXLibCtl.ITAPICall, ByVal ConnectedMode As TAPIEXLibCtl.LINECONNECTEDMODE)
BnDial2.Enabled = True
BnDropCall.Enabled = True
End Sub
Private Sub mTAPIEx_OnDebug(ByVal msg As String)
TxtLog.Text = TxtLog.Text & msg & vbCrLf
End Sub
Private Sub mTAPIEx_OnDisConnected(ByVal m_Call As TAPIEXLibCtl.ITAPICall, ByVal DisconnectedMode As TAPIEXLibCtl.LINEDISCONNECTMODE)
BnDial2.Enabled = False
BnDropCall.Enabled = False
BnThreeWay.Enabled = False
End Sub
Private Sub Txt1StPhN_Click()
If Txt1StPhN.Tag <> 1 Then
Txt1StPhN.Text = ""
Txt1StPhN.Tag = 1
End If
End Sub
Private Sub Txt1StPhN_KeyDown(KeyCode As Integer, Shift As Integer)
Txt1StPhN_Click
End Sub
Private Sub Txt2ndPhN_Click()
If Txt2ndPhN.Tag <> 1 Then
Txt2ndPhN.Text = ""
Txt2ndPhN.Tag = 1
End If
End Sub
Private Sub Txt2ndPhN_KeyDown(KeyCode As Integer, Shift As Integer)
Txt2ndPhN_Click
End Sub
من این رو پیدا کردم
Show PopUp Form
تا حالا به کمبوباکس ها توجه کردین؟
لیست اه بازشو اه کمبوباکس ، همیشه در رو قرار میگیره و با کلیک کردن در جاهای دیگه پنهان میشه.
این نمونه طرز کار کمبوباکس رو نشون میده.
http://soda.parsaspace.com/MBT925/Le...pleScrShot.jpg
دانلود
این هم یک برنامه جهت تغییر کپشن منوی start
Multiple Multimedia Control Sample
استفاده از چند کارت صوت بصورت همزمان
دانلود
Analog Transparent Clock
یه ساعت آنالوگ خیلی زیبا و بدون پس زمینه
http://mbt925.persiangig.com/Learn_S...ockScrShot.gif
Digital Clock
ساعت دیجیتالی
http://mbt925.persiangig.com/Learn_S...ockScrShot.gif
Email_Spider - Finder
این نمونه برای پیدا کردن آدرس های ایمیل از سایت هاست.
http://mbt925.persiangig.com/Learn_S...derScrShot.gif
Popup Blocker
این نمونه هم از اسمش مشخصه چیکار می کنه.
http://mbt925.persiangig.com/Learn_S...kerScrShot.jpg
Richtext Tools
این نمونه شما رو با یه سری از قابلیت های کنترل RichTexyBox آشنا می کنه.
http://mbt925.persiangig.com/Learn_S...olsScrShot.jpg
دو نمونه فایروال برای دوستانی که به این مبحث علاقه دارن. FirewallAPP
http://mbt925.persiangig.com/Learn_S...APPScrShot.jpg
FireWall-Monitor
http://mbt925.persiangig.com/Learn_S...torScrShot.jpg
Binary Transfer Control
http://mbt925.persiangig.com/Learn_S...rolScrShot.jpg
Better Menu
یه نمونه ی خیلی ساده برای ساختن منوهای دلخواهتون
http://mbt925.persiangig.com/Learn_S...enuScrShot.jpg
Magnification- Zoom
خیلی از دوستان دنبال نمونه برای زوم کردن تصویر بودن.
http://mbt925.persiangig.com/Learn_S...oomScrShot.jpg
4 تا از کاملترین نمونه ها برای ساختن هر مدل ToolTip ای که بخواین.
ExTooltip
Easy_Balloon
Tooltip 2 line
Best_ToolTip
http://soda.parsaspace.com/MBT925/Le...pleScrShot.jpg
Modem List - Create connection
با این نمونه می تونید لیست مودم ها رو بدست بیارید و کانکشن جدید ایجاد کنید.
http://soda.parsaspace.com/MBT925/Le...ionScrShot.jpg
دانلود
Dialup_Sample
قابلیت های این نمونه هم توی تصویر مشخصه.
http://soda.parsaspace.com/MBT925/Le...pleScrShot.jpg
دانلود
GetMouseButton
تشخیص فشرده شده دکمه های موس در هر جای صفحه
http://soda.parsaspace.com/MBT925/Le...mpleSample.jpg
دانلود
MouseIn-Out
تشخیص ایونت ها MouseIn و MouseOut
Process Commander
یه نمونه ی خیلی خوب برای کار با پراسس ها
http://soda.parsaspace.com/MBT925/Le...derScrShot.jpg
دانلود