این سورس نشان می دهد سیستم عامل از چه مسیری راه اندازی شده است.
برای استفاده از این کد باید مرجع 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
آخرین ویرایش توسط ravegoat در تاریخ 26-08-11 انجام شده است علت: Right2Left
اين تابع يك رشته ي ورودي را به عنوان آرگومان دريافت مي كند. سپس حروف رشته را از آخر به اول به ترتيب در يك متغير قرار مي دهد. در نهايت تابع مقدار مقلوب شده را بر مي گرداند.
کد: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"))
M A H R A D (04-02-10), MoBiN.R (18-10-09), Moein (08-03-13), Rezasam1 (26-08-11)
استاندارد اسكي براي حروف، از 0 تا 255 شماره گذاري مي شود. براي دريافت كد اسكي يك كاركتر از دستور زير استفاده مي كنيم:
مانند:کد:Asc(Your Character As String)
Asc("A")
براي تبديل كد اسكي به حرف معادل آن از اين فرمان كمك مي گيريم:
مانند:کد:Chr(Your Code As Integer)
Chr(65)
در ويژوال استاديو 2008 يه سري كد هاي پايه براي آشنايي با زبان هاي دات نت قرار داده شده. براي كساني كه دوست دارن سريع خودشون را با زبان .Net تطبيق بدن اين الگو ها خيلي مفيده.
براي دست يابي به اين الگو هاي آماده؛ ابتدا ويژوال استاديو رو باز كنيد. در نوار منو به قسمت Help برويد و روي گزينه ي Samples كليك كنيد.
حالا يه زبانه ي جديد باز ميشه. در اين برگه روي لينك local Samples folder كليك كنيد تا وارد پوشه ي الگو بشيد.
در اين پوشه بسته به تنظيمات نصب مي تونيد سورس هاي آماده ويژوال بيسيك، سي شارپ و سي پلاس پلاس رو مشاهده كنيد. در نهايت با Extract كردن بسته ي مورد نظر خودتون، مي تونيد به پروژه ها دسترسي داشته باشيد و از اون ها استفاده كنيد.برای مشاهده این لینک/عکس می بایست عضو شوید ! برای عضویت اینجا کلیک کنید
با سلام!
براي اين كار ابتدا مجموعه Globalization را به برنامه اضافه مي كنيم:
سپس روي فرم برنامه جعبه متني مورد نظر خود را با نام TextBox1 اضافه مي كنيم.کد:Imports System.Globalization
حال در رويداد TextBox1_GotFocus كد زير را قرار مي دهيم:
با اين كار زبان جعبه فارسي مي شود.کد:Application.CurrentInputLanguage = InputLanguage.FromCulture(New CultureInfo("fa"))
براي برگرداندن زبان به حالت پيش فرض بايد در رويداد TextBox1_LostFocus كد زير را قرار دهيم:
بر گرفته شده از مبتكر برترکد:Application.CurrentInputLanguage = InputLanguage.DefaultInputLanguage
M A H R A D (04-02-10), MoBiN.R (04-02-10), Moein (08-03-13), Rezasam1 (26-08-11)
تشکر خیلی زیاد
فرض كنيد كه ما مي خواهيم در بازه هاي زماني متفاوت متني را وارد جعبه ي متني كنيم و توجه كاربر را به آن متن جديد معطوف كنيم. اگر طول متن ها از اندازه ي 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)
1 کاربر در حال مشاهده این موضوع. (0 عضو و 1 میهمان)
Bookmarks