Snarvei for en button

[Verbal Hologram]

Halo, lager en quicklaunch for meg selv på VB.

Der har jeg listet opp et par programmer som starter når jeg klikker på button.

System.Diagnostics.Process.Start(Form2.TextBox1.Text)

 

og på textbox 1 står det:

C:\Users\Jokke\AppData\Local\Google\Chrome\Application\chrome.exe

 

Altså da starter chrome webbrowser, men jeg vil at jeg feks kan trykke på ctrl + c og at chrome da starter.

 

Altså så åpner jeg mitt program og trykker på ctrl + c og da går denne koden i bruk:

System.Diagnostics.Process.Start(Form2.TextBox1.Text)

 

Noen som kan være så snille og hjelpe?

[Tapped]

Har egentlig aldri programmert i Basic, lærte det for 1 min siden

Synes språket er veldig rotete, men det får da være.

 

En veldig lett måte å få inn tastetrykk er "event" KeyDown.

Så i din situasjon så kan du rett og slett finne ut om de tastene er nede ved å gjøre som dette

Private Sub program_KeyDown(KeyCode As Integer, Ctrl As Integer)
   Dim blnIsCtrl As Boolean
   blnIsCtrl = Ctrl And vbCtrlMask
   If blnIsCtrl And (KeyCode = vbKeyC) Then
       'Åpner opp det som står i tekstboksen når Ctrl+C trykkes
       System.Diagnostics.Process.Start(Form2.TextBox1.Text)
   End If
End Sub

 

Jeg bruker vbCtrlMask for å få en "bool" av tallet. Hvis du ikke forstår "and" sjekk en annen lignende sak som jeg skrev https://www.diskusjon.no/index.php?showtopic=1288527&pid=16748853&st=0entry16748853 .

 

-Tapped

Endret 12. januar 2011 av Tapped

[GeirGrusom]

Har egentlig aldri programmert i Basic, lærte det for 1 min siden

Synes språket er veldig rotete, men det får da være.

 

En veldig lett måte å få inn tastetrykk er "event" KeyDown.

Så i din situasjon så kan du rett og slett finne ut om de tastene er nede ved å gjøre som dette

Private Sub program_KeyDown(KeyCode As Integer, Ctrl As Integer)
   Dim blnIsCtrl As Boolean
   blnIsCtrl = Ctrl And vbCtrlMask
   If blnIsCtrl And (KeyCode = vbKeyC) Then
       'Åpner opp det som står i tekstboksen når Ctrl+C trykkes
       System.Diagnostics.Process.Start(Form2.TextBox1.Text)
   End If
End Sub

 

Jeg bruker vbCtrlMask for å få en "bool" av tallet. Hvis du ikke forstår "and" sjekk en annen lignende sak som jeg skrev https://www.diskusjon.no/index.php?showtopic=1288527&pid=16748853&st=0entry16748853 .

 

-Tapped

Dette du skriver er Visual Basic 6.0 eller tidligere. TS bruker Visual Basic .NET eller nyere.

Det som må brukes er Global Hotkeys. Jeg er usikker på hvordan disse brukes dog, men jeg tror du finner en god del om det på MSDN. Mulig P-Invoke må brukes. KeyDown vil kun fungere når programmet har fokus.