Guidance
指路人
g.yi.org
software / rapidq / Examples / Date & Time / A complete PRG / api.bas

Register 
注册
Search 搜索
首页 
Home Home
Software
Upload

  
'*****************************************************************************'
'CODER : Victor Garnier (FRANCE).                                             '
'CODER EMAIL : victor.garnier@ifrance.com                                     '
'REALEASE DATE : 15/10/2002                                                   '

'-----------------------------------------------------------------------------'
     $DEFINE MAX_PATH 260

'----------------------------------------------------------------
'api pour savoir si le programme est déjà ouvert.
     CONST rqClassName = "TForm"        '-- Classname for all Rapid-Q programs
     DECLARE FUNCTION FindWindow LIB "USER32" ALIAS "FindWindowA" _
      (className AS STRING, windowName AS STRING) AS INTEGER

'----------------------------------------------------------------
'Pour l'affichage de la Bte de dialogue Selection & Création
'D'un dossier
     Private TYPE BrowseInfo
     hWndOwner AS LONG
     pIDLRoot AS LONG
     pszDisplayName AS LONG
     lpszTitle AS LONG
     ulFlags AS LONG
     lpfnCallback AS LONG
     lParam AS LONG
     iImage AS LONG
     END TYPE

     CONST BIF_USENEWUI = &H40

     Private DECLARE FUNCTION lstrcat LIB "kernel32" ALIAS "lstrcatA" (BYVAL lpString1 AS STRING, BYVAL lpString2 AS STRING) AS LONG
     Private DECLARE FUNCTION SHBrowseForFolder LIB "shell32" ALIAS "SHBrowseForFolderA"(lpbi AS BrowseInfo) AS LONG
     Private DECLARE FUNCTION SHGetPathFromIDList LIB "shell32" ALIAS "SHGetPathFromIDListA"(BYVAL pidList AS LONG, BYVAL lpBuffer AS STRING) AS LONG
     Private DECLARE SUB CoTaskMemFree LIB "ole32.dll" ALIAS "CoTaskMemFree"(BYVAL hMem AS LONG)



'----------------------------------------------------------------
'Permet de donner le focus à un contrôle RQ
     Private DECLARE FUNCTION Setfocus LIB "user32" ALIAS "SetFocus"(hwnd AS LONG) AS LONG


'Alignement des colonnes du listview...

     CONST LVM_SETCOLUMN = 4122

     CONST LVCF_FMT = 1
     CONST LVCF_WIDTH = 2
     CONST LVCF_TEXT = 4
     CONST LVCF_SUBITEM = 8

     CONST LVCFMT_LEFT = 0
     CONST LVCFMT_RIGHT = 1
     CONST LVCFMT_CENTER = 2
     CONST LVCFMT_JUSTIFYMASK = 3
'---------------------------------------------------------------------

     TYPE tLVCOLUMN
      mask AS LONG
      fmt AS LONG
      cx AS LONG
      pszText AS STRING * 32
      cchTextMax AS LONG
      iSubItem AS LONG
      iImage AS LONG
      iOrder AS LONG
     END TYPE
'---------------------------------------------------------------------

     DECLARE FUNCTION SM LIB "user32" ALIAS "SendMessageA" _
      (BYVAL hwnd AS LONG, _
      BYVAL wMsg AS LONG, _
      BYVAL wParam AS INTEGER, _
      BYVAL lParam AS LONG _
      ) AS LONG

     DECLARE FUNCTION RedrawWin LIB "user32" ALIAS "RedrawWindow" _
      (BYVAL hwnd AS LONG, _
      lprcUpdate AS LONG, _
      BYVAL hrgnUpdate AS LONG, _
      BYVAL fuRedraw AS LONG _
      ) AS LONG

'---------------------------------------------------------------------
掌柜推荐
 
 
 
 
 
 
 
 
 
 
 
 
© Thu 2023-2-9  Guidance Laboratory Inc.
Email:webmaster1g.yi.org Hits:0 Last modified:2002-10-15 13:08:26