استفاده از هندلر تیک تایمر برای اجرای پروسیجر ها

برای  استفاده از تایمر راه ساده این است که قطعه کدی که میخواهید تکرار شود را در Timer1_Tick بنویسید

ولی زمانیکه میخواهید در دوره های زمانی مختلف قطعه کد های مختلفی را اجرا نمایید میتوانید فقط با فعال کردن تایمر و آدرس دهی تابع جدید که در اینجا با نام ActionSub آمده است، تابع جدید را فراخوانی نمایید.

Timer1.Enabled = True

AddHandler Timer1.Tick, AddressOf Me.ActionSub

تغییر Home Page مرورگر Internet Explorer

ابتدا Namespace زیر را به ابتدای پنجره کد نویسی وارد کنید

Imports Microsoft.Win32

سپس از تابع زیر برای تغییر صفحه خانگی اینترنت اکسپلورر استفاده نمایید

    Public Sub Homepage(ByVal text As String)
        Dim key As RegistryKey = Registry.CurrentUser.OpenSubKey("Software\Microsoft\Internet Explorer\Main", True)
        key.SetValue("Start Page", text)
    End Sub

طریقه فراخوانی این تابع نیز به صورت زیر است

Call Homepage("www.sarafmoghadam.com")

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

برای تبدیل تاریخ میلادی به شمسی نیاز به هیچ گونه محاسباتی نمی باشد و فقط باید از تقویم فارسی دات نت استفاده کرد

برای این منظور از تابع زیر استفاده نمایید

    Public Function MiladiToShamsi(ByVal MDate As Date) As String
        MiladiToShamsi = ""
        Dim PC As New Globalization.PersianCalendar
        Dim Year As Integer = PC.GetYear(MDate)
        Dim Month As Integer = PC.GetMonth(MDate)
        Dim Day As Integer = PC.GetDayOfMonth(MDate)
        MiladiToShamsi = Format(Year, "0000") & "/" & Format(Month, "00") & "/" & Format(Day, "00")
        Return MiladiToShamsi
    End Function

نحوه فراخوانی این تابع نیز به این صورت میباشد

اگر شما یک Label به فرم اضافه کرده باشید

Label1.Text = MiladiToShamsi(Now)

افزایش زمان SplashScreen

صفحه SplashScreen همان صفحه ای است که برای معرفی نرم افزار در ابتدای برنامه باز و سپس بسته میشود.

با استفاده از قطعه کد زیر میتوانید مدت زمان پخش صفحه SplashScreen را افزایش دهید

Protected Overrides Function OnInitialize(ByVal commandLineArgs As System.Collections.ObjectModel.ReadOnlyCollection(Of String)) As Boolean
            ' Set the display time to 5000 milliseconds (5 seconds).
            Me.MinimumSplashScreenDisplayTime = 10000
            Return MyBase.OnInitialize(commandLineArgs)
End Function

برای وارد کردن این کد باید مراحل زیر را طی کنید

1. ابتدا وارد Properties پروژه تان شوید



2. سپس به گزینه View Application Events در تب Application بروید




3. در نهایت قطعه کد داده شده را در قسمت مشخص شده بنویسید
توجه داشته باشید که زمان بر حسب میلی ثانیه میباشد