Aero Design

  • VB.NET

Es gibt 5 Antworten in diesem Thema. Der letzte Beitrag () ist von SeriTools.

    Aero Design

    Guten abend..
    ich habe folgendes Problem:
    habe einen fertigen ( :D ) Code im i.net gefunden der mir das aero design zaubert, klappt auch super,
    das einzige problem sind die schaltflächen etc. da die auch transparent sind :(
    wie kann ich diese normal darstellen?
    Code:

    VB.NET-Quellcode

    1. Imports System.Runtime.InteropServices
    3. Public Class Form1
    4. <Runtime.InteropServices.StructLayout(Runtime.InteropServices.LayoutKind.Sequential)> Public Structure MARGINS
    5. Public LeftWidth As Integer
    6. Public RightWidth As Integer
    7. Public TopHeight As Integer
    8. Public Buttomheight As Integer
    9. End Structure
    11. <Runtime.InteropServices.DllImport("dwmapi.dll")> Public Shared Function DwmExtendFrameIntoClientArea(ByVal hWnd As IntPtr, ByRef pMarinset As MARGINS) As Integer
    12. End Function
    14. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    15. Try
    16. Me.BackColor = Color.Black
    17. Dim margins As MARGINS = New MARGINS
    18. margins.LeftWidth = -1
    19. margins.RightWidth = -1
    20. margins.TopHeight = -1
    21. margins.Buttomheight = -1
    22. Dim result As Integer = DwmExtendFrameIntoClientArea(Me.Handle, margins)
    23. Catch ex As Exception
    24. MsgBox("Sistemul tau de operare nu are aero style!", vbCritical, "Fatal Error")
    25. Application.Exit()
    26. End Try
    27. End Sub
    28. End Class


    lg Nsjdvv :thumbup:

    Vielleicht solltest du nicht die ganze Form in Aero umstellen

    wenn du das nimmt wir nur der obere teil der Form umgestellt

    VB.NET-Quellcode

    1. Try
    3. Me.BackColor = Color.Black
    4. Dim margins As MARGINS = New MARGINS
    5. margins.cxLeftWidth = 0
    6. margins.cxRightWidth = 0
    7. margins.cyTopHeight = 50
    8. margins.cyButtomheight = 0
    10. Dim result As Integer = DwmExtendFrameIntoClientArea(Me.Handle, margins)

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Top-Secret-Programs“ ()

    Danke für die antworten, leider kappier ich nicht was

    VB.NET-Quellcode

    1. UseCompatibleTextRendering

    ist :D
    könnte mir vll nochma jemand auf die sprünge helfen ^^

    danke im vorraus ,Nsjdvv:P

    /Edit: oO Sry war zu voreilig habs gelöst vielen dank :thumbsup:

    Google FTW?
    UseCompatibleTextRendering aero eingeben --> msdn.microsoft.com/de-de/magazine/cc163435.aspx

    Zitat:
    Glücklicherweise gibt es mehrere Möglichkeiten, dieses Problem zu vermeiden. Eine dieser Methoden besteht darin, Besitzerzeichnungssteuerelemente zu verwenden. Sie könnten auch in ein Bitmap rendern, das einen Alphakanal verwendet. Zum Glück besteht das einfachste Verfahren, Steuerelemente mit Text zu versehen, darin, dies von .NET Framework 2.0 mit GDI+ erledigen zu lassen. Das können Sie leicht bewerkstelligen, indem Sie für die Steuerelemente die Eigenschaft UseCompatibleTextRendering einstellen. Standardmäßig ist diese Eigenschaft auf „false“ eingestellt, damit Steuerelemente, die für vorherige Versionen von .NET Framework geschrieben wurden, auf dieselbe Weise gerendert werden. Wenn Sie diese Eigenschaft jedoch auf „true“ setzen, wird der Text korrekt angezeigt. Sie können die Eigenschaft mit der Methode Application.SetUseCompatibleTextRenderingDefault global einstellen. Wenn Sie Visual Studio® 2005 verwenden, enthält der Vorlagencode einen Aufruf, der kompatibles Textrendern in der Hauptroutine vor der Formularerstellung auf „false“ setzt. Sie müssen diesen Code lediglich wie unten gezeigt auf „true“ setzen, damit alle Steuerelemente beim Schreiben auf ein Glasfenster korrekt angezeigt werden.


    Quellcode

    1. static void Main()
    2. {
    3. Application.EnableVisualStyles();
    4. Application.SetCompatibleTextRenderingDefault(true);
    5. Application.Run(new GlassForm());
    6. }


    Google: vb.net Application.SetCompatibleTextRenderingDefault --> social.msdn.microsoft.com/Foru…0d-48ab-b773-b044537f77bb

    Dort gibts eine Anleitung.

    lg SeriTools
    | Keine Fragen per PN oder Skype.