smmainform.frm

进销存管理(ADO+Acess),适合初学者使用!

VERSION 5.00
Begin VB.Form smmainform 
   BorderStyle     =   0  'None
   Caption         =   "Form1"
   ClientHeight    =   345
   ClientLeft      =   105
   ClientTop       =   8205
   ClientWidth     =   1965
   Icon            =   "smmainform.frx":0000
   LinkTopic       =   "Form1"
   ScaleHeight     =   345
   ScaleWidth      =   1965
   ShowInTaskbar   =   0   'False
   Begin VB.Label Label1 
      BackStyle       =   0  'Transparent
      Caption         =   "进销存"
      Height          =   180
      Left            =   80
      TabIndex        =   0
      Top             =   100
      Width           =   615
   End
   Begin VB.Image Image3 
      Height          =   260
      Left            =   1329
      Top             =   50
      Width           =   260
   End
   Begin VB.Image Image2 
      Height          =   260
      Left            =   1620
      Top             =   50
      Width           =   260
   End
   Begin VB.Image Image1 
      Height          =   345
      Left            =   0
      Picture         =   "smmainform.frx":000C
      Top             =   0
      Width           =   1950
   End
End
Attribute VB_Name = "smmainform"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Const HWND_BOTTOM = -1
Private Const HWND_DESKTOP = 0
Private Const HWND_TOP = 0
Private Const HWND_NOTOPMOST = -2
Private Const HWND_TOPMOST = -1

Private Const SWP_FRAMECHANGED = &H20
Private Const SWP_DRAWFRAME = SWP_FRAMECHANGED
Private Const SWP_HIDEWINDOW = &H80
Private Const SWP_NOACTIVATE = &H10
Private Const SWP_NOCOPYBITS = &H100
Private Const SWP_NOMOVE = &H2
Private Const SWP_NOOWNERZORDER = &H200
Private Const SWP_NOREDRAW = &H8
Private Const SWP_NOREPOSITION = SWP_NOOWNERZORDER
Private Const SWP_NOSIZE = &H1
Private Const SWP_NOZORDER = &H4
Private Const SWP_SHOWWINDOW = &H40
'定义常量

Private Declare Function SetWindowPos Lib "user32" _
( _
 ByVal hWnd As Long, _
  ByVal hWndInsertAfter As Long, _
  ByVal x As Long, _
  ByVal y As Long, _
  ByVal cx As Long, _
  ByVal cy As Long, _
  ByVal wFlags As Long _
  ) As Long
'声明



Private Sub Form_Load()
Image2.ToolTipText = "关闭"
Image3.ToolTipText = "最大化"
 Call SetWindowPos(Me.hWnd, HWND_TOPMOST, 20, 1, 130, 23, SWP_DRAWFRAME)
'当前窗口设为所有窗口的前面
End Sub


Private Sub Image1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
  ReleaseCapture
  SendMessage Me.hWnd, WM_SYSCOMMAND, SC_MOVE + HTCAPTION, 0
End Sub

Private Sub Image2_Click()
End

End Sub

Private Sub Image3_Click()
 Unload Me
  mainform.Show
   
End Sub