آموزش رایگان ویژوال بیسیک 6

ساير عمليات کار با فايل :

۱ - حذف فايل : برای حذف يک يا چند فايل از دستور Kill استفاده می شود :
Kill "C:\Temp\MyFile.txt"x
Kill "C:\Temp\*.txt"x

۲ - انتقال فايل : برای انتقال يک فايل از يک دايرکتوری به دايرکتوری ديگر از دستور Name استفاده می شود . مبدا و مقصد بايستی روی يک درايو باشند . اگر دايرکتوری مبدا و مقصد يکی باشد فايل تغيير نام داده می شود :
Name "C:\Temp\File1.txt" To "C:\Temp2\File2.txt"x

۳ - کپی کردن فايل : برای کپی کردن يک فايل از يک دايرکتوری به دايرکتوری ديگر از دستور FileCopy استفاده می شود :
FileCopy "\File1.txt\ To "C:\Temp\File2.txt"x

۴ - بدست آوردن تاريخ و زمان آخرين تغيير فايل و يا زمان ايجاد فايل : برای اين کار از دستور FileDateTime استفاده می شود . ابتدا بايستی يک متغير از نوع Variant تعريف کرده و سپس توسط اين دستور تاريخ و زمان موردنظر را استخراج کنيم :
Dim FileInfo As Variant
FileInfo=FileDateTime("C:\Temp\MyFile.txt")x

۵ - استخراج طول فايل : برای بدست آوردن طول يک فايل بر حسب بايت از دستور FileLen استفاده می شود :
FileSize=FileLen("C:\MyFile.txt")x

۶ - تغيير صفت يک فايل : برای تغيير صفت يک فايل از دستور SetAttr استفاده می شود . پارامترهای اين دستور عبارتند از :
0 : فايل معمولی
2 : فايل مخفی
4 : فايل سيستمی

SetAttr FileNumber,FileAttrib

مقابله با خطاهای کار با فايل :

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

۵۲ : شماره يا نام فايل صحيح نيست
۵۳ : فايل پيدا نشد
۵۴ : حالت فايل صحيح نيست
۵۵ : فايل قبلاً باز شده
۵۸ : فايل از قبل وجود دارد
۵۹ : طول رکورد صحيح نيست
۶۱ : ديسک پر است
۶۲ : عبور از انتهای فايل
۶۳ : شماره رکورد صحيح نيست
۷۰ : دسترسی ممنوع است
۷۱ : ديسک آماده نيست
۷۶ : مسير پيدا نشد

در هنگام مقابله با خطا بهتراست از يک ساختار Select-Case استفاده کنيد :
Select Case Err
Case 71
MsgBox "Drive is Not Ready"x
.
.
.
End Select

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

تبدیل تاریخ میلادی به تاریخ شمسی

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

Add Module رو انتخاب کنید تا یک Module به فرمتون اضافه بشه و بعد کد زیر رو توش کپی کنید :

Option Explicit

Private Const mcDayOff = 226894
Private mvarGDayTab
Private mvarJDayTab
Private mcSolar As Double

Public Sub GetJalaliDate(ByVal vGYear As Integer, ByVal vGMonth As Integer, ByVal vGDay As Integer, pJYear As Integer, pJMonth As Integer, pJDay As Integer, pDayName As String)

    Dim mGTotalDay As Long
  
    SetConstants
   
    mGTotalDay = GetDayFromFirstGregorianDay(vGYear, vGMonth, vGDay)
    pDayName = GetWeekDayName(mGTotalDay)
    GetJalaliYearMonthDay mGTotalDay, vGYear, vGMonth, vGDay
    pJDay = vGDay
    pJMonth = vGMonth
    pJYear = vGYear
End Sub

Private Sub SetConstants()
   
    mvarGDayTab = Array(Array(0, 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31), Array(0, 31, 29, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31))
    mvarJDayTab = Array(Array(0, 31, 31, 31, 31, 31, 31, 30, 30, 30, 30, 30, 29), Array(0, 31, 31, 31, 31, 31, 31, 30, 30, 30, 30, 30, 30))
    mcSolar = 365.25 - 0.25 / 33
   
End Sub

Private Function GetDayFromFirstGregorianDay(ByVal vGYaer As Integer, ByVal vGMonth As Integer, ByVal vGDay As Integer) As Long
   
    Dim mGYearDiv4 As Integer, mGYearDiv100 As Integer, mGYearDiv400 As Integer
    Dim mGTotalDays As Long
   
    mGYearDiv4 = vGYaer \ 4
    mGYearDiv100 = vGYaer \ 100
    mGYearDiv400 = vGYaer \ 400
   
    mGTotalDays = GetGDayFromBeginOfYear(vGYaer, vGMonth, vGDay)
    mGTotalDays = CLng(vGYaer - 1) * 365 + mGTotalDays + mGYearDiv4 - mGYearDiv100 + mGYearDiv400
   
    GetDayFromFirstGregorianDay = mGTotalDays
End Function

ترفند های ريجستري

در این پست تعدادی از ترفند های رجیستری را در اختیار شما قرار می دهم.

در آینده مجموعه ای از این کد ها را در وبلاگ قرار خواهم داد. 

1 . بدون دسك تاپ:

به زير كليد زير برويد:
[HKEY_USERS\_DEFAULT\Software\Microsoft\Windows\Cur rentVersion\Policies\Explorer]
و يك مقدار باينري به نام NoDesktop بسازيد و به آن مقدار 01 بدهيد.

دسك تاپ غير فعال:
به زير كليد زير برويد:
[HKEY_CURRENT_USER\Software\Microsoft\Windows\Curre ntVersion\Policies\Explorer]
و يك مقدار DWORD به نام NoActiveDesktop بسازيد و براي فعال كردن آن مقدار صفر و براي غير فعال كردن آن مقدار يك بدهيد.

2 . بهينه سازي سرعت مودم

فايل win.ini را پيدا كنيد به port رفته portmodem خود را پيدا كنيد
و آن را به صورت زير تغيير بدهيد
COM3:=921600,n,8,1,p

3 . مخفي كردن Device Manager :

به زير كليد زير برويد:

[HKEY_USERS\DEFAULT\Software\Windows\CurrentVersion \Policies\System]

و يك مقدار DWORD به نام NoDevMgrPage بسازيد و به آن مقدار يك بدهيد.

4 . كاغذديواري ثابت :

به زير كليد زير برويد:

[HKEY_USERS\DEFAULT\Software\Windows\CurrentVersion \Policies\ActiveDesktop]

و يك مقدار DWORD به نام NoChangingWallpaper بسازيد و به آن مقدار يك بدهيد.


5 . ويرايش يا حذف آخرين دستورات Run :

به زير كليد زير برويد:

[HKEY_CURRENT_USER\Software\Microsoft\Windows\Curre ntVersion\Explorer\RunMRU]

و هر تغييري را كه دوست داريد بدهيد.


6 . برداشتن فلش كوچك در سمت چپ در پايين آيكون:

به 2 زير كليد زير برويد:

[HKEY_CLASSES_ROOT\Inkfile]

[HKEY_CLASSES_ROOT\piffile]

و مقدار IsShortcut را حذف كنيد.


7 . تغييرعنوان مرورگر اينترنت:

مرورگر Internet Explorer به طور پيش فرض داراي عنوان Microsoft Internet Explorer است. براي تغيير آن به زير كليد زير برويد:ِ

[HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main]

و يك مقدار رشتهاي به نام Window Title بسازيد و به آن هر عبارتي را كه دوست داريد بدهيد.


8 . تغيير نام Recycle Bin

Registry Editor را اجرا كنيد

كليد f3 را زده و در قسمت find عبارت Recycle Bin را تايپ كنيد
بعد از پيدا شدن Recycle Bin آن را به عبارت مورد نظر تغيير دهيد

کدهای API 

با توجه به درخواست دوستان تعدادی از توابع  API را در زیر معرفی مکنیم.

۱– تغییر برچسب درایو ها                                                                     SetVolumeLabelA

Public Declare Function SetVolumeLabelA Lib "kernel32.dl ")ByVal lpRootName As String, ByVal lpVolumeName As String)As Long

lpRootName : نام ریشه درایو   مثل : C:\

lpVolumeName : برچسب یا نام جدید درایو

مثال :

Dim A As Long

Private sub command1_click()

A = SetVolumeLabelA("C:\" , " Visual Basic")

End sub

توجه: اگه تابع درست کار کند مقدار A عددی غیر صفر ، در غیر این صورت A=0 خواهد بود.

۲-Hide TaskBar

Public Hwnd1 As Long

Public Const SWP_HIDEWINDOW = &H80

Public Const SWP_SHOWWINDOW = &H40

Public Declare Function 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) as Long

Public Declare Function FindWindow Lib "user32" Alias "FindWindowA")ByVal lpClassName As String, ByVal lpWindowName As String( As Long

Private Sub HideTask_Click()

Hwnd1 = FindWindow("Shell_Traywnd("" ,"

Call SetWindowPos(Hwnd1, 0, 0, 0, 0, 0, SWP_HIDEWINDOW)

End Sub

Private Sub ShowTask_Click()

Call SetWindowPos(Hwnd1, 0, 0, 0, 0,0, SWP_SHOWWINDOW(

End sub

برای استفاده از توابع API در وی بی ابتدا باید آنها را در وی بی تعریف نمود که اصطلاحاً به آن Declare گفته می شود. صورت یک Declare به این صورت است Declare Function FnName Lib LibName [Alias RealName] (Parameters )As ReturnType   FnName       :  نام تابع ( نامی که قرار است در برنامه استفاده شود ). LibNam       :  نام کتابخانه ( فایل با پسوند DLL ). RealName     :  نام واقعی تایع در فایل کتابخانه. اگر نام واقعی تابع و نامی که در برنامه استفاده می شود یکی باشند آنگاه نیازی به این قسمت نیست . Parameters   :  پارامتر های تابع. ReturnType   :  نوعی که تابع قرار است بر گرداند.  توجه : در نوشتن نام واقعی تابع ( یا اگر نام واقعی و مجازی تابع یکی باشد ، نام مجازی آن ) بزرگ و کوچک بودن حروف اهمیت دارد .