Bagikan melalui

Langkah 4: Isi Kotak Teks Detail

  • Artikel

Untuk mengisi kotak teks Detail, buat subroutine baru bernama recFields dan sisipkan kode berikut:

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

Kode ini diisi lstDetails dengan bidang dan nilai rekaman sederhana yang diteruskan ke recFields. Jika sumber daya adalah file teks, Aliran teks akan dibuka dari rekaman sumber daya. Kode menentukan apakah set karakter adalah ASCII dan menyalin konten Stream ke dalam txtDetails.

Lihat juga

Skenario Penerbitan Internet
Langkah 3: Isi Kotak Daftar Bidang