wodurch die Grenze des vb.net form semi-transparent

Gibt es eine Möglichkeit zum einbetten vb.net form zu einer anderen vb.net form. Was ich versuche zu tun ist, um Form-semi-transparent, Form-B-als embedded-main bilden. So dass die endgültige Anwendung hat eine semi-transparente Grenze um ihn herum . Auch möchte ich nicht verwenden, ein MDI-Formular.

Edit: Wie, um die Grenze von einem vb.net form semi-transparent, ohne Verwendung von MDI-Formular.

  • Ohne Verwendung von MDI, ich kann mir keinen Weg, dies zu tun. Kurz einige größere winforms-hacking. Ich habe eine Idee, aber muss warten bis morgen, um Zugang zu einem computer mit Visual Studio.
  • danke, ich werde warten, bis tommorrow
  • Ich werde jetzt herunterladen, so könnten etwa sein heute Nacht.
  • Darf ich Fragen, was genau du machst? Ich bin ein wenig neugierig.
  • nur versuchen, um den Rand um die form semi-transparent, gerade wie Sie Taten, aber ohne den Fokus-Problem.
InformationsquelleAutor subanki | 2011-01-08
  1. 2

    Habe ich vereinfacht den code ein bisschen und hakte sich die meisten Ereignisse auf eine einzige Methode. Es ist nicht mehr eine Form-A, nur eine Form B. Form B jetzt schafft es, die eigenen Form-Eine on-the-fly ohne die Notwendigkeit, tatsächlich eine code-Datei. Ich zog die Grenze der Größe einer Variablen, so wäre es einfach zu justieren.

    Imports System.Runtime.InteropServices

Public Class InnerForm
    Private borderSize As Integer = 10
    Private border As Form = New Form()

    Private Sub InnerForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        border.FormBorderStyle = Windows.Forms.FormBorderStyle.None
        border.ShowInTaskbar = False
        border.BackColor = Color.Blue
        border.Opacity = 0.5
        border.Enabled = False

        RefreshBorder()
    End Sub

Private Sub DrawRectangle()
    Dim p As New Drawing2D.GraphicsPath()
    p.StartFigure()
    p.AddArc(New Rectangle(0, 0, 40, 40), 180, 90)
    p.AddLine(40, 0, border.Width - 40, 0)
    p.AddArc(New Rectangle(border.Width - 40, 0, 40, 40), -90, 90)
    p.AddLine(border.Width, 40, border.Width, border.Height - 40)
    p.AddArc(New Rectangle(border.Width - 40, border.Height - 40, 40, 40), 0, 90)
    p.AddLine(border.Width - 40, border.Height, 40, border.Height)
    p.AddArc(New Rectangle(0, border.Height - 40, 40, 40), 90, 90)
    p.CloseFigure()
    border.Region = New Region(p)
End Sub

Private Sub RefreshBorder()
    border.Show()
    border.Size = New Size(Me.Width + borderSize * 2, Me.Height + borderSize * 2)
    border.Location = New Point(Me.Location.X - borderSize, Me.Location.Y - borderSize)
    DrawRectangle()
    SetWindowPos(border.Handle, Me.Handle, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE Or SWP_NOACTIVATE)

    Me.BringToFront()
End Sub


    Private Sub frmMAin_Refresh(ByVal sender As Object, ByVal e As System.EventArgs) _
        Handles Me.GotFocus, Me.Move, Me.Activated, Me.SizeChanged, MyBase.Shown

        'dont show when maximized or minimized, else show it'
        If Me.WindowState = FormWindowState.Maximized Or Me.WindowState = FormWindowState.Minimized Then
            border.Hide()
        Else
            RefreshBorder()
        End If
    End Sub

    <DllImport("user32.dll")> _
    Private Shared Function SetWindowPos(ByVal hWnd As IntPtr, ByVal hWndInsertAfter As IntPtr, ByVal X As Integer, ByVal Y As Integer, ByVal cx As Integer, ByVal cy As Integer, ByVal uFlags As Integer) As Boolean
    End Function

    Public Const SWP_NOSIZE As Int32 = &H1
    Public Const SWP_NOMOVE As Int32 = &H2
    Public Const SWP_NOACTIVATE As Int32 = &H10
End Class

    Lassen Sie mich wissen, wenn dieses für Sie arbeitet.

    • So, wie bekomme ich die Rahmenfarbe semi transparent ? U kann das hochladen einen funktionierenden Beispielcode irgendwo ?
    • Ich versuchte Ihre Methode, das problem ist nur, dass wenn ich die Deckkraft von Haupt-form des child-form ändert sich auch Ihre Deckkraft
    • Sorry... falsch verstanden, die Aufgabe (nicht sicher, wie, aber ich habe). Ich Durcheinander herum mit dem code gepostet von giodamelio und ich denke, dass ich es geschafft habe. Überprüfen Sie meine aktualisierte Antwort.
    • Ok, es löste das Fokus-Problem , aber das neue problem ist, dass nachdem ich minimieren, die form, die Grenze verschwindet.
    • Ich habe optimiert den code ein wenig, schlanke Sie ihn ein bisschen, und ich denke, es sollte funktionieren. Lassen Sie mich wissen, ob das funktioniert für Sie.
    • problem mit dem minimieren ist gelöst, wird aber nach maximieren Sie die form, die ganze form wird blau.
    • Aktualisiert. Ich fügte hinzu, "Mir.BringToFront ()", um die RefreshBorder () - Methode und das scheint es zu beheben.
    • Danke, das klappt 🙂
    • Ist es möglich, um die Ecke von der Grenze gerundet ?
    • Ein weiteres Problem, ich habe ausgeführt, der code, der das Formular angezeigt, gut, dann habe ich einen Ordner geöffnet (also mein computer) und dann bringen Sie das Formular in der front habe ich gerade geklickt auf die Form-Symbol in der task-Leiste, Viola die Grenze ist Weg 🙁
    • Gibt es trotzdem, um dieses Problem zu beheben? Ihr einen ähnlichen Fokus-Problem problem
    • Ich habe soeben meinen code wieder. Ich bin mit SetWindowPos zu zwingen, die den zindex der Grenze immer direkt hinter den Eltern. Versuchen Sie, das herauszufinden. Ich habe die gesamte Datei, so dass Sie sehen konnte, die erforderlichen Import-Anweisung am Anfang.
    • Ich vergaß zu löschen Sie den vorherigen code,: P, der code funktioniert Super , nochmals danke.
    • Ich fügte hinzu, abgerundete Ecken. Siehe Zusatz der DrawRectangle-Methode und dem Aufruf von ihm in RefreshBorder().
    • Vielen Dank, Ihr seid Super
    • Sie sagten, Form B Form macht Ein während run-time. Dann, wie kann ich ein einfaches Etikett zu Bilden
    • Zwei Optionen: Eine, nicht von b automatisch erstellen Formular ein und haben es eigentlich ein separates Formular. Zwei, erstellen Sie das Steuerelement im code und fügen Sie ihn mit der hand, so etwas wie Dim lbl as new Label() Grenze.controls.add(lbl). Ich dachte, Sie würde wollen, dass die Grenze nur eine Grenze, aber wenn Sie wollen, um die anderen Steuerelemente in es ich würde probalby machen Sie ein separates Formular für die es anstelle von wodurch es automatisch generiert.
    • Ich habe versucht die zweite Methode, aber das label wird nicht angezeigt 🙁
    • Dies ist, was ich versucht habe.......line1: Dim lbl As New Label() Zeile2: Grenze.Controls.Add(lbl) lien3: lbl.Text = "Hallo" line4: lbl.Location = New Point(1, 1)
    • Zu versuchen, die 1. Methode, welche Veränderungen sollte ich in den codes
    • Stellen Sie ein neues windows form, werden wir sagen, dass es heißt FromA, setzen Sie Ihr label in it. Ändern Sie dann "Private Grenze Als Form = New Form()" in "Private Grenze-FormA = New FormA()"
    • Super, Danke, jetzt ist alles PERFEKT 🙂
    • Ich bin mit der Spitze von der Grenze als eine Titelleiste, wo ich einen text für Titel , minimieren-Schaltfläche und eine Schaltfläche zum schließen, wie mache ich das. Da die Grenze.Enabled = False, ich bin nicht in der Lage put put buttons. Jeder Weg, um dieses problem.
    • Ich spaltete die Grenze in zwei Teile, einen für oben (Titel) und eine für unten (rest des Formulars). Problem Gelöst 😀

    InformationsquelleAutor Peter
  2. 2

    Sollten Sie check this out. Es ist in C# aber man könnte versuchen Hilfe zu Holen, zu übersetzen. Die Erweiterung Form mit Non-Client-Bereich-Malerei. Es ist Weise über meinem Kopf und da Sie neu sind, könnte es ziemlich heikel.

    Erste, da Sie nicht angeben, ich gehe davon aus, dass Sie mit winforms und nicht WPf oder Asp.net, die ich beide haben neben keine Erfahrung mit.
    Ich habe eine Methode, die ist nur messing mit einem Bündel von winforms-Eigenschaft. Es ist ein bisschen glitchy auf meinem winxp-box, aber es funktioniert :). Hier ist der code für die zwei Formen, ich habe th-Eigenschaft im code, um die Dinge zu vereinfachen.

    Dem Hauptformular

    Public Class frmMAin
    Dim border As Form = New frmBackground()

    Private Sub frmMAin_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.GotFocus
        RefreshBorder()
    End Sub
    Private Sub frmMAin_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        RefreshBorder()
    End Sub

    Private Sub RefreshBorder()
        border.Show()


        border.Size = New Size(Me.Width + 20, Me.Height + 20)
        border.Location = New Point(Me.Location.X - 10, Me.Location.Y - 10)
    End Sub

    Private Sub frmMAin_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.LostFocus
        border.Hide()
    End Sub

    Private Sub frmMAin_Move(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Move
        RefreshBorder()
    End Sub
End Class

    Den Hintergrund Bilden

    Public Class frmBackground

    Private Sub frmBackground_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.FormBorderStyle = Windows.Forms.FormBorderStyle.None
        Me.ShowInTaskbar = False
        Me.BackColor = Color.Blue
        Me.Opacity = 0.5
    End Sub
End Class

    Und es stellt sich heraus so etwas wie dieses.
    wodurch die Grenze des vb.net form semi-transparent

    Dieser code hat noch einige Probleme mit dem Fokus, sondern ist vor allem funktional. Auch halten Sie im Verstand dies ist nicht die "eleganteste" Möglichkeit dieses problem zu lösen, gibt es wahrscheinlich einen besseren Weg, dies zu tun mit irgendeiner system-dll. Sie könnten auch versuchen, WPF, wie ich höre, haben Sie viel mehr Kontrolle über das Aussehen dann in winforms.

    • Schön, Danke. Ich kam auch mit etwas ähnlichem wie diesem. Ich versuchte Ihren code, es funktioniert gut. problem ist nur mit den Fokus , wenn ich auf den hintergrund bilden, kommt es auf der Oberseite des Haupt-form ...jeder Weg, um es immer im hintergrund von der main-form mit mit topmost = true ? Auch, wenn möglich kann u sagen, wie man dies in WPF. Ich nicht viel, abt dieses . Ich habe gerade angefangen vb.net gestern 😛
    • Das ist das gleiche problem ich lief in, und konnte nicht herausfinden. Aber seine zu spät und die Programmierung Teil von mein Gehirn ausgeschaltet vor etwa einer Stunde :|. Ich gebe es einen weiteren Riss in den morgen.
    • Ich habe einen link zu der oben auf meine Antwort.
    • Danke für die Mühe giodamelio. Ich besuchte die Seite und ging durch den link aber nicht verstehen konnte, viel. @Andere bitte Jemand zu konvertieren, um vb.net
    • u wird in der Lage sein, mir zu helfen, wenn der c# - code übersetzt wird vb.net ?
    • Ich könnte, ich könnte nicht. Das Zeug ist gleich um die Kante meines erkennbar ist. Ich würde trotzig wie zu lernen, obwohl.
    • OK, dieser Website sagt, es wandelt C# - code vb.net ...developerfusion.com/tools/convert/csharp-to-vb
    • Ich habe diese Website, und der code ist über meinem Kopf. Sie sind gonna brauchen Sie jemand anderes Hilfe auf diesen einen, sorry.
    • Danke Kumpel

    InformationsquelleAutor giodamelio
Schreibe einen Kommentar