VB API 中级入门(接VB API初级入门)(一)

时　间:2008-05-06 08:20:18
作　者:UMVSOFT整理   ID：16  城市：江阴
摘　要:VB API 中级入门(接VB API初级入门)(一)

正　文:

 一、API的类型结构。


            API的类型结构与VB中差不多，一般声明时使用Type定义类型。如果你不懂的话麻烦你先打开你的VB入门教程书看看。好了，文字理论咋不多说，用实例证实理论（偶喜欢这句话）。


        1,在Form窗体上用API画文字，最初了解类型结构填充


            ;Private Declare Function DrawText Lib "user32" Alias "DrawTextA" (ByVal hdc As Long, ByVal lpStr As String, ByVal nCount As Long, lpRect As RECT, ByVal wFormat As Long) As Long

        ;Private Const DT_CENTER = &H1

        ;Private Type RECT
                    Left As Long
                    Top As Long
                    Right As Long
                    Bottom As Long
        End Type


        Private Sub Form_Load()
                Dim lpRect As RECT

                    Me.AutoRedraw = True
                Me.ScaleMode = 3
                            '填充结构
                With lpRect
                    .Left = 0
                    .Top = 0
                    .Right = Me.ScaleWidth
                    .Bottom = Me.ScaleHeight
            End With

                    DrawText Me.hdc, "这是文字效果", -1, lpRect, DT_CENTER
        End Sub


            好了，咱们开始分析，首先看Form_Load里面的代码。


            Dim lpRect As RECT。这一句是声明一个RECT自定义类型，这个类型可在VB浏览器的类型中找到。


            Me.AutoRedraw = True。这一句其实就是设置当前窗体的AutoRedraw属性，设为True，表示持久输出图像。不懂查帮助。


            Me.ScaleMode = 3。设置当前窗体的像素模式。至于为啥要设置为3,下面将会讲到。


            With lpRect...End With。从With 到 End With为填充咱们声明的lpRect类型结构。具体看里面的。


            .Left=0。这里相当于x坐标的初始值。


            .Top=0。这里相当于y坐标的初始值。


            .Right = Me.ScaleWidth。Right表示从Left开始的宽度。这里赋值为Me.ScaleWidth表示当前窗体像素的宽度。


            .Bottom = Me.ScaleHeight。同上。Bottom表示从Top开始的高度。Me.ScaleHeight表示当前窗体像素的高度。


   &n

Access软件网官方交流QQ群 (群号:483923997) 　　　　　　Access源码网店