Visual Basic Forum

Verfasst am: 24.12.2009, 15:11 Aufrufe: 550

Hallo ich habe eine frage und zwar will ich nachdem oder während ich die taste Ctrl gedrückt habe mit der linken maustaste einen rechtsklick machen If GetAsyncKeyState(&H11) Then End If die taste habe ich damit schon abgefragt der pc darf keinen Linksklick machen! obwohl die linke maustaste gedrückt ist? Confused

hoffe mir kann hier einer helfen MFG Kombi Wink

Verfasst am: 15.06.2009, 12:15 Aufrufe: 2133

Ich mach es einfach mal auf der Form als Beispiel.Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)<br />If Button = 2 Then<br /> Call PopupMenu(menu)<br />End If<br />End SubButton 2 ist also die rechte Maustaste. Ihr könnt natürlich auch die Linke Maustaste abfragen wenn ihr wollt.Durch Call PopupMenu(menu) wird dann Euer Hauptmenü aufg ...

Verfasst am: 17.07.2008, 21:44 Aufrufe: 1214

Ist ListView1(Click) nicht die linke Maustaste?

Verfasst am: 13.06.2008, 08:36 Aufrufe: 1562

Also Aufmachung ist schonmal nice. Also Icon, Infos, dass es im Systemtray läuft usw.Aber sind noch paar Sachen die ich nicht so toll finde.1. Im Kontextmenü "-" nutzen wie sollniss meinte2. Kannst du im Kontextmenü per "&" Buchstaben zum schnellen ausführen per Tastatur bestimmen.3. Rechte Maustaste auf dem SysIcon sollte Kontextmenü aufrufen. Linke evt. Show all Log-entries4. Bei StopLogging fehlt ein Abstand.5. We ...

Verfasst am: 10.03.2008, 20:03 Aufrufe: 680

Verfasst am: 18.02.2008, 16:03 Aufrufe: 650

... Long hWnd As Long uId As Long uFlags As Long uCallBackMessage As Long hIcon As Long szTip As String * 64 End Type Public Const NIM_ADD = &H0 Public Const NIM_MODIFY = &H1 Public Const NIM_DELETE = &H2 Public Const NIF_MESSAGE = &H1 Public Const NIF_ICON = &H2 Public Const NIF_TIP = &H4 Public Const WM_MOUSEMOVE = &H200 ' Konstanten für linke Maustaste ...

Verfasst am: 18.01.2008, 13:25 Aufrufe: 781

. End if End Select End If End Sub Zu guter letzt habe ich jetzt noch entdeckt, dass bei dem Event garkeine Variable "Button" übergeben wird. Einfach selbst hinzufügen kannst du das nicht. Also scheitert es schon an der Abfrage ob die linke Maustaste gedrückt wurde. Und ich sags gerne nochmal. Nimm lieber das ItemDown oder MouseDown Event. Private Sub xpOutBar1_ItemDown(ByVal Grou ...

Verfasst am: 15.01.2008, 18:19 Aufrufe: 781

Item Index des Symbols der Menügruppe. Button Zeigt an, welche Maustaste gedrückt wurde. Hierbei hat Button den Wert 1 (vbLeftButton), wenn die linke Maustaste gedrückt wurde bzw. den Wert 2 (vbRightButton), falls die rechte Maustaste gedrückt wurde. Anmerkung: Das ItemClick-Ereignis wird auch dann ausgelöst, wenn der Eintrag nicht durch den Anwender (Mausklick), sondern durch Setzen der ItemCur-Eigens ...

Verfasst am: 08.12.2007, 10:52 Aufrufe: 296

okay thx, aber wie kann man jetzt ein eigenes Bild als mouspointer nehmen? und wie kann ich das machen, wenn man linke maustaste drückt, dass dann so einen soud kommt?

Verfasst am: 03.11.2007, 04:05 Aufrufe: 638

30 sekunden suchen Rolling Eyes

http://pscode.com/vb/scripts/ShowCode.asp?txtCodeId=42720&lngWId=1 Als wenn ich sowas nicht schon gefunden hätte Rolling Eyes

Ich meine wirklich nen kompletten Explorer Clone deswegen hab ich auch die Stelle mit "Linke Maustaste gedrückt halten um um mehrere Dinge im Auswahl Rechteck auszuwählen" wiederholt, hätte jmd für sowas eine Lösung?

Verfasst am: 31.05.2007, 19:52 Aufrufe: 692

ist das hier nicht einfacher? Klicks machen: [code]Private Declare Sub mouse_event Lib "user32" _ (ByVal dwFlags As Long, ByVal dx As Long, _ ByVal dy As Long, ByVal cButtons As Long, _ ByVal dwExtraInfo As Long) 'Linke Maustaste simulieren Public Sub LinksKlick() mouse_event &H2, 0, 0, 0, 0 mouse_event &H4, 0, 0, 0, 0 End Sub 'Mittlerer Maust ...

Verfasst am: 23.05.2007, 08:14 Aufrufe: 565

Ich hoffe mal ich hab dich richtig verstanden. Hier mal ein code mit dem du ermitteln kannst ob eine Zeile angeklickt wurde oder nicht, dann noch welche Zeile und ob es die linke Maustaste war. Wenn alles erfüllt wurde, werden die Daten an die Textboxen übergeben. [code] Private list as listitem Private Sub lv_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single) If Button = 1 Then 'Nur ...

Verfasst am: 28.03.2007, 19:23 Aufrufe: 1979

Also, ob es in einer Textbox, Listbox oder vielleicht auf der Form sein soll. Ich mach es einfach mal auf der Form als Beispiel. Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 Then Call PopupMenu(menu) End If End Sub Button 2 ist also die rechte Maustaste. Ihr könnt natürlich auch die Linke Maustaste abfragen wenn ihr wollt. D ...