VB6编程：DirectX 2D图形学习日志27图形引擎分析

最新推荐文章于 2022-10-05 10:15:01 发布
最新推荐文章于 2022-10-05 10:15:01 发布
阅读量250 收藏
点赞数
分类专栏： 学习笔记 文章标签： 2d游戏 3d游戏 3d vb6 directx
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/gosub60/article/details/111314173
版权

VB6编程：DirectX 2D图形学习日志27图形引擎分析
一、初始化
1.设置全屏分辨率： 源码是800600，我修改成1024768

    Fullscreen_Width = 1024
    Fullscreen_Height = 768

    With frmMain
    
        .Caption = "DirectX教程19:2d游戏图形引擎"
        .ScaleMode = 3
        .Width = (1024 / 2) * Screen.TwipsPerPixelX '表示横坐标中每像素有多少缇
        .Height = (768 / 2) * Screen.TwipsPerPixelY '表示纵坐标中每像素有多少缇
    
    End With

2、 初始化DirectX和Direct3D子程序（ DirectX_Initialize ）
其中：

Private Scalar As D3DVECTOR2'Type D3DVECTOR2成员X,Y

当全屏时：

   Scalar.X = Fullscreen_Width / frmMain.ScaleWidth
   Scalar.Y = Fullscreen_Height / frmMain.ScaleHeight

当窗口化时：

        Scalar.X = 1
        Scalar.Y = 1

3、设置_地图 子程序（Setup_Map）
地图类型的结构定义如下：

 Private Type Map_Type
    Map() As String
    Tile() As Long
    New_Tile() As Long
    Width As Long '宽度
    Height As Long '高度
    New_Width As Long '新宽度
    New_Height As Long '新宽度
    Number_Of_Vertices_Per_Tile_Set() As Long '数量_顶点数_瓷砖数_套数
    Number_Of_Polygons_Per_Tile_Set() As Long '数量_多边形数_每_瓷砖_设置
    Number_Of_Textures As Long '_ _ _纹理的数量
    Texture_List() As Direct3DTexture8
    Number_Of_Vertices As Long

End Type

Private Map As Map_Type

这里的地图上的物体代码存在一个19*15的数组里：每个横纵位置表示一个物体编号，
0=草地：0草地
1=植物：在这里插入图片描述
2=标识牌：标识牌
3=池塘1：池塘1
4=池塘2:池塘2
5=池塘3:池塘3
6=池塘4:池塘4

    '地图数组
    Map.Width = (20) - 1
    Map.Height = (16) - 1
    ReDim Map.Map(Map.Height) As String
    '地图结构
    Map.Map(0) = "2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 2"
    Map.Map(1) = "0, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 0"
    Map.Map(2) = "0, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 0"
    Map.Map(3) = "0, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 0"
    Map.Map(4) = "0, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 0"
    Map.Map(5) = "0, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 0"
    Map.Map(6) = "0, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 0"
    Map.Map(7) = "0, 0, 0, 0, 0, 0, 0, 0, 0, 3, 4, 0, 0, 0, 0, 0, 0, 0, 0, 0"
    Map.Map(8) = "0, 0, 0, 0, 0, 0, 0, 0, 0, 5, 6, 0, 0, 0, 0, 0, 0, 0, 0, 0"
    Map.Map(9) = "0, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 0"
    Map.Map(10) = "0, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 0"
    Map.Map(11) = "0, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 0"
    Map.Map(12) = "0, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 0"
    Map.Map(13) = "0, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 0"
    Map.Map(14) = "0, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 0"
    Map.Map(15) = "2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 2"
    
    ReDim Map.Tile(Map.Width, Map.Height) As Long
    ReDim Map.New_Tile(Map.Width, Map.Height) As Long
    
    For Y = 0 To Map.Height
    
        Temp = Split(Map.Map(Y), ", ", -1)
    
        For X = 0 To Map.Width
    
            Map.Tile(X, Y) = CLng(Temp(X))
            
        Next X
        
    Next Y

4. 从文件加载纹理贴图子程序（Load_Textures ）
过程同前文所述

5.创建多边形子程序： （Create_Polygons）

'顶点数
   Map.Number_Of_Vertices = ((Map.Width + 1) * (Map.Height + 1) * Number_Of_Vertices_Per_Quad)
     '主_顶点列表(顶点数-1)
       ReDim Master_Vertex_List(Map.Number_Of_Vertices - 1) As TLVERTEX
       '顶点列表(顶点数-1)
   ReDim Vertex_List(Map.Number_Of_Vertices - 1) As TLVERTEX
   '排序_顶点列表(顶点数-1)  
   ReDim Sorted_Vertex_List(Map.Number_Of_Vertices - 1) As TLVERTEX
   
   '映射_ To_顶点_列表_和_剪辑  主_顶点列表(顶点数-1),顶点列表(顶点数-1)
       Map_To_Vertex_List_And_Clip Map, Master_Vertex_List(), Vertex_List()

   '排序_多边形_依纹理  顶点列表(顶点数-1), 排序_顶点列表(顶点数-1)  
       Sort_Polygons_By_Texture Map, Vertex_List(), Sorted_Vertex_List()

   '创建顶点缓冲区。
   Set Vertex_Buffer = Direct3D_Device.CreateVertexBuffer(Len(Sorted_Vertex_List(0)) *     Map.Number_Of_Vertices, 0, FVF_TLVERTEX, D3DPOOL_MANAGED)

   D3DVertexBuffer8SetData Vertex_Buffer, 0, Len(Sorted_Vertex_List(0)) * Map.Number_Of_Vertices, 0, Sorted_Vertex_List(0)
   
   Direct3D_Device.SetStreamSource 0, Vertex_Buffer, Len(Sorted_Vertex_List(0))

创建多边形过程如下：
①顶点数=((地图的宽 + 1) * (地图的高 + 1) * 数量_顶点数_每个_四边形)
② Map_To_Vertex_List_And_Clip子程序作用：映射_ To_顶点_列表_和_剪辑
函数代码：

Private Sub Map_To_Vertex_List_And_Clip(Map As Map_Type, Old_Vertex_List() As TLVERTEX, New_Vertex_List() As TLVERTEX)

    Dim X As Long, Y As Long
    Dim X2 As Long, Y2 As Long
    Dim I As Long, J As Long
    Dim Temp As Long
    
    Temp = -1
       
    For Y = 0 To Map.Height '地图高
         For X = 0 To Map.Width '地图宽
            '先循环X轴的贴图,旧_顶点列表0-5
            Old_Vertex_List(I + 0) = Create_TLVertex(GlobalX + ((TILE_WIDTH * X) + 0) * Scalar.X, GlobalY + ((TILE_HEIGHT * Y) + 0) * Scalar.Y, 0, 1, D3DColorRGBA(255, 255, 255, 0), 0, 0, 0)
            Old_Vertex_List(I + 1) = Create_TLVertex(GlobalX + ((TILE_WIDTH * X) + TILE_WIDTH) * Scalar.X, GlobalY + ((TILE_HEIGHT * Y) + 0) * Scalar.Y, 0, 1, D3DColorRGBA(255, 255, 255, 0), 0, 1, 0)
            Old_Vertex_List(I + 2) = Create_TLVertex(GlobalX + ((TILE_WIDTH * X) + 0) * Scalar.X, GlobalY + ((TILE_HEIGHT * Y) + TILE_HEIGHT) * Scalar.Y, 0, 1, D3DColorRGBA(255, 255, 255, 0), 0, 0, 1)
            Old_Vertex_List(I + 3) = Create_TLVertex(GlobalX + ((TILE_WIDTH * X) + TILE_WIDTH) * Scalar.X, GlobalY + ((TILE_HEIGHT * Y) + 0) * Scalar.Y, 0, 1, D3DColorRGBA(255, 255, 255, 0), 0, 1, 0)
            Old_Vertex_List(I + 4) = Create_TLVertex(GlobalX + ((TILE_WIDTH * X) + TILE_WIDTH) * Scalar.X, GlobalY + ((TILE_HEIGHT * Y) + TILE_HEIGHT) * Scalar.Y, 0, 1, D3DColorRGBA(255, 255, 255, 0), 0, 1, 1)
            Old_Vertex_List(I + 5) = Create_TLVertex(GlobalX + ((TILE_WIDTH * X) + 0) * Scalar.X, GlobalY + ((TILE_HEIGHT * Y) + TILE_HEIGHT) * Scalar.Y, 0, 1, D3DColorRGBA(255, 255, 255, 0), 0, 0, 1)
             '如果 Clip_Polygon（剪辑_多边形的子程序）
            If Clip_Polygon(Old_Vertex_List(I + 0), Old_Vertex_List(I + 4)) = False Then

                New_Vertex_List(J + 0) = Old_Vertex_List(I + 0)
                New_Vertex_List(J + 1) = Old_Vertex_List(I + 1)
                New_Vertex_List(J + 2) = Old_Vertex_List(I + 2)
                New_Vertex_List(J + 3) = Old_Vertex_List(I + 3)
                New_Vertex_List(J + 4) = Old_Vertex_List(I + 4)
                New_Vertex_List(J + 5) = Old_Vertex_List(I + 5)

                X2 = X2 + 1
    
                If Temp <> Y Then
    
                    Temp = Y
                    X2 = 1
                    Y2 = Y2 + 1
    
                End If
                
                Map.New_Tile(X2 - 1, Y2 - 1) = Map.Tile(X, Y)
                
                J = J + Number_Of_Vertices_Per_Quad
    
            End If

            I = I + Number_Of_Vertices_Per_Quad
            
        Next X
        
    Next Y

    Map.New_Width = X2
    Map.New_Height = Y2

End Sub

③ Clip_Polygon（剪辑_多边形的子程序）

Private Function Clip_Polygon(Polygon_A As TLVERTEX, Polygon_B As TLVERTEX) As Boolean '剪辑_多边形
    
    Dim R As RECT
    Dim Border_Size As Long
    
    Border_Size = 0
    
    If Fullscreen_Enabled = False Then
    
        R.Left = Border_Size * Scalar.X
        R.Top = Border_Size * Scalar.Y
        R.Right = Me.ScaleWidth - Border_Size * Scalar.X
        R.bottom = Me.ScaleHeight - Border_Size * Scalar.Y
        
    Else

        R.Left = Border_Size * Scalar.X
        R.Top = Border_Size * Scalar.Y
        R.Right = Fullscreen_Width - Border_Size * Scalar.X
        R.bottom = Fullscreen_Height - Border_Size * Scalar.Y

    End If
    
    If (Polygon_A.X < R.Left And Polygon_B.X < R.Left) Or (Polygon_A.X > R.Right And Polygon_B.X > R.Right) Or _
           (Polygon_A.Y < R.Top And Polygon_B.Y < R.Top) Or (Polygon_A.Y > R.bottom And Polygon_B.Y > R.bottom) Then Clip_Polygon = True

End Function

④Sort_Polygons_By_Texture ：排序_多边形_依纹理

Private Sub Sort_Polygons_By_Texture(Map As Map_Type, Old_Vertex_List() As TLVERTEX, New_Vertex_List() As TLVERTEX)

    Dim X As Long, Y As Long
    
    Dim I As Long, J As Long, K As Long

    For Current_Texture = 0 To Map.Number_Of_Textures
        
        I = 0
        
        For Y = 0 To Map.New_Height - 1
        
            For X = 0 To Map.New_Width - 1
                
                    If Map.New_Tile(X, Y) = Current_Texture Then
                        
                         New_Vertex_List(J + 0) = Old_Vertex_List(I + 0)
                         New_Vertex_List(J + 1) = Old_Vertex_List(I + 1)
                         New_Vertex_List(J + 2) = Old_Vertex_List(I + 2)
                         New_Vertex_List(J + 3) = Old_Vertex_List(I + 3)
                         New_Vertex_List(J + 4) = Old_Vertex_List(I + 4)
                         New_Vertex_List(J + 5) = Old_Vertex_List(I + 5)
                         
                         '对所有顶点求和，请勿重置此变量。
                         J = J + Number_Of_Vertices_Per_Quad
                         '每个纹理的顶点总数。
                         K = K + Number_Of_Vertices_Per_Quad
                         
                    End If
                    
                    I = I + Number_Of_Vertices_Per_Quad
                    
            Next X
            
        Next Y
        
        Map.Number_Of_Polygons_Per_Tile_Set(Current_Texture) = K / 3
        Map.Number_Of_Vertices_Per_Tile_Set(Current_Texture) = K
        
        K = 0 '重置此纹理，另一个纹理即将到来
            
    Next Current_Texture

End Sub

6、DirectInput _初始化_键盘子程序（DirectInput_Initialize_Keyboard）
键盘初始化

Set Direct_Input = DirectX8.DirectInputCreate
    Set Keyboard_Device = Direct_Input.CreateDevice("GUID_SysKeyboard")
    Keyboard_Device.SetCommonDataFormat DIFORMAT_KEYBOARD
    Keyboard_Device.SetCooperativeLevel Window.hWnd, DISCL_BACKGROUND Or DISCL_NONEXCLUSIVE
    Keyboard_Device.Acquire
    Keyboard_Device.GetDeviceStateKeyboard Keyboard_State

7、高精度计时器初始化子程序（Hi_Res_Timer_Initialize）
过程同前文所述

经过前边7个步骤后进入游戏循环子程序

二、游戏循环子程序：（ame_Loop）
1.键盘控制子程序：Control 前边使用Form_KeyDown来判断按键值，这里使用单独的DirectX子程序来判断， DirectInput_Key_State（DirectInput _键_状态：key(0 To 255) As Byte）
'根据按键移动画面

Private GlobalX As Single, GlobalY As Single

If DirectInput_Key_State(DIK_ESCAPE) <> 0 Then Close_Program'ESC退出程序
        '---------------------------------------------
    '左右
    '---------------------------------------------
    If DirectInput_Key_State(DIK_LEFT) <> 0 And DirectInput_Key_State(DIK_RIGHT) = 0 Then
    
        GlobalX = Initial_Global.X + Speed * Time(0) * Scalar.X
        
    ElseIf DirectInput_Key_State(DIK_LEFT) = 0 And DirectInput_Key_State(DIK_RIGHT) <> 0 Then
    
        GlobalX = Initial_Global.X - Speed * Time(1) * Scalar.X
        
    ElseIf (DirectInput_Key_State(DIK_LEFT) <> 0 And DirectInput_Key_State(DIK_RIGHT) <> 0) Or _
           (DirectInput_Key_State(DIK_LEFT) = 0 And DirectInput_Key_State(DIK_RIGHT) = 0) Then
           
        Milliseconds(0) = Elapsed_Time
        Milliseconds(1) = Elapsed_Time
        Initial_Global.X = GlobalX
        
    End If
    '---------------------------------------------
    
    '---------------------------------------------
    '上/下
    '---------------------------------------------
    If DirectInput_Key_State(DIK_UP) <> 0 And DirectInput_Key_State(DIK_DOWN) = 0 Then
    
        GlobalY = Initial_Global.Y + Speed * Time(2) * Scalar.Y
        
    ElseIf DirectInput_Key_State(DIK_UP) = 0 And DirectInput_Key_State(DIK_DOWN) <> 0 Then
    
        GlobalY = Initial_Global.Y - Speed * Time(3) * Scalar.Y
        
    ElseIf (DirectInput_Key_State(DIK_UP) <> 0 And DirectInput_Key_State(DIK_DOWN) <> 0) Or _
           (DirectInput_Key_State(DIK_UP) = 0 And DirectInput_Key_State(DIK_DOWN) = 0) Then
           
        Milliseconds(2) = Elapsed_Time
        Milliseconds(3) = Elapsed_Time
        Initial_Global.Y = GlobalY

    End If
    '---------------------------------------------

2、碰撞检测子程序 （Collision_Detection）
在移动窗口的时候，用来检测是否超过边界

Dim R As RECT
    
    R.Left = (-(Map.Width * TILE_WIDTH / 2) - TILE_WIDTH / 2) * Scalar.X
    R.Top = (-(Map.Height * TILE_HEIGHT / 2) - TILE_HEIGHT / 2) * Scalar.Y
    R.Right = 0
    R.bottom = 0
    
    If GlobalX <= R.Left Then GlobalX = R.Left
    If GlobalY <= R.Top Then GlobalY = R.Top
    If GlobalX >= R.Right Then GlobalX = R.Right
    If GlobalY >= R.bottom Then GlobalY = R.bottom

3、Create_Polygons，创建多边形 这时候根据GlobalX，GlobalY 坐标重新绘制多边形并显示

gosub60
关注
  • 0
    点赞
  • 踩
  • 0
    收藏
    觉得还不错? 一键收藏
  • 打赏
    打赏
  • 0
    评论
专栏目录
VB编程源代码 02图形窗体
06-05
VB编程源代码 02图形窗体VB编程源代码 02图形窗体VB编程源代码 02图形窗体VB编程源代码 02图形窗体VB编程源代码 02图形窗体VB编程源代码 02图形窗体VB编程源代码 02图形窗体VB编程源代码 02图形窗体VB编程源代码 02...
Direct2D 快速入门
萧戈的专栏
04-24 2130
Direct2D是一个用于创建2D图形的本地代码、即时模式API。本文演示了如何通过一个典型的Win32应用程序使用Direct2D绘制图像到窗口上。 本文包含以下部分： 画一个简单的矩形 步骤1:包含Direct2D头文件 步骤2:创建一个ID2D1Factory接口对象 步骤3:创建一个ID2D1HwndRenderTarget接口对象 步骤4:创建一个画刷对象 步骤5:绘制矩形 步骤6:释放资源 创建一个简单的Direct2D应用程序 画一个简单的矩形 要使用GDI绘制矩形，您需要
【DirectX 2D游戏编程基础】DirectX环境的搭建
Heaven
08-12 5143
首先，我们先回顾下我上个博客，关于手动建立一个win32 窗口的博客，在这里，我再写一遍昨天的代码，并且在这里面加几个函数，关于windows窗口的建立这部分代码，注释我就不写了，只是为了展示我的几个函数所加的位置 utility.h //-------Windows头及库文件------- #ifndef WINDOWS_PLATFORM_ #define WINDOWS_PLATFORM_
第六章 DirectX 2D游戏和帧动画（上）
konkon2012的博客
10-23 3760
目前，我们已经掌握了如何使用DirectX绘制四边形，纹理映射技术，以及正交摄像机的内容。对于2D游戏的开发，这些内容基本上已经足够了。2D游戏的本质就是图像游戏，2D游戏中的动画其实就是一系列连续动作的图像，称之为序列帧动画。这也是动画片制作的原理。在动画中，每一张图像就是一帧，为了让人们的眼睛感觉出这是一个连续的动作，需要在1秒钟之内至少要变化24帧，才能达到自然过渡的流畅效果。在游戏开发中，手机端至少要达到30帧，电脑端至少要达到60帧，在VR中至少要达到90帧。我们以电脑游戏为例，1秒钟内我们至少要
【DirectX 2D游戏开发基础】DirectX的应用实例
Heaven
08-26 1639
这次，主要就是利用前面几篇博客里面的例子，来做几个应用练习，主要就是，让图片闪烁，一次读取多张图片，和使用随机数随机读取图片（当然，这里的随机数用的是C语言，而不是C++的随机数引擎，但是原理是一样的），这次，我把我的代码工程上传上来，希望大家下载学习，毕竟 里面会涉及到一些资源问题，把代码复制去了，改起来挺麻烦也。地址：http://download.csdn.net/detail/shangd
VB6编程学习DX9游戏编程DirectX9编程2D小游戏源码冷风引擎CoolWind2D游戏引擎（1）
gosub60的博客
10-05 1141
DirectX9，DX9，VB6，小游戏编程入门学习
第六章 DirectX 2D游戏和帧动画（下）
konkon2012的博客
10-23 842
在2D游戏的实际开发中，很多人还是不怎么使用上面的精灵类，他们仍然坚持使用四边形纹理，只不过就此进行了封装，方便使用。接下来，我们新建一个项目“D3D_06_Mario”。在这个案例中，我们将实现一个简单的超级马里奥的游戏场景，这是一个2D场景。本案例的重点在于，随着马里奥角色的行走，正交摄像机也跟随移动。我们先看看本案例用到的素材： 首先，我们需要封装两个四边形纹理对象，一个是地图背景，一个是角色精灵。两个类的区别在于背景只有一个贴图，而角色精灵需要贴图序列完成动画。为了能够对头文件的统一引入，我.
Direct2D 介绍
萧戈的专栏
04-23 2812
最近做了一个项目，需要使用Windows的2D渲染技术，对GDI、Direct2D、Direct3D、opengl等图像渲染库做了一个比较，发现使用Direct2D是最优的。因为它既没有Direct3D和Opengl使用的复杂度，又具有硬件加速功能(GDI没有硬件加速功能)。所以最终决定使用Direct2D来作为本项目的图形渲染库，但是在使用Direct2D的时候发现了一个问题，就是网上关于Direct2D的学习资料太少了（在百度上搜索了一下，发现一本书籍也没有），唯一的学习资料就是MSDN。为了能让更多的
VB编程源代码 30各种算法图形及画笔
06-05
VB编程源代码 30各种算法图形及画笔VB编程源代码 30各种算法图形及画笔VB编程源代码 30各种算法图形及画笔VB编程源代码 30各种算法图形及画笔VB编程源代码 30各种算法图形及画笔VB编程源代码 30各种算法图形及画笔VB...
VB编程源代码 91带图形的ComboBox
06-06
VB编程源代码 91带图形的ComboBoxVB编程源代码 91带图形的ComboBoxVB编程源代码 91带图形的ComboBoxVB编程源代码 91带图形的ComboBoxVB编程源代码 91带图形的ComboBoxVB编程源代码 91带图形的ComboBoxVB编程源代码 ...
Windows Mobile 6 DirectX 2D
11-28
Windows Mobile 6 DirectX 2D源码，Windows Mobile,DirectX， Windows moible 2D游戏
dx9_2d_demo_game directx9实现2D游戏例程 Windows Develop
08-27
dx9_2d_demo_game directx9实现2D游戏例程 是一个用Direct9 写的一个2D 飞机游戏
DirectX2D支持库
07-24
DirectX2D支持库
DirectX2D UI模块.rar
04-04
DirectX2D UI模块.rar
利用DirectX技术开发2D冒险游戏源代码
07-25
利用DirectX技术开发2D冒险游戏源代码
vb资料大全.rar_VB 数据库_VB图形_VB资料_vb 图形控件_vb6 2d
07-15
内有VB分类资料，《VB精华文摘-窗体篇》《VB精华文摘-控件篇》《VB精华文摘-其他篇》《VB精华文摘-数据库篇》《VB精华文摘-图形篇》《VB精华文摘-网络篇》《VB精华文摘-文件篇》《VB精华文摘-系统篇》《VB精华文摘-...
VB-图形图像编程.pptx
11-17
VB-图形图像编程.pptx
用VB写高效的图像处理程序
nisikawaguti的专栏
01-29 5977
一、为什么这么慢？二、DIB的结构三、DIB访问函数四、实战练习五、使用DIBSection和模拟指针六、结合DirectX 一、为什么这么慢？　　自盘古开天地以来（好像夸张了点），一直有人抱怨VB程序速度慢。特别是图像处理，被认为是VB的禁区。说起来也是，市面上的关于V
VB 编写的一款矢量图制作工具源代码
05-10
VB 编写的一款矢量图制作工具源代码，功能很强，界面也很专业，是大家学习的好东西，在网上像这样的代码很难找到的哟！希望大家喜欢。
opengl vc vb 图形编程 pdf
最新发布
05-14
OpenGL是一种用于图形编程的跨平台的API，可以在各种操作系统和硬件平台上进行图形编程。它的设计目的是让开发者可以方便地创建高性能的3D图形应用程序。 VC（Visual C++）和VB（Visual Basic）是Microsoft开发的两...

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包

打赏作者

gosub60

你的鼓励将是我创作的最大动力

¥1 ¥2 ¥4 ¥6 ¥10 ¥20
扫码支付：¥1
获取中
扫码支付

您的余额不足，请更换扫码支付或充值

打赏作者

实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值