以下是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
然后在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