I use a combo text box to list items and save it in defaultsRecordset!TektronixPort
Dim resource as String
Dim savedResource as String
Dim variantVal as Variant
While cmbVisaResources.ListCount > 0
cmbVisaResources.RemoveItem (0)
Wend
variantVal = CWVisa1.FindResource("?*INSTR") ' if using API's it's FindRsrc(...), or in C it's viFindRsrc(...), look these up for more info
savedResource = ""
For i = 0 To UBound(variantVal)
resource = variantVal(i)
cmbVisaResources.AddItem resource
If StrComp(resource, defaultsRecordset!TektronixPort) = 0 Then
savedResource = resource
End If
Next i
cmbVisaResources.value = savedResource
There is a list of acceptable FindResource strings:
Regular Expression Sample Matches
GPIB?*INSTR Matches GPIB0::2::INSTR, GPIB1::1::1::INSTR, and GPIB-VXI1::8::INSTR.
GPIB[0-9]*::?*INSTR Matches GPIB0::2::INSTR and GPIB1::1::1::INSTR but not GPIB-VXI1::8::INSTR.
GPIB[^0]::?*INSTR Matches GPIB1::1::1::INSTR but not GPIB0::2::INSTR or GPIB12::8::INSTR.
VXI?*INSTR Matches VXI0::1::INSTR but not GPIB-VXI0::1::INSTR.
GPIB-VXI?*INSTR Matches GPIB-VXI0::1::INSTR but not VXI0::1::INSTR.
?*VXI[0-9]*::?*INSTR Matches VXI0::1::INSTR and GPIB-VXI0::1::INSTR.
ASRL[0-9]*::?*INSTR Matches ASRL1::INSTR but not VXI0::5::INSTR.
ASRL1+::INSTR Matches ASRL1::INSTR and ASRL11::INSTR but not ASRL2::INSTR.
(GPIB|VXI)?*INSTR Matches GPIB1::5::INSTR and VXI0::3::INSTR but not ASRL2::INSTR.
(GPIB0|VXI0)::1::INSTR Matches GPIB0::1::INSTR and VXI0::1::INSTR.
?*INSTR Matches all INSTR (device) resources.
?*VXI[0-9]*::?*MEMACC Matches VXI0::MEMACC and GPIB-VXI1::MEMACC.
VXI0::?* Matches VXI0::1::INSTR, VXI0::2::INSTR, and VXI0::MEMACC.
?* Matches all resources.
