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

[ravegoat]

برای اين كار كد زير را در رويداد Form_Load برنامه قرار دهيد:

For i As Integer = 0 To  100

 Opacity = i /  100      

Next
  

[ravegoat]

كد زير را در رويداد Form_FromClosing برنامه قرار دهيد:

 e.Cancel = True  
  For i As Integer = 99 To 25  Step -1
       Opacity = i /  100     
  Next
  End

[ravegoat]

Controls.Clear()

[ravegoat]

اين كد با InputBox يک متن را از كاربر دريافت می كند و سپس اعداد موجود در رشته را با جعبه ی متنی به او نمايش می دهد.

Dim mychr As  String = InputBox("Type sth here:")
For i As Integer = 0 To  mychr.Length - 1
  If IsNumeric(mychr.Chars(i)) Then  
      nochar +=  mychr.Chars(i)   
  Else 
      nochar += "-"   
 End If  
Next
  MsgBox(nochar, 64, "The String contains these  number(s):")
 

[ravegoat]

بخش اول اين كد جالب، زمانی كه فرم در حال بسته شدن است مختصات فرم و اندازه ی آن را در رجيستری ذخيره می كند. بخش دوم كد نيز زمانی كه فرم در حال بار گذاری است، مختصات و اندازه ی ذخيره شده در رجيستری را دريافت می كند و آن ها را روی فرم برنامه اعمال می نمايد.

كد زير را در رويداد Form_Load برنامه قرار دهيد:

 Location =  New Point(GetSetting(Application.ProductName,  "FormSet", "LocX", Location.X),  GetSetting(Application.ProductName, "FormSet", "LocY", Location.Y))
          Size = New  Size(GetSetting(Application.ProductName, "FormSet", "SizeX", Size.Width),  GetSetting(Application.ProductName, "FormSet", "SizeY", Size.Height))

كد زير را در رويداد From_FormClosing برنامه قرار دهيد:

  SaveSetting(Application.ProductName, "FormSet", "LocX", Location.X)
          SaveSetting(Application.ProductName, "FormSet", "LocY", Location.Y)
          SaveSetting(Application.ProductName, "FormSet", "SizeX", Size.Width)
          SaveSetting(Application.ProductName, "FormSet", "SizeY", Size.Height)

[ravegoat]

ابتدا مرجع System.Management را به پروژه ی خود اضافه می كنيد.

كد زير را در خارج از Public Class فرم برنامه قرار می دهيم:

Imports System.Management

سپس از كد زير استفاده می كنيم. اين كد شماره سريال را با جعبه ی متنی نمايش می دهد:

Dim objMOS As ManagementObjectSearcher
Dim objMOC As  Management.ManagementObjectCollection
Dim objMO As  Management.ManagementObject

objMOS = New ManagementObjectSearcher("Select *  From Win32_OperatingSystem")
objMOC =  objMOS.Get

ForEach objMO In objMOC
  MessageBox.Show(objMO("SerialNumber"))
Next

 objMOS.Dispose()
objMOS = Nothing
objMO.Dispose()
objMO = Nothing

منبع: DevASP

[ravegoat]

این کد درایو های مربوط به حافظه های فلش را شناسایی می کند و نام آن ها را با جعبه متنی بر می گرداند:

كد زير را در خارج از Public Class فرم برنامه قرار می دهيم:

Imports System.IO

سپس از این کد استفاده کنید:

On Error Resume Next
Dim rmdrvs As String
For iDrive As Integer = 0 To DriveInfo.GetDrives.Length - 1
    If DriveInfo.GetDrives(iDrive).DriveType = 2 And DriveInfo.GetDrives(iDrive).Name <> "A:\" And DriveInfo.GetDrives(iDrive).Name <> "B:\" Then
        rmdrvs += ControlChars.NewLine + DriveInfo.GetDrives(iDrive).Name + " - " + DriveInfo.GetDrives(iDrive).VolumeLabel
    End If
Next
MsgBox(rmdrvs)

[ravegoat]

For Each prntr As String In Drawing.Printing.PrinterSettings.InstalledPrinters
       MsgBox(prntr)
Next

بر گرفته شده از کد علی جان

[ravegoat]

 Function getMD5Hash(ByVal strToHash As String) As String
        Dim md5Obj As New Security.Cryptography.MD5CryptoServiceProvider
        Dim bytesToHash() As Byte = System.Text.Encoding.ASCII.GetBytes(strToHash)
        bytesToHash = md5Obj.ComputeHash(bytesToHash)
        Dim strResult As String = ""
        For Each b As Byte In bytesToHash
            strResult += b.ToString("x2")
        Next
        Return strResult
End Function

منبع

[ravegoat]

این کد رو در رویداد KeyPress ، جعبه متنی (TextBox) قرار بدید. با این کار جعبه متنی فقط از صفحه کلید کارکتر های عددی رو دریافت می کنه؛ نه چیز دیگه !

If Not IsNumeric(e.KeyChar) Then e.Handled = True