Hello
if Class1 & Class2 are External, I this that is register in ur system,
Please go to project reference, search these dll there and select that
then try
Faisal
hi Faisal,
wen i compile tis code i m gettting the error user defined type not defined.
Option Explicit
Dim fso As New FileSystemObject
Dim TS As TextStream
Dim TS1 As TextStream
Dim TEMP1$, TEMP2$
Private mvarFILE_NAME As String 'local copy
Dim X&, Y&
Dim R&, G&, B&
Dim IMAGE_HEIGHT&
Public Sub loadImage(FRM As Form, PB As PictureBox) 'To load the picture
On Error GoTo ERR
PB.Picture = LoadPicture(mvarFILE_NAME)
FRM.Width = PB.Width + 100
FRM.Height = PB.Height + 400
FRM.Visible = True
noOfForms = noOfForms + 1
With MDIForm1.tbrFile
.Buttons(2).Enabled = True
.Buttons(4).Enabled = True
.Buttons(6).Enabled = True
End With
With MDIForm1.tbrEdit
.Buttons(4).Enabled = True
End With
Exit Sub
ERR:
Unload FRM
MsgBox ERR.Description, vbCritical, "Unable to load the image"
Set TS = fso.OpenTextFile(App.Path & "\FILES_OPENED.TXT", ForReading, True)
Set TS1 = fso.OpenTextFile(App.Path & "\TEMP.TXT", ForWriting, True)
X = 1
While Not TS.AtEndOfLine
TEMP1 = TS.ReadLine
TEMP2 = Mid(TEMP1, InStr(1, TEMP1, ".") + 1, Len(TEMP1))
'TEMP2 = Mid(TEMP1, 4, Len(TEMP1))
If mvarFILE_NAME = TEMP2 Then
'MsgBox "DELETED"
Else
TEMP2 = "&" & X & "." & TEMP2
TS1.WriteLine (TEMP2)
MDIForm1.mnuFileFileopened(X).Caption = TEMP2
X = X + 1
End If
Wend
MDIForm1.mnuFileFileopened(X).Visible = False
Unload MDIForm1.mnuFileFileopened(X)
If X = 1 Then
MDIForm1.mnuFileBar5.Visible = False
Else
MDIForm1.mnuFileBar5.Visible = True
End If
FO_INDEX = X
TS.Close
TS1.Close
fso.DeleteFile App.Path & "\FILES_OPENED.TXT"
fso.MoveFile App.Path & "\TEMP.TXT", App.Path & "\FILES_OPENED.TXT"
End Sub
Public Property Let FILE_NAME(ByVal vData As String)
mvarFILE_NAME = vData
End Property
in 2nd ,3rd, line.wat apppropriate dll shld i add in the reference.how will i find wat is appropriate reference.