
		              VB5Tools˵ļ

    VB5Tools.dllǱԱVisual Basic 5.0һЩչ9
һࡣ÷(ڹ̲˵һѡVB5Tools.dll)
һ÷
   ºͬVBúһ
   :
   BigToGb(BigתΪGb,뷱ֿ)
        BigToGb(iTxt As String) As String
         iTxt		Bigַ
      ֵ Gbַ
        ; ʵBig뵽GBת
   	
   1BinarySearch(۰)   
        BinarySearch(vntArray As Variant, vntFind As Variant, _
              [blnIsSorted As Boolean]) As Integer
         vntArray 	
               vntFind		
               blnIsSorted 	Ƿ
      ֵ      ֵ
	          -1
        ; κ͵ңblnIsSorted=False,ȶvntArray
               

   2QuickSort()
        QuickSort(vntArray As Variant,[intLBound As Integer],[intUBound _
	      As Integer]
        vntArray		Ҫ
	      intLBound		(ѡ)
	      intUBound		(ѡ)	
      ֵ
        ;κ͵

   3DrawLine(FormPictureϻ3Dָ)
        DrawLine(frm As Object, X As Long, Y As Long, iLength As Long, _
              iType As Long) As Boolean
        frm	FormPicture
	      X,Y	3Dָʼλ(ӦFormPicture)
              iLength   3Dָ߳
              iType 	ֵΪ0ʱˮƽֱ
                        ֵ0ʱֱֱ
      ֵTrue	ɹ
              False	ʧ

  4DrawToolBar(FormPictureϻ)
        DrawToolBar(frm As Object, iLeft As Long, iTop As Long, iWidth _
              As Long, iHeight As Long) As Boolean
        frm	        FormPicture
              iLeft,iTop        LeftTop(ӦFormPicture)
              iWidth,iHeight    ĿȺ͸߶
      ֵTrue	ɹ
              False	ʧ

  5DrawBox(FormPictureϻ͹򰼽Box)
        DrawBox(frm As Object, iLeft As Long, iTop As Long, iWidth As _
              Long, iHeight As Long, iType As Boolean) As Boolean
        frm	        FormPicture
              iLeft,iTop        BoxLeftTop(ӦFormPicture)
              iWidth,iHeight    BoxĿȺ͸߶
	      iType		True   Ϊ͹BOX
				False  ΪBOX
      ֵTrue	ɹ
              False	ʧ

  6ClearBox(FormPictureѻBox)
        ClearBox(frm As Object, iLeft As Long, iTop As Long, iWidth As _
	      Long, iHeight As Long, iColor As Long)
        frm	        FormPicture
              iLeft,iTop        BoxLeftTop(ӦFormPicture)
              iWidth,iHeight    BoxĿȺ͸߶
              iColor		FormPictureıɫ

  7PaintColor(ʹFormPictureΪɫ)
       PaintColor(frm As Object, Color As Byte, Color1 As Byte, Color2 _
             As Byte, iTop As Long) As Boolean
       frm	        FormPicture
	     Color		1-ɫ2-ɫ3-ɫ
             Color1,Color2      0~255֮ɫ
     ֵTrue	ɹ
             False	ʧ

  8TransBmp(ʹFormPictureͼƬΪ)
       TransBmp(frm As Object) As Boolean
       frm        FormPicture
     ֵTrue	ɹ
             False	ʧ

clsTimer÷
    VB5еFormģ
    VB5TOOLS.DLLȻFormģ:
	Private WithEvents clsA As clsTimer

	Private Form_Load()
	    Set clsA = New clsTimer
	End Sub
   ڱ༭л¼
   Private Sub clsA_MouseExit(Button As Integer, Shift As Integer, X As Single, Y As Single)

   End Sub
   
   Private Sub clsA_Timer()

   End Sub
1MouseExit¼
   PictureBoxΪ

   Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
	clsA.CallMouseExit(Picture1, Button, Shift, X, Y)
   End Sub

   Private Sub clsA_MouseExit(Button As Integer, Shift As Integer, X As Single, Y As Single)
	'뿪Picture1ʱĴ
	...
	...
	...
   End Sub
2Timer¼(ȷļʱ¼)
   ֻҪʱclsA.Interval=ʱֵ()clsA.TimerEnabled=True
   ȻclsA_Timer¼ô뼴ɡ


ЩϳIEеToolBarЧ
							
							AppleDT
              						1998.6.4
									
