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
Link to comment
Share on other sites
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

Link to comment
Share on other sites
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.

Link to comment
Share on other sites

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