要调用系统API,在.NET中没有直接获得的函数

解决方案 »

  1.   

    以前在visual 6.0 中,用API函数,在.NET中也可以用API函数
      

  2.   

    以下是VB的代码,你可以直接在vb生成项目以及代码
    然后在vb.net里面打开前面生成的代码,会升级,你就可以看到dotnet的代码Option ExplicitPrivate Declare Function SHAppBarMessage Lib "shell32.dll" _
       (ByVal dwMessage As Long, pData As APPBARDATA) As LongPrivate Type RECT
        Left As Long
        Top As Long
        Right As Long
        Bottom As Long
    End TypePrivate Type APPBARDATA
        cbSize As Long
        hwnd As Long
        uCallbackMessage As Long
        uEdge As Long
        rc As RECT
        lParam As Long
    End TypePrivate Const ABM_GETTASKBARPOS = &H5Private Sub Form_Load()
        Dim BD As APPBARDATA
        
        BD.cbSize = Len(BD)
        Call SHAppBarMessage(ABM_GETTASKBARPOS, BD)
        
        Debug.Print "Left:"; BD.rc.Left, _
                    "Top:"; BD.rc.Top, _
                    "Right:"; BD.rc.Right, _
                    "Bottom:"; BD.rc.Bottom
    End Sub