home *** CD-ROM | disk | FTP | other *** search
/ Chip 2001 February / Chip_2001-02_cd1.bin / sharewar / vecad / examples / vb / editor / DwgProc.bas < prev    next >
BASIC Source File  |  2000-09-01  |  1KB  |  45 lines
  1. Attribute VB_Name = "Module1"
  2.  
  3. Function DwgProc(ByVal hDwg As Long, ByVal Msg As Long, ByVal Prm1 As Long, ByVal Prm2 As Long, ByVal Prm3 As Double, ByVal Prm4 As Double, Prm5 As String) As Long
  4.   DwgProc = 0
  5.   Select Case Msg
  6.     Case VM_GETSTRING
  7.       DwgProc = LoadString(Prm1)
  8.     
  9.     Case VM_OBJSELECT
  10.       If (Prm1 = VL_OBJ_PAGE) Then
  11.         UpdateMainTitle
  12.       End If
  13.  
  14.     Case VM_DWGLOADED
  15.       ' here filename can be saved to MRU list
  16.       ' gMruList.Add( (LPCTSTR)Prm5 );
  17.       UpdateMainTitle
  18.       
  19.     Case VM_DWGSAVED:
  20.       ' here filename can be saved to MRU list
  21.       ' gMruList.Add( (LPCTSTR)Prm5 );
  22.       UpdateMainTitle
  23.     
  24.     Case VM_DWGSELECT
  25.       UpdateMainTitle
  26.  
  27.     Case VM_DWGLOADING
  28.     Case VM_DWGSAVING
  29.       '_stprintf( szStr, _T("Loading: %d%%"), Prm1 );
  30.       'vlStatBarSetText( VL_SB_COORD, szStr );
  31.       
  32.     Case VM_EXECUTE
  33.       If (Prm2 <> 0 And (Prm1 = VC_FILE_NEW Or Prm1 = VC_FILE_OPEN)) Then
  34.         Select Case Prm1
  35.           Case VC_FILE_NEW
  36.             FileNew
  37.           Case VC_FILE_OPEN
  38.             FileOpen
  39.         End Select
  40.       End If
  41.   End Select
  42. End Function
  43.  
  44.  
  45.