'Beispiel: VB .Net - Shoot - Demo 1 - Grafikspielereien mit Sound und Transparenz ' ' Option Explicit On Option Strict On Imports System.Runtime.InteropServices Imports System.ComponentModel Public Partial Class MainForm Public Sub New() Me.InitializeComponent() End Sub Private css As New CreateScreenShoot() Private hBitmap As Bitmap Private n As Integer Private MyCursor As Cursor Private MyX As Integer Private MyY As Integer Private img As Bitmap Private Soundfile As String Private r As New Random() Private cry As String Private t As Bitmap Private Sub MainFormLoad(sender As Object, e As System.EventArgs) Me.Location = New Point(0, 0) Dim pt As Point = New Point(Screen.PrimaryScreen.Bounds.Width, _ Screen.PrimaryScreen.Bounds.Height) Me.Size = New Size(pt) ' Me.ShowInTaskbar = False Me.timer1.Enabled = True Me.timer1.Interval = 1000 ' If Me.WindowState = FormWindowState.Minimized Then hBitmap = css.CreateScreenShot() End If Dim MyPath As String = Application.StartupPath If MyPath.EndsWith("\") = False Then MyPath &= "\" If System.IO.File.Exists(MyPath & "fadenkreuz.cur") Then MyCursor = New Cursor(MyPath & "fadenkreuz.cur") Me.Cursor = MyCursor Else Me.Cursor = Cursors.Cross End If Dim shoot As String = MyPath & "schuss.bmp" If System.IO.File.Exists(shoot) Then img = New Bitmap(Image.FromFile("schuss.bmp")) End If Soundfile = MyPath & "schuss.wav" cry = MyPath & "mix.wav" timer2.Enabled = False timer2.Interval = 1000 End Sub Private Sub MainFormKeyDown(sender As Object, e As System.Windows.Forms.KeyEventArgs) If e.KeyCode = Keys.Escape Then MessageBox.Show("Download from: http://www.visual-basic5.de", "Info") Application.Exit() End If End Sub Private Sub Timer1Tick(sender As Object, e As System.EventArgs) n += 1 If n >= 1 Then timer1.Enabled = False Me.WindowState = FormWindowState.Maximized 'Me.WindowState.Maximized Me.pictureBox1.Image = hBitmap timer2.Enabled = True End If End Sub Private Sub MainFormFormClosing(sender As Object, e As System.Windows.Forms.FormClosingEventArgs) Me.Cursor = Cursors.Default End Sub Private Sub PictureBox1MouseDown(sender As Object, e As System.Windows.Forms.MouseEventArgs) If e.Button = MouseButtons.Right Then Application.Exit() Exit Sub End If Try If (img IsNot Nothing) Then img.MakeTransparent() Dim hGraphics As Graphics hGraphics = Graphics.FromImage(hBitmap) hGraphics.DrawImage(img, Me.MyX, Me.MyY + 20, img.Width, img.Height) ' ' hGraphics.Dispose() picturebox1.Image = hBitmap ' Dim sp As System.Media.SoundPlayer If System.IO.File.Exists(Soundfile) Then sp = New System.Media.SoundPlayer(Soundfile) sp.LoadAsync() sp.Play() End If ' End If Catch ex As Exception MessageBox.Show(ex.Message.ToString(), "Info") End Try End Sub Private Sub PictureBox1MouseMove(sender As Object, _ e As System.Windows.Forms.MouseEventArgs) Me.MyX = CType(Cursor.Position.X - 8, Integer) Me.MyY = CType(Cursor.Position.Y - 32, Integer) End Sub Private Sub Timer2Tick(sender As Object, e As System.EventArgs) Static n As Integer n += 1 If n >= 5 Then n = 0 pictureBox2.Image = Nothing timer1.Enabled = False t = New Bitmap(Image.FromFile("wegdamit.gif")) t.MakeTransparent() Dim sz As Size = pictureBox2.Size Dim h As Bitmap = New Bitmap(sz.Width, sz.Height) Dim g As Graphics = Graphics.FromImage(h) Dim x As Integer = r.Next(100, Me.Width - 100) Dim y As Integer = r.Next(100, Me.Height - 100) pictureBox2.Location = New Point(x, y) g.CopyFromScreen(pictureBox2.Left, pictureBox2.Top, 0, 0, sz) g.DrawImage(t, 0, 0, t.Width, t.Height) ' g.Dispose() pictureBox2.Image = h pictureBox2.Visible = True End If End Sub Private Sub PictureBox2Click(sender As Object, e As System.EventArgs) Dim sp As System.Media.SoundPlayer If System.IO.File.Exists(Soundfile) Then sp = New System.Media.SoundPlayer(cry) sp.LoadAsync() sp.PlaySync() End If pictureBox2.Visible = False timer2.Enabled = True End Sub End Class Public Class CreateScreenShoot #Region "Win32Api" Private Declare Function ReleaseDC Lib "user32.dll" _ (ByVal hwnd As IntPtr, _ ByVal hdc As IntPtr) As Int32 Private Declare Function BitBlt Lib "gdi32.dll" Alias "BitBlt" _ (ByVal hDestDC As IntPtr, _ ByVal x As Int32, _ ByVal y As Int32, _ ByVal nWidth As Int32, _ ByVal nHeight As Int32, _ ByVal hSrcDC As IntPtr, _ ByVal xSrc As Int32, _ ByVal ySrc As Int32, _ ByVal dwRop As Int32) As Int32 Private Declare Function GetDC Lib "user32.dll" _ (ByVal hwnd As IntPtr) As IntPtr Private Const SRCCOPY As Int32 = &HCC0020 #End Region #Region "Functions" Public Function CreateScreenShot() As Bitmap Dim rc As Rectangle = Screen.PrimaryScreen.Bounds Dim SourceDC As IntPtr Dim TargetDC As IntPtr CreateScreenShot = New Bitmap(rc.Right, rc.Bottom) Dim g As Graphics = g.FromImage(CreateScreenShot) SourceDC = GetDC(IntPtr.Zero) TargetDC = g.GetHdc Dim Result As Int32 = BitBlt(TargetDC, 0, 0, rc.Right, rc.Bottom, SourceDC, 0, 0, SRCCOPY) If Result = 0 Then Dim ex As New Win32Exception(Marshal.GetLastWin32Error()) MessageBox.Show(ex.Message.ToString()) g.ReleaseHdc(TargetDC): ReleaseDC(IntPtr.Zero, SourceDC) End If g.ReleaseHdc(TargetDC): ReleaseDC(IntPtr.Zero, SourceDC) End Function #End Region End Class