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

[ravegoat]

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

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

[ravegoat]

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

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

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