FiveTech Software tech support forums

This is a VBA Macro where I inserted some code to get all Emails from a folder. Regards Otto Sub SaveEmail() 'Declaration Dim itm As Outlook.MailItem Set olItms = Application.ActiveExplorer.CurrentFolder.Items On Error Resume Next For Each itm In olItms MsgBox (itm.SenderEmailAddress) ...

How to convert VB "set" function to Fivewin VB sample code 'Declare a Ribbon Bar object Dim RibbonBar As RibbonBar 'Add a Ribbon Bar to the command bars Set RibbonBar = CommandBars.AddRibbonBar("Ribbon Bar") 'Specify the Ribbon Bar is to use the stretched docking style. ...

... nil But could someone please tell me how to save and restore a part of the canvas / screen. oMeta1:bMMoved:={|y,x,flags| hairCross(y,x, oMeta1)} Dim ScreenSave func hairCross(x,y, oMeta1) restore = ScreenSave ScreenSave = save part of the screen where you draw the new line oMeta1:line (y,0,y,500) ...

... el código por si alguien pudiera traducirlo a nuestro lenguaje: -------------------------------------------------------------- Option Explicit Dim MyCDRW, MySource, MyCDNAME, MyDateCode, MyTarget Dim oShell, oApp, oFolder, vbShort ' Cambia estas tres variables acorde a las especificaciones ...

... di una funzione che restituisce la versione del driver amyuni di conversione emf->rtf Grazie in anticipo. Saluti Marco Turco ************ Dim CDIntfMajor As Long Dim CDIntfMinor As Long Dim PrinterDriverMajor As Long Dim PrinterDriverMinor As Long PDF.GetVersionInformation CDIntfMajor, ...

... Visit Our Home Page At: http://www.ntplx.net/~king '-- '--------------------------------------------------------------- Private Sub Form_Click() Dim retcode As Integer ' For Return Code From ZIP32.DLL Cls '-- Set Options - Only The Common Ones Are Shown Here '-- These Must Be Set Before Calling ...

Como se traduce esta instruccion para la variable MyField en fw+h ?

** from VB
Dim MyField As String
MyField = Chr$(&h0A)
MyEpsonFPControl.AddDataField MyField

any translation for MyField in fw+h ?

** from VB
Dim MyField As String
MyField = Chr$(&h0A)
MyEpsonFPControl.AddDataField MyField

... doing wrong with fivewin? The program crasses at runtime with the error: "Error description: Error Word.Basic/3 DISP_E_MEMBERNOTFOUND: INSERT" VB: Dim oWDBasic As Object Set oWDBasic = CreateObject("Word.Basic") oWDBasic.filenew oWDBasic.Insert "testdsf" oWDBasic.ToolsSpelling oWDBasic.EditSelectAll ...

Usa JRO (Jet and Replication Objects): The Vb code follows : Dim oJro As JRO.JetEngine Dim cnn1 As String, cnn2 As String ' Creamos un nuevo objeto JetEngine Set oJro = New JRO.JetEngine ' Cadena de conexión de origen cnn1 = "Provider=Microsoft.Jet.OLEDB.4.0;" ...