手机站
网通分站
电信主站
购物车
续租服务
在线提问
常见问题
付款方式
购买流程
忘记密码？
密　码:
用户名：
首 页
  域名注册
  虚拟主机
  智能建站主机
  服务器租用
  VPS主机
  企业邮局
  代理专区
  客服中心
当前位置 : 主页>网络编程>Asp.Net编程>列表

谈谈Windows API 在VB 中的应用

来源：互联网 作者：西部数码 时间：2008-04-09
西部数码-全国虚拟主机10强！40余项虚拟主机管理功能,全国领先!双线多线虚拟主机南北访问畅通无阻!免费赠送企业邮局,.CN域名,自助建站480元起,免费试用7天,满意再付款! P4主机租用799元/月.月付免压金!

Const SPI_SCREENSAVERRUNNING = 97

　　3． 在Form1窗口的Command1_Click中加入以下代码：

Private Sub Command1_Click()
Dim r As Integer
Dim p As Boolean
If Command1.Caption = "屏蔽" Then
r = SystemParametersInfo(SPI_SCREENSAVERRUNNING, True, p, 0)
Command1.Caption = "有效"
Else
r = SystemParametersInfo(SPI_SCREENSAVERRUNNING, False, p, 0)
Command1.Caption = "屏蔽"
End If
End Sub

　　4． 在Form1窗体的Form_Unload中加入以下代码：

Form1_Unload()
Dim r As Integer
Dim p As Boolean
r = SystemParametersInfo(SPI_SCREENSAVERRUNNING, False, p, 0)


　　运行效果如下图：



　　2） 示例二：抓屏演示


　　本示例程序将演示如何拷贝屏幕图象。


　　实现步骤：

　　1． 建立一个新项目，将其命名为Demo4.vbp。

　　2． 增加模块Demo4.bas，在Demo4.bas中加入如下代码：


Public Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Public Declare Function StretchBlt Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal nSrcWidth As Long, ByVal nSrcHeight As Long, ByVal dwRop As Long) As Long
Public Const SRCCOPY = &HCC0020

　　 3. 在窗体Form1的Command1_Click处理程序中加入以下代码：

Private Sub Command1_Click()
Dim i As Long
Dim wScreen As Long
Dim hscreen As Long
Dim w As Long
Dim h As Long
Picture1.Cls
wScreen = Screen.Width \ Screen.TwipsPerPixelX
hscreen = Screen.Height \ Screen.TwipsPerPixelY
w = Picture1.ScaleWidth
h = Picture1.ScaleHeight
hdcScreen = GetDC(0)
i = StretchBlt(Picture1.hdc, 0, 0, w, h, hdcScreen, 0, 0, wScreen,
hscreen, vbSrcCopy)
Picture1.Refresh
End Sub


　　运行效果如下图：


156
1c40
　　3．多媒体编程：

　　1） 示例一：百叶窗效果


　　实现步骤：

　　1．建立一个新项目，将其命名为Demo5.vbp。

　　2．增加模块Demo5.bas，在Demo5.bas中加入如下代码：


Public Const SRCCOPY = &HCC0020
Public Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long

　
　　3．在窗体的声明部分加入代码：

　　Dim h, w As Integer

　　4．在窗体的Form_Load处理程序中加入代码：

Private Sub Form_Load()
Picture1.Move 0, 0
Picture2.Move 0, 0
h = Picture1.ScaleHeight
w = Picture1.ScaleWidth
Picture2.Width = Picture1.Width
Picture2.Height = Picture1.Height
End Sub

　　5．在窗体的Command1_Click处理代码中：

Private Sub Command1_Click()
Dim i, j, g As Integer
Picture2.Cls
For i = 0 To 50
For j = i To w Step 50
BitBlt Picture2.hDC, j, 0, 1, h, Picture1.hDC, j, 0, SRCCOPY
For g = 0 To 500
Next g
Next j
Next i
End Sub

　　6．在窗体的Command2_Click的处理程序中：

Private Sub Command2_Click()
Dim i, j, g As Integer
Picture2.Cls
For i = 0 To 50
For j = i To w Step 50
BitBlt Picture2.hDC, 0, j, w, 1, Picture1.hDC, 0, j, SRCCOPY
For g = 0 To 500
Next g
Next j
Next i
End Sub

　　7．在窗体的Picture1_Resize的处理程序中加入代码：

Private Sub Picture1_Resize()
Picture2.Width = Picture1.Width
Picture2.Height = Picture1.Height
End Sub

　　2）示例二：播放背景音乐

　　实现步骤：

　　1．建立一个新项目，将其命名为Demo6.vbp。

　　2．增加模块Demo6.bas，在Demo6.bas中加入如下代码：

Public Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long

　　3．在窗体的Form_load的处理程序中加入如下代码：

Private Sub Form_Load()
Dim back
back = mciSendString&("OPEN " App.Path "\TEST.MID" " TYPE
SEQUENCER ALIAS NN", 0&, 0, 0)
back = mciSendString&("PLAY NN FROM 0", 0&, 0, 0)
R% = mciSendString&("CLOSE ANIMATION", 0&, 0, 0)
End Sub

文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!

上一页 1 23 下一页
[打印] [关闭]
Google
相关文章
  • 关于ASP.NET在IIS一些问题的经验
  • UpdatePanel和自定义控件中的客
  • 用ObjectDataSource实现自定义分
  • Visual Basic 6 Naming Standard
  • VB5.0调用Office97技巧
  • ASP.NET 2.0高级数据处理之处理N
  • 如何保证web app中的Send Email
  • ASP.NET数据库编程之处理文件访
  • ASP.net随机数应用实例
  • 用VB、VFP设计右键弹出式菜
    • 上一篇：vb设计数据库电子邮件程序
    下一篇：用API函数遍历指定路径的文件
    热点关注
    IDC资讯 虚拟主机 域名注册 托管租用 vps主机 智能建站
    网站运营 建站经验 策划盈利 搜索优化 网站推广 免费资源
    网站联盟 联盟新闻 联盟介绍 联盟点评 网赚技巧
    行业资讯 业界动态 搜索引擎 网络游戏 门户动态 电子商务 广告传媒
    网络编程 Asp.Net编程 Asp编程 Php编程 Xml编程 Access Mssql Mysql 其它
    服务器技术 Web服务器 Ftp服务器 Mail服务器 Dns服务器 安全防护
    软件技巧 其它软件 Word Excel Powerpoint Ghost Vista QQ空间 QQ FlashGet 迅雷 Internet Explorer
    网页制作 FrontPages Dreamweaver Javascript css photoshop fireworks Flash
    程序设计 Java技术 C/C++ VB delphi
    网络知识 网络协议 网络安全 网络管理 组网方案 Cisco技术
    操作系统 Win2000 WinXP Win2003 Mac OS Linux FreeBSD
    返回首页 |关于我们 | 联系我们 | 付款方式 | 创业联盟 | 价格总览 | 资讯中心 | 友情链接 | 网站地图 | 招贤纳士 | RSS

    版权所有     西部数码(www.west263.com)
    CopyRight (c) 2002~2007 west263.com all right reserved.
    公司地址：四川成都市万和路90号天象大厦4楼　邮编：610031
    电话总机：028-86263408 86263960 86264018 86267838 86262244 86263408
    售前咨询：总机转201 202 203 204 205 206 207 208
    售后服务：总机转211 212 213 214 217 218 晚上0点以后拔分机225
    财务咨询：总机转224 223 传真：028-86264041 财务QQ：点击发送消息给对方635483282
    售前咨询QQ：点击发送消息给对方327314358 点击发送消息给对方241975952 点击发送消息给对方275026793 点击发送消息给对方408235859 点击发送消息给对方2182518 点击发送消息给对方499513144
    售后服务QQ：点击发送消息给对方634349278 点击发送消息给对方809071471 点击发送消息给对方307742704 点击发送消息给对方512359778 点击发送消息给对方287976517 点击发送消息给对方363783715     在线咨询
    《中华人民共和国增值电信业务经营许可证》编号：川B2-20030065号