无码av毛片一级不卡|一本综合九九国产二区|AⅤ高清无码免费看大片|国产真实高潮太爽了十八|国内精品久久无码人妻影院|亚洲AV影院一区二区三区|国产精品久久久久久中文麻豆|97精品一区二区视频在线观看

下載手機汽配人

VB2010實現(xiàn)Aero?“毛玻璃”界面

用Visual Studio 2010中的Visual Basic 2010。 如何實現(xiàn)？ 抱歉我沒多少財富值了
問 提問者：網(wǎng)友 2018-07-14
最佳回答
程序大框架： Imports System.Runtime.InteropServices Public Structure MARGINS Public cxLeftWidth As Integer Public cxRightWidth As Integer Public cyTopHeight As Integer Public cyBottomHeight As Integer End Structure Public Class Form1 Const WM_NCHITTEST As Integer = &H84 Const HTCLIENT As Integer = &H1 Const HTCAPTION As Integer = &H2 Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message) Select Case m.Msg Case WM_NCHITTEST MyBase.WndProc(m) If m.Result = HTCLIENT Then m.Result = HTCAPTION Case Else MyBase.WndProc(m) End Select End Sub _ Private Shared Function DwmExtendFrameIntoClientArea(ByVal hwnd As IntPtr, ByRef margins As MARGINS) As Integer End Function Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim margins As MARGINS = New MARGINS margins.cxLeftWidth = -1 margins.cxRightWidth = -1 margins.cyTopHeight = -1 margins.cyBottomHeight = -1 Dim hwnd As IntPtr = Me.Handle Dim r
回答者：網(wǎng)友
產(chǎn)品精選
搜索問答
還沒有汽配人賬號？立即注冊

我要提問

汽配限時折扣

本頁是網(wǎng)友提供的關于“VB2010實現(xiàn)Aero?“毛玻璃”界面”的解答，僅供您參考，汽配人網(wǎng)不保證該解答的準確性。