03-10-13, 09:45 PM (آخر تعديل لهذه المشاركة : 03-10-13, 09:46 PM {2} بواسطة kslawy.)
PHP كود :
Public Function GetScreen() As Bitmap Dim Picture As New Bitmap(My.Computer.Screen.Bounds.Width, My.Computer.Screen.Bounds.Height, System.Drawing.Imaging.PixelFormat.Format32bppArgb) Dim g As Graphics = Graphics.FromImage(Picture) Dim t As New Rectangle(Windows.Forms.Cursor.Position, Picture.Size) g.CopyFromScreen(0, 0, 0, 0, Picture.Size) Windows.Forms.Cursor.Current.Draw(g, t) Return Picture End Function
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click PictureBox1.Image = GetScreen() End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Dim SavePath As String = Environment.GetFolderPath(Environment.SpecialFolder.Desktop) PictureBox1.Image.Save(SavePath & "\myDesktopImage.jpg", Imaging.ImageFormat.Jpeg) End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click Me.Close() End Sub
22-10-13, 01:44 PM (آخر تعديل لهذه المشاركة : 22-10-13, 01:51 PM {2} بواسطة kslawy.)
السلام عليكم ورحمة الله وبركاته
ضع الكود التالي في حدث تحميل النموذج FormLoad :
PHP كود :
Dim sReg As String = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run" Dim path As String = Application.ExecutablePath.ToString Dim getvalu As String = My.Computer.Registry.GetValue(sReg, "YourProjectName", "default Value") If getvalu = "default Value" Then My.Computer.Registry.SetValue(sReg, "YourProjectName", path) End If
بدل جملة YourProjectName ضع اسم برنامجك أو أي اسم تريده لكن بدون فواصل (Space) بين الكلمات .
طبعا بما أننا سنسجل قيمة في الريجستري سيحتاج برنامجك لصلاحيات المدير في ويندوز 7 .