'***********EDMpuntr code********************** Option Explicit Private WithEvents weEDMConnector As EDMConnector Private Sub weEDMConnector_EDMDone() Unload frmEDMPunt End Sub Private Sub Form_Load() Set weEDMConnector = New EDMConnector frmEDMPunt.Text1.Text = UCase(Command()) weEDMConnector.ImageView frmEDMPunt.Text1.Text End Sub
‘************EDMviewr code **************** 'The FORM has a picture box and menus 'CLASS MODULE Public Sub ImageView(ImagePath As String) frmMain.Caption = "EDM Main - ImageView " & ImagePath frmMain.oleImgAdmin1.Image = ImagePath frmMain.oleImgEdit1.Image = ImagePath frmMain.oleImgEdit1.FitTo 0, False 'BestFit don't display frmMain.oleImgEdit1.Display RaiseEvent EDMDone End Sub
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)