با سلام!
در این تاپیک کد های کوچک و مفید VB.Net را قرار می دهیم.برای مشاهده این لینک/عکس می بایست عضو شوید ! برای عضویت اینجا کلیک کنید
هرگونه مشکلی که در رابطه با سورس ها داشتید، در همین قسمت بیان کنید!برای مشاهده این لینک/عکس می بایست عضو شوید ! برای عضویت اینجا کلیک کنید
امیدوارم برایتان مفید باشد!برای مشاهده این لینک/عکس می بایست عضو شوید ! برای عضویت اینجا کلیک کنید
'چو ایران نباشد، تن من مباد
Dim Armin As Iranian
If Iran.Enabled = False Then Armin.Enabled = False
این کد تک خطی مقدار زمان بارگذاری سیستم عامل را (بر حسب دقیقه) در قالب یک MsgBox به شما نمایش می دهد:
کد:MsgBox(My.Computer.Clock.TickCount \ 60000)
آخرین ویرایش توسط ravegoat در تاریخ 03-01-09 انجام شده است علت: بهینه سازی کد
Moein (08-03-13), SajjadKhati (22-06-18)
با این کد می توان مقدار حافظه ی فیزیکی رایانه (مقدار RAM) بر حسب مگابایت به دست آورد و آن را در یک MsgBox نمایش داد:
کد:MsgBox(My.Computer.Info.TotalPhysicalMemory \ 1023 ^ 2)
این کد در رویداد FormLoad برنامه قرار می گیرد و مسیر اجرای برنامه را بررسی می کند. اگر درایوی که برنامه از روی آن اجرا می شود از نوع CD Rom, CD Writer و ... نبود، برنامه با دستور End بسته می شود.
کد زیر را در رویداد FormLoad فرم اصلی قرار دهید:
کد:Dim appdrive As New IO.DriveInfo(Application.StartupPath.Substring(0, 2)) If appdrive.DriveType <> 5 Then End
کد زیر را در رویداد FromClosing فرم قرار دهید تا با کلیک بر روی دکمه ی Close X فرم بسته نشود:
کد:e.Cancel = True
'چو ایران نباشد، تن من مباد
Dim Armin As Iranian
If Iran.Enabled = False Then Armin.Enabled = False
کد:Hibernate'Application.SetSuspendState(PowerState.Hibernate, True, False) 'Stand By Application.SetSuspendState(PowerState.Suspend, True, False)
ابتدا کد زیر را در Public Class فرم قرار دهید:
سپس با فرمان های زیر می توانید صفحه کلید و موشواره را قفل یا آزاد کنید:کد:Public Declare Function BlockInput Lib "user32" (ByVal Block As Boolean) As Long
عمل قفل کردن را می توان با کلید ترکیبی Alt + Ctrl + Del خنثی کرد.کد:'قفل کردن BlockInput(True) 'آزاد کردن BlockInput(False)
آخرین ویرایش توسط ravegoat در تاریخ 09-01-09 انجام شده است
ابتدا کد زیر را در Public Class فرم قرار دهید:
بعد از فرمان های زیر استفاده می کنید:کد:Public Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal Command As String, ByVal ReturnString As String, ByVal ReturnLength As Long, ByVal Callback As Long) As Long
کد:'باز کردن mciSendString("Set CDAudio Door Open Wait", 0, 0, 0) 'بستن mciSendString("Set CDAudio Door Closed Wait", 0, 0, 0)
کد:My.Computer.Clipboard.Clear()
به جای اعداد 0 و 0 می توانید مختصات مکان دلخواه خود برای نمایش PopUp را وارد کنید.کد:Dim helpoint As New Point(0 , 0) Help.ShowPopup(Me, "Your Text", helpoint)
به جای Your Text ، متن PopUp دلخواه خود را درون نقل قول قرار دهید.
1 کاربر در حال مشاهده این موضوع. (0 عضو و 1 میهمان)
Bookmarks