English
|
Thema: Crosshair overlay funktioniert nicht richtig | |
|
Anmeldungsdatum: Jan 2014 Beiträge: 1 |
Hey, Vorab einmal: Ich bin komplett neu beim Programmieren und habe versucht mir ein Crosshair Overlay zu erstellen. Soweit so gut - würde es denn klappen. Soweit bin ich schonmal gekommen Um Links zu sehen, musst du dich registrieren Das Crosshair ist in der Mitte platziert so wie es sein soll. Es liegt auch über Css. Mein nächstes Problem ist bloß, dass ich in Css einen Cursor auf dem Kreuz habe. Sobald ich schieße klicke ich quasi das Kreutz an. Mit Cursor.hide() könnte ich den Cursor schonmal verstecken. Aber wie bewege ich das Programm dazu zu sagen: klicke durch mich hindurch? Desweiteren habe ich auch eingeschränkte lags mit dem Crosshair, da ich ja auch dem Crosshair Programm bin und Css hinten dran läuft. Wie behebe ich das ? Google will mit nicht helfen xD _____________ Mein nächstes Problem ist das Programm an sich. Wenn ich auf den "Load" klicke, möchte ich dass ich keine Checkboxen mehr verändern kann wie stelle ich das an? Mit einem "If" Satz oder? Bitte helft mir Grüße Euer Neuling pS.' ______________ Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Timer1.Start() End Sub Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick If ProgressBar1.Value = 100 Then Timer1.Stop() Else ProgressBar1.Value += 100 Label7.Text = ProgressBar1.Value.ToString If ProgressBar1.Value = 100 And CheckBox4.Checked Then Form2.Show() End If End If End Sub Private Sub ProgressBar1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ProgressBar1.Click End Sub Private Sub CheckBox4_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox4.CheckedChanged If ProgressBar1.Value = 100 And CheckBox4.Checked Then Form2.Show() End If End Sub Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click End Sub End Class ____________ Public Class Form2 Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Cursor.Hide() End Sub Private Sub LineShape2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LineShape2.Click End Sub Private Sub LineShape1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LineShape1.Click End Sub End Class |
|
| pS95 ist offline | ||
