掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
リストボックスからのデータの抽出について (ID：107365)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
例えば、こういうことでしょうか・・・ Private Sub Command1_Click() Dim sz As String Dim p0 As Integer Dim p1 As Integer Text1.Text = "" If List1.ListIndex > -1 Then sz = List1.List(List1.ListIndex) p0 = InStr(1, sz, vbTab, vbBinaryCompare) If p0 > 0 Then p1 = InStr(p0 + 1, sz, vbTab, vbBinaryCompare) If p0 > 0 And p1 > 0 And p0 < p1 Then Text1.Text = Mid$(sz, p0 + 1, p1 - p0 - 1) End If End If End If End Sub 以上。
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.