Immer im Vordergrund.

[SynTaxErr0r]

Hallo,
Ich habe mir heute mal ein Crosshair für CS:S gecoded.
Ich habe aber folgedes Problem , ich möchte das man die Form wen man CS:S maximiert (bzw. offen hat) sieht , wie macht man das ...

Denke das das kein Source code anfrage ist da ich ja nur um eine hilfe bei dem suche ...
Wen das hier doch gegen die relen verstößt entschuldige ich mich und bitte darum diesen Threaad zu schließen ,
Danke.

[Apex]

Vielleicht postest du deinen aktuellen Sourcecode oder ladest ihn hoch, dann kann man sich ansehen, was du vergessen hast. Und was ist es für ein Crosshair? Ein Stinknormales oder 'n Snipercrosshair? Mehr Infos bitte ^^

[SynTaxErr0r]

Es ist ein Stinktnormaler Punkt damit man auch ohne zu zoomen andere trifft.

Form1 (Settingz Farbe , posi usw.)

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
      
    End Sub

    Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        ColorDialog1.ShowDialog()
        Form2.Button1.BackColor = ColorDialog1.Color
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Dim nWorkingWidth As Integer
        Dim nWorkingHeight As Integer

        With Screen.PrimaryScreen.WorkingArea
            nWorkingWidth = .Width
            nWorkingHeight = .Height
        End With

        Form2.Size = New System.Drawing.Size(nWorkingWidth, nWorkingHeight)

    End Sub

    Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged
        If RadioButton1.Checked = True Then
            Form2.Show()
            Form2.TopMost = True
        End If
    End Sub

    Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged
        If RadioButton2.Checked = True Then
            Form2.Close()
            Form2.TopMost = False
        End If
     

        
    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        Dim x As Integer
        Dim y As Integer
        x = Form2.Button1.Location.X
        y = Form2.Button1.Location.Y



        Form2.Button1.Location = New Point(x, y + 5)

    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Dim x As Integer
        Dim y As Integer
        x = Form2.Button1.Location.X
        y = Form2.Button1.Location.Y

 

        Form2.Button1.Location = New Point(x, y - 5)

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim x As Integer
        Dim y As Integer
        x = Form2.Button1.Location.X
        y = Form2.Button1.Location.Y

   

        Form2.Button1.Location = New Point(x - 5, y)

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim x As Integer
        Dim y As Integer
        x = Form2.Button1.Location.X
        y = Form2.Button1.Location.Y



        Form2.Button1.Location = New Point(x + 5, y)
    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        
    End Sub

    Private Sub GroupBox3_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GroupBox3.Enter

    End Sub
End Class

Form2 (Der punkt ):

Public Class Form2

    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.TopMost = True
    End Sub
End Class

MFG