Sending the window message CB_SHOWDROPDOWN to the combo boxl shows the list box of a combo box. Example: * Create a new Standard EXE Project * Add a combo box
‘ convert a string so that it can be used on a URL path” Same effect as the Server.URLPathEncode method in ASPFunction URLPathEncode(ByVal Text As String) As String Dim i
‘ convert a VB color code to the ##rrggbb format used in HTML attributesFunction ColorToHTML(ByVal color As Long) As String ‘ HTML color codes are in the format #RRGGBB (red,
‘ Create a HTML table from a recordset” set the TableAttribs argument to a suitable value’ (eg “BORDER=1”) to modify the table’s standard layout’ you should omit the NullValues argument
‘ Decode an HTML string to a regular ANSI string” it strips down all special HTML sequences (eg “<“)’ however, it doesn’t strip HTML tagsFunction HTMLDecode(ByVal html As String) As
‘ convert a string so that it can be used on a URL query string” Same effect as the Server.URLEncode method in ASPFunction URLEncode(ByVal Text As String) As String Dim
‘ Encode an string so that it can be displayed correctly’ inside the browser.” Same effect as the Server.HTMLEncode method in ASPFunction HTMLEncode(ByVal Text As String) As String Dim i
Private Declare Function FindWindow Lib “user32” Alias “FindWindowA” (ByVal _ lpClassName As String, ByVal lpWindowName As String) As LongPrivate Declare Function SendMessage Lib “user32” Alias “SendMessageA” (ByVal _ hWnd As
Const DM_BITSPERPEL As Long = &H40000Const DM_PELSWIDTH As Long = &H80000Const DM_PELSHEIGHT As Long = &H100000Const CCDEVICENAME As Long = 32Const CCFORMNAME As Long = 32Private Type DEVMODE dmDeviceName As