重分求解：下列dll里的结构，函数，回调函数怎么在VB里声明后使用？

typedef   int (*   PS_PROGRESS)(int,LPARAM);  
   
  typedef   struct   tag_TextInfo  
  {  
  char szCaption[MAX_PATH];  
  LOGFONT lfTextFont;  
  COLORREF         clFontColor;  
  BYTE                 btPosition;  
  BYTE                 btAlignType;  
  }PS_TEXT,   *LP_PS_TEXT;  
   
   
   
  int   PS_AddPhoto(char   *szPhotoFile,   DWORD   dwPhotoDuration,     char   *szTransName,   DWORD dwMode,   DWORD dwTransDuration,   LP_PS_TEXT   lpText,     LPRECT lpPhotoCropRect);  
  int   PS_AddMusic(char   *szMusicFile,   DWORD   dwLength   =   0);  
  int   PS_MakeMovie(char   *szMovieFile,   DWORD   dwTVMode,   DWORD               dwMovieType,   PS_PROGRESS   fpProgress);  
   
   
  问题点数：100、回复次数：4Top

1 楼truewill（无处不在）回复于 2006-03-03 20:55:49 得分 100

Public   Type   LOGFONT  
                  lfHeight   As   Long  
                  lfWidth   As   Long  
                  lfEscapement   As   Long  
                  lfOrientation   As   Long  
                  lfWeight   As   Long  
                  lfItalic   As   Byte  
                  lfUnderline   As   Byte  
                  lfStrikeOut   As   Byte  
                  lfCharSet   As   Byte  
                  lfOutPrecision   As   Byte  
                  lfClipPrecision   As   Byte  
                  lfQuality   As   Byte  
                  lfPitchAndFamily   As   Byte  
                  lfFaceName(1   To   LF_FACESIZE)   As   Byte  
  End   Type  
  Top

2 楼truewill（无处不在）回复于 2006-03-03 20:57:58 得分 0

type   PS_TEXT  
  szCaption(1   to   MAX_PATH)   as   byte  
  lfTextFont   as   logfont  
  clFontColor   as   long  
  btPosition   as   byte  
  btAlignType   as   byte  
  end   type  
  Top

3 楼truewill（无处不在）回复于 2006-03-03 21:00:39 得分 0

Public   Declare   Function   PS_AddPhoto   Lib   "XXXX.dll"   (byval   szPhotoFile   as   string,   byval   dwPhotoDuration   as   long,   byval   szTransName   as   string,   byval   dwMode   as   long,   byval   dwTransDuration   as   long,   byref   lpText   as   PS_TEXT,     byref   lpPhotoCropRect   as   RECT)   as   longTop

4 楼superinsect（superinsect）回复于 2006-03-03 22:52:55 得分 0

谢谢你的回复，但我编译的时候会出错Top

相关问题

• ps
• byval
• byte
• long
• dword
• char
• text

• 帖主：superinsect
• truewill

• Visual Basic类图书
• Visual Basic类源码下载