質問編集履歴

1

ソースを追記

2019/06/07 23:06

投稿

coffeeumee
coffeeumee

スコア19

test CHANGED
File without changes
test CHANGED
@@ -15,6 +15,76 @@
15
15
 
16
16
 
17
17
  ```VB.NET
18
+
19
+ 'はじめの宣言
20
+
21
+ Public Class Form1
22
+
23
+ Inherits Form
24
+
25
+
26
+
27
+ Enum DWMWINDOWATTRIBUTE As UInteger
28
+
29
+ NCRenderingEnabled = 1
30
+
31
+ NCRenderingPolicy
32
+
33
+ TransitionsForceDisabled
34
+
35
+ AllowNCPaint
36
+
37
+ CaptionButtonBounds
38
+
39
+ NonClientRtlLayout
40
+
41
+ ForceIconicRepresentation
42
+
43
+ Flip3DPolicy
44
+
45
+ ExtendedFrameBounds
46
+
47
+ HasIconicBitmap
48
+
49
+ DisallowPeek
50
+
51
+ ExcludedFromPeek
52
+
53
+ Cloak
54
+
55
+ Cloaked
56
+
57
+ FreezeRepresentation
58
+
59
+ End Enum
60
+
61
+
62
+
63
+ <StructLayout(LayoutKind.Sequential)>
64
+
65
+ Private Structure RECT
66
+
67
+ Public left As Integer
68
+
69
+ Public top As Integer
70
+
71
+ Public right As Integer
72
+
73
+ Public bottom As Integer
74
+
75
+ End Structure
76
+
77
+
78
+
79
+ Private Declare Function GetWindowRect Lib "user32.dll" (ByVal hwnd As IntPtr, ByRef lpRect As RECT) As Boolean
80
+
81
+ Private Declare Function DwmGetWindowAttribute Lib "dwmapi.dll" (ByVal hwnd As IntPtr, ByVal dwAttribute As DWMWINDOWATTRIBUTE, ByRef pvAttribute As RECT, ByVal cbAttribute As Integer) As Integer
82
+
83
+
84
+
85
+
86
+
87
+ '該当箇所
18
88
 
19
89
  System.Diagnostics.Process()
20
90