Sign in to follow this  
Followers 0
koshatneg

Question about Combo

5 posts in this topic

Hi.

I have a file account_list.txt with strings:

UserAB

UserCD

UserEF

...

and so on. I want to create a combobox with values from this .txt file . How can I do this?

The template looks like this:

#include <GUIConstants.au3>
GUICreate("Выбор учетной записи", 220, 100)  ; will create a dialog box that when displayed is centered
GUICtrlCreateCombo ("item1", 10,10) ; create first item
GUICtrlSetData(-1,"item2|item3","item1") ; add other item snd set a new default
GUISetState ()
; Run the GUI until the dialog is closed
While 1
    $msg = GUIGetMsg()
    
    If $msg = $GUI_EVENT_CLOSE Then ExitLoop
Wend

Thanks.

Share this post


Link to post
Share on other sites



koshatneg,

Welcome to the AutoIt forum. ;)

Read your file into an array using _FileReadToArray and then use a loop to get the values into your combo:

#include <GUIConstantsEx.au3>

; Get your file into an array usuign _FileReadToArray
; This line simulates that:
Global $aLines[4] = [3, "UserAB", "UserCD", "UserEF"]

$hGUI = GUICreate("Test", 500, 500)

$hCombo = GUICtrlCreateCombo("", 10, 10, 200, 20)

; Now fill your combo from the array
For $i = 1 To $aLines[0]
    GUICtrlSetData($hCombo, $aLines[$i])
Next

GUISetState()

While 1
    Switch GUIGetMsg()
        Case $GUI_EVENT_CLOSE
            Exit
    EndSwitch
WEnd

Please ask if anything is unclear. :)

M23


Any of my own code posted anywhere on the forum is available for use by others without any restriction of any kind._______My UDFs:

Spoiler

ArrayMultiColSort ---- Sort arrays on multiple columns
ChooseFileFolder ---- Single and multiple selections from specified path treeview listing
Date_Time_Convert -- Easily convert date/time formats, including the language used
ExtMsgBox --------- A highly customisable replacement for MsgBox
GUIExtender -------- Extend and retract multiple sections within a GUI
GUIFrame ---------- Subdivide GUIs into many adjustable frames
GUIListViewEx ------- Insert, delete, move, drag, sort, edit and colour ListView items
GUITreeViewEx ------ Check/clear parent and child checkboxes in a TreeView
Marquee ----------- Scrolling tickertape GUIs
NoFocusLines ------- Remove the dotted focus lines from buttons, sliders, radios and checkboxes
Notify ------------- Small notifications on the edge of the display
Scrollbars ----------Automatically sized scrollbars with a single command
StringSize ---------- Automatically size controls to fit text
Toast -------------- Small GUIs which pop out of the notification area

 

Share this post


Link to post
Share on other sites

Melba23,

thanks, you really help me ;)

that's what I got:

Dim $aLines
If _FileReadToArray("C:\file.txt",$aLines) Then

$hGUI = GUICreate("Combo window", 220, 100)  
$hCombo = GUICtrlCreateCombo ("Take a choice..", 10,10) 
For $i = 1 To $aLines[0]
    GUICtrlSetData($hCombo, $aLines[$i])
Next

GUISetState()
; Run the GUI until the dialog is closed
While 1
    Switch GUIGetMsg()
        Case $GUI_EVENT_CLOSE
            Exit
    EndSwitch
WEnd

Else
   MsgBox(0,"Error","Error from Function")
EndIf

Share this post


Link to post
Share on other sites

Would it be possible to output a mysql record set to a combo box? Here is what I have so far it connects to mysql then pulls down the table information but its all 45435435435 instead of 45 435 43 54 35 I'm not sure how to write an array to fix this.

Cheers

Func QueryMysql()
    $SelectFrom = "hardware_id"
    $Table = "accountinfo"
    $Row = "TAG"
    $NametoFind = GUICtrlRead($DepartMentNameInput) 
    $Orderby = "hardware_id"
    If $adoConn.State = $adStateOpen Then $adoConn.Close
    $adoConn.ConnectionString = $Conn
    $adoConn.Open
    $RemoteFormatString = 'SELECT %s FROM %s WHERE (%s = "%s") order by %s;'
    $remoteqry = StringFormat($RemoteFormatString, $SelectFrom, $Table, $Row, $NametoFind, $Orderby)
    If $remoters.State = $adStateOpen Then $remoters.Close
    $remoters = $adoConn.Execute($remoteqry);Run Query to mysql
    If $remoters.State = $adStateOpen Then
        $remoteop = "" ;to flush old records
        $remoteop = $remoters.GetString(2, -1, "", @CRLF, "Null")
        ConsoleWrite($remoteop);debug
        GUICtrlSetData($ComputerNameComboBox, $remoteop)
        $remoters.Close
    EndIf
    ;   Term()
EndFunc   ;==>Remote

Share this post


Link to post
Share on other sites

Были ли у Вас проблемы с текстовыми файлами? Иногда я не могу их видеть.

Melba23,

thanks, you really help me ;)

that's what I got:

Dim $aLines
If _FileReadToArray("C:\file.txt",$aLines) Then

$hGUI = GUICreate("Combo window", 220, 100)  
$hCombo = GUICtrlCreateCombo ("Take a choice..", 10,10) 
For $i = 1 To $aLines[0]
    GUICtrlSetData($hCombo, $aLines[$i])
Next

GUISetState()
; Run the GUI until the dialog is closed
While 1
    Switch GUIGetMsg()
        Case $GUI_EVENT_CLOSE
            Exit
    EndSwitch
WEnd

Else
   MsgBox(0,"Error","Error from Function")
EndIf

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