[pgadmin-hackers] =?iso-8859-1?Q?find_object_database_form?=

Fri, 31 Jan 2003 04:29:44 -0800 

I developed a find object database

frmmmain:
add menu tools FindObjDb

Private Sub mnuToolsFindObjDb_Click()
On Error GoTo Err_Handler
svr.LogEvent "Entering " & App.Title & ":frmMain.mnuToolsFindObjDb_Click()", 
etFullDebug
Dim objFindForm As New FrmFind
  Load objFindForm
  objFindForm.Initialise
  objFindForm.Show
  Exit Sub
Err_Handler: If Err.Number <> 0 Then LogError Err.Number, Err.Description, App.Title & 
":frmMain.mnuToolsFindObjDb_Click"
End Sub

modify visibility menu in program similar mnuPopupProperties





Bye !!
Frank Lupo (Wolf) !!

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




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

Sponsor:
Goditi il Cenone con tranquillit�, scaccia i sensi di colpa: Oliviero Linea 
Dimagrimento
Clicca qui: http://adv2.email.it/cgi-bin/foclick.cgi?mid=1075&d=31-1

Attachment: frmfind.zip
Description: Zip compressed data

---------------------------(end of broadcast)---------------------------
TIP 4: Don't 'kill -9' the postmaster

Reply via email to