Guidance
指路人
g.yi.org
software / rapidq / Examples / File & Directory / Create Folder / NewFolder.bas

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

  
     $INCLUDE "createfolder.obj"
     DECLARE SUB buttonclick(sender AS QBUTTON)

     DIM form AS QFORM
     DIM button AS QBUTTON
     button.PARENT=form
     button.CAPTION="Create Folder"
     button.left=form.width/4
     button.top=form.height-100
     button.Onclick=buttonclick
     DIM edit AS QEDIT
     edit.PARENT=form
     edit.left=form.width/4
     edit.top=form.height/4
     DIM label AS QLABEL
     label.left=form.width/4
     label.CAPTION="Enter Dir for New Folder"
     label.PARENT=form

     form.SHOWMODAL

     SUB buttonclick(sender AS QBUTTON)
      hwnd=form.handle
      folder$=edit.text

      createnewfolder(folder$)
     END SUB
掌柜推荐
 
 
 
 
 
 
 
 
 
 
 
 
© Fri 2024-3-29  Guidance Laboratory Inc.
Email:webmaster1g.yi.org Hits:0 Last modified:2013-06-19 07:45:22