以两种不同的不透明度显示表格

Question

我的情况是这样的。

我有一个作为 frmPopup 的表单，它有一个作为 pnlCtrlHolder 的面板。我将使用此表单弹出窗口并在此面板中显示第三个表单作为控件。

在表格 X 上。

dim frm as frmPopup
''Set the properties for this frmPopup
frm.Opacity=60

Dim frmContent as frmContent
''Set the properties for this frmPopup
frm.Opacity=100

frm.SetForm(frmContent)
frm.ShowDialog(me.toplevelControl)

在 frmPopup 中：

Public Sub SetForm(frm as Windows.Forms.Form)
pnlCtrlHolder.Controls.Clear()
pnlCtrlHolder.Controls.add(frm)
End Sub

现在我的问题， 这使得整个表单具有不透明度 = 60 的 frmContent，但我只需要在 frmPopup 上而不是在 frmContent 上。

我正在开发 vb.net Winforms 应用程序。我知道我要在不透明度为 60 的表单上添加一个表单作为控件。但是有什么方法可以达到预期的结果。 .我错过了什么吗？

Answer 1

怎么样：

dim frm as New frmPopup   
frm.Opacity=60
Dim frmContent as New frmContent
frmContent.Opacity=100

Answer 2

对不起，我的意思是 OPACITY 是一个介于 0 和 1 之间的值。

我知道这行得通，因为我刚刚尝试过。 :-)

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Me.Opacity = 1
        Dim newForm As New Form
        newForm.Text = "NewForm"
        newForm.Opacity = 0.6
        newForm.Show()

    End Sub

End Class

试试这样的：>>

dim frm as New frmPopup   
frm.Opacity=0.6
Dim frmContent as New frmContent
frmContent.Opacity=1

Answer 3

如果您尝试设置放置在面板中的表单的不透明度，那么它看起来不会显示，抱歉。

将 2 个表单 和 一个面板 添加到新项目中，然后试试这个：>>

Option Strict On
Option Explicit On
Option Infer Off

Public Class Form1

    Public Declare Auto Function SetParent Lib "user32.dll" (ByVal hWndChild As IntPtr, ByVal hWndNewParent As IntPtr) As IntPtr
    Friend WithEvents someForm As New Form2

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        someForm.Show()
        someForm.BackColor = Color.White
        someForm.Opacity = 1
        'System.Threading.Thread.Sleep(2000)
        SetParent(someForm.Handle, Panel1.Handle)

    End Sub

End Class

我正在开发 vb.net Winforms 应用程序。我明白我是 在不透明度为 60 的表单上添加一个表单作为控件。但是有没有 任何达到预期结果的方法。 .我错过了什么吗？

我什至自己也试过这样，没有你想要的效果。

Option Strict On
Option Explicit On
Option Infer Off

Public Class Form1

    Friend WithEvents frmPopUp As New Form

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        frmPopUp.Opacity = 0.6
        frmPopUp.TopLevel = False
        frmPopUp.Text = "frmPopUp"
        Me.Controls.Add(frmPopUp)
        frmPopUp.Show()

    End Sub

End Class