form1.frm

vb得100个编程实例

VERSION 5.00
Begin VB.Form Form1 
   AutoRedraw      =   -1  'True
   Caption         =   "Form1"
   ClientHeight    =   945
   ClientLeft      =   165
   ClientTop       =   735
   ClientWidth     =   2205
   LinkTopic       =   "Form1"
   ScaleHeight     =   945
   ScaleWidth      =   2205
   StartUpPosition =   3  'Windows Default
   Begin VB.CommandButton CEnd 
      Caption         =   "&Close"
      Height          =   255
      Left            =   960
      TabIndex        =   2
      Top             =   480
      Width           =   1095
   End
   Begin VB.CommandButton CAdd 
      Caption         =   "&Add"
      Height          =   255
      Left            =   960
      TabIndex        =   1
      Top             =   120
      Width           =   1095
   End
   Begin VB.PictureBox Picture1 
      AutoSize        =   -1  'True
      Height          =   540
      Left            =   120
      Picture         =   "Form1.frx":0000
      ScaleHeight     =   480
      ScaleWidth      =   480
      TabIndex        =   0
      Top             =   120
      Width           =   540
   End
   Begin VB.Menu mMani 
      Caption         =   "&Caption"
      Begin VB.Menu mItem 
         Caption         =   "Item &1"
         Index           =   0
      End
      Begin VB.Menu mItem 
         Caption         =   "Item &2"
         Index           =   1
      End
      Begin VB.Menu mItem 
         Caption         =   "Item &3"
         Index           =   2
      End
      Begin VB.Menu mItem 
         Caption         =   "Item &4"
         Index           =   3
      End
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'
'------------------------ By 陈锐 ------------------------------------
'如果你要在Internet或BBS上转贴程序,请通知我本人知道
'请参观我的网址 http://www.nease.net/~blackcat
'我的EMail是[e-mail]或[e-mail]
'
'这是一个将图标添加到WIN95的TaskBar的程序，同其他用VB编写的程序不同，这个
'程序可以相应鼠标事件，（其它的很多程序只能将一个图标放在TaskBar上）

Private Sub CAdd_Click()
  Dim l As Long
  
  If (Icon_Add(Form2.hwnd, Picture1.Picture)) Then
    xb = CMenu()      '添加弹出菜单
    CAdd.Enabled = False
    Form1.Hide
    '将DialogProc函数设置为Form2的窗口处理函数并且保存原来窗口处理函数句柄
    lproc = SetWindowLong(Form2.hwnd, GWL_WNDPROC, AddressOf DialogProc)
  End If
End Sub

Private Sub CEnd_Click()
  End
End Sub

Private Sub mItem_Click(Index As Integer)
  MsgBox "You click item " + Str$(Index + 1)
End Sub