Guidance
指路人
g.yi.org
software / rapidq / Examples / QObject / Object / QDriveCombobox.inc

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

  
'=======================================================
' Type Objet
' Classe QDriveCombobox
'=======================================================

     DECLARE FUNCTION GetDriveType LIB "kernel32" ALIAS "GetDriveTypeA" (nDrive AS STRING) AS LONG

     TYPE QDriveComboBox EXTENDS QCOMBOBOX
  '=========================================
  ' méthode reception des lecteurs présents
  '=========================================
      SUB GetDrives
       DIM ASC_A AS INTEGER
       DIM ASC_Z AS INTEGER
       DIM i AS INTEGER
       DIM name AS STRING

       ASC_A=65
       ASC_Z=ASC_A+25
       FOR i=ASC_A TO ASC_Z
        IF GetDriveType(CHR$(i)&":\")<>1 THEN
         name=CHR$(i)+":\"
         QDriveComboBox.AddItems name
        END IF
       NEXT i
       QDriveComboBox.ItemIndex=0
      END SUB

      SUB AddItems
      END SUB

      SUB DelItems
      END SUB

      SUB Clear
      END SUB
  '-- Default values
      CONSTRUCTOR
      END CONSTRUCTOR
     END TYPE
掌柜推荐
 
 
 
 
 
 
 
 
 
 
 
 
© Sat 2023-2-4  Guidance Laboratory Inc.
Email:webmaster1g.yi.org Hits:0 Last modified:2001-05-23 18:33:18