Private Sub Form_Load() Command1.Caption = “DirectDraw驱动描述” Command2.Caption = “DirectDraw驱动名称” Command3.Caption = “DirectSound驱动描述” Command4.Caption = “DirectSound驱动名称” End Sub
Private Sub Form_Unload(Cancel As Integer) Set DirectX = Nothing End Sub 运行程序，分别点击不同的按钮，在列表框中就会出现相应的设备驱动名和描述。 2 DirectDraw7对象 DirectDraw是一个与Windows 图形系统接口(GDI)相兼容的直接操作显示设备的软件接口。DirectDraw提供与硬件无关性的同时允许直接操作显存。程序只要使用一些基本的标准硬件约定，如：RGB及YUV色彩格式及解析度。你无须调用特殊的过程来使用显存块移动(Blitter)及调色板。使用DirectDraw，你可简单操作显存，完全使用各种硬件特性而不必理会各种不同硬件之间的差异。 2.1 建立DirectDraw对象 DirectDraw7对象是DirectX7中的DirectDraw对象，你需要首先建立一个DirectX7对象，然后使用该对象的DirectDrawCreate方法来建立DirectDraw7对象。例如： Dim DX As New DirectX7 Dim DDraw As DirectDraw7 Set DDraw = DX.DirectDrawCreate(“”) 2.2 建立协作层 当建立了一个DirectDraw对象之后，首先要设定DirectDraw的协作层。实现的方法是调用DirectDraw对象的SetCooperativeLevel函数。该函数的定义是： object.SetCooperativeLevel( hdl As Long, flags As CONST_DDSCLFLAGS) 其中参数hdl指定程序的窗口句柄，参数flag决定程序运行的方式，函数调用 DDraw.SetCooperativeLevel Me.hWnd, DDSCL_NORMAL 将使程序运行于普通的协作层即窗口模式之下。在这种协作层你无法改变主平面调色板或进行页交换，因为程序可以使用多窗口。而函数调用 DDraw.SetCooperativeLevel MainForm.hWnd, DDSCL_EXCLUSIVE Or _ DDSCL_FULLSCREEN 将使程序运行于全屏幕模式之下。在全屏幕协作模式之下你可以完全使用硬件的一切。在这个模式之下，你可以设置使用定义及动态调色板，改变显示分辨率及进行页交换
网友评论：（只显示最新10条。评论内容只代表网友观点，与本站立场无关！） 