Search results for query: *

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...

Hi I think it is something like this you mean. I have shown you a couple of functions to handle the checkbox. Hope it helps. Declare Function DlgFunction(identifier$, action, suppvalue) Sub Main Begin Dialog Dialog1 186, 50, .DlgFunction OkButton 130, 6, 50, 14 TextBox...

Sorry, just realize the function was called SendControlKey, so the first function should not use SendControlKey, but the Sendkeys function instead. Also, if you want a function to handle more ControlKeys, then you can make a function with an argument for the Controlkey, and then have a Switch...

Have never used Attachmate Reflection, but can't you make a function to do the job like, Declare Function sendkey(key) Function sendkey(key) ibm.CurrentScreen.SendControlKey(key) End Function or if you want a Function, just for tab, then Declare Function sendtab() Function sendtab()...

In the function FileDlgFunction, I make the corresponding field marked. When it is action case five for the Dialog, it always happens. So when you move yoru mouse around it can flicker yes, don't know if you can remove that. I believe it won't flicker if you keep your mouse still, but not sure...

To me it sounds like you want a dialogbox to show your results in a nice way. This is a way to do it. Dim variables(11) as string, result(11) as string, yesno(1) as string Dim iRepurchase as integer, iWellsOwned as integer, iCoLoss as integer, iWOEPBO as integer, iRSI as integer, iREO as...