|
| Autor |
Nachricht |
regenwurm_
Coder
Anmeldedatum: 20.07.2007
Beiträge: 85
|
Dockbar mit VB6
Verfasst am: 22.12.2007, 12:27 |
|
|
Huhu liebe Community 
Also ich frage mich seit längerer Zeit, wie ich eine Dockbar in VB6 machen könnte.
ich habe ein Form1
Und wenn die Maus nun am oberen Rand des bildschirms ist, erscheint die Form (evt. per Hide/Show).
Wie kann ich schauen, ob die Maus am oberen Rand des Bildschirmes ist?
lg Regenwurm
 |
|
| |
|
 |
Hamtaro_
« Moderator »
Anmeldedatum: 06.05.2007
Beiträge: 217
Wohnort: NRW
|
|
| |
|
|
Viktor
« Webmaster »
Anmeldedatum: 08.12.2006
Beiträge: 354
Wohnort: Berlin
|
|
| |
|
|
tr4st_
« Moderator »
Anmeldedatum: 17.12.2007
Beiträge: 315
Wohnort: Private Class _ Villa()
|
Verfasst am: 22.12.2007, 15:16 |
|
|
| Sehr geil enco! |
|
| |
|
|
killer110_
Poster
Anmeldedatum: 16.04.2007
Beiträge: 165
|
Verfasst am: 22.12.2007, 15:57 |
|
|
jo es wär aber geiler wenns bei mir net immer auf und zu gehen würde xD hmmmm.....
 |
|
| |
|
|
tr4st_
« Moderator »
Anmeldedatum: 17.12.2007
Beiträge: 315
Wohnort: Private Class _ Villa()
|
Verfasst am: 22.12.2007, 16:06 |
|
|
Naja musst ja nur die Cases ändern und halt angeben das bei einem klick auf die Fläche xy die .height = max ist kannst halt dann nicht mehr true or false nutzen.
Wie aber öfters gesagt bin ich noch im anfangs Stadium und versuche nur mein Bestes  |
|
| |
|
|
Viktor
« Webmaster »
Anmeldedatum: 08.12.2006
Beiträge: 354
Wohnort: Berlin
|
Verfasst am: 22.12.2007, 17:34 |
|
|
| killer110 hat Folgendes geschrieben: | | jo es wär aber geiler wenns bei mir net immer auf und zu gehen würde xD hmmmm..... |
Lads neu, hab eben was gefixt.
Das lag daran, dass ich vorher über die Form noch ein Listview hatte und deshalb bei der Bedingung zum Öffnen auch "" genommen habe.
Das Dumme daran war nur, dass der Hintergrund vom vb-Compiler auch den Wert "" hat und sich das Fenster deswegen immer öffnet und schließt. |
|
| |
|
|
killer110_
Poster
Anmeldedatum: 16.04.2007
Beiträge: 165
|
Verfasst am: 22.12.2007, 18:05 |
|
|
jo jetzt gehts^^ geil 
|
|
| |
|
|
regenwurm_
Coder
Anmeldedatum: 20.07.2007
Beiträge: 85
|
Verfasst am: 22.12.2007, 18:17 |
|
|
Wow sieht cool aus
Dürfte ich die benutzen?
|
|
| |
|
|
tr4st_
« Moderator »
Anmeldedatum: 17.12.2007
Beiträge: 315
Wohnort: Private Class _ Villa()
|
Verfasst am: 22.12.2007, 18:39 |
|
|
| Warum solltest du den nicht nutzen dürfen? |
|
| |
|
|
Viktor
« Webmaster »
Anmeldedatum: 08.12.2006
Beiträge: 354
Wohnort: Berlin
|
Verfasst am: 22.12.2007, 18:47 |
|
|
| regenwurm hat Folgendes geschrieben: | Wow sieht cool aus
Dürfte ich die benutzen? |
Gegenfrage: Warum sollte ich das hier bereitstellen wenn du es nicht benutzen dürftest |
|
| |
|
|
The-God-of-all_
Poster
Anmeldedatum: 20.05.2007
Beiträge: 170
Wohnort: App.Path
|
Verfasst am: 22.12.2007, 20:33 |
|
|
Ich habe mal eine Frage:
Warum überprüfst du ob der Mauszeiger auf dem Fenster ist über den Fenstertitel und warum nicht über den Fenster Handle? Der Handle vom eigenen Fenster ist doch bekannt? Vorallem kann es dann auch nicht passieren, dass das Menü aufgeht wenn man mit dem Cursor über ein anderes Fenster mit der gleichen Caption geht.
Ich würde das so machen:
| Code: | Private Sub tmrTimer_Timer()
Dim oPoint As POINTAPI
Dim hwnd As Long
' Mausposition ermitteln
If GetCursorPos(oPoint) <> 0 Then
' Fensterhandle des Controls, auf dem sich
' der Mauszeiger befindet
hwnd = WindowFromPoint(oPoint.X, oPoint.Y)
If hwnd = Me.hwnd Then 'Wenn auf der Form
cHeight Me, 250, 1500, 25, True
Else 'Wenn NICHT auf der Form
cHeight Me, 250, 1500, 25, False
End If
End If
End Sub |
|
|
| |
|
|
King of Chaos_
Coder
Anmeldedatum: 26.09.2007
Beiträge: 235
|
Verfasst am: 22.12.2007, 21:02 |
|
|
habs in meine antivirus Echtzeitschutz mit Credits an dich (enco) eingebaut
glg
King of Chaos
(Mulit admin Tool v4 da isn Antivirus Canner drinn in den hab ich ihn rein ) |
|
| |
|
|
regenwurm_
Coder
Anmeldedatum: 20.07.2007
Beiträge: 85
|
Verfasst am: 23.12.2007, 12:17 |
|
|
| enco hat Folgendes geschrieben: | | regenwurm hat Folgendes geschrieben: | Wow sieht cool aus
Dürfte ich die benutzen? |
Gegenfrage: Warum sollte ich das hier bereitstellen wenn du es nicht benutzen dürftest |
Man weiss ja nie
Ich frage lieber zuerst
Vielen Dank dafür
|
|
| |
|
|
Registrieren
Login
Wie findet ihr meine Sig?