下载频道> 资源分类> 编程语言> VB源码> 弹出窗口时出现动画效果VB源码程序

标题：弹出窗口时出现动画效果VB源码程序
分享到：

所属分类: VB源码 资源类型： 文件大小: 4.12 KB 上传时间: 2016-01-20 23:31:02 下载次数: 7 资源积分：1分 提 供 者: vb源码代做 20160120113046719
内容：
弹出窗口时出现动画效果VB源码程序，程序员在编程的过程中可以参考学习使用，希望对IT程序员有用，此源码程序简单易懂、方便阅读，有很好的学习价值！
部分代码如下：
VERSION 5.00
Begin VB.Form frmAnim 
   Caption         =   "Form2"
   ClientHeight    =   2580
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4470
   LinkTopic       =   "Form2"
   ScaleHeight     =   2580
   ScaleWidth      =   4470
   StartUpPosition =   2  '屏幕中心
   WindowState     =   2  'Maximized
   Begin VB.CommandButton Command1 
      Caption         =   "关闭"
      Height          =   495
      Left            =   1440
      TabIndex        =   0
      Top             =   960
      Width           =   1335
   End
End
Attribute VB_Name = "frmAnim"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
 
Private Declare Function CreateSolidBrush Lib "gdi32" _
    (ByVal crColor As Long) As Long
Private Declare Function DeleteObject Lib "gdi32" _
    (ByVal hObject As Long) As Long
Private Declare Function FillRect Lib "user32" (ByVal hDC As Long, _
    lpRect As RECT, ByVal hBrush As Long) As Long
Private Type RECT
    Left As Long
    Top As Long
    Right As Long
    Bottom As Long
End Type
 
 
Friend Sub PrintClient(ByVal hDC As Long, ByVal lParam As Long)
 
    Dim rct As RECT
    Dim hBr As Long
 
    'Fill in the hDC with the form's
    'background color. Otherwise the form
    'may appear strangely.
    rct.Left = 0
    rct.Top = 0
    rct.Right = ScaleX(ScaleWidth, ScaleMode, vbPixels)
    rct.Bottom = ScaleY(ScaleHeight, ScaleMode, vbPixels)
    hBr = CreateSolidBrush(TranslateColor(Me.BackColor))
    FillRect hDC, rct, hBr
    DeleteObject hBr
 
End Sub
 
Private Sub Command1_Click()
Unload Me
End Sub
 
Private Sub Form_Load()
    SubclassAnim Me
End Sub
 
 
 

文件列表（点击上边下载按钮，如果是垃圾文件请在下面评价差评或者投诉）:

弹出窗口时出现动画效果VB源码程序/
弹出窗口时出现动画效果VB源码程序/Form1.frm
弹出窗口时出现动画效果VB源码程序/MSSCCPRJ.SCC
弹出窗口时出现动画效果VB源码程序/Module1.bas
弹出窗口时出现动画效果VB源码程序/frmAnim.frm
弹出窗口时出现动画效果VB源码程序/工程1.vbp
弹出窗口时出现动画效果VB源码程序/工程1.vbw

关键词： 时出 源码 效果

相关推荐

编程语言下载排行

Top_arrow
回到顶部

友情链接

matlab源码 网站源码 编程语言 网络编程 手机通讯编程 KUNAG 官网 KUNAG 电商 更多
联系方式| 版权声明| 招聘信息| 广告服务| 银行汇款| 法律顾问| 兼职技术| 付款方式| 关于我们|
网站客服网站客服 程序员兼职招聘 程序员兼职招聘
沪ICP备19040327号-3
公安备案号：沪公网安备 31011802003874号
库纳格流体控制系统（上海）有限公司 版权所有
Copyright © 1999-2014, GUSUCODE.COM, All Rights Reserved