Zelf bepalen met welke hotkey die uit gaat

[w00tare]

Hallo Mensen Mijn Vraag :

Ik ben dus nu bezig met een progamma (AutoPusher)
Ik heb Hotkeys erin gezet en ben nu bezig met dat je zelf kan bepalen met welke hotkey die uit gaat..

Ik wil dus, Mijn kringetje :

Form1(AutoPusherProg) --> Button1 Word geklikt --> Form2(HotkeyChanger) --> Hotkey wordt in Textbox1 Gevoerd --> Button1(Form2) Word geklikt --> Form1.Timer1 t/m 12 Code wordt veranderd. (Bij de laaste blijf ik hangen hier kom in niet verder)

Mijn Timer Code (Form1) Timer1 T/M 12 :

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        SendKeys.Send("1")
        Dim Hotkey As Boolean = GetAsyncKeyState(Keys.F1)
        If Hotkey = True Then
            SendKeys.Send("1")
        End If
        Dim Hotkey1 As Boolean = GetAsyncKeyState(Keys.Insert)
        If Hotkey1 = True Then
            Timer1.Enabled = False
        End If
    End Sub

Dan nog een klein vraagje,

For z = 0 To 9999
            If TextBox1.Text = "z" Then
                TextBox1.Text = Timer1.Interval
                TextBox1.Text = Timer2.Interval
                TextBox1.Text = Timer3.Interval
                TextBox1.Text = Timer4.Interval
                TextBox1.Text = Timer5.Interval
                TextBox1.Text = Timer6.Interval
                TextBox1.Text = Timer7.Interval
                TextBox1.Text = Timer8.Interval
                TextBox1.Text = Timer9.Interval
                TextBox1.Text = Timer10.Interval
                TextBox1.Text = Timer11.Interval
                TextBox1.Text = Timer12.Interval
            Else
            End If
        Next z
    End Sub

Werkt dat zo? Ik heb het uitgetest maar kan niet uitvinden of het werkt?

Bedankt!:thumb:

 

[kyliang]

je hebt kans dat hij vast loopt

gebruik een timer met vars

 

[bn2vs]

3 opmerkingen:

1. zet option stict en explicit aan, dan zie je direct dat je verkeerd bezig bent, wat nu het geval is.

option stict on
option explicit on

Dat gewoon bovenaan elke file zetten.

2. 12 timers?! veel kans dat je het met 1 kan doen als je het my vraagt. heb er nog nooit zoveel nodig gehad.

3. geef je variabelen eens deftige namen - TextBox1 maakt niet echt duidelijk wat erin staat/waar die voor dient.

dit is niet de oplossing waar je naar vroeg - maar je hebt er wel meer aan :thumb:

 

[ErikBooy007]

@bn2vs,

Typfoutje? Het is natuurlijk Option Strict

 

[CoD_NL]

2. 12 timers?! veel kans dat je het met 1 kan doen als je het my vraagt. heb er nog nooit zoveel nodig gehad.

Daarbij zal de code zo snel worden uitgevoerd dat je enkel de waarde krijgt te zien van de laatste timer

 

[bn2vs]

Typfoutje? Het is natuurlijk Option Strict

Subtiele fout ja