

                       VBForums -    ̳ 


                      .       
               


VBForums-̳:HTTP://hzsoft.yeah.net

ύʼMailTo:VBForums@usa.net?Subject=[VBForums]

нϵMailTo:ympang@bigfoot.com


 I0001 : <A HREF="MailTo:VBForums@usa.net?Subject=[VBForums]I0001">ش</A>
    ж⣺
    1뻭һһĻͼ,֪ڴ·
    2һλ߿Ĵ룬ʱʾType RECT֪ԭ

Private Sub Form_Load()
Type RECT
     Left As Long
     Top As Long
     Right As Long
     Bottom As Long
End Type
Declare Function DrawFocusRect Lib "User32" alias (ByVal hdc As Long,
lpRect As RECT) As Long
Dim MouseRect As RECT
Dim x1, y1 As Integer
        MouseRect.Left = 0
        MouseRect.Top = 0
        MouseRect.Right = 0
        MouseRect.Bottom = 0
End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As
Single, Y As Single)
        If Button And 1 Then
           DrawFocusRect Picture1.hDC, MouseRec
           MouseRect.Left = X
           MouseRect.Top = Y
           MouseRect.Right = X
           MouseRect.Bottom = Y
           x1 = X
           y1 = Y
         End If
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As
Single, Y As Single)
        Picture1.ScaleMode = 3
        If Button And 1 Then
        DrawFocusRect Picture1.hDC, MouseRec
           If X > x1 Then
              MouseRect.Left = x1
              MouseRect.Right = X
           Else
              MouseRect.Left = X
              MouseRect.Right = x1
           End If
           If Y > y1 Then
              MouseRect.Top = y1
              MouseRect.Bottom = Y
           Else
              MouseRect.Top = Y
              MouseRect.Bottom = y1
           End If
        DrawFocusRect Picture1.hDC, MouseRec
        End If
End Sub
                    ǳѧߣָ̣лл - һ


ʣVBΪCOMMANDBOTTONÿݼ
      - й·  


:
    1. ϵͳǰһSplashĻ.
    2. ڽϵͳʱҪ,Ǵһݱ,
       ݱױ˷,ûʲôܷ.

Ӧ:
    1. VB5򵼿Զһ Splash Ļ,оĴ
       ô
    2. 

: λVB ѿṩVB FAX ؼ(շ)     
    :zhanggz@public.cz.js.cn Ź
    :VBForums@usa.net


: 
    λ֣
        ҪVBһ򣬰һļʼʽȥҪԶ
    һݿȡַʽŵʼַԶʼ븽
    ʼڼ䲻ΪԤ˶VBеMAPIMessagesؼMAPISessionؼ֪
    ֮٣оVBṩVBMail֪λֿϲߴͽ̡
                                              ʼַlcy@wz.col.com.cn


<Bold>˶</Bold> http://server.com/WebApps/mail-list-unsubscribe.cgi?id=4093


