برای استفاده از تایمر راه ساده این است که قطعه کدی که میخواهید تکرار شود را در Timer1_Tick بنویسید
ولی زمانیکه میخواهید در دوره های زمانی مختلف قطعه کد های مختلفی را اجرا نمایید میتوانید فقط با فعال کردن تایمر و آدرس دهی تابع جدید که در اینجا با نام ActionSub آمده است، تابع جدید را فراخوانی نمایید.
Timer1.Enabled = True
AddHandler Timer1.Tick, AddressOf Me.ActionSub
ابتدا 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)