ميشه يه سورس بذاري كه يه فرم ساده باشه و هر دفعه با ويندوز بياد بالا؟؟؟؟؟؟؟؟........../
Printable View
ميشه يه سورس بذاري كه يه فرم ساده باشه و هر دفعه با ويندوز بياد بالا؟؟؟؟؟؟؟؟........../
... و خداوند سرچ را آفرید!!!!!!!!نقل قول:
ميشه يه سورس بذاري كه يه فرم ساده باشه و هر دفعه با ويندوز بياد بالا؟؟؟؟؟؟؟؟........../
تو این زمینه خیلی بحث شده
کد:http://forum.p30world.com/showthread.php?t=209229
کد:http://forum.p30world.com/showthread.php?t=215474
خیلی ممنون که سوالات حرفه ای دوستان رو جواب میدین ... سوال من تو این تایپ مطرح شده ممنون میشم بهم کمک کنید .
سلام
پیداش کردم اینم api فرمت درایونقل قول:
هرکس که تواند API فرمت را پیدا کند.......
یک در دنیا و 100 در آخرت.....
آرش(م)
فقط تستش نکردم شرمنده ، خودت تستش کن نتیجه رو بگو.
کد:
'**************************************
'Windows API/Global Declarations for :cm
' dFormatDrive
'**************************************
Private Declare Function SHFormatDrive Lib "shell32" _
(ByVal hwnd As Long, ByVal Drive As Long, ByVal fmtID As Long, _
ByVal options As Long) As Long
Private Declare Function GetDriveType Lib "kernel32" Alias _
"GetDriveTypeA" (ByVal nDrive As String) As Long
'**************************************
' Name: cmdFormatDrive
' Description:Format Floppy Disk using A
' PI:Here is the code on How to Format Flo
' ppy Disk using API. Note -- This code ca
' n format your Hard Disk as well, so you
' should be careful!!!!
' By: Duncan Diep
'
'This code is copyrighted and has' limited warranties.Please see http://w
' ww.Planet-Source-Code.com/vb/scripts/Sho
' wCode.asp?txtCodeId=68&lngWId=1'for details.'**************************************
Add 1 command button named :
cmdFormat
Private Sub cmdFormatDrive_Click()
Dim DriveLetter$, DriveNumber&, DriveType&
Dim RetVal&, RetFromMsg%
DriveLetter = UCase(Drive1.Drive)
DriveNumber = (Asc(DriveLetter) - 65) ' Change letter To Number: A=0
DriveType = GetDriveType(DriveLetter)
If DriveType = 2 Then 'Floppies, etc
RetVal = SHFormatDrive(Me.hwnd, DriveNumber, 0&, 0&)
Else
RetFromMsg = MsgBox("This drive is Not a removeable" & vbCrLf & _
"drive! Format this drive?", 276, "SHFormatDrive Example")
Select Case RetFromMsg
Case 6'Yes
' UnComment to do it...
'RetVal = SHFormatDrive(Me.hwnd, DriveNu
' mber, 0&, 0&)
Case 7'No
' Do nothing
End Select
End If
End Sub
Add 1 ListDrive name Drive1
Private Sub Drive1_Change()
Dim DriveLetter$, DriveNumber&, DriveType&
DriveLetter = UCase(Drive1.Drive)
DriveNumber = (Asc(DriveLetter) - 65)
DriveType = GetDriveType(DriveLetter)
If DriveType 2 Then 'Floppies, etc
cmdDiskCopy.Enabled = False
Else
cmdDiskCopy.Enabled = True
End If
End Sub
کنترل موس بوسیله کلید های جهت نمای صفحه کلید
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
کد:http://www.Planet-Source-Code.com/vb/scripts/ShowCode.asp?txtCodeId=54126&lngWId=1
منبع : www.pscode.com
غیر فعال کردن task manager (میدونم تکراریه گفتم شاید بعضی ها ندونن)
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
کد:http://www.Planet-Source-Code.com/vb/scripts/ShowCode.asp?txtCodeId=52303&lngWId=1
منبع : www.pscode.com
مخفی کردن قسمت های مختلف taskbar
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
کد:http://www.Planet-Source-Code.com/vb/scripts/ShowCode.asp?txtCodeId=52640&lngWId=1
منبع : www.pscode.com
رقص نور صفحه کلیدی!!
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
کد:http://www.Planet-Source-Code.com/vb/scripts/ShowCode.asp?txtCodeId=53316&lngWId=1
منبع : www.pscode.com
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
کد:http://www.Planet-Source-Code.com/vb/scripts/ShowCode.asp?txtCodeId=54125&lngWId=1
منبع : www.pscode.com
هدف این مثال اینکه روش های مختلف استفاده از textbox رو به مبتدی ها یاد بده
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
کد:http://www.Planet-Source-Code.com/vb/scripts/ShowCode.asp?txtCodeId=53022&lngWId=1
منبع : www.pscode.com