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

[ravegoat]

MsgBox("Screen Resolution: " + Cstr(My.Computer.Screen.WorkingArea.Width) + " * " + Cstr(My.Computer.Screen.WorkingArea.Height))

[ravegoat]

MsgBox(System.Windows.Forms.SystemInformation.BootMode.ToString)

[ravegoat]

كد زير مسيري را كه فايل .exe در حال حاضر از آن جا اجرا مي شود را با جعبه ي متني نمايش مي دهد:

MsgBox(Application.StartupPath)

كد زير علاوه بر مسير اجراي، نام فايل اجرايي را نيز نمايش مي دهد:

MsgBox(Application.ExecutablePath)

[ravegoat]

'مقدار فضاي مصرف شده رم
        MsgBox((My.Computer.Info.TotalPhysicalMemory - My.Computer.Info.AvailablePhysicalMemory) \ 1024 ^ 2)
'مقدار فضاي آزاد رم
        MsgBox(My.Computer.Info.AvailablePhysicalMemory \ 1024 ^ 2)

[ravegoat]

اگر برنامه ی شما شامل چندین فرم است، با این کد می توانید عنوان پنجره هایی از برنامه که بارگذاری شده اند را در قالب یک جعبه ی متنی مشاهده کنید:

Dim openfrmtle As String
For Each appform As Form In Application.OpenForms
    openfrmtle += Chr(13) + appform.Text
    MsgBox(openfrmtle, 64, "Open Form(s) : " + CStr(Application.OpenForms.Count))
Next

[ravegoat]

هر بار كه اين كد اجرا شود يك عدد بين 1 تا 6 -اعداد تاس- را به طور تصادفي با جبعه متني نمايش مي دهد:

Dim diceno As New Random
MsgBox(diceno.Next(1, 6), 64, "Dice")

[ravegoat]

این کد عکس گرفته شده را در متغیر 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)

منبع

[ravegoat]

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

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

مثال

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

[ravegoat]

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

[ravegoat]

'پنهان كردن
 
         Windows.Forms.Cursor.Hide()
 
        'آشكار  كردن
 
         Windows.Forms.Cursor.Show()