Webbrowser VB Erweitert

  • VB.NET

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

    Webbrowser VB Erweitert

    Kann mir jemand Tipps geben was man alles in so ein webbrwoser packen kann

    und noch eine frage wie kann man nur die Form unsichtbar machen und die labels oder der webbrowser komponent wird nicht glas

    were nett wenn ihr paar codes oder tipps geben könntet :whistling:

    Hier ist der Code für Den Aero-Stil von Windows 7 und Vista , du kannst den Wb dann aber nich mehr unter XP nutzen...

    VB.NET-Quellcode

    1. Imports System.Runtime.InteropServices
    2. Public Class Form1
    3. <Runtime.InteropServices.StructLayout(Runtime.InteropServices.LayoutKind.Sequential)> Public Structure MARGINS
    4. Public LeftWidth As Integer
    5. Public RightWidth As Integer
    6. Public TopHeight As Integer
    7. Public Buttomheight As Integer
    8. End Structure
    9. <Runtime.InteropServices.DllImport("dwmapi.dll")> Public Shared Function DwmExtendFrameIntoClientArea(ByVal hWnd As IntPtr, ByRef pMarinset As MARGINS) As Integer
    10. End FunctionPrivate Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    11. TryMe.BackColor = Color.Gray
    12. Dim margins As MARGINS = New MARGINS
    13. margins.LeftWidth = -1
    14. margins.RightWidth = -1
    15. margins.TopHeight = -1
    16. margins.Buttomheight = -1Dim result As Integer = DwmExtendFrameIntoClientArea(Me.Handle, margins)
    17. Catch ex As ExceptionMsgBox("Dein Betriebssystem unterstützt nicht den Aero-Stil!", vbCritical, "Fehler!")
    18. Application.Exit()
    19. End Try
    20. End Sub

    Hier gibs kein "einfachen" Befehl wenn du das ganze ohne das UI-Framework von Maximilian Krauss (dotnetbase.de) lösen willst.

    Hier den Quellcode von TheRonalden nochmal (etwas "sortierter")

    VB.NET-Quellcode

    1. Imports System.Runtime.InteropServices
    2. Public Class Form1
    3. <Runtime.InteropServices.StructLayout(Runtime.InteropServices.LayoutKind.Sequential)>
    5. Public Structure MARGINS
    6. Public LeftWidth As Integer
    7. Public RightWidth As Integer
    8. Public TopHeight As Integer
    9. Public Buttomheight As Integer
    10. End Structure
    12. <Runtime.InteropServices.DllImport("dwmapi.dll")>
    14. Public Shared Function DwmExtendFrameIntoClientArea(ByVal hWnd As IntPtr, ByRef pMarinset As MARGINS) As Integer
    16. End Function
    18. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    19. TryMe.BackColor = Color.Gray
    20. Dim margins As MARGINS = New MARGINS
    21. margins.LeftWidth = -1
    22. margins.RightWidth = -1
    23. margins.TopHeight = -1
    24. margins.Buttomheight = -1
    25. Dim result As Integer = DwmExtendFrameIntoClientArea(Me.Handle, margins)
    26. Catch ex As Exception
    27. MsgBox("Dein Betriebssystem unterstützt nicht den Aero-Stil!", vbCritical, "Fehler!")
    28. Application.Exit()
    29. End Try
    31. End Sub

    Gruss Myrax