Jump to content

How to verify GUI input is blank or verify user input

Andy2520

By Andy2520
in AutoIt General Help and Support

 Share

Recommended Posts

Andy2520 Seeker

Andy2520

Posted
  • Author
Posted

Cant be bothered downloading.

If GuiCtrlRead($ctrl) <> "" Then _ItsNotBlank()

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <Constants.au3>
 
Dim $hMsg 
Dim $path
Dim $test
Dim $usrname ; get the user name 
Dim $mserver ;get server name
Dim $lpwd ;
Dim $Email
Dim $Empid
Dim $splitsrname
Dim $hButton
Dim $hButton2
Dim $intWindow
Dim $delwindow
Dim  $hInput;Email address
 
   $hGUI = GUICreate( "Lotus Notes Auto Config", 460, 189, -1, -1)
   $Empid = GUICtrlCreateLabel( "Enter TCS Emp ID :", 33, 30, 140, 27)
   GUICtrlSetFont( -1, 10, 800, 0)
   $hLabel2 = GUICtrlCreateLabel( "Enter Email Address :", 33, 64, 153, 27)
   GUICtrlSetFont( -1, 10, 800, 0)
   $hLabel3 = GUICtrlCreateLabel( "Enter Server Name :", 33, 102, 153, 27)
   GUICtrlSetFont( -1, 10, 800, 0)
   $hInput = GUICtrlCreateInput( "", 220, 30, 221, 27)
   $hInput2 = GUICtrlCreateInput( "", 220, 64, 221, 27)
   $hInput3 = GUICtrlCreateInput( "", 220, 102, 221, 27)
   $hButton = GUICtrlCreateButton( "OK", 82, 146, 96, 26)
   GUICtrlSetFont( -1, 8.5, 800, 0)
   $hButton2 = GUICtrlCreateButton( "Cancle", 228, 146, 98, 26)
   GUICtrlSetFont( -1, 8.5, 800, 0)
   $hLabel4 = GUICtrlCreateLabel( "(Eg.Inblrm06.tcs.com)", 42, 121, 117, 13)
   $hLabel5 = GUICtrlCreateLabel( "(Eg.first.last name@tcs.com )", 34, 85, 144, 17)
   
 
   GUISetState(@SW_SHOW)
While 1 
  $hMsg = GUIGetMsg()
Select
Case $hButton
 $Empid =GUICtrlRead($hInput)
  $mserver = GUICtrlRead($hInput3)
  $Email = GUICtrlRead($hInput2)
if $Empid ="" or $Email="" or $mserver="" Then
  MsgBox (4096,"Warning" ,"Empid cannot be blank " & @CRLF & " Try again ")
Else
 IDfile()
EndIf
Case $hButton2
ExitLoop
    EndSelect
   WEnd
 
Func Idfile()
$hGUI1 = GUICreate( "Lotus Notes Auto Config ", 394, 142, -1, -1)
$hLabel1 = GUICtrlCreateLabel( "Select Notes ID file ", 98, 16, 142, 27)
GUICtrlSetFont( -1, 10, 800, 0)
$hButton1 = GUICtrlCreateButton( "Browse", 53, 92, 96, 23)
GUICtrlSetFont( -1, 10, 800, 0)
$hButton21 = GUICtrlCreateButton( "Cancle", 229, 92, 95, 23)
GUICtrlSetFont( -1, 8.5, 800, 0)
$path = GUICtrlCreateInput( "", 19, 43, 349, 27)
GUISetState()
$hMsg1 = 0
While $hmsg1 <> $GUI_EVENT_CLOSE
$hMsg1 = GUIGetMsg()
Select
  Case $hmsg1 = $hButton1
  $File2open = FileOpenDialog ("Browse", "C:", "ID file  (*.nsf)") ;returns the file path
  GUICtrlSetData($path, $File2open) ;set input data
  $test = GUICtrlSetData($path, $File2open) 
  Case $hMsg1 = $hButton21
  GUIDelete($delwindow)
  return
EndSelect
Wend
EndFunc
Andy2520 Seeker

Andy2520

Posted
  • Author
Posted 

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <Constants.au3>

Dim $hMsg 
Dim $path
Dim $test
Dim $usrname ; get the user name 
Dim $mserver ;get server name
Dim $lpwd ;
Dim $Email
Dim $Empid
Dim $splitsrname
Dim $hButton
Dim $hButton2
Dim $intWindow
Dim $delwindow
Dim  $hInput;Email address

   $hGUI = GUICreate( "Lotus Notes Auto Config", 460, 189, -1, -1)
   $Empid = GUICtrlCreateLabel( "Enter TCS Emp ID :", 33, 30, 140, 27)
   GUICtrlSetFont( -1, 10, 800, 0)
   $hLabel2 = GUICtrlCreateLabel( "Enter Email Address :", 33, 64, 153, 27)
   GUICtrlSetFont( -1, 10, 800, 0)
   $hLabel3 = GUICtrlCreateLabel( "Enter Server Name :", 33, 102, 153, 27)
   GUICtrlSetFont( -1, 10, 800, 0)
   $hInput = GUICtrlCreateInput( "", 220, 30, 221, 27)
   $hInput2 = GUICtrlCreateInput( "", 220, 64, 221, 27)
   $hInput3 = GUICtrlCreateInput( "", 220, 102, 221, 27)
   $hButton = GUICtrlCreateButton( "OK", 82, 146, 96, 26)
   GUICtrlSetFont( -1, 8.5, 800, 0)
   $hButton2 = GUICtrlCreateButton( "Cancle", 228, 146, 98, 26)
   GUICtrlSetFont( -1, 8.5, 800, 0)
   $hLabel4 = GUICtrlCreateLabel( "(Eg.Inblrm06.tcs.com)", 42, 121, 117, 13)
   $hLabel5 = GUICtrlCreateLabel( "(Eg.first.last name@tcs.com )", 34, 85, 144, 17)
   
 
   GUISetState(@SW_SHOW)
While 1 
  $hMsg = GUIGetMsg()
    Select
    Case $hButton
              $Empid =GUICtrlRead($hInput)
               $mserver = GUICtrlRead($hInput3)
               $Email = GUICtrlRead($hInput2)
         if $Empid ="" or $Email="" or $mserver="" Then
           MsgBox (4096,"Warning" ,"Empid cannot be blank " & @CRLF & " Try again ")
            Else
              IDfile()
            EndIf
         Case $hButton2
            ExitLoop
    EndSelect
   WEnd

Func Idfile()
         $hGUI1 = GUICreate( "Lotus Notes Auto Config ", 394, 142, -1, -1)
         $hLabel1 = GUICtrlCreateLabel( "Select Notes ID file ", 98, 16, 142, 27)
         GUICtrlSetFont( -1, 10, 800, 0)
         $hButton1 = GUICtrlCreateButton( "Browse", 53, 92, 96, 23)
         GUICtrlSetFont( -1, 10, 800, 0)
         $hButton21 = GUICtrlCreateButton( "Cancle", 229, 92, 95, 23)
         GUICtrlSetFont( -1, 8.5, 800, 0)
         $path = GUICtrlCreateInput( "", 19, 43, 349, 27)
         GUISetState()
         $hMsg1 = 0
         While $hmsg1 <> $GUI_EVENT_CLOSE
            $hMsg1 = GUIGetMsg()
            Select
               Case $hmsg1 = $hButton1
               $File2open = FileOpenDialog ("Browse", "C:\", "ID file  (*.nsf)") ;returns the file path
               GUICtrlSetData($path, $File2open)                ;set input data
               $test = GUICtrlSetData($path, $File2open) 
               Case $hMsg1 = $hButton21
               GUIDelete($delwindow)
               return
            EndSelect
         Wend   
EndFunc

JohnOne Universalist

JohnOne

Posted
Posted 

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <Constants.au3>

Dim $hMsg
Dim $path
Dim $test
Dim $usrname ; get the user name
Dim $mserver ;get server name
Dim $lpwd ;
Dim $Email
Dim $Empid
Dim $splitsrname
Dim $hButton
Dim $hButton2
Dim $intWindow
Dim $delwindow
Dim $hInput;Email address

$hGUI = GUICreate("Lotus Notes Auto Config", 460, 189, -1, -1)
$Empid = GUICtrlCreateLabel("Enter TCS Emp ID :", 33, 30, 140, 27)
GUICtrlSetFont(-1, 10, 800, 0)
$hLabel2 = GUICtrlCreateLabel("Enter Email Address :", 33, 64, 153, 27)
GUICtrlSetFont(-1, 10, 800, 0)
$hLabel3 = GUICtrlCreateLabel("Enter Server Name :", 33, 102, 153, 27)
GUICtrlSetFont(-1, 10, 800, 0)
$hInput = GUICtrlCreateInput("", 220, 30, 221, 27)
$hInput2 = GUICtrlCreateInput("", 220, 64, 221, 27)
$hInput3 = GUICtrlCreateInput("", 220, 102, 221, 27)
$hButton = GUICtrlCreateButton("OK", 82, 146, 96, 26)
GUICtrlSetFont(-1, 8.5, 800, 0)
$hButton2 = GUICtrlCreateButton("Cancle", 228, 146, 98, 26)
GUICtrlSetFont(-1, 8.5, 800, 0)
$hLabel4 = GUICtrlCreateLabel("(Eg.Inblrm06.tcs.com)", 42, 121, 117, 13)
$hLabel5 = GUICtrlCreateLabel("(Eg.first.last name@tcs.com )", 34, 85, 144, 17)


GUISetState(@SW_SHOW)
While 1
    $hMsg = GUIGetMsg()
    Switch $hMsg ;<----------------------------------

        Case $hButton
            $Empid = GUICtrlRead($hInput)
            $mserver = GUICtrlRead($hInput3)
            $Email = GUICtrlRead($hInput2)
            If $Empid = "" Or $Email = "" Or $mserver = "" Then
                MsgBox(4096, "Warning", "Empid cannot be blank " & @CRLF & " Try again ")
            Else
                Idfile()
            EndIf
        Case $hButton2
            ExitLoop
    EndSwitch;<----------------------------------
WEnd

Func Idfile()
    $hGUI1 = GUICreate("Lotus Notes Auto Config ", 394, 142, -1, -1)
    $hLabel1 = GUICtrlCreateLabel("Select Notes ID file ", 98, 16, 142, 27)
    GUICtrlSetFont(-1, 10, 800, 0)
    $hButton1 = GUICtrlCreateButton("Browse", 53, 92, 96, 23)
    GUICtrlSetFont(-1, 10, 800, 0)
    $hButton21 = GUICtrlCreateButton("Cancle", 229, 92, 95, 23)
    GUICtrlSetFont(-1, 8.5, 800, 0)
    $path = GUICtrlCreateInput("", 19, 43, 349, 27)
    GUISetState()
    $hMsg1 = 0
    While $hMsg1 <> $GUI_EVENT_CLOSE
        $hMsg1 = GUIGetMsg()
        Select
            Case $hMsg1 = $hButton1
                $File2open = FileOpenDialog("Browse", "C:\", "ID file  (*.nsf)") ;returns the file path
                GUICtrlSetData($path, $File2open) ;set input data
                $test = GUICtrlSetData($path, $File2open)
            Case $hMsg1 = $hButton21
                GUIDelete($delwindow)
                Return
        EndSelect
    WEnd
EndFunc   ;==>Idfile

AutoIt Absolute Beginners    Require a serial    Pause Script    Video Tutorials by Morthawt   ipify 

Monkey's are, like, natures humans.

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share
Go to topic listing

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...