dhfrm.frm

一个关于进销存的源代码

VERSION 5.00
Begin VB.Form dhfrm 
   BackColor       =   &H00FF8080&
   BorderStyle     =   0  'None
   Caption         =   "项目分类"
   ClientHeight    =   10005
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   2490
   DrawMode        =   10  'Mask Pen
   FillStyle       =   2  'Horizontal Line
   LinkTopic       =   "Form2"
   MaxButton       =   0   'False
   MDIChild        =   -1  'True
   MinButton       =   0   'False
   Moveable        =   0   'False
   ScaleHeight     =   9944.727
   ScaleMode       =   0  'User
   ScaleWidth      =   2490
   ShowInTaskbar   =   0   'False
   Begin VB.Frame Frame1 
      BackColor       =   &H00FF8080&
      Caption         =   "调查项目分类"
      Height          =   4335
      Left            =   120
      TabIndex        =   0
      Top             =   1320
      Width           =   2295
      Begin VB.ListBox List1 
         Height          =   3120
         ItemData        =   "dhfrm.frx":0000
         Left            =   120
         List            =   "dhfrm.frx":0007
         TabIndex        =   1
         Top             =   480
         Width           =   2055
      End
   End
End
Attribute VB_Name = "dhfrm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub Command1_Click()
End Sub
Private Sub Form_Load()
    Me.Left = 0
    Me.Top = 0
    Me.Height = MDIForm1.Height - 1000
    Me.Width = Me.Frame1.Width + 2 * Me.Frame1.Left
    
    askn.ApplySkin Me.hWnd
'导航条的数据从文件路径表中的系统类别生成
    List1.Clear
  
End Sub
'Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
'   '不能关闭导航窗
'   Cancel = True
'End Sub

Private Sub Form_Unload(Cancel As Integer)
    On Error Resume Next
    Dim frmcount As Integer
    Dim i As Integer
        frmcount = Forms.Count
    For i = 1 To frmcount + 1
        Unload Forms(i)
    Next i
End Sub