Guidance
指路人
g.yi.org
software / rapidq / Examples / Win32API & DLL / DLLcomp / DLLcomp.rqb

Register 
新用户注册
Search 搜索
首页 
Home Home
Software
Upload

  
     $TYPECHECK ON
     $OPTIMIZE ON

     DECLARE FUNCTION CreateEdit LIB "DLLcomp.dll" ALIAS "CreateEdit"(hInst AS LONG, hParent AS LONG) AS LONG

     DECLARE SUB Button1Click (Sender AS QBUTTON)
     DECLARE SUB onKey

     CREATE Form AS QFORM
      CAPTION = "Form1"
      Width = 450
      Height = 240
      Center
      CREATE Button1 AS QBUTTON
       CAPTION = "Button1"
       Left = 113
       Top = 154
       OnClick = Button1Click
      END CREATE
     END CREATE

'Insert your initialization code here

'showMessage str$(Application.Hinstance)
     DIM hDLL AS LONG
     hDLL = LIBRARYINST("DLLcomp.dll")
     DIM hEdit AS LONG
     hEdit = CreateEdit(Application.Hinstance, Form.handle)

     Form.SHOWMODAL

     UNLOADLIBRARY("DLLcomp.dll")
'--------- Subroutines ---------

     SUB Button1Click (Sender AS QBUTTON)
     END SUB

掌柜推荐
 
 
 
 
 
 
 
 
 
 
 
 
© Thu 2021-10-21  Guidance Laboratory Inc.
Email:webmaster1g.yi.org Hits:0 Last modified:2001-10-25 20:29:00