module1.bas

一个简单的数据库程

Attribute VB_Name = "Module1"
Option Explicit
Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long

Declare Function ReleaseCapture Lib "user32" () As Long

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

Public Const WM_SYSCOMMAND = &H112

Public Const SC_MOVE = &HF012

Public Declare Function GetMenu Lib "user32" (ByVal hWnd As Long) As Long
Public Declare Function GetSubMenu Lib "user32" (ByVal hMenu As Long, ByVal nPos As Long) As Long
Public Declare Function SetMenuItemBitmaps Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long, ByVal hBitmapUnchecked As Long, ByVal hBitmapChecked As Long) As Long
Public Const MF_BYPOSITION = &H400&

Public sfc() As String
Public afc() As String
Public musicname() As String
Public ttime As String
Public dxif, nexorper As Boolean
Public blackstop, liststop As Boolean
Public ntcplay As Boolean
Public id, b, firstb As Integer
Public seekpoint, seekstop, seeks As Long
Public igpausegx, igplaygx As Boolean
Const SWP_NOMOVE = &H2
Const SWP_NOSIZE = &H1
Global PicRect As RECT

Sub avi()
Dim allsecgx, nHour, mingx, secgx
allsecgx = Form2.MMControl1.Length / 9690 * 5.401 * 200
nHour = Str$(allsecgx \ 3600)
If Len(nHour) < 3 Then
   nHour = "0" + Right(nHour, 1)
Else
   nHour = Right(nHour, 2)
End If
mingx = Str$(allsecgx \ 60)
If Len(mingx) < 3 Then
   mingx = "0" + Right(mingx, 1)
Else
   mingx = Right(mingx, 2)
End If
secgx = Str$(allsecgx Mod 60)
If Len(secgx) < 3 Then
   secgx = "0" + Right(secgx, 1)
Else
   secgx = Right(secgx, 2)
End If
'If igfasted.Visible = True Then Exit Sub
Form2.Label18.Caption = "时间: " + nHour + "时" + mingx + "分" + secgx + "秒"


End Sub

Sub mpg()
Dim allsecgx, nHour, mingx, secgx
allsecgx = Form2.MMControl1.Length / 9690 * 5.401 * 60
nHour = Str$(allsecgx \ 3600)
If Len(nHour) < 3 Then
   nHour = "0" + Right(nHour, 1)
Else
   nHour = Right(nHour, 2)
End If
mingx = Str$(allsecgx \ 60)
If Len(mingx) < 3 Then
   mingx = "0" + Right(mingx, 1)
Else
   mingx = Right(mingx, 2)
End If
secgx = Str$(allsecgx Mod 60)
If Len(secgx) < 3 Then
   secgx = "0" + Right(secgx, 1)
Else
   secgx = Right(secgx, 2)
End If
'If igfasted.Visible = True Then Exit Sub
Form2.Label18.Caption = "时间: " + nHour + "时" + mingx + "分" + secgx + "秒"

End Sub


Sub mp3()
Dim allsecgx, nHour, mingx, secgx
allsecgx = Form2.MMControl1.Length \ 1000
nHour = Str$(allsecgx \ 3600)
If Len(nHour) < 3 Then
   nHour = "0" + Right(nHour, 1)
Else
   nHour = Right(nHour, 2)
End If
mingx = Str$(allsecgx \ 60)
If Len(mingx) < 3 Then
   mingx = "0" + Right(mingx, 1)
Else
   mingx = Right(mingx, 2)
End If
secgx = Str$(allsecgx Mod 60)
If Len(secgx) < 3 Then
   secgx = "0" + Right(secgx, 1)
Else
   secgx = Right(secgx, 2)
End If
'If igfasted.Visible = True Then Exit Sub
Form2.Label18.Caption = "时间: " + nHour + "时" + mingx + "分" + secgx + "秒"
End Sub