form_logo.frm

日本富士仪表PXR的MODBUS通信测试

VERSION 5.00
Begin VB.Form Form_Logo 
   BorderStyle     =   0  'None
   Caption         =   "Form_Logo"
   ClientHeight    =   3300
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   9000
   Icon            =   "Form_Logo.frx":0000
   LinkTopic       =   "Form2"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   Picture         =   "Form_Logo.frx":000C
   ScaleHeight     =   2805
   ScaleMode       =   0  'User
   ScaleWidth      =   9000
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  '屏幕中心
   Begin VB.Timer Timer 
      Left            =   0
      Top             =   0
   End
End
Attribute VB_Name = "Form_Logo"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
'    使窗体的背景图片中的白色透明化的声名
    Private Const HWND_BOTTOM = 1
    Private Const HWND_NOTOPMOST = -2
    Private Const HWND_TOP = 0
    Private Const HWND_TOPMOST = -1
    Private Const SWP_FRAMECHANGED = &H20
    Private Const SWP_DRAWFRAME = SWP_FRAMECHANGED
    Private Const SWP_HIDEWINDOW = &H80
    Private Const SWP_NOACTIVATE = &H10
    Private Const SWP_NOCOPYBITS = &H100
    Private Const SWP_NOMOVE = &H2
    Private Const SWP_NOREDRAW = &H8
    Private Const SWP_NOSIZE = &H1
    Private Const SWP_NOZORDER = &H4
    Private Const SWP_SHOWWINDOW = &H40
    Private Declare Sub SetWindowPos Lib "User32" (ByVal hWnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long)
    Private Declare Function SetLayeredWindowAttributes Lib "User32" (ByVal hWnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long
    Private Declare Function GetWindowLong Lib "User32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
    Private Declare Function SetWindowLong Lib "User32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
    Private Zp As Long 'zavieye prvaz =fly degree
    Private RetVal
    Private Const LWA_COLORKEY = &H1
    Private Const LWA_ALPHA = &H2
    Private Const GWL_EXSTYLE = (-20)
    Private Const WS_EX_LAYERED = &H80000   '&H70000   &H60000

Private Sub Form_Load()
    Call 使窗体的背景图片中的白色透明化
    Timer.Interval = 300
    Timer.Enabled = True
End Sub

Private Sub Timer_Timer()
    Form_Display.Show
    Unload Me
End Sub

Private Sub 使窗体的背景图片中的白色透明化()
    SetWindowPos Me.hWnd, HWND_TOPMOST, 0, 10, 400, 200, SWP_SHOWWINDOW
    Me.Width = 9000
    Me.Height = 3300
    Me.Top = Screen.Height - Me.Height
    Me.Left = 0
    RetVal = GetWindowLong(Me.hWnd, GWL_EXSTYLE)
    RetVal = RetVal Or WS_EX_LAYERED
    SetWindowLong Me.hWnd, GWL_EXSTYLE, RetVal
    SetLayeredWindowAttributes Me.hWnd, vbWhite, 0, LWA_COLORKEY
    Zp = 20
End Sub