form1.frm

来自「这里有很多很实用的VB编程案例,方便大家学习VB.」· FRM 代码 · 共 60 行

VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "自定义文本框弹出菜单"
   ClientHeight    =   1995
   ClientLeft      =   165
   ClientTop       =   450
   ClientWidth     =   4560
   LinkTopic       =   "Form1"
   ScaleHeight     =   1995
   ScaleWidth      =   4560
   StartUpPosition =   3  '窗口缺省
   Begin VB.TextBox Text1 
      Height          =   375
      Left            =   960
      TabIndex        =   0
      Text            =   "请在此按鼠标右键"
      Top             =   480
      Width           =   3015
   End
   Begin VB.Menu zmhh 
      Caption         =   "照猫画虎"
      Visible         =   0   'False
      Begin VB.Menu mail 
         Caption         =   "邮件地址"
      End
      Begin VB.Menu wang 
         Caption         =   "网址"
      End
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long


Private Sub mail_Click()
    Dim rv
    Dim k
    k = "mailto:[e-mail]"
    rv = ShellExecute(0&, vbNullString, k, vbNullString, vbNullString, vbNormalFocus)
End Sub

Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = 2 Then
        Text1.Enabled = False
        Text1.Enabled = True
        PopupMenu zmhh
    End If
End Sub

Private Sub wang_Click()
    Dim rv
    Dim k
    k = "http://zmhh.mycool.net"
    rv = ShellExecute(0&, vbNullString, k, vbNullString, vbNullString, vbNormalFocus)
End Sub