TweenをAeroに対応させようとして挫折。
Formでは黒がガラス効果になるのは分かったんだけど、Index: Tween.vb =================================================================== --- Tween.vb (リビジョン 349) +++ Tween.vb (作業コピー) @@ -37,9 +37,22 @@ Imports System.Diagnostics Imports Microsoft.Win32 Imports System.Xml +Imports System.Runtime.InteropServices Public Class TweenMain + <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 _mySize As Size '画面サイズ Private _myLoc As Point '画面位置 @@ -526,6 +539,14 @@ Me.Visible = False SecurityManager = New InternetSecurityManager(PostBrowser) + Dim margins As MARGINS = New MARGINS + margins.cxLeftWidth = -1 + margins.cxRightWidth = -1 + margins.cyTopHeight = -1 + margins.cyButtomheight = -1 + Dim hwnd As IntPtr = Me.Handle + Dim result As Integer = DwmExtendFrameIntoClientArea(hwnd, margins) + VerUpMenuItem.Image = shield.Icon If Not My.Application.CommandLineArgs.Count = 0 AndAlso My.Application.CommandLineArgs.Contains("/d") Then TraceFlag = True @@ -953,6 +974,7 @@ TimerRefreshIcon.Enabled = True '状態表示部の初期化(画面右下) + StatusLabel = New ToolStripLabelHistory StatusLabel.Text = "" StatusLabel.AutoToolTip = False StatusLabel.ToolTipText = ""
- メニューバーやステータスバー、そのほか諸々のコントロールに対してはどうするの?
- 画面上で黒を使いたい場合はどうするの?
- 半透明効果から引き起こされる文字の難読性を解消するために縁取りをしないといけないけどどうするの?
※コメント投稿者のブログIDはブログ作成者のみに通知されます