form4.frm

一个类似金山词霸的小程序 当然比人家的功能还差点 不过知识产权都是我自己的

VERSION 5.00
Begin VB.Form Form4 
   BackColor       =   &H00C0C000&
   BorderStyle     =   0  'None
   Caption         =   "英语生词本"
   ClientHeight    =   7140
   ClientLeft      =   10500
   ClientTop       =   1680
   ClientWidth     =   4245
   ControlBox      =   0   'False
   LinkTopic       =   "Form4"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   Picture         =   "Form4.frx":0000
   ScaleHeight     =   7140
   ScaleWidth      =   4245
   ShowInTaskbar   =   0   'False
   Begin VB.CommandButton Command1 
      BackColor       =   &H00FFC0C0&
      Caption         =   "精确查询"
      BeginProperty Font 
         Name            =   "幼圆"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   420
      Left            =   2880
      MaskColor       =   &H000000FF&
      Picture         =   "Form4.frx":8335
      Style           =   1  'Graphical
      TabIndex        =   7
      Top             =   2160
      Width           =   1095
   End
   Begin VB.CommandButton Command4 
      BackColor       =   &H00FFC0C0&
      Caption         =   "查   询"
      BeginProperty Font 
         Name            =   "幼圆"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   420
      Left            =   2880
      MaskColor       =   &H000000FF&
      Picture         =   "Form4.frx":BE87
      Style           =   1  'Graphical
      TabIndex        =   6
      Top             =   2640
      Width           =   1095
   End
   Begin VB.CommandButton Command7 
      BackColor       =   &H00FFC0C0&
      Caption         =   "编   辑"
      BeginProperty Font 
         Name            =   "幼圆"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   420
      Left            =   2880
      MaskColor       =   &H000000FF&
      Picture         =   "Form4.frx":F9D9
      Style           =   1  'Graphical
      TabIndex        =   4
      Top             =   4080
      Width           =   1095
   End
   Begin VB.CommandButton Command6 
      BackColor       =   &H00FFC0C0&
      Caption         =   "关   于"
      BeginProperty Font 
         Name            =   "幼圆"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   420
      Left            =   2880
      MaskColor       =   &H000000FF&
      Picture         =   "Form4.frx":1352B
      Style           =   1  'Graphical
      TabIndex        =   3
      Top             =   4560
      Width           =   1095
   End
   Begin VB.CommandButton Command5 
      BackColor       =   &H00FFC0C0&
      Caption         =   "退   出"
      BeginProperty Font 
         Name            =   "幼圆"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   420
      Left            =   2880
      MaskColor       =   &H000000FF&
      Picture         =   "Form4.frx":1707D
      Style           =   1  'Graphical
      TabIndex        =   2
      Top             =   5040
      Width           =   1095
   End
   Begin VB.CommandButton Command3 
      BackColor       =   &H00FFC0C0&
      Caption         =   "浏览记忆"
      BeginProperty Font 
         Name            =   "幼圆"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   420
      Left            =   2880
      MaskColor       =   &H000000FF&
      Picture         =   "Form4.frx":1ABCF
      Style           =   1  'Graphical
      TabIndex        =   1
      Top             =   3600
      Width           =   1095
   End
   Begin VB.CommandButton Command2 
      BackColor       =   &H00FFC0C0&
      Caption         =   "快速记忆"
      BeginProperty Font 
         Name            =   "幼圆"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   420
      Left            =   2880
      MaskColor       =   &H000000FF&
      Picture         =   "Form4.frx":1E721
      Style           =   1  'Graphical
      TabIndex        =   0
      Top             =   3120
      Width           =   1095
   End
   Begin VB.Label Label3 
      BackColor       =   &H00E0E0E0&
      Caption         =   "英语生词本"
      BeginProperty Font 
         Name            =   "华文彩云"
         Size            =   18
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   1935
      Left            =   1800
      TabIndex        =   5
      Top             =   1680
      Width           =   495
   End
End
Attribute VB_Name = "Form4"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'Private Declare Function CreateEllipticRgn Lib "gdi32" _
'( _
 '   ByVal X1 As Long, ByVal Y1 As Long, _
 '   ByVal X2 As Long, ByVal Y2 As Long _
 '   ) As Long
'声明创建椭圆形区域的API函数
Private Declare Function SetWindowRgn Lib "user32" _
( _
    ByVal hWnd As Long, ByVal hRgn As Long, _
    ByVal bRedraw As Boolean _
    ) As Long
'声明设置窗口形状的API函数

Private Declare Function ReleaseCapture Lib "user32" _
( _
    ) As Long

Private Declare Function SendMessage Lib "user32" _
Alias "SendMessageA" _
( _
    ByVal hWnd As Long, ByVal wMsg As Long, _
    ByVal wParam As Long, lParam As Any _
) As Long

Private Const WM_SYSCOMMAND = &H112
Private Const SC_MOVE = &HF010&
Private Const HTCAPTION = 2




Private Sub Command1_Click()
    Form7.Show
End Sub

Private Sub Command2_Click()
    main.Show
End Sub

Private Sub Command3_Click()
    Form3.Show
End Sub

Private Sub Command4_Click()
     form1.Show
End Sub

Private Sub Command5_Click()
    End
End Sub

Private Sub Command6_Click()
    Form2.Show
End Sub

Private Sub Command7_Click()
Form5.Show

End Sub

Private Sub Command8_Click()
     
    Form6.Show
    
End Sub

'Private Sub Form_Paint()
  '
 ' Dim wid As Single
  'Dim hgt As Single
 ' Dim x As Single
  'Dim y As Single
     'wid = Me.ScaleWidth
      'hgt = Me.ScaleHeight
      'y = 0
      'Do While y < ScaleHeight
       ' x = 0
       ' Do While x < ScaleWidth
          'PaintPicture Me.Picture, x, y, wid, hgt
          'x = x + wid
          'Loop
          'y = y + hgt
         ' Loop

'end sub
Private Sub Form_Load()
Poly Form4

End Sub
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, _
                            X As Single, Y As Single)
    If Button = 1 Then
    '如果按下鼠标左键
        Dim ReturnVal As Long
        X = ReleaseCapture()
        ReturnVal = SendMessage(Form4.hWnd, WM_SYSCOMMAND, _
                                SC_MOVE + HTCAPTION, 0)
     End If
End Sub