Klexen Posted May 29, 2007 Share Posted May 29, 2007 (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 May 29, 2007 by Klexen Link to comment Share on other sites More sharing options...
Klexen Posted May 29, 2007 Author Share Posted May 29, 2007 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 More sharing options...
Zedna Posted May 29, 2007 Share Posted May 29, 2007 Use GUICtrlCreateEdit() instead of GUICtrlCreateInput()Look at my NET SEND GUI for example Resources UDF Â ResourcesEx UDF Â AutoIt Forum Search Link to comment Share on other sites More sharing options...
Klexen Posted May 30, 2007 Author Share Posted May 30, 2007 Use GUICtrlCreateEdit() instead of GUICtrlCreateInput()Look at my NET SEND GUI for exampleGUICtrlCreateGroup("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 More sharing options...
Klexen Posted May 31, 2007 Author Share Posted May 31, 2007 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 More sharing options...
Klexen Posted June 7, 2007 Author Share Posted June 7, 2007 Anyone?? Bump? Anyone? Link to comment Share on other sites More sharing options...
Recommended Posts
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 accountSign in
Already have an account? Sign in here.
Sign In Now