Sign in to follow this  
Followers 0
Klexen

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

6 posts in this topic

#1 ·  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

Share this post


Link to post
Share on other sites



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

Share this post


Link to post
Share on other sites

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?

Share this post


Link to post
Share on other sites

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

Share this post


Link to post
Share on other sites

Anyone??

Bump?

Anyone?

Share this post


Link to post
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
Sign in to follow this  
Followers 0