دستور زیر را در قسمت لود فرم بنویسید
("InputLanguage.CurrentInputLanguage = InputLanguage.FromCulture(New Globalization.CultureInfo("fa-IR
System.Diagnostics.Process.Start "shutdown.exe", " -s -t 20"
ابتدا یک آبجکت اپن دیالوگ و پیکچر باکس و یک باتون در صفحه قرار دهید و سپس از این کد استفاده کنید
OpenFileDialog1.Title =
"Select a Picturs یک عکس را انتخاب کنید"
OpenFileDialog1.FileName =
""
If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
PictureBox1.Image = Image.FromFile(OpenFileDialog1.FileName)
End
If
Me.Text = OpenFileDialog1.FileName
از منوی toolbox زاست کلیک میکنیم وchoese item را انتخاب میکنیم و از جدول کامپوننتهای برنامه عنصرprint formرا انتخاب و آن را روی فرممون میکشیم و دستور اون هم به صورت زیر استفاده میشود
Private Sub Button1_Click(ByVal sender As System., ByVal e As System.EventArgs) Handles Button1.Click
PrintForm1.PrintAction = Printing.PrintAction.PrintToPreview
PrintForm1.Print()
End Sub
دستور برای باز کردن یک درایو
Shell "explorer drivename"
سلام دوستان
داشتم توی MSDN دنبال تاریخ قمری میگشتم اینو پیدا کردم
با این کد به راحتی می تونید توی برنامتون از تاریخ شمسی استفاده کنید.
خیلی از شما دوستان عزیز از این کد خبر دارید، برای کسانی که نمیدونستن می ذارم تا همه بلد باشن
کد:
Public Function Shamsi_Date() As String
Dim DT As Date = Date.Now
Dim Glob As New Globalization.PersianCalendar
Shamsi_Date = Glob.GetYear(DT) & "\" & Glob.GetMonth(DT) & "\" & Glob.GetDayOfMonth(DT)
End Function