屏敝文本框菜单方法二.frm

个人VB学习源码精选,自己学习时的一些编程小程序,希望对大家有帮助

VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "禁止TextBox显示快捷菜单"
   ClientHeight    =   3585
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   5430
   LinkTopic       =   "Form2"
   ScaleHeight     =   3585
   ScaleWidth      =   5430
   StartUpPosition =   3  'Windows Default
   Begin VB.CommandButton Command1 
      Caption         =   "设定插队的窗口程序:请按下此按钮,再试着在TextBox中按下鼠标右键"
      Height          =   615
      Left            =   480
      TabIndex        =   1
      Top             =   2640
      Width           =   4455
   End
   Begin VB.TextBox Text1 
      Height          =   2295
      Left            =   480
      MultiLine       =   -1  'True
      TabIndex        =   0
      Text            =   "屏敝文本框菜单方法二.frx":0000
      Top             =   240
      Width           =   4455
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub Command1_Click()
    prevWndProc = GetWindowLong(Text1.hWnd, GWL_WNDPROC)
    SetWindowLong Text1.hWnd, GWL_WNDPROC, AddressOf WndProc
    Command1.Enabled = False
End Sub
Private Sub Form_Unload(Cancel As Integer)
    If prevWndProc <> 0 Then
        SetWindowLong Text1.hWnd, GWL_WNDPROC, prevWndProc
        prevWndProc = 0
    End If
End Sub