11/30/2024 3:35:28 AM
|
| |
| slxdeveloper.com Community Forums |
|
| |
|
|
The Forums on slxdeveloper.com are now retired. The forum archive will remain available for the time being. Thank you for your participation on slxdeveloper.com!
Forum to discuss usage & tips for SalesLogix controls and other 3rd party ActiveX controls. View the code of conduct for posting guidelines.
|
|
|
|
Picklist Open on entering field
Posted: 03 Jul 06 10:44 AM
|
fiogf49gjkf0d Is there a way to have a picklist open upon entering the field? Seems like this would speed up data entry avoiding the mouse click and all.
-Arthur |
|
|
|
Re: Picklist Open on entering field
Posted: 03 Jul 06 11:03 AM
|
fiogf49gjkf0d No property available to make it happen automatically, but you could code it. On the OnEnterControl event add code like this:
Sub PickListEnterControl(Sender)
Sender.Popup
End Sub
Make it generic like that (using sender) and you could reuse the same handler for all picklists on your form. |
|
|
|
Re: Picklist Open on entering field .POPUP
Posted: 23 Apr 08 3:05 PM
|
There doesn't seem to be a convenient way to control WHERE the popup pops up To! On my system it's popping up to the upper left side of the monitor.....not monitor nor application window centered.....any tips????
Thanks!! |
|
|
|
Re: Picklist Open on entering field .POPUP
Posted: 23 Apr 08 3:44 PM
|
Originally posted by RJ Samp
There doesn't seem to be a convenient way to control WHERE the popup pops up To! On my system it's popping up to the upper left side of the monitor.....not monitor nor application window centered.....any tips????
Thanks!! |
|
If you programatically invoke the Picklist, without the control, then you can specify the top and left of the control (using Application.Picklists)
-Ryan |
|
|
|
Re: Picklist Open on entering field .POPUP
Posted: 23 Apr 08 4:02 PM
|
If Top = 400 and left = 400 how would I do that?
Here's STEPHEN REDMONDS Application Object DEVLOGIX stuff.....the SELECT() looks promising but it sure looks like the long way to do this....
PickList
The PickList class allows us access to the properties of a picklist returned by the
PickLists.Item() property.
The PickList class exposes the following properties:
ID
The ID property of the picklist represents the ItemID in the picklist table. For example, the
ItemID of the “Activity Types” picklist is “kSYST0000001”.
Name
Obviously, this is the name of the picklist. This is valuable if you are cycling through the
entire PickLists collection.
Item(index)
The Item property represents a PickListItem object and is referenced by index number.
This is a zero-based index.
ItemByText(text)
This returns a PickListItem object from this picklist where the Text of the picklist item
matches the text passed to this property.
ItemByShortText(text)
Similar to the above except it matches on the short text of the picklist.
117
Count
The number of items in the picklist collection. This property may be more frequently used
in the picklist collection than in some of the other collections that we have seen before. Use
it to cycle through the picklist:
Sub Button1Click(Sender)
Dim pl
Set pl = Application.PickLists("Activity Types")
Dim i, Msg
For i = 0 to pl.Count-1
Msg = Msg & pl.Item(i).Text
if i <> pl.Count-1 then Msg = Msg & chr(13) & chr(10)
Next
MsgBox Msg
End Sub
118
Other Properties
These match the pick list attributes from the Pick List Manager.
RequiredEntry: If a user clicks into this picklist, then they must select an item before
exiting (there will be no “” option).
MultiSelect: The user can select more than one item from the picklist. Multiple items will
be comma separated.
Sorted: The text items in the picklist will be sorted when displayed.
AllowEdit: The user can add/edit/delete items in the picklist.
DefaultItem: This text will be the default on an “Add” type data form.
Fixed: Any text typed into the picklist must match exactly an item in the picklist. If it does
not, SalesLogix will change the typed text into the nearest match in the picklist.
Select(Columns, OldItemsIDs, Left, Top, Width, Height) Method
The select method of the picklist object will present a picklist dialog to the user based on
the properties passed to the method. It returns a Collection class (see below) containing the
selected items from the picklist, or returns Null if cancel was hit. The Collection class will
only have more than one item if the picklist was multiselect.
The properties of this method are:
Columns: There are 3 columns that can be displayed – Order (1), Codes (2) and Items (4).
You can combine any of these. For example, if you pass 6, then Codes and Items will be
displayed.
OldItemsIDs: This is a CR LF separated list of the ItemIDs of any values that are
currently selected.
Left, Top, Width, Height: Co-ordinates of the picklist dialog.
For example:
N.B. modify the IDs to suit your own local system – the picklist used is just a copy of the
“Contract Type” picklist.
119
Sub Button1Click(Sender)
Dim pl
Set pl = Application.PickLists("Contract Type Multi")
Dim IDs, x
IDs = "kQF8AA000376" & chr(13) & chr(10) & "kQF8AA000377"
Set x = pl.Select(4, IDs, 100, 100, 250, 250)
End Sub
PickListItem
The PickListItem class represents an individual entry from a picklist. The properties are:
ID: The ItemID value for this picklist item.
Sequence: The sequence in the picklist.
Text: The text of the picklist item.
ShortText: The short text of the picklist item.
Collection
The Collection class represents a list of items returned from a picklist Select method.
The properties of the Collection class are:
Count
Count returns the number of items in the Collection. This will generally be 1 or 0, with the
exception of multi-select picklists.
Item(index)
Returns a PickListItem object representing the item in the Collection.
For example (following from the Select() example above):
Sub Button1Click(Sender)
Dim pl
Set pl = Application.PickLists("Contract Type Multi")
120
Dim IDs, x
IDs = "kQF8AA000376" & chr(13) & chr(10) & "kQF8AA000377"
Set x = pl.Select(4, IDs, 100, 100, 250, 250)
' x is a collection
MsgBox "There were " & x.Count & " items selected."
if x.Count > 0 then
MsgBox "The first was " & x.Item(0).Text
End if
End Sub |
|
|
|
You can
subscribe to receive a daily forum digest in your
user profile. View the site code
of conduct for posting guidelines.
 Forum RSS Feed - Subscribe to the forum RSS feed to keep on top of the latest forum activity!
|
|
|
|
|
|
|
|