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

[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")