次の方法で共有

手順 4: 詳細テキストボックスに情報を入力する

  • [アーティクル]

[詳細] テキスト ボックスに入力するには、recFields という名前の新しいサブルーチンを作成し、次のコードを挿入します。

Sub recFields(r As Record, l As ListBox, t As TextBox)  
    Dim f As Field  
    Dim s As Stream  
    Set s = New Stream  
    Dim str As String  
  
    For Each f In r.Fields  
        l.AddItem f.Name & ": " & f.Value  
    Next  
    t.Text = ""  
    If r!RESOURCE_CONTENTCLASS = "text/plain" Then  
        s.Open r, adModeRead, adOpenStreamFromRecord  
        str = s.ReadText(1)  
        s.Position = 0  
        If Asc(Mid(str, 1, 1)) = 63 Then '//63 = "?"  
            s.Charset = "ascii"  
            s.Type = adTypeText  
        End If  
        t.Text = s.ReadText(adReadAll)  
    End If  
End Sub

このコードは、recFieldsに渡される単純なレコードのフィールドと値を lstDetails に設定します。 リソースがテキスト ファイルの場合は、リソース レコードからテキスト ストリームが開かれます。 このコードは、文字セットが ASCII であるかどうかを判断し、Stream コンテンツを txtDetailsにコピーします。

関連項目

インターネット公開シナリオの
手順 3: [フィールド] リストボックスを入力する