AlphaActionSample Example for Visual Basic

LEADRasterContainerViewer1.EnableMethodErrors = True

   ' Activate Alpha action
   If LEADRasterContainerViewer1.AlphaAction.Use = False Then
      LEADRasterContainerViewer1.AlphaAction.ActivateAction True, 0
   End If
   ' Select left mouse button to control window level parameters. 
   LEADRasterContainerViewer1.AlphaAction.SetMouseButtonAction CONVIEW_MOUSE_BUTTON_LEFT, CONVIEW_ACTION_ACTIVEONLY Or CONVIEW_ACTION_REALTIME

   ' Select left, right, up, and down keys to control Alpha parameters. 
   LEADRasterContainerViewer1.AlphaAction.Modifier = CONVIEW_KEY_ALT
   LEADRasterContainerViewer1.AlphaAction.Key = vbKeyDown
   LEADRasterContainerViewer1.AlphaAction.SetKeyboardAction CONVIEW_MOUSEMOVE_DOWN
   LEADRasterContainerViewer1.AlphaAction.Key = vbKeyUp
   LEADRasterContainerViewer1.AlphaAction.SetKeyboardAction CONVIEW_MOUSEMOVE_UP

   ' Select Alpha cursor. 
      
   LEADRasterContainerViewer1.AlphaAction.Cursor = LoadPicture("C:\WINNT\Cursors\h_move.cur")

   ' Specify Alpha parameters. 
   LEADRasterContainerViewer1.AlphaAction.Change = 100
   LEADRasterContainerViewer1.AlphaAction.CircularMouseMove = True
   
   ' Set Alpha parameters. 
   LEADRasterContainerViewer1.AlphaAction.SetAction 0, 0, CONVIEW_ACTIONLEVEL_CONTAINER