html.bas

来自「This application i made for handle simpl」· BAS 代码 · 共 31 行

Attribute VB_Name = "mdlHtml"


Option Explicit


Public Function TableHeader(ByVal nText As String, Optional ByVal nWidth As String = "80", Optional ByVal nAlign As String = "left") As String

  Dim th As String

  If (nWidth = "-1") Then
    th = "<td class='headeritem' align='" & nAlign & "' nowrap>" & nText & "</td>"
  Else
    th = "<td class='headeritem' width='" & nWidth & "px' align='" & nAlign & "' nowrap>" & nText & "</td>"
  End If

  TableHeader = (th)

End Function

Public Function TableItem(ByVal nText As String, Optional ByVal nAlign As String = "left") As String

  Dim ti As String
  ti = "<td class='item' align='" & nAlign & "' nowrap>" & nText & "</td>"

  TableItem = (ti)

End Function