index1.txt

VB技巧问答10000例 VB技巧问答10000例

     '资 源 文 件 代 码 
     ' 100 AVI MOVEABLE PURE "SEARCH.AVI" 
     
     'Form1 代 码 
     
     Private Const RES_AVI = 100& 
     Dim ani As New SysAnimate32 
     
     Private Sub cmdPlay_Click() 
     cmdPlay.Enabled = False 
     cmdStop.Enabled = True 
     ani.pPlay 
     End Sub 
     
     Private Sub cmdstop_Click() 
     cmdStop.Enabled = False 
     cmdPlay.Enabled = True 
     ani.pStop 
     End Sub 
     
     Private Sub Form_Load() 
     ani.Create Me.hwnd, RES_AVI, 136, 40, 48, 50 
     End Sub 
     
     Private Sub Form_Unload(Cancel As Integer) 
     ani.Destroy 
     End Sub 
     
     'Class Module 代 码 
     
     Option Explicit 
     
     Private Const ANIMATE_CLASS = "SysAnimate32" & vbNullChar 
     Private Const WM_USER = &H400& 
     Private Const ACS_CENTER = &H1& 
     Private Const ACS_TRANSPARENT = &H2& 
     Private Const ACS_AUTOPLAY = &H4& 
     Private Const ACM_OPEN = WM_USER + 100 
     Private Const ACM_PLAY = WM_USER + 101 
     Private Const ACM_STOP = WM_USER + 102 
     Private Const WS_EX_TRANSPARENT = &H20& 
     Private Const WS_CHILD = &H40000000 
     
     Private Declare Function DestroyWindow Lib "user32" _ 
     (ByVal hwnd As Long) As Long 
     
     Private Declare Function CreateWindowEx Lib "user32" _ 
     Alias "CreateWindowExA" (ByVal dwExStyle As Long, _ 
     ByVal lpClassName As String, _ 
     ByVal lpWindowName As String, _ 
     ByVal dwStyle As Long, ByVal x As Long, _ 
     ByVal y As Long, ByVal nWidth As Long, _ 
     ByVal nHeight As Long, ByVal hWndParent As Long, _ 
     ByVal hMenu As Long, ByVal hInstance As Long, _ 
     lpParam As Any) As Long 
     
     Private Declare Function SendMessage Lib "user32" _ 
     Alias "SendMessageA" (ByVal hwnd As Long, _ 
     ByVal wMsg As Long, ByVal wParam As Long, _ 
     lParam As Any) As Long 
     
     
     Private StaticHwnd As Long 
     Private AnimateHwnd As Long 
     
     
     Public Sub Create(ByVal hwnd As Long, ByVal Id As Variant, _ 
     ByVal Left As Long, ByVal Top As Long, _ 
     ByVal width As Long, ByVal height As Long) 
     
     StaticHwnd = CreateWindowEx(WS_EX_TRANSPARENT, "Static", _ 
     vbNullString, &H50000003, Left, Top, width, _ 
     height, hwnd, 0&, App.hInstance, ByVal 0&) 
     AnimateHwnd = CreateWindowEx(WS_EX_TRANSPARENT, ANIMATE_CLASS, _ 
     vbNullString, &H50000003, 0, 0, width, height, _ 
     StaticHwnd, 0&, App.hInstance, ByVal 0&) 
     
     If IsNumeric(Id) Then 
     SendMessage AnimateHwnd, ACM_OPEN, 0&, ByVal CLng(Id) 
     Else 
     SendMessage AnimateHwnd, ACM_OPEN, 0&, ByVal CStr(Id) & vbNullChar 
     End If 
     
     End Sub 
     
     Public Sub pPlay() 
     SendMessage AnimateHwnd, ACM_PLAY, -1&, ByVal &HFFFF0000 
     End Sub 
     
     Public Sub pStop() 
     SendMessage AnimateHwnd, ACM_STOP, 0&, ByVal 0& 
     End Sub 
     
     Public Sub Destroy() 
     Me.pStop 
     DestroyWindow AnimateHwnd 
     DestroyWindow StaticHwnd 
     End Sub 
<END>
70,如何显示较大尺寸图片
请 问 ： 在 VB6下 用 PictureBox或 Image来 显 示 Jpg,Gif等 格 式 图 形 。 但 对 于 较 大 尺 寸 图 片 ， 则 只 能 看 见 局 部 ， 如 果 按 窗 口 拉 伸 ， 图 象 会 变 形 。 如 果 按 比 例 缩 放 ， 怎 样 实 现 ？ 如 果 不 改 变 比 例 ， 就 在 窗 口 内 拖 动 图 形 ， 可 以 看 见 图 片 的 其 他 部 分 ， 又 怎 样 实 现 ？ 请 给 予 解 答 。 
<END>
71,如何不让Textout函数在桌面上写的字（图形）消失
我 用 Textout函 数 在 桌 面 上 写 的 字 被 窗 口 覆 盖 后 再 移 开 窗 口 字 消 失 有 什 么 办 法 不 让 字 （ 图 形 ） 消 失 。 
<END>
72,如何在VB中画出圆滑的曲线
请 问 如 何 在 VB中 画 出 圆 滑 的 曲 线 ? 
<END>
73,如何生成图表，然后将图表存成一个图象文件
根 据 一 组 数 据 生 成 图 表 ， 类 似 EXCEL图 表 的 形 式 ， 然 后 将 图 表 存 成 一 个 图 象 文 件 ， 要 jpg或 gif为 后 缀 的 。 
<END>
74,BitBlt使用的常见问题
我 用 i = BitBlt(Picture2.hDC, 0, 0, 31, 18, Picture1.hDC, 0, 1, &HCC0020)函 数 。 来 实 现 图 片 的 划 块 然 后 再 放 到 目 标 picture2中 ， 但 是 picture2中 的 图 片 不 能 通 过 .picture的 属 性 来 付 值 给 别 的 Image的 picture属 性 。 而 且 窗 体 最 小 化 后 或 被 其 它 窗 体 覆 盖 目 标 中 的 图 片 就 没 有 了 。 
<END>
75,如何在标准控件Line中增加Click事件
如 何 在 标 准 控 件 Line中 增 加 Click事 件 ? 
<END>
76,能不能直接找到HDC对应的图像的内存地址
vb6中 能 不 能 找 到 图 形 的 地 址 ， 比 如 说 ， 我 找 到 了 getdc(0)为 屏 幕 的 handle， 我 能 不 能 就 此 找 到 相 应 的 内 存 ， 来 直 接 对 内 存 操 作 ， 而 不 用 将 图 形 存 成 文 件 ， 在 对 文 件 进 行 操 作 ， 浪 费 大 量 的 时 间 ？ 
<END>
77,能否把动画GIF作为背景显示
上 次 提 问 的 动 态 GIF的 问 题 ， 你 们 介 绍 的 的 控 件 (QA000813 “如何播放GIF动画”)， 只 能 在 最 前 端 显 示 ， 能 不 能 让 它 成 为 背 景 来 显 示 ？ 
<END>
78,如何清除图像框的图像
在 窗 体 放 置 一 批 图 象 框 ,并 且 设 置 了 位 图 ,请 问 能 不 能 不 删 除 图 象 框 ,保 持 原 来 属 性 ,而 彻 底 删 除 其 中 的 图 象 。 
<END>
79,如何在桌面上显示字或图片
我 想 写 一 个 在 桌 面 上 显 示 字 或 图 片 的 程 序 ， 但 不 知 道 用 哪 个 api函 数 ? 
<END>
80,VB中如何平铺显示图片
VB中 Form的 Picture属 性 不 能 将 图 象 自 动 平 铺 到 整 个 表 单 中 ,只 是 以 原 大 小 显 示 (而 VFP中 好 象 可 以 ） ， 请 问 如 何 实 现 ? 
<END>