form1.frm

本文件包含200个visual baisc实例

VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form form1 
   BorderStyle     =   1  'Fixed Single
   ClientHeight    =   750
   ClientLeft      =   135
   ClientTop       =   135
   ClientWidth     =   3510
   ControlBox      =   0   'False
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   750
   ScaleWidth      =   3510
   StartUpPosition =   3  '窗口缺省
   Begin VB.Timer timer1 
      Interval        =   20
      Left            =   105
      Top             =   375
   End
   Begin MSComctlLib.Toolbar Toolbar1 
      Height          =   825
      Left            =   0
      TabIndex        =   0
      Top             =   -45
      Width           =   3540
      _ExtentX        =   6244
      _ExtentY        =   1455
      ButtonWidth     =   1032
      ButtonHeight    =   1349
      ImageList       =   "ImageList1"
      _Version        =   393216
      BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
         NumButtons      =   6
         BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "销售"
            Key             =   "xs"
            ImageIndex      =   2
         EndProperty
         BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "入库"
            Key             =   "rk"
            ImageIndex      =   3
         EndProperty
         BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "出库"
            Key             =   "zk"
            ImageIndex      =   5
         EndProperty
         BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "库存"
            Key             =   "kc"
            ImageIndex      =   4
         EndProperty
         BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "帮助"
            Key             =   "bz"
            ImageIndex      =   11
         EndProperty
         BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "退出"
            Key             =   "exit"
            ImageIndex      =   1
            Object.Width           =   2
         EndProperty
      EndProperty
      Begin MSComctlLib.ImageList ImageList1 
         Left            =   285
         Top             =   135
         _ExtentX        =   1005
         _ExtentY        =   1005
         BackColor       =   -2147483643
         ImageWidth      =   32
         ImageHeight     =   32
         MaskColor       =   12632256
         UseMaskColor    =   0   'False
         _Version        =   393216
         BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
            NumListImages   =   13
            BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "form1.frx":0000
               Key             =   ""
               Object.Tag             =   "1"
            EndProperty
            BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "form1.frx":0854
               Key             =   ""
            EndProperty
            BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "form1.frx":1130
               Key             =   ""
               Object.Tag             =   "2"
            EndProperty
            BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "form1.frx":1984
               Key             =   ""
               Object.Tag             =   "3"
            EndProperty
            BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "form1.frx":21D8
               Key             =   ""
               Object.Tag             =   "5"
            EndProperty
            BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "form1.frx":2A2C
               Key             =   ""
               Object.Tag             =   "6"
            EndProperty
            BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "form1.frx":3280
               Key             =   ""
            EndProperty
            BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "form1.frx":3B5C
               Key             =   ""
            EndProperty
            BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "form1.frx":4438
               Key             =   ""
            EndProperty
            BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "form1.frx":4D14
               Key             =   ""
            EndProperty
            BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "form1.frx":5030
               Key             =   ""
            EndProperty
            BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "form1.frx":534C
               Key             =   ""
            EndProperty
            BeginProperty ListImage13 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "form1.frx":5668
               Key             =   ""
            EndProperty
         EndProperty
      End
   End
End
Attribute VB_Name = "form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long

Private Type POINTAPI
  X As Long
  Y As Long
End Type

Private Sub Form_Load()
  Me.Top = 0
  Me.Left = Screen.Width - Me.Width
End Sub

Private Sub timer1_Timer()
  Dim lpPoint As POINTAPI
  GetCursorPos lpPoint
  If lpPoint.Y < 2 And lpPoint.X > Me.Left / 15 Then
     Me.Visible = True
    ElseIf lpPoint.Y > Me.Height / 15 Or lpPoint.X < Me.Left / 15 Then
           Me.Visible = False
  End If
End Sub

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
  Select Case Button.Key
     Case Is = "xs"
       MsgBox "谢谢!", vbInformation, "提示"
     Case Is = "rk"
       MsgBox "谢谢!", vbInformation, "提示"
     Case Is = "kc"
       MsgBox "谢谢!", vbInformation, "提示"
     Case Is = "zk"
       MsgBox "谢谢!", vbInformation, "提示"
     Case Is = "bz"
       MsgBox "谢谢!", vbInformation, "提示"
     Case Is = "exit"
       End
  End Select
End Sub