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

این کد عکس گرفته شده را در متغیر screenshot ذخیره می کند.

کد:

---

Dim bounds As Rectangle
Dim screenshot As Bitmap
Dim graph As Graphics
bounds = Screen.PrimaryScreen.Bounds
screenshot = New Bitmap(bounds.Width, bounds.Height)
graph = Graphics.FromImage(screenshot)
graph.CopyFromScreen(bounds.X, bounds.Y, 0, 0, bounds.Size, CopyPixelOperation.SourceCopy)

---

برای مشاهده این لینک/عکس می بایست عضو شوید !برای عضویت اینجا کلیک کنید ]

ابتدا مرجع (Reference) System.Management را به پروژه ي خود اضافه مي كنيم. سپس از كد زير استفاده مي كنيم. اين كد تمام نام هاي كاربري را با يك جعبه ي متني نمايش مي دهد:

کد:

---

        Dim compusrs As String
Dim query As New System.Management.SelectQuery("Win32_UserAccount")
Dim searcher As New System.Management.ManagementObjectSearcher(query)
For Each envVar As System.Management.ManagementObject In searcher.Get()
      compusrs += envVar("Name") + Chr(13)
Next
MsgBox(compusrs, 64, My.Computer.Name + "'s Users")

---

برای مشاهده این لینک/عکس می بایست عضو شوید !برای عضویت اینجا کلیک کنید ]

برای اين كار از الگوی زير پيروی كنيد:

کد:

---

Windows.Forms.Cursor.Position = New Point(x As Integer, y As Integer)

---

مثال

کد:

---

'با اين كد نشانگر به مكانی به طول 400 و عرض 300 پيكسل می رود
Windows.Forms.Cursor.Position = New Point(400, 300)

---

کد:

---

MsgBox(Windows.Forms.Cursor.Position.ToString)

---

کد:

---

'پنهان كردن

        Windows.Forms.Cursor.Hide()

        'آشكار  كردن

        Windows.Forms.Cursor.Show()

---

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

کد:

---

For i As Integer = 0 To  100

Opacity = i /  100     

Next
 

---

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

کد:

---

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

---

کد:

---

Controls.Clear()

---

اين كد با 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):")
 

---

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

كد زير را در رويداد 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)

---