Re: add scroll frmtable

>
>
> > -----Original Message-----
> > From: frank_lupo [mailto:frank_lupo(at)email(dot)it]
> > Sent: 19 March 2003 17:18
> > To: Dave Page
> > Cc: pgadmin-hackers
> > Subject: RE: [pgadmin-hackers] add scroll frmtable
> >
> >
> > Hi dave
>
> > change the top position
> > from :
> ...
> > OK for Column,ForeignKey,Rule,Trigger,Index
> ...
> > Now Verify
> ...
>
> Hi Frank,
>
> That looks excellent, it works really well in the IDE.
>
> The only problem is that is doesn't compile :-(. Because VB runs the
> usercontrol when it builds it, it fails to access the ctx object from
> the Initialize subroutine. Any ideas?
>
> Regards, Dave.
>
>
> ---------------------------(end of broadcast)---------------------------
> TIP 4: Don't 'kill -9' the postmaster
>

The problem is when compile VB, Initialize usercontrol which is present in frmdummy. When Initialize form the frmmain.svr object is not Initialize.

Private Sub UserControl_Initialize()
If inIDE Then: On Error GoTo 0: Else: On Error GoTo Err_Handler
If Not frmMain.svr Is Nothing Then
frmMain.svr.LogEvent "Entering " & App.Title & ":ScrollObjDb.UserControl_Initialize()", etFullDebug
End If

szDatabase = ctx.CurrentDB
szNamespace = ctx.CurrentNS

If Len(Trim(szDatabase)) <= 0 Then Exit Sub

'save table name if object depend of table
Select Case ctx.CurrentObject.ObjectType
Case "Column", "ForeignKey", "Rule", "Trigger", "Index"
szTable = ctx.CurrentObject.Table
End Select

Exit Sub
Err_Handler: If Err.Number <> 0 Then LogError Err.Number, Err.Description, App.Title & ":ScrollObjDb.UserControl_Initialize"
End Sub

Bye !!
Frank Lupo (Wolf) !!

/\_ _/\
\ o o /
--ooo-----ooo---

--
Prendi GRATIS l'email universale che... risparmia: http://www.email.it/f

Sponsor:
Fatti del male. Lascia perdere www.gratis.it.
Clicca qui: http://adv.email.it/cgi-bin/foclick.cgi?mid=725&d=24-3