学步园

    在用SB方法学英语的时候，有些单词或句子需要屏蔽，本来用前置的词典也可以，但有时候多个地方需要屏蔽，只一个词典就不够了，所以写了这个程序。这个小程序可以右键产生多个前置窗体，并且双击可以取消，用着挺方便，跟大家分享一下。

Option Explicit

'窗体位于最上层api
Public Declare Function SetWindowPos Lib "user32 " (ByVal hWnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, Y, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
'常量
Public Const HWND_TOPMOST = -1
Public Const HWND_NOTOPMOST = -2
Public Const SWP_NOMOVE = &H2
Public Const SWP_NOSIZE = &H1
Public Const SWP_NOACTIVATE = &H10
Public Const SWP_SHOWWINDOW = &H40
Public Const TOPMOST_FLAGS = SWP_NOMOVE Or SWP_NOSIZE
Public Sub AlwaysOnTop(TheForm As Form, blnOnTop As Boolean)                     '使窗体位于最上层
      '变量   TheForm:需要位于最上层的窗体
      '变量   blnOnTop:True-窗体位于最上层,False-窗体正常显示
      If blnOnTop = True Then
            SetWindowPos TheForm.hWnd, HWND_TOPMOST, 0, 0, 0, 0, TOPMOST_FLAGS
        
        End If
End Sub
Private Sub Form_Activate()           '激活窗体
      AlwaysOnTop Me, True                   '窗体位于最上层
End Sub
Private Sub Form_DblClick()
        Unload Me
End Sub
Private Sub Form_Load()
        two.Visible = False
End Sub
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
        If Button = 2 Then
                PopupMenu two
        End If
End Sub
Private Sub frmtwo_Click()
        Dim frmtwo As Form1
        Set frmtwo = New Form1
        frmtwo.Show
End Sub