Printable View
++ Snow
بارش برف روی فرم
با اونی که قبلا تو سایت بود فرق داره !
دونه های برف متغییر هستند و قابل تنظیم است
سرعت بارش رو میشه تنظیم کرد
میشه به بارش جهت داد (وزش باد)
البته نویسندشو نمیدونم کیه !
http://img2.freeimagehosting.net/uploads/4acda303b4.jpg
Direct Enter in MsFlexGrid
همون طور که می دونین کنترل MsFlexGird توی ویبی این قابلیت رو نداره که بشه توی یه سلولش مستقیم تایپ کرد.
یه راه حل جالب و ساده برای حل این مشکل نمونه زیره:
دانلود
(از Ermia2008 عزیز)
CTextBox
با TextBox هم چه کارا که نمیشه کرد !
یه نمونه خیلی خیلی کامل برای نشون دادن همه قابلیت های TextBox
http://mbt925.persiangig.com/Learn_S...boxScrShot.gif
دانلود
Button Color
همون طور که می دونین نمیشه رنگ متن روی دکمه های ویبی رو تغییر داد .
این نمونه این کارو بصورت غیر مستقیم انجام میده.
http://soda.parsaspace.com/MBT925/Le...lorScrShot.jpg
دانلود
(از VBHamed عزیز)
Transparent TextBox
http://soda.parsaspace.com/MBT925/Le...ox1ScrShot.jpg
دانلود
این نمونه توی بریدن عکس (حاوی عدد) حدودا بودن اشتباه عمل می کنه.
برای تشخیص حروف (تبدیل به کاراکتر) خیلی بد عمل نمی کنه.(برای فونت مشاهده شده)
http://soda.parsaspace.com/MBT925/Le...erScrShot2.jpg
http://soda.parsaspace.com/MBT925/Le...erScrShot1.jpg
دوتا ابزار خوب برای کار با وب کم :
Webcam_Motion
http://soda.parsaspace.com/MBT925/Le...ionScrShot.jpg
دانلود
این نمونه هم تصویر رو از Msn و Windows Live Messenger می گیره :
MSN- WindowsLiveMessenger Webcam Capture Utility
http://soda.parsaspace.com/MBT925/Le...ityScrShot.JPG
دانلود
Get MouseOver Word
نمونه ی خیلی خوبیه .
از دست ندینش.
http://soda.parsaspace.com/MBT925/Le...rdScrShotl.JPG
دانلود
درگ کردن فرم خیلی ساده با API
Word_Capture
حتما تا حالا طرز کار نرم افزار Babylon رو دیدین : که وقتی روی به کلمه یه دکمه خاص موس رو می زنین ، باز میشه و ترجمش رو نشون میده.
با این نمونه خیلی راحت می تونین این کار رو انجام بدین.
دانلود
Print Screen
این نمونه کار دکمه Print Screen رو کامل تر از خودش انجام میده
دانلود
دوستان عزیز سلام
شاید دوست داشته باشین یک فایل تصویری رو به پسوند های jpg bmp و .. تبدیل کنید
برای این کار ابتدا کافیست کد زیر رو امتحان کنین
("1") dim bitmap1 as new bitmap(bitmap1.Save("1" & System.Drawing.Imaging.ImageFormat.Jpeg.ToString
منظور از 1 مسیر فایل شما می باشد
البته برای تبدیل به پسوند های دیگر فقط لازم است Imageformat.Jpeg را تغییر دهید
یعنی
bitmap1.Save("1" & System.Drawing.Imaging.ImageFormat.BMP.ToString
Usb Find
نمونه ی خوبیه برای کار با USB
دانلود
Notepad
نمونه ی خوبیه برای کسایی که می خوان نوشتن یه NotePad رو شروع کنن.
دانلود
MouseEnterLeave
توی ویبی ایونت های MouseLeave و MouseEnter وجود نداره ، با این ابزار می تونین همچین ایونت هایی رو به ابزارهای دلخواهتون اضافه کنید.
دانلود
Good Chess
بازی شطرنج از اون بازی هاییه که دوستان خیلی درخواست می کنن.
امیدوارم استفاده کنن.
http://soda.parsaspace.com/MBT925/Le...essScrShot.jpg
دانلود
Add Horizontal ScrollBar to ListBox
همون طور که می دونین بعد از افزایش محتوای لیست باکس و جا نشدن محتویات در طول فعلی ، اسکرول بار عمودی به لیست باکس اضافه میشه ولی وقتی محتوا از نظر عرضی بزرگتر از عرض لیست باکس میشه ، اسکرول بار افقی ظاهر نمیشه؟؟؟؟؟؟؟
ماژول زیر رو دانلود کنین و از دستور زیر استفاده کنید:
ListBox Name : نام لیست باکس موردنظر
Call SetHorizontalExtent(ListBox Name , ScrWidth)
ScrWidth : عرض مورد نظر -> چندتا عدد تست کنین تا به عرض موردنظر برسید
دانلود ماژول
دو تا نمونه برای کار با رجیستری ، جستجوی رجیستری و پاکسازی
Patriot Registery Cleaner
http://soda.parsaspace.com/MBT925/Le...eanScrShot.jpg
دانلود
DLLRegClean
دانلود
MBFastCopy
یه نمونه ی خیلی خیلی خوب برای کپی کردن فایل ها بدون استفاده از هیچ کدوم از توابع کپی.
این نمونه ، یه نمونه ی آموزشی هست و اسمش هم معنی خاصی نداره ،
این نمونه می تونه محتویات یک فولدر رو هم کپی کنه (فایل هاش).
نکات آموزش خیلی خوبی داره ، حتما ازش استفاده کنید.
البته میشه با یکم بهینه سازی ، سرعت رو بیشتر از از سرعت کپی ویندوز کرد.
---------------
ProgressBar ای که توی این نمونه استفاده شده ، یکی از کامل ترین ProgressBar هاست ، که یه سری از مشکلاتشو برطرف کردم .
البته برای کپی کردن فایل های توی ویندوز ، حتما از کپی اه خود ویندوز استفاده کنید ، چون در یک کپی واقعی ، باید خیلی نکات رعایت بشه و این نمونه فقط جنبه آموزشی داره.
---------------
http://mbt925.persiangig.com/Learn_S...opyScrShot.jpg
دانلود برنامه
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