oops! This would be better!
<HTML>
<HEAD>
<TITLE>Alternate Dialog Box</TITLE>
<HTA:APPLICATION ID="oHTA"
APPLICATIONNAME=""
CAPTION="yes"
SYSMENU="yes"
MAXIMIZEBUTTON="no"
MINIMIZEBUTTON="no"
SHOWINTASKBAR="yes"
SINGLEINSTANCE="yes"
SCROLL="NO"
BORDER="dialog"
BORDERSTYLE="normal"
VERSION="1.0"
WINDOWSTATE="normal"
ICON="time.ico">
<SCRIPT LANGUAGE="VBSCRIPT">
option explicit
Sub test(ValIn)
stop
if ValIn = "Enter" then
if document.dialog.dialogresponse.value="" then
if msgbox( "No Data Entered, Try Again ?" ,vbYesNo)=vbYes then
Exit Sub
else
close
end if
End If
Else
close
End if
'use the filesystem object here to write to an RBase runnable file
'that will set an RBase Variable that you can reference in RBase
end sub
</SCRIPT>
</HEAD>
<BODY TOPMARGIN=20 LEFTMARGIN=40 BGCOLOR="#FFFFFF" LINK="#000066"
VLINK="#666666" TEXT="#000000">
<Form name="dialog">
<INPUT NAME="DialogResponse" TYPE="Text" Size="70" MAXlength="70" >
<table width="500">
<tr>
<td width="75%">
</td>
<td width="25%" align="right">
<INPUT TYPE=BUTTON VALUE="Enter" ONCLICK="test('Enter')">
<INPUT TYPE=BUTTON VALUE="Cancel" ONCLICK="test('Cancel')">
</td>
</table>
</Form>
</BODY>
</HTML>
----- Original Message -----
From: "tellef" <[EMAIL PROTECTED]>
To: "All" <[EMAIL PROTECTED]>
Sent: Thursday, October 25, 2001 2:17 PM
Subject: Width of dialog box
> Hello all!
>
> In RBWin 6.5++, latest version, the width of a Dialog box input area
> is apparently 50 characters. I need to ask the user for no more than
> 70 characters so it can be loaded into a TEXT 70 column. I can't do
> this in a 1-line dialog box because it stops at 50 characters even if
> I do an '=70', so I have to do:
> Dialog 'enter here'=70 vresp vendkey 2 <-- added the 2 for 2 lines
>
> But when I do this, they can type up to 100 characters! Is there
> another way to do this without designing a form for just one piece
> of information?
>
>
> Karen
>
