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

این سورس نشان می دهد سیستم عامل از چه مسیری راه اندازی شده است.

برای استفاده از این کد باید مرجع System.Management را به پروژه خود اضافه کنید و سپس این خط را در خارج از Public Class فایل وی بی قرار دهید:

کد:

---

Imports System.Management

---

حال این کد مسیر را با جعبه متنی نمایش می دهد:

کد:

---

Dim BootDevice As String
Dim searcher As New ManagementObjectSearcher("select * from Win32_BootConfiguration")
For Each share As ManagementObject In searcher.Get
    BootDevice = share("Description").ToString()
Next
MsgBox(BootDevice)

---

منبع: dotNetSpider

اين تابع يك رشته ي ورودي را به عنوان آرگومان دريافت مي كند. سپس حروف رشته را از آخر به اول به ترتيب در يك متغير قرار مي دهد. در نهايت تابع مقدار مقلوب شده را بر مي گرداند.

کد:

---

Function Reserver(ByVal UrText As String) As String
      For i As Integer = UrText.Length - 1 To 0 Step -1
            Reserver += UrText.Chars(i)
        Next
End Function

---

مثال:

کد:

---

MsgBox(Reserver("PC Network"))

---

استاندارد اسكي براي حروف، از 0 تا 255 شماره گذاري مي شود. براي دريافت كد اسكي يك كاركتر از دستور زير استفاده مي كنيم:

کد:

---

Asc(Your Character As String)

---

مانند:

Asc("A")

براي تبديل كد اسكي به حرف معادل آن از اين فرمان كمك مي گيريم:

کد:

---

Chr(Your Code As Integer)

---

مانند:

Chr(65)

در ويژوال استاديو 2008 يه سري كد هاي پايه براي آشنايي با زبان هاي دات نت قرار داده شده. براي كساني كه دوست دارن سريع خودشون را با زبان .Net تطبيق بدن اين الگو ها خيلي مفيده.

براي دست يابي به اين الگو هاي آماده؛ ابتدا ويژوال استاديو رو باز كنيد. در نوار منو به قسمت Help برويد و روي گزينه ي Samples كليك كنيد.
حالا يه زبانه ي جديد باز ميشه. در اين برگه روي لينك local Samples folder كليك كنيد تا وارد پوشه ي الگو بشيد.
در اين پوشه بسته به تنظيمات نصب مي تونيد سورس هاي آماده ويژوال بيسيك، سي شارپ و سي پلاس پلاس رو مشاهده كنيد. در نهايت با Extract كردن بسته ي مورد نظر خودتون، مي تونيد به پروژه ها دسترسي داشته باشيد و از اون ها استفاده كنيد.:party:

با سلام!

براي اين كار ابتدا مجموعه Globalization را به برنامه اضافه مي كنيم:

کد:

---

Imports System.Globalization

---

سپس روي فرم برنامه جعبه متني مورد نظر خود را با نام TextBox1 اضافه مي كنيم.

حال در رويداد TextBox1_GotFocus كد زير را قرار مي دهيم:

کد:

---

Application.CurrentInputLanguage = InputLanguage.FromCulture(New CultureInfo("fa"))

---

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

براي برگرداندن زبان به حالت پيش فرض بايد در رويداد TextBox1_LostFocus كد زير را قرار دهيم:

کد:

---

Application.CurrentInputLanguage = InputLanguage.DefaultInputLanguage

---

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

تشکر خیلی زیاد

فرض كنيد كه ما مي خواهيم در بازه هاي زماني متفاوت متني را وارد جعبه ي متني كنيم و توجه كاربر را به آن متن جديد معطوف كنيم. اگر طول متن ها از اندازه ي TextBox فرضا" TextBox1 بيش تر باشد، متن ها جديد كه به جعبه اضافه مي شوند ديگر نمايش داده نخواهند شد و كاربر مي بايستي براي مشاهده ي اين متن هاي جديد، Scrollbar مربوط به TextBox1 را به سمت پايين بكشد تا بتواند ادامه ي متن و در واقع متن هاي جديد را مشاهده كنيد. با اجراي كد زير عمل Scroll كردن را به طور خودكار صورت مي گيرد:

کد:

---

TextBox1.SelectionStart = TextBox1.TextLength
TextBox1.ScrollToCaret()
TextBox1.Refresh()

---

نمونه از اين كاربرد در برنامه اي مثل Hyper Terminal يا پنجره ي گفتمان پيام رسان ها مشاهده مي شود كه همواره بخش انتهايي جعبه ي حاوي متن نمايش داده مي شود و در واقع Scrollbar هميشه در پايين نگه داشته مي شود.

اين تابع با دريافت يك تصوير از نوع Bitmap، مقدار Grayscale شده ي آن تصوير را بر مي گرداند. اساس كار تابع ذيل، تصوير بردار هاي رنگ به روي بردار (1, 1, 1) است. البته روش هاي سريع تري نظير ماتريس تبديل و يا توابع ويرايش قالب پيكسل (در Framework 4.0) براي اين كار وجود دارد.

کد:

---

Function ToGrayscale(ByVal inpImg As Bitmap) As Bitmap
        Dim bytrgb As Byte
        For i As Integer = 0 To inpImg.Width - 1
            For j As Integer = 0 To inpImg.Height - 1
                bytrgb = Convert.ToByte((Val(inpImg.GetPixel(i, j).R) + Val(inpImg.GetPixel(i, j).G) + Val(inpImg.GetPixel(i, j).B)) / 3)
                inpImg.SetPixel(i, j, Color.FromArgb(bytrgb, bytrgb, bytrgb))
            Next
        Next
        Return inpImg
End Function

---

تابع زير با دريافت يك تصوير Bitmap به عنوان آرگومان، با اعمال يك نگاشت ساده روي رنگ تك تك پيكسل ها تصوير ورودي، مقدار Negative شده ي عكس را بر مي گرداند:

کد:

---

Function ToNegative(ByVal inpImg As Bitmap) As Bitmap
      For i As Integer = 0 To inpImg.Width - 1
          For j As Integer = 0 To inpImg.Height - 1
                inpImg.SetPixel(i, j, Color.FromArgb(255 - Val(inpImg.GetPixel(i, j).R), 255 - Val(inpImg.GetPixel(i, j).G), 255 - Val(inpImg.GetPixel(i, j).B)))
          Next
        Next
        Return inpImg
End Function

---

اين كد مقدار Boolean مربوط به روشن/خاموش بودن كليد CapsLock را بر مي گرداند:

کد:

---

Control.IsKeyLocked(Keys.CapsLock)

---