این کد عکس گرفته شده را در متغیر screenshot ذخیره می کند.
منبعکد:Dim bounds As Rectangle Dim screenshot As Bitmap Dim graph As Graphics bounds = Screen.PrimaryScreen.Bounds screenshot = New Bitmap(bounds.Width, bounds.Height) graph = Graphics.FromImage(screenshot) graph.CopyFromScreen(bounds.X, bounds.Y, 0, 0, bounds.Size, CopyPixelOperation.SourceCopy)
ابتدا مرجع (Reference) System.Management را به پروژه ي خود اضافه مي كنيم. سپس از كد زير استفاده مي كنيم. اين كد تمام نام هاي كاربري را با يك جعبه ي متني نمايش مي دهد:
منبعکد:Dim compusrs As String Dim query As New System.Management.SelectQuery("Win32_UserAccount") Dim searcher As New System.Management.ManagementObjectSearcher(query) For Each envVar As System.Management.ManagementObject In searcher.Get() compusrs += envVar("Name") + Chr(13) Next MsgBox(compusrs, 64, My.Computer.Name + "'s Users")
برای اين كار از الگوی زير پيروی كنيد:
کد:Windows.Forms.Cursor.Position = New Point(x As Integer, y As Integer)مثال
کد:'با اين كد نشانگر به مكانی به طول 400 و عرض 300 پيكسل می رود Windows.Forms.Cursor.Position = New Point(400, 300)
کد:MsgBox(Windows.Forms.Cursor.Position.ToString)
Moein (08-03-13)
کد:'پنهان كردنWindows.Forms.Cursor.Hide()'آشكار كردنWindows.Forms.Cursor.Show()
Moein (08-03-13)
برای اين كار كد زير را در رويداد Form_Load برنامه قرار دهيد:
کد:For i As Integer = 0 To 100 Opacity = i / 100 Next
كد زير را در رويداد Form_FromClosing برنامه قرار دهيد:
کد:e.Cancel = True For i As Integer = 99 To 25 Step -1 Opacity = i / 100 Next End
Moein (08-03-13)
کد:Controls.Clear()
اين كد با InputBox يک متن را از كاربر دريافت می كند و سپس اعداد موجود در رشته را با جعبه ی متنی به او نمايش می دهد.
کد:Dim mychr As String = InputBox("Type sth here:") For i As Integer = 0 To mychr.Length - 1 If IsNumeric(mychr.Chars(i)) Then nochar += mychr.Chars(i) Else nochar += "-" End If Next MsgBox(nochar, 64, "The String contains these number(s):")
بخش اول اين كد جالب، زمانی كه فرم در حال بسته شدن است مختصات فرم و اندازه ی آن را در رجيستری ذخيره می كند. بخش دوم كد نيز زمانی كه فرم در حال بار گذاری است، مختصات و اندازه ی ذخيره شده در رجيستری را دريافت می كند و آن ها را روی فرم برنامه اعمال می نمايد.
كد زير را در رويداد Form_Load برنامه قرار دهيد:
کد:Location = New Point(GetSetting(Application.ProductName, "FormSet", "LocX", Location.X), GetSetting(Application.ProductName, "FormSet", "LocY", Location.Y)) Size = New Size(GetSetting(Application.ProductName, "FormSet", "SizeX", Size.Width), GetSetting(Application.ProductName, "FormSet", "SizeY", Size.Height))كد زير را در رويداد From_FormClosing برنامه قرار دهيد:
کد:SaveSetting(Application.ProductName, "FormSet", "LocX", Location.X) SaveSetting(Application.ProductName, "FormSet", "LocY", Location.Y) SaveSetting(Application.ProductName, "FormSet", "SizeX", Size.Width) SaveSetting(Application.ProductName, "FormSet", "SizeY", Size.Height)
|
1 کاربر در حال مشاهده این موضوع. (0 عضو و 1 میهمان)
Bookmarks