Recent content by Lakare

Do you write the square brackets? The square brackets just mean it is optional and shall not be a part of the code. Regards Lakare

Hey smiler44, Begin Dialog DialogName [x, y,] dx, dy [, caption$] [,.dialogfunction] © 1996 - 2004, Attachmate Corporation. All rights reserved. (x,y) = Position of dialog relative to upper left cornor of parent window (dx,dy) = Size of window caption = Text in top of...

Hi smiler44, I have made a simple example of how to 'fake' several pages in a dialog, by letting the dialog stay open when the buttons "Back" and "Forward" are pressed. Declare Function DlgFunction(identifier$, action, suppvalue) 'Declare the function Dim pagenr As Integer Sub Main...

InStr(string1, string2) Return where in string1, string2 is. If string2 is not in string1 it returns 0. Regards Lakare

Jonats, You should be able to change, Buffer$ = Buffer$ & objAttachScreen.GetString(1,1, BufferSize%) with Dim area As Object Set area = objAttachScreen.Select(1, 1, 1, BufferSize%) Buffer$ = Buffer$ & area even though its a bit more complicated. Lakare

Hey jonats Don't know if is works, but have you tried Dim area As Object Set area = Sess0.Screen.Select(StartRow, StartCol, EndRow, EndCol) Lakare

Hey, As far as I know, it is only able to handle ASCII and ANSI, and not utf-8 characters. Sorry, hope you can find a solution. Lakare

Hey Maybe you mean something like this? Dim cursor_position(1) As Integer cursor_position(0) = Sess0.Screen.row cursor_position(1) = Sess0.Screen.col Then you got your position of your cursor. Lakare

Hey Don't why you can't step through your second sub, but if you put your 'Dim' statements outside the sub, the variables will become public for all Subs and Functions to use, so you won't need to define and assign the values a second time. The assignments need to be inside a Function or Sub...

Hi, As an alternative to the commas, you can do this data = Sess0.Screen.GetString(6,66,14) net=trim(Getfield(data,1,",") + Getfield(data,2,",") + Getfield(data,3,",")) data = Sess0.Screen.GetString(7,66,14) pen=trim(Getfield(data,1,",") + Getfield(data,2,",") + Getfield(data,3,",")) data =...

This opens a new mail, not sure how to take control of an allready open mail. On Error GoTo SendMail_Err NL = Chr (13) + Chr (10) Set oOutlook = CreateObject("Outlook.Application") Set oMailItem = oOutlook.CreateItem(olMailItem) With oMailItem .Display 'Show it, don't know why it...

I'm sure there is a better way to do it, but this function takes a line number as input and returns the extracted line. Declare Function extractline(lineNumber) Function extractline(lineNumber) filename = "<filename>" OPEN filename For Input As #1 Dim i as integer...

Have you tried to make a HostOptions Object first? Doing something like this should create your HostOptions object, and then you should be able to use the Lines function. Dim Hostoption as Object Set Hostoption = Sess0.Screen.HostOptions Lakare

First of all. Case 1 'Initialisation DlgValue("MakeComboBox"),0 needs to be in two lines, like this Case 1 'Initialisation DlgValue("MakeComboBox"),0 Second, does the whole function show as a compile error, or just a single line? DlgValue("MakeComboBox"),0 And have you tried to...

This should do it. Declare Function dlgFunction(identifier$, action, suppvalue) Sub Main Dim Make(2) as String Make(0) = "Sedan" Make(1) = "Truck" Make(2) = "SUV" Begin Dialog dlgOptions 10, 28, 100, 100, "Select", .dlgFunction OkButton 60, 20, 20, 10,.btnOK...