Hi Michel,
Thanks by your email.
Can you explain me with more detail, Please.
Thanks
Mauricio
-----Mensaje original-----
De: Michael Schatz <[EMAIL PROTECTED]>
Para: '[EMAIL PROTECTED]' <[EMAIL PROTECTED]>
Fecha: Jueves, 26 de Agosto de 1999 10:40 a.m.
Asunto: RE: Working with VB 6.0
>you need to enable the active x control in the form code. Even though the
>control is set to inable it is somehow disabled
>
>Michael
>
>-----Original Message-----
>From: Mauricio Flores [mailto:[EMAIL PROTECTED]]
>Sent: Wednesday, August 25, 1999 3:35 PM
>To: [EMAIL PROTECTED]
>Subject: Working with VB 6.0
>
>
>Hi
>
>I am working with SF 3.1 and VB 6.0.
>
>Please, somebody can help me...!
>
>
>I try use the Satellite Forms Activex control to work with Visual Basic 6.0
>
>I don�t know how work realty this solution.
>
>I prepared the program in VB, (declatarions, put de SF control on the FORM
>as a component, etc.)
>
>'Declarations *****************************************************
>'option compare database
>Option Explicit
>
>Public status_hotsyncstart As Integer
>Public status_hotsynccommandcomplete As Integer
>Public status_hotsyncend As Integer
>
>Public tablefilename_ctvcustomer As String
>Public hotsync_progress As String
>Public cmdcount As Integer
>
>
>' Form Load **********************************************************
>Private Sub Form_Load()
> status_hotsyncstart = 1 'As Integer
> status_hotsynccommandcomplete = 3 ' As Integer
> status_hotsyncend = 2 'As Integer
>
>
>
> tablefilename_ctvcustomer = "c:\customers\ctvcusto.dbf"
> hotsync_progress = "Begin"
> satforms.Enabled = True
>
>
>End Sub
>
>
>' Special Routine to use HotSync as Actuvex control
>********************************************
>
>Private Sub satforms_HotSyncStatus(ByVal StatusCode As Long, ByVal Param As
>Long)
>
> If StatusCode = status_hotsyncend Then
> hotsync_progress = "end"
> Exit Sub
> End If
> If StatusCode = status_hotsyncstart Then
> satforms.GetTableFromPalmPilot ("c:\customer\lolo.dbf")
> cmdcount = 1
> hotsync_progress = "A>B"
> End If
> StatusCode = status_hotsynccommandcomplete
>
>End Sub
>
>'**************************************************************************
*
>**************************
>
>My problem is:
>
>I must be call this routine with a button?
>
>I must be press Sync Button in pilot base station?
>
>How start the sync procedure with this Way?
>
>I need retrive the data file from the Pilot........!
>
>Mauricio
>
>
>
>
>
>
>
