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

[ravegoat]

For Each appf As Form In Application.OpenForms
    msgbox(appf.Text)
Next

برگرفته شده از سایت برنامه نویس

[ravegoat]

این سورس مقدار TimeZone رو بر می گردونه (نشون میده الگوی زمانی برای چه منطقه ای تنظیم شده):

MsgBox(TimeZone.CurrentTimeZone.StandardName)

[ravegoat]

این کد به شما نشون آدرس ایمیلی را که کاربر وارد کرده، معتبر است یا خیر؟
مثلا" example@dom@main.com یه آدرس غیر معتبره.

Imports System.Text.RegularExpressions

Dim emailAddress As String = InputBox("Plz enter ur Email Address:")
Dim pattern As String = "^[a-zA-Z][\w\.-]*[a-zA-Z0-9]@[a-zA-Z0-9][\w\.-]*[a-zA-Z0-9]\.[a-zA-Z][a-zA-Z\.]*[a-zA-Z]$"
Dim emailAddressMatch As Match = Regex.Match(emailAddress, pattern)
If emailAddressMatch.Success Then
       MsgBox("Correct Email Address.", 64)
Else
       MsgBox("Invalid Email Address.", 48)
End If

نویسنده ی کد: Muhammed Mohiudeen.M.N