نمونه کد های کوچک و کاربردی VB.Net

با سلام!

در این تاپیک کد های کوچک و مفید VB.Net را قرار می دهیم.:great:

هرگونه مشکلی که در رابطه با سورس ها داشتید، در همین قسمت بیان کنید!:wink:

امیدوارم برایتان مفید باشد!:yes:

این کد تک خطی مقدار زمان بارگذاری سیستم عامل را (بر حسب دقیقه) در قالب یک MsgBox به شما نمایش می دهد:

کد:

---

MsgBox(My.Computer.Clock.TickCount \ 60000)

---

با این کد می توان مقدار حافظه ی فیزیکی رایانه (مقدار RAM) بر حسب مگابایت به دست آورد و آن را در یک MsgBox نمایش داد:

کد:

---

MsgBox(My.Computer.Info.TotalPhysicalMemory \ 1023 ^ 2)

---

این کد در رویداد FormLoad برنامه قرار می گیرد و مسیر اجرای برنامه را بررسی می کند. اگر درایوی که برنامه از روی آن اجرا می شود از نوع CD Rom, CD Writer و ... نبود، برنامه با دستور End بسته می شود.

کد زیر را در رویداد FormLoad فرم اصلی قرار دهید:

کد:

---

  Dim appdrive As New IO.DriveInfo(Application.StartupPath.Substring(0, 2))
If appdrive.DriveType <> 5 Then End

---

کد زیر را در رویداد FromClosing فرم قرار دهید تا با کلیک بر روی دکمه ی Close X فرم بسته نشود:

کد:

---

e.Cancel = True

---

کد:

---

Hibernate'

Application.SetSuspendState(PowerState.Hibernate, True, False)

'Stand By
Application.SetSuspendState(PowerState.Suspend, True, False)

---

ابتدا کد زیر را در Public Class فرم قرار دهید:

کد:

---

Public Declare Function BlockInput Lib "user32" (ByVal Block As Boolean) As Long

---

سپس با فرمان های زیر می توانید صفحه کلید و موشواره را قفل یا آزاد کنید:

کد:

---

'قفل کردن
BlockInput(True)

'آزاد کردن
BlockInput(False)

---

عمل قفل کردن را می توان با کلید ترکیبی Alt + Ctrl + Del خنثی کرد.

ابتدا کد زیر را در Public Class فرم قرار دهید:

کد:

---

Public Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal Command As String, ByVal ReturnString As String, ByVal ReturnLength As Long, ByVal Callback As Long) As Long

---

بعد از فرمان های زیر استفاده می کنید:

کد:

---

'باز کردن
mciSendString("Set CDAudio Door Open Wait", 0, 0, 0)

'بستن
mciSendString("Set CDAudio Door Closed Wait", 0, 0, 0)

---

کد:

---

My.Computer.Clipboard.Clear()

---

کد:

---

Dim helpoint As New Point(0 , 0)
Help.ShowPopup(Me, "Your Text", helpoint)

---

به جای اعداد 0 و 0 می توانید مختصات مکان دلخواه خود برای نمایش PopUp را وارد کنید.
به جای Your Text ، متن PopUp دلخواه خود را درون نقل قول قرار دهید.