Re: [問題]如何判別list的資料是否重複輸入?

[windwofswold (☆極光駭客★)]

※ 引述《shenghong (連不上ptt，哭到天明)》之銘言：
: ※ 引述《windwofswold (☆極光駭客★)》之銘言：
: : http://vb.infoserv.com.tw/ctlVB6/LMListBox16.html
: : 這個是調用API來搜尋，速度比較快一點，給你試試嘍@@
: 謝謝啦，但還是有問題~@.@
: 這是改寫後的,用Module去宣告API
: 但是還是無法偵測到重複的資料(打123)

Private Declare Function SendMessage Lib "User32" Alias "SendMessageA" (ByVa
l hWnd As Long,ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Const LB_FINDSTRING = &H18F

Private Sub Command1_Click()

Dim Rslt As Long
Rslt = SendMessage(List1.hWnd, LB_FINDSTRING, -1, ByVal Text1.Text)
If Rslt = -1 Then
  List1.AddItem Text1.Text
  Text1 = ""
Else
  MsgBox Text1 & "這筆已存在，位置:" & Rslt + 1, vbInformation
End If

End Sub


還有另一個方法

Private Sub Command1_Click()

List1.Text = Text1             '這就是搜尋的功能@@
If List1.ListIndex = -1 Then
  List1.AddItem Text1.Text
  Text1 = ""
Else
  Label1.Caption = "已有重複的資料了!"
End If

End Sub

--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 220.135.21.91
※ 編輯: windwofswold    來自: 220.135.21.91        (12/26 20:11)
→ shenghong:真的很謝謝你，用第二種方式成功了^_^
推 shenghong:第一個努力研究中...^^