共用方式為

步驟 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：填入欄位清單框