Karen,
  Put the following code in a text file and save it as SomeFileName.hta on
your desktop.  You can incorporate the following with the FileSystemObject
using examples (use the Message Box Sample) from my website to make a custom
dialog box. You can find out more about this at www.msdn.com  .  Look up
HyperText Application (HTA) to find the object model. You can pass in values
to this application object similar to VBScript.  I know the default box that
comes up is pretty generic, but you can manipulate the object to get what
you want.

<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
function test(ValIn)
  if ValIn = "Enter" then
    if document.dialog.dialogresponse.value="" then
      if msgbox( "No Data Entered, Try Again ?" ,vbYesNo)=vbYes then
      Exit Function
      end if
    else
      close
    End If
  Else
    close
   End if
end function
</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
>


Reply via email to