¼±£¬°ïæ°ÑÒ»¶ÎdelphiµÄ´úÂë¸Ä³ÉVB.NETµÄ

Delphi(Pascal) code:

for I := 0 to ListBox1.Items.Count -1 do
begin
if ListBox1.Selected[I] then ListSelectItem := I;
ListBox1.Selected[I] := False;
end;
ListBox1.Selected[ListSelectItem] := True;

---

VB.NET code:

for I = 0 to ListBox1.Items.Count -1 do
if ListBox1.Selected[I] is True then ListSelectItem = I
else
ListBox1.Selected[I] = False
end if
end for
ListBox1.Selected[ListSelectItem] = True

---

ListBox1ÕâÊǸöListBox£¬ÎÒ²»ÖªµÀÔÚDϵÄSelectedÕâ¸öÊôÐÔÔÚVB.NETÏÂÓÐûÓÐ

---

ListBox1.SelectedIndex = 0 'Ñ¡ÖеÚÒ»Ïî
str = ListBox1.SelectedItem 'µ±Ç°Ñ¡¶¨Ïî

---

ʵ¼ÊÉÏÎÒÊÇÏëʵÏÖµ±ÎÒµã»÷ListBox¿Õ°×´¦µÄʱºò£¬ÄÜÈÃListBoxÑ¡ÖÐ״̬¶¼±ä³ÉδѡÖÐ״̬¡£Ä¬ÈϵÄÇé¿öϵã»÷¿Õ°×µÄµØ·½£¬ÉÏÒ»´ÎÑ¡ÖеÄÐÐÊý»¹ÊÇÓÐÀ¶µ×µÄ¡£
ÉÏÃæÎҵĴúÂëÔÚDÏÂÊÇͨ¹ýµÄ£¬ÊÇ¿ÉÒÔʵÏÖÎÒËùÒªµÄ½á¹û£¬µ«ÔÚVB.Net²»ÖªµÀÓ¦¸ÃÔõôд

---

ListBox1.SelectedIndex=-1ÊÔÊÔ

---

ÕâÑùºÃÏó²»Ðеġ£ËäÈ»¿ÉÄÜÕâʱºòListBoxÊÇûѡÖÐÄÇÒ»ÐУ¬µ«ÊÇÄÇÒ»Ðл¹ÊÇÀ¶µ×µÄ£¬ÎÒ²»ÏëÏÔʾÕâÀ¶µ×

---

ÄÄλ°ïæһÏÂÄØ£¿ÎÒ²»»áVB.NET¡£·Ö²»¹»¿ÉÒÔÔÙ¼Ó

---

ÒýÓÃ

ListBox1ÕâÊǸöListBox£¬ÎÒ²»ÖªµÀÔÚDϵÄSelectedÕâ¸öÊôÐÔÔÚVB.NETÏÂÓÐûÓÐ

ÓÐÕâ¸öÊôÐÔµÄ

---

for I = 0 to List