MCTS Programming

www.SarafMoghadam.Com

MCTS Programming

www.SarafMoghadam.Com

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

برای  استفاده از تایمر راه ساده این است که قطعه کدی که میخواهید تکرار شود را در 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. در نهایت قطعه کد داده شده را در قسمت مشخص شده بنویسید
توجه داشته باشید که زمان بر حسب میلی ثانیه میباشد

باز کردن صفحه کد نویسی فرم ها

با زدن کلید F7 صفحه کد نویسی فرم فعال باز میشود