質問編集履歴
1
APIの記述を追加しました
test
CHANGED
File without changes
|
test
CHANGED
@@ -12,6 +12,26 @@
|
|
12
12
|
|
13
13
|
|
14
14
|
|
15
|
+
'API宣言
|
16
|
+
|
17
|
+
'ウィンドウハンドルを取得する関数
|
18
|
+
|
19
|
+
Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
|
20
|
+
|
21
|
+
'ウィンドウに関する情報を返す関数
|
22
|
+
|
23
|
+
Public Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
|
24
|
+
|
25
|
+
'ウィンドウの属性を変更する関数
|
26
|
+
|
27
|
+
Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
|
28
|
+
|
29
|
+
'メニューバーを描画する関数
|
30
|
+
|
31
|
+
Public Declare Function DrawMenuBar Lib "user32" (ByVal hWnd As Long) As Long
|
32
|
+
|
33
|
+
|
34
|
+
|
15
35
|
【ThisWorkbook】
|
16
36
|
|
17
37
|
Private Sub Workbook_Open()
|