Fenster Transparent machen(ohne opacity und TransparenyKey)

Gelöschter Benutzer · 8. April 2009, 17:41

moin, ist es möglich das Fenster Transparent zu machen ohne opacity und TransparenyKey zu verwenden?
möglich wahrscheinlich schon aber ich weiß nicht wie, sufu hat nur Opacity + TransparenyKey ergebnisse ausgespuckt^^

lg.

Denny · 8. April 2009, 17:42

lol da sucht man ewig

julianibus · 8. April 2009, 17:56

Warum willst du denn diese zwei Methoden nicht verwenden?

vb-checker · 8. April 2009, 17:59

da fällt mir nur das hier ein. Aber ich würde TransparencyKey und Opacity benutzen.

Denny · 8. April 2009, 18:03

ja wenn man die aero funktion nutzt kann man sogar png bilder als hintergrund nehmen, selbst wenn sie halbtrasparent sind :thumbsup:

VB2008Lover · 8. April 2009, 19:12

Würde mich auch interessieren, wie man sowas hinbekommt

vb-checker · 10. April 2009, 16:57

VB2008Lover schrieb:

Würde mich auch interessieren, wie man sowas hinbekommt

Das hier?

Das ist nicht so schwer.

Google mal und wirst nach kurzer oder langer Suche fündig. 8-)

MrLee · 10. April 2009, 17:00

Wenn du so schön meinst das es nicht schwer is, dann kannst du es doch sicherlich erklären, obwohl ich sagen muss, dass das was du auf dem Foto uns zeigst echt scheisse aussieht...

MFG...MrLee

vb-checker · 10. April 2009, 17:16

MrLee schrieb:

...
obwohl ich sagen muss, dass das was du auf dem Foto uns zeigst echt scheisse aussieht...

MFG...MrLee

Das war auch nur ein erster Versuch... :!:

Also du stellst die BackColor deiner Form auf Black und schreibst diesen Code in deine Form.

VB.NET-Quellcode

Imports System.Runtime.InteropServices
Public Class Form1
<StructLayout(LayoutKind.Sequential)> _
Public Structure MARGINS
Public cxLeftWidth As Integer
Public cxRightWidth As Integer
Public cyTopHeight As Integer
Public cyButtomheight As Integer
End Structure
<DllImport("dwmapi.dll")> _
Public Shared Function DwmExtendFrameIntoClientArea(ByVal hWnd As IntPtr, ByRef pMarinset As MARGINS) As Integer
End Function
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
On Error Resume Next
Dim margins As MARGINS = New MARGINS
margins.cxLeftWidth = -1
margins.cxRightWidth = -1
margins.cyTopHeight = -1
margins.cyButtomheight = -1
'set all the four value -1 to apply glass effect to the whole window
'set your own value to make specific part of the window glassy.
Dim hwnd As IntPtr = Me.Handle
Dim result As Integer = DwmExtendFrameIntoClientArea(hwnd, margins)
End Sub

Jetzt hast du nur das Problem, das alles, was Schwarz ist, Aero wird. Also auch Text auf Lbels etc. Deswegen sieht meins so sch... aus. Dann muss man dann schauen wie man das getrickst bekommt.

Denny · 10. April 2009, 17:20

toll der code is kacke
der funktioniert nur in vista aufwärts

vb-checker · 10. April 2009, 17:22

Denny schrieb:

der funktioniert nur in vista aufwärts

wie willst du den in XP die Vista Aero Funktion nutzen :?:

Du kannst die gut nachmachen, aber der Code benutzt ja die Vista Funktion, die XP nicht hat

Templar · 10. April 2009, 17:25

Bei mir geht der Code nicht mal richtig. Und wie will man denn bitte "einfach" eine "Aero Funktion" nachmachen? Mach du das erst mal!

vb-checker · 10. April 2009, 17:28

Templar schrieb:

Und wie will man denn bitte "einfach" eine "Aero Funktion" nachmachen? Mach du das erst mal!

Ich habe gemeint, dass irgendwelche Profis zwar eine perfekte Aero-Nachbildung machen können, diser Code hier aber logischerweise nur bei Vista funkioniert.

Templar · 10. April 2009, 17:30

Und wieso soll der dann nur bei Vista funktionieren, wenn man den Code selbst schreibt?

EDIT:

Es gibt ja schon (sogar viele) Programme die Aero auf XP zaubern.

vb-checker · 10. April 2009, 17:34

Templar schrieb:

Und wieso soll der dann nur bei Vista funktionieren, wenn man den Code selbst schreibt?

Wenn du dir einen Code schreibst, der einen Aero-Effekt komplett zeichnet, dann wird das schon auf XP funkionieren

Denny · 10. April 2009, 17:35

vb-checker schrieb:

Denny schrieb:

der funktioniert nur in vista aufwärts

wie willst du den in XP die Vista Aero Funktion nutzen Du kannst die gut nachmachen, aber der Code benutzt ja die Vista Funktion, die XP nicht hat

ja das mein ich doch :cursing:

Templar · 10. April 2009, 17:36

vb-checker schrieb:

Templar schrieb:

Und wie will man denn bitte "einfach" eine "Aero Funktion" nachmachen? Mach du das erst mal!

Ich habe gemeint, dass irgendwelche Profis zwar eine perfekte Aero-Nachbildung machen können, diser Code hier aber logischerweise nur bei Vista funkioniert.

Wieso Profis? Mit den Code oben geht's doch?? Meine Fresse!

vb-checker · 10. April 2009, 17:37

Denny schrieb:

vb-checker schrieb:

Denny schrieb:

der funktioniert nur in vista aufwärts

wie willst du den in XP die Vista Aero Funktion nutzen Du kannst die gut nachmachen, aber der Code benutzt ja die Vista Funktion, die XP nicht hat

ja das mein ich doch

Da sind wir uns ja einig, dass der Code dir nichts nützt. 8-)

Edit:

Wieso Profis? Mit den Code oben geht's doch?? Meine Fresse!

Ich meine bei XP. Dort geht es nicht mit dem Code

können wir diese Diskussion jetzt sein lassen? Freut euch an dem Code oder tuts nicht :!:

Templar · 10. April 2009, 17:43

ich tu's nicht. der krampf geht net.

EDIT:

Denny · 10. April 2009, 17:50

was soll das sein??
du musst die backgroundcolor auf black setzten

Fenster Transparent machen(ohne opacity und TransparenyKey)

Fenster Transparent machen(ohne opacity und TransparenyKey)

Skybird schrieb:

VB2008Lover schrieb:

Skybird schrieb:

MrLee schrieb:

VB.NET-Quellcode

Skybird schrieb:

Denny schrieb:

Skybird schrieb:

Templar schrieb:

Skybird schrieb:

Templar schrieb:

Skybird schrieb:

vb-checker schrieb:

Denny schrieb:

vb-checker schrieb:

Templar schrieb:

Denny schrieb:

vb-checker schrieb:

Denny schrieb:

Skybird schrieb:

Ähnliche Themen

4 Benutzer haben hier geschrieben