Jump to content

Edit box cuts off, and if there is a line break does not add info below break.

Klexen

By Klexen,
in AutoIt GUI Help and Support

 Share

Recommended Posts

Klexen Prodigy

Klexen

Posted
Posted (edited)

When I add a new customer and the "Notes" are too long, they get cut off. If I submitted a note that was too long, and try to remove the entry. It does not fully remove. Also if I type 1 line in the notesbox, and do not let it wrap, just hit enter to start new line. Notes only records first line, it ignores any line underneath. Can someone please tell me how to correct this?

Thanks!

CODE
#include <GuiConstants.au3>

#include <IE.au3>

#Include <File.au3>

#Include <GuiListView.au3>

Dim $data_Location = @ScriptDir & "\Data\"

Dim $File_Location = @ScriptDir & "\Data\Customerinfo.ini"

Dim $num = 0, $Input[15], $data_[15]

DirGetSize($data_Location)

If @error = 1 Then

DirCreate($data_Location)

EndIf

Opt("GUIOnEventMode", 1) ; Change to OnEvent mode

$gui = GUICreate("DellServ Notes", 410, 600)

GUISetBkColor (0xE1E9F6)

#cs

Get tech login information.

#ce

GUICtrlCreateGroup("Dellserv Login :", 5, 5, 400, 65)

GUICtrlCreateLabel("User ID :", 10, 23)

$Input[1] = GUICtrlCreateInput("", 10, 38, 100)

GUICtrlCreateLabel("Password :", 130, 23)

$Input[2] = GUICtrlCreateInput("", 130, 38, 100, -1, $ES_PASSWORD)

GUICtrlCreateLabel("Badge ID :", 250, 23)

$Input[3] = GUICtrlCreateInput("", 250, 38, 100)

#cs

How to look up customer.

#ce

GUICtrlCreateGroup("Look up customer by :", 5, 75, 400, 65)

GUICtrlCreateLabel("ServiceTag :", 10, 90)

$Input[4] = GUICtrlCreateInput("", 10, 105, 100)

GUICtrlCreateLabel("Case Number :", 130, 90)

$Input[5] = GUICtrlCreateInput("", 130, 105, 100)

GUICtrlCreateLabel("DPS Number :", 250, 90)

$Input[6] = GUICtrlCreateInput("", 250, 105, 100)

#cs

Get customer information.

#ce

GUICtrlCreateGroup("Customer Information :", 5, 150, 400, 107)

GUICtrlCreateLabel("First Name :", 10, 165)

$Input[7] = GUICtrlCreateInput("", 10, 180, 100)

GUICtrlCreateLabel("Last Name :", 130, 165)

$Input[8] = GUICtrlCreateInput("", 130, 180, 100)

GUICtrlCreateLabel("Customer Email :", 250, 165)

$Input[9] = GUICtrlCreateInput("", 250, 180, 100)

GUICtrlCreateLabel("Phone Number :", 10, 210)

$Input[10] = GUICtrlCreateInput("", 10, 225, 100)

GUICtrlCreateLabel("Alt. Phone Number :", 130, 210)

$Input[11] = GUICtrlCreateInput("", 130, 225, 100)

$FusionIt = GUICtrlCreateCheckbox ("Fusion It", 10, 265, 55, 20)

GUICtrlCreateLabel("Problem Summary :", 10, 290)

$Input[12] = GUICtrlCreateInput("", 10, 310, 390)

GUICtrlCreateGroup("DellServ Notes :", 5, 345, 400, 175)

$NotesBox = GUICtrlCreateEdit("", 10, 360, 390, 150,BitOr($ES_MULTILINE, $WS_VSCROLL))

$btnCase = GUICtrlCreateButton("Create New Case", 50, 530, 100)

$btnjournal = GUICtrlCreateButton("Create New Journal", 155, 530, 100)

$btnGetlist = GUICtrlCreateButton("Find Customer", 260, 530, 100)

$btnSave = GUICtrlCreateButton("Save", 50, 560, 100)

$btnClose = GUICtrlCreateButton("Close", 155, 560, 100)

$btnClear = GUICtrlCreateButton("Clear", 260, 560, 100)

$btnRemove = GUICtrlCreateButton("Del", 365, 560, 25)

GUICtrlSetOnEvent($btnCase, "NewCase_Button")

GUICtrlSetOnEvent($btnClose, "CleanExit")

GUICtrlSetOnEvent($btnjournal, "NewJournal_Button")

GUICtrlSetOnEvent($btnSave, "Save_Button")

GUICtrlSetOnEvent($btnGetlist, "Get_List")

GUICtrlSetOnEvent($btnClear, "Clear_Fields")

GUICtrlSetOnEvent($btnRemove, "Remove_Entry")

GUISetOnEvent($GUI_EVENT_CLOSE, "CleanExit")

;GUISetOnEvent($GUI_EVENT_MINIMIZE,"Hide_to_tray")

GUISetState(@SW_SHOW)

$gui2 = GUICreate("Dellserv List :", 700, 500, 5, 5,$WS_BORDER, -1, $gui)

GUISetBkColor (0xE1E9F6)

$Listview = GUICtrlCreateListView("#|User ID|Password|Badge ID|Service Tag|Case Number|DPS Number|First Name|LastName|Customer Email|Phone #| Alt Phone #|Problem Summary|Notes", 10, 10, 680, 400, -1, BitOR($LVS_EX_REGIONAL, $LVS_EX_FULLROWSELECT, $LVS_EX_GRIDLINES))

$Closer = GUICtrlCreateButton("Close", 460, 425, 180, 30)

$Btn_view = GUICtrlCreateButton("View / Edit", 60, 425, 180, 30)

GUISetState(@SW_HIDE)

GUICtrlSetOnEvent($Btn_view, "Close_List")

GUICtrlSetOnEvent($Closer, "Close_List")

While (1)

Sleep(2000)

WEnd

Func Close_List()

Local $s_indices = _GUICtrlListViewGetSelectedIndices($listview)

Get_CNumber($s_indices + 1)

GUISetState(@SW_HIDE, $gui2)

GUICtrlSetState( $Btn_view, $GUI_ENABLE)

_GUICtrlListViewDeleteAllItems($listview)

GUISetState(@SW_HIDE, $gui2)

GUISetState(@SW_SHOW, $gui)

GUISetState(@SW_RESTORE, $gui)

EndFunc

Func NewCase_Button()

$sURL = "private"

$oIE = _IECreate($sURL, 0, 0, 0)

$HWND = _IEPropertyGet($oIE, "hwnd")

WinSetState($HWND, "", @SW_MAXIMIZE)

_IEAction($oIE, "visible")

_IELoadWait($oIE)

WinActivate("Private")

ControlClick("Internet Explorer", "", 1, "left", 1)

$dellservuserid = GUICtrlRead($Input[1])

$dellservpass = GUICtrlRead($Input[2])

$dellservbadgeid = GUICtrlRead($Input[3])

$NotesBoxset = GUICtrlRead($NotesBox)

$dellservservicetag = GUICtrlRead($Input[4])

$dellservcasenumber = GUICtrlRead($Input[5])

$dellservdpsnumber = GUICtrlRead($Input[6])

#cs

Delete Previous login information and put in new information

#ce

Sleep(1000)

Send("+{END}{DELETE}")

Send($dellservuserid)

Send("{TAB}")

Sleep(1000)

Send($dellservpass)

Send("{TAB}")

Send("+{END}{DELETE}")

Sleep(1000)

Send($dellservbadgeid)

Send("{ENTER}")

If ($dellservdpsnumber <> "") Then

Send($dellservdpsnumber)

Send("{TAB 5}")

Send("{ENTER}")

ElseIf ($dellservservicetag <> "") Then

Send($dellservservicetag)

Send("{ENTER}")

ElseIf ($dellservcasenumber <> "") Then

Send($dellservcasenumber)

Send("{TAB 8}")

Send("{ENTER}")

Else

MsgBox(0, "Please try again", "Please enter a way to look up customer")

EndIf

;Get Case List

Sleep(5000)

for $x = 1 to 18

Send("{TAB}")

Next

Send("{ENTER}")

;Create new Case

Sleep(4000)

for $x = 1 to 21

Send("{TAB}")

Next

Send("{ENTER}")

;Insert Case notes

Sleep(1000)

Send("{TAB 8}")

Sleep(1000)

Send($NotesBoxset)

EndFunc ;==>NewCase_Button

Func CleanExit()

Exit

EndFunc ;==>CleanExit

Func NewJournal_Button()

EndFunc ;==>NewJournal_Button

Func Save_Button()

If GUICtrlRead($Input[4]) = "" Then

MsgBox(262208, "Sorry...", "No information entered to save. ", 1)

Return

EndIf

$length = _FileCountLines($File_Location)

If $length = 0 Then $length = 1

IniWrite($File_Location, "CustomerInfo", $length, GUICtrlRead($Input[1]) & "," & GUICtrlRead($Input[2]) & "," & GUICtrlRead($Input[3]) & "," & GUICtrlRead($Input[4]) & "," & GUICtrlRead($Input[5]) & "," & _

GUICtrlRead($Input[6]) & "," & GUICtrlRead($Input[7]) & "," & GUICtrlRead($Input[8]) & "," & GUICtrlRead($Input[9]) & "," & GUICtrlRead($Input[10]) & "," & GUICtrlRead($Input[11]) & "," & _

GUICtrlRead($Input[12]) & "," & GUICtrlRead($NotesBox))

Clear_List()

MsgBox(262208, "Success!", "Customer has been added... ", 1)

EndFunc ;==>Save_Button

Func Get_List()

GUISetState(@SW_SHOW, $gui2)

$length = _FileCountLines($File_Location)

For $x = 1 To $length - 1

$temp_file = IniRead($File_Location, "CustomerInfo", $x, "Not Found")

If $temp_file = "Not Found" Then Return

$temp_split = StringSplit($temp_file, ",")

GUICtrlCreateListViewItem( $x & "|" & $temp_split[1] & "|" & $temp_split[2] & "|" & $temp_split[3] & "|" & $temp_split[4] & "|" & $temp_split[5] & "|" & $temp_split[6] & "|" & $temp_split[7] & "|" & $temp_split[8] & _

"|" & $temp_split[9] & "|" & $temp_split[10] & "|" & $temp_split[11] & "|" & $temp_split[12] & "|" & $temp_split[13],$listview)

Next

EndFunc

Func Clear_List()

FileDelete($data_Location & "CustomerInfo.bak")

FileDelete(@TempDir & "\new.ini")

FileCopy($File_Location, $data_Location & "CustomerInfo.bak", 1)

FileWriteLine(@TempDir & "\new.ini", "[CustomerInfo]")

$t = 0

$length = _FileCountLines($File_Location)

For $x = 1 To $length - 1

$temp_file = IniRead($File_Location, "CustomerInfo", $x, "Not Found")

If $temp_file = "Not Found" Then Return

$temp_split = StringSplit($temp_file, ",")

If $temp_split[1] = "" Then ContinueLoop

$t = $t + 1

IniWrite(@TempDir & "\new.ini", "CustomerInfo", $t, $temp_split[1] & "," & $temp_split[2] & "," & $temp_split[3] & "," & $temp_split[4] & "," & $temp_split[5] & "," & $temp_split[6] & "," & $temp_split[7] & "," & $temp_split[8] & "," & $temp_split[9] & "," & $temp_split[10] & "," & $temp_split[11] & "," & $temp_split[12] & "," & $temp_split[13])

Next

FileCopy(@TempDir & "\new.ini", $File_Location, 1)

EndFunc

Func Get_CNumber($x)

$temp_file = IniRead($File_Location, "CustomerInfo", $x, "Not Found")

If $temp_file = "Not Found" Then

;MsgBox(262208, "Sorry...", "No Customer Found/Selected... ", 1)

Return

EndIf

$temp_split = StringSplit($temp_file, ",")

For $t = 1 To $temp_split[0] - 1

GUICtrlSetData($Input[$t], $temp_split[$t])

$num = $x

Next

GUICtrlSetData($NotesBox, $temp_split[13])

Return

EndFunc ;==>Get_CNumber

Func Remove_Entry()

If GUICtrlRead($Input[1]) = "" then

MsgBox(262208, "Sorry...", "No Customer Found/Selected... ", 1)

Return

EndIf

IniWrite($File_Location, "CustomerInfo", $num, ",,,,,,,,,,,,,")

FileDelete($data_Location & $num &".dat")

for $x = 1 to 12

GUICtrlSetData($Input[$x], "")

Next

GUICtrlSetData($NotesBox, "")

Clear_List()

MsgBox(262208, "Alert!", "Customer Removed from the Database! ", 1)

EndFunc

Func Clear_Fields()

If GUICtrlRead($Input[1]) = "" then Return

for $x = 1 to 12

GUICtrlSetData($Input[$x], "")

Next

GUICtrlSetData($NotesBox, "")

Clear_List()

EndFunc

Edited by Klexen
Link to comment
Share on other sites
Klexen Prodigy

Klexen

Posted
  • Author
Posted

When I add a new customer and the "Notes" are too long, they get cut off. If I submitted a note that was too long, and try to remove the entry. It does not fully remove. Also if I type 1 line in the notesbox, and do not let it wrap, just hit enter to start new line. Notes only records first line, it ignores any line underneath. Can someone please tell me how to correct this?

Thanks!

CODE
#include <GuiConstants.au3>

#include <IE.au3>

#Include <File.au3>

#Include <GuiListView.au3>

Dim $data_Location = @ScriptDir & "\Data\"

Dim $File_Location = @ScriptDir & "\Data\Customerinfo.ini"

Dim $File_Location2 = @ScriptDir & "\Data\Dellservlogin.ini"

Dim $num = 0, $Input[15], $data_[15]

$Input[1] = IniRead("dellservlogin.ini","login" ,"userid","")

$Input[2] = IniRead("dellservlogin.ini","login" ,"pass","")

$Input[3] = IniRead("dellservlogin.ini","login" ,"badgeid","")

DirGetSize($data_Location)

If @error = 1 Then

DirCreate($data_Location)

EndIf

Opt("GUIOnEventMode", 1) ; Change to OnEvent mode

$gui = GUICreate("DellServ Notes", 410, 600)

GUISetBkColor (0xE1E9F6)

#cs

Get tech login information.

#ce

GUICtrlCreateGroup("Dellserv Login :", 5, 5, 400, 65)

GUICtrlCreateLabel("User ID :", 10, 23)

$Input[1] = GUICtrlCreateInput("", 10, 38, 100)

GUICtrlCreateLabel("Password :", 130, 23)

$Input[2] = GUICtrlCreateInput("", 130, 38, 100, -1, $ES_PASSWORD)

GUICtrlCreateLabel("Badge ID :", 250, 23)

$Input[3] = GUICtrlCreateInput("", 250, 38, 100)

#cs

How to look up customer.

#ce

GUICtrlCreateGroup("Look up customer by :", 5, 75, 400, 65)

GUICtrlCreateLabel("ServiceTag :", 10, 90)

$Input[4] = GUICtrlCreateInput("", 10, 105, 100)

GUICtrlCreateLabel("Case Number :", 130, 90)

$Input[5] = GUICtrlCreateInput("", 130, 105, 100)

GUICtrlCreateLabel("DPS Number :", 250, 90)

$Input[6] = GUICtrlCreateInput("", 250, 105, 100)

#cs

Get customer information.

#ce

GUICtrlCreateGroup("Customer Information :", 5, 150, 400, 107)

GUICtrlCreateLabel("First Name :", 10, 165)

$Input[7] = GUICtrlCreateInput("", 10, 180, 100)

GUICtrlCreateLabel("Last Name :", 130, 165)

$Input[8] = GUICtrlCreateInput("", 130, 180, 100)

GUICtrlCreateLabel("Customer Email :", 250, 165)

$Input[9] = GUICtrlCreateInput("", 250, 180, 100)

GUICtrlCreateLabel("Phone Number :", 10, 210)

$Input[10] = GUICtrlCreateInput("", 10, 225, 100)

GUICtrlCreateLabel("Alt. Phone Number :", 130, 210)

$Input[11] = GUICtrlCreateInput("", 130, 225, 100)

$FusionIt = GUICtrlCreateCheckbox ("Fusion It", 10, 265, 55, 20)

GUICtrlCreateLabel("Problem Summary :", 10, 290)

$Input[12] = GUICtrlCreateInput("", 10, 310, 390)

GUICtrlCreateGroup("DellServ Notes :", 5, 345, 400, 175)

$NotesBox = GUICtrlCreateEdit("", 10, 360, 390, 150,BitOr($ES_MULTILINE, $WS_VSCROLL))

$btnCase = GUICtrlCreateButton("Create New Case", 50, 530, 100)

$btnjournal = GUICtrlCreateButton("Create New Journal", 155, 530, 100)

$btnGetlist = GUICtrlCreateButton("Find Customer", 260, 530, 100)

$btnSave = GUICtrlCreateButton("Save", 50, 560, 100)

$btnClose = GUICtrlCreateButton("Close", 155, 560, 100)

$btnClear = GUICtrlCreateButton("Clear", 260, 560, 100)

$btnRemove = GUICtrlCreateButton("Del", 365, 560, 25)

GUICtrlSetOnEvent($btnCase, "NewCase_Button")

GUICtrlSetOnEvent($btnClose, "CleanExit")

GUICtrlSetOnEvent($btnjournal, "NewJournal_Button")

GUICtrlSetOnEvent($btnSave, "Save_Button")

GUICtrlSetOnEvent($btnGetlist, "Get_List")

GUICtrlSetOnEvent($btnClear, "Clear_Fields")

GUICtrlSetOnEvent($btnRemove, "Remove_Entry")

GUISetOnEvent($GUI_EVENT_CLOSE, "CleanExit")

;GUISetOnEvent($GUI_EVENT_MINIMIZE,"Hide_to_tray")

GUISetState(@SW_SHOW)

$gui2 = GUICreate("Dellserv List :", 700, 500, 5, 5,$WS_BORDER, -1, $gui)

GUISetBkColor (0xE1E9F6)

$Listview = GUICtrlCreateListView("#|User ID|Password|Badge ID|Service Tag|Case Number|DPS Number|First Name|LastName|Customer Email|Phone #| Alt Phone #|Problem Summary|Notes", 10, 10, 680, 400, -1, BitOR($LVS_EX_REGIONAL, $LVS_EX_FULLROWSELECT, $LVS_EX_GRIDLINES))

$Closer = GUICtrlCreateButton("Close", 460, 425, 180, 30)

$Btn_view = GUICtrlCreateButton("View / Edit", 60, 425, 180, 30)

GUISetState(@SW_HIDE)

GUICtrlSetOnEvent($Btn_view, "Close_List")

GUICtrlSetOnEvent($Closer, "Close_List")

While (1)

Sleep(2000)

WEnd

Func Close_List()

Local $s_indices = _GUICtrlListViewGetSelectedIndices($listview)

Get_CNumber($s_indices + 1)

GUISetState(@SW_HIDE, $gui2)

GUICtrlSetState( $Btn_view, $GUI_ENABLE)

_GUICtrlListViewDeleteAllItems($listview)

GUISetState(@SW_HIDE, $gui2)

GUISetState(@SW_SHOW, $gui)

GUISetState(@SW_RESTORE, $gui)

EndFunc

Func NewCase_Button()

$sURL = "private"

$oIE = _IECreate($sURL, 0, 0, 0)

$HWND = _IEPropertyGet($oIE, "hwnd")

WinSetState($HWND, "", @SW_MAXIMIZE)

_IEAction($oIE, "visible")

_IELoadWait($oIE)

WinActivate("Private")

ControlClick("Internet Explorer", "", 1, "left", 1)

$dellservuserid = GUICtrlRead($Input[1])

$dellservpass = GUICtrlRead($Input[2])

$dellservbadgeid = GUICtrlRead($Input[3])

$NotesBoxset = GUICtrlRead($NotesBox)

$dellservservicetag = GUICtrlRead($Input[4])

$dellservcasenumber = GUICtrlRead($Input[5])

$dellservdpsnumber = GUICtrlRead($Input[6])

#cs

Delete Previous login information and put in new information

#ce

Sleep(1000)

Send("+{END}{DELETE}")

Send($dellservuserid)

Send("{TAB}")

Sleep(1000)

Send($dellservpass)

Send("{TAB}")

Send("+{END}{DELETE}")

Sleep(1000)

Send($dellservbadgeid)

Send("{ENTER}")

If ($dellservdpsnumber <> "") Then

Send($dellservdpsnumber)

Send("{TAB 5}")

Send("{ENTER}")

ElseIf ($dellservservicetag <> "") Then

Send($dellservservicetag)

Send("{ENTER}")

ElseIf ($dellservcasenumber <> "") Then

Send($dellservcasenumber)

Send("{TAB 8}")

Send("{ENTER}")

Else

MsgBox(0, "Please try again", "Please enter a way to look up customer")

EndIf

;Get Case List

Sleep(5000)

for $x = 1 to 18

Send("{TAB}")

Next

Send("{ENTER}")

;Create new Case

Sleep(4000)

for $x = 1 to 21

Send("{TAB}")

Next

Send("{ENTER}")

;Insert Case notes

Sleep(1000)

Send("{TAB 8}")

Sleep(1000)

Send($NotesBoxset)

EndFunc ;==>NewCase_Button

Func CleanExit()

Exit

EndFunc ;==>CleanExit

Func NewJournal_Button()

EndFunc ;==>NewJournal_Button

Func Save_Button()

If GUICtrlRead($Input[4]) = "" Then

MsgBox(262208, "Sorry...", "No information entered to save. ", 1)

Return

EndIf

$length = _FileCountLines($File_Location)

If $length = 0 Then $length = 1

IniWrite($File_Location, "CustomerInfo", $length, GUICtrlRead($Input[1]) & "," & GUICtrlRead($Input[2]) & "," & GUICtrlRead($Input[3]) & "," & GUICtrlRead($Input[4]) & "," & GUICtrlRead($Input[5]) & "," & _

GUICtrlRead($Input[6]) & "," & GUICtrlRead($Input[7]) & "," & GUICtrlRead($Input[8]) & "," & GUICtrlRead($Input[9]) & "," & GUICtrlRead($Input[10]) & "," & GUICtrlRead($Input[11]) & "," & _

GUICtrlRead($Input[12]) & "," & GUICtrlRead($NotesBox))

Clear_List()

MsgBox(262208, "Success!", "Customer has been added... ", 1)

EndFunc ;==>Save_Button

Func Get_List()

GUISetState(@SW_SHOW, $gui2)

$length = _FileCountLines($File_Location)

For $x = 1 To $length - 1

$temp_file = IniRead($File_Location, "CustomerInfo", $x, "Not Found")

If $temp_file = "Not Found" Then Return

$temp_split = StringSplit($temp_file, ",")

GUICtrlCreateListViewItem( $x & "|" & $temp_split[1] & "|" & $temp_split[2] & "|" & $temp_split[3] & "|" & $temp_split[4] & "|" & $temp_split[5] & "|" & $temp_split[6] & "|" & $temp_split[7] & "|" & $temp_split[8] & _

"|" & $temp_split[9] & "|" & $temp_split[10] & "|" & $temp_split[11] & "|" & $temp_split[12] & "|" & $temp_split[13],$listview)

Next

EndFunc

Func Clear_List()

FileDelete($data_Location & "CustomerInfo.bak")

FileDelete(@TempDir & "\new.ini")

FileCopy($File_Location, $data_Location & "CustomerInfo.bak", 1)

FileWriteLine(@TempDir & "\new.ini", "[CustomerInfo]")

$t = 0

$length = _FileCountLines($File_Location)

For $x = 1 To $length - 1

$temp_file = IniRead($File_Location, "CustomerInfo", $x, "Not Found")

If $temp_file = "Not Found" Then Return

$temp_split = StringSplit($temp_file, ",")

If $temp_split[1] = "" Then ContinueLoop

$t = $t + 1

IniWrite(@TempDir & "\new.ini", "CustomerInfo", $t, $temp_split[1] & "," & $temp_split[2] & "," & $temp_split[3] & "," & $temp_split[4] & "," & $temp_split[5] & "," & $temp_split[6] & "," & $temp_split[7] & "," & $temp_split[8] & "," & $temp_split[9] & "," & $temp_split[10] & "," & $temp_split[11] & "," & $temp_split[12] & "," & $temp_split[13])

Next

FileCopy(@TempDir & "\new.ini", $File_Location, 1)

EndFunc

Func Get_CNumber($x)

$temp_file = IniRead($File_Location, "CustomerInfo", $x, "Not Found")

If $temp_file = "Not Found" Then

;MsgBox(262208, "Sorry...", "No Customer Found/Selected... ", 1)

Return

EndIf

$temp_split = StringSplit($temp_file, ",")

For $t = 1 To $temp_split[0] - 1

GUICtrlSetData($Input[$t], $temp_split[$t])

$num = $x

Next

GUICtrlSetData($NotesBox, $temp_split[13])

Return

EndFunc ;==>Get_CNumber

Func Remove_Entry()

If GUICtrlRead($Input[1]) = "" then

MsgBox(262208, "Sorry...", "No Customer Found/Selected... ", 1)

Return

EndIf

IniWrite($File_Location, "CustomerInfo", $num, ",,,,,,,,,,,,,")

FileDelete($data_Location & $num &".dat")

for $x = 1 to 12

GUICtrlSetData($Input[$x], "")

Next

GUICtrlSetData($NotesBox, "")

Clear_List()

MsgBox(262208, "Alert!", "Customer Removed from the Database! ", 1)

EndFunc

Func Clear_Fields()

If GUICtrlRead($Input[1]) = "" then Return

for $x = 1 to 12

GUICtrlSetData($Input[$x], "")

Next

GUICtrlSetData($NotesBox, "")

Clear_List()

EndFunc

Link to comment
Share on other sites
Klexen Prodigy

Klexen

Posted
  • Author
Posted

Use GUICtrlCreateEdit() instead of GUICtrlCreateInput()

Look at my NET SEND GUI for example

GUICtrlCreateGroup("DellServ Notes :", 5, 345, 400, 175)

$NotesBox = GUICtrlCreateEdit("", 10, 360, 390, 150,BitOr($ES_MULTILINE, $WS_VSCROLL))

I am using CreateEdit. Anything else?

Link to comment
Share on other sites
Klexen Prodigy

Klexen

Posted
  • Author
Posted

GUICtrlCreateGroup("DellServ Notes :", 5, 345, 400, 175)

$NotesBox = GUICtrlCreateEdit("", 10, 360, 390, 150,BitOr($ES_MULTILINE, $WS_VSCROLL))

I am using CreateEdit. Anything else?

Anyone??

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