ovalcmd.bas

来自「《管状换热器计算机辅助设计系统ExhCAD绘图系统(版本:1.01a Fina」· BAS 代码 · 共 50 行

Attribute VB_Name = "OvalMdl"
Public Declare Function CreateEllipticRgn Lib "gdi32" ( _
        ByVal X1 As Long, ByVal Y1 As Long, _
        ByVal X2 As Long, ByVal Y2 As Long) As Long


Public Declare Function SetWindowRgn Lib "user32" ( _
        ByVal hwnd As Long, ByVal hRgn As Long, _
        ByVal bedraw As Boolean) As Long
        
Public Declare Function GetCursorPos Lib "user32" ( _
       lpPoint As POINTAPI) As Long

Public Declare Function CreateRoundRectRgn Lib "gdi32" _
       ( _
       ByVal X1 As Long, ByVal Y1 As Long, _
       ByVal X2 As Long, ByVal Y2 As Long, _
       ByVal X3 As Long, ByVal Y3 As Long) As Long
       
Public Declare Function sndPlaySound Lib "winmm.dll" _
       Alias "sndPlaySoundA" ( _
       ByVal lpszSoundName As String, _
       ByVal uFlags As Long) As Long
    
Public Declare Function ShellExecute Lib "shell32.dll" Alias _
       "ShellExecuteA" ( _
          ByVal hwnd As Long, ByVal lpOperation _
          As String, ByVal lpFile As String, _
          ByVal lpParameters As String, _
          ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long


       
Public Type POINTAPI
    X As Long
    Y As Long
End Type

Public File_Name As String
Public Tip_String As String
Public TipWidth As Long

Public ShowTip As Boolean

Public Const SND_ASYNC = &H1

Public Const SND_MEMORY = &H4