フォームを移動できないようにする方法

◆概要


このページは、Visual Basic 6.0でフォームを移動できないようにする方法について記載しています。APIを利用すると、フォームをユーザーが移動できないようにすることができます。


プロジェクト-標準モジュールの追加で標準モジュールを追加し、フォームに１つコマンドボタンを貼り付けます。

◆標準モジュール

Option Explicit

Public Declare Function GetSystemMenu Lib "user32" ( _
    ByVal hwnd As Long, ByVal bRevert As Long) As Long
    
Public Declare Function RemoveMenu Lib "user32" ( _
    ByVal hMenu As Long, ByVal nPosition As Long, _
    ByVal wFlags As Long) As Long
    
Public Const SC_MOVE = &HF010&

Public Const MF_BYCOMMAND = &H0&
　　

◆フォームモジュール

Option Explicit

Private Sub Command1_Click()
    Dim lhSysMenu As Long
    Dim lRetVal As Long
    
    lhSysMenu = GetSystemMenu(Me.hwnd, False)
    lRetVal = RemoveMenu(lhSysMenu, SC_MOVE, MF_BYCOMMAND)

End Sub
　　


▼ページトップへ