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