ActiveX que permite tener un cuadro desplegable + una casilla de verificacion

baklao · #1 (**permalink**) 03/12/2004, 01:19

Hola a todos del foro aqui les pongo la direccion en donde pueden bajar el activeX http://www.downlinx.com/proghtml/1/106.htm
y el codigo es el siguiente:

Código HTML:

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<html>
	<head>
		<title>CheckListBox Property Test</title>
		<meta content="VBScript" name="vs_defaultClientScript">
		<meta content="http://schemas.microsoft.com/intellisense/nav4-0" name="vs_targetSchema">
		<meta content="Microsoft Visual Studio.NET 7.0" name="GENERATOR">
		<meta content="VisualStudio.HTML" name="ProgId">
		<meta content="Microsoft Visual Studio.NET 7.0" name="Originator">
		<script language="vbscript" id="clientEventHandlersVBS">
<!--
' CheckListBox ActiveX Control sample
' Copyright (c)1996-2003 Zeal SoftStudio.
' Web: [url]http://www.zealsoft.com[/url] (English)
'      [url]http://zealsoft.nease.net/[/url] (Chinese)
' E-Mail: [email][email protected][/email]

Sub window_onload
   ' Add strings to the control
   Dim sDir
   sDir = Replace(Unescape(document.URL), "Default.html", "")
   sDir = Replace(sDir, "file://", "")
   For i = 1 To 10
	Chklist1.AddItem "Item " & i
        If i Mod 2 = 1 Then
            Set ChkList1.ItemImage(ChkList1.NewIndex) = _
                LoadPicture(sDir + "chemical.ico")
            ChkList1.ItemBackColor(ChkList1.NewIndex) = RGB(255, 255, 192)
        Else
            Set ChkList1.ItemImage(ChkList1.NewIndex) = _
                LoadPicture(sDir + "construc.ico")
            ChkList1.ItemBackColor(ChkList1.NewIndex) = RGB(255, 192, 192)
        End If
   Next

   ' Add a disabled item
   ChkList1.AddCheckedItem "This item is disabled."
   ChkList1.Grayed(ChkList1.NewIndex) = True

   ChkList1_Click
End Sub

Sub Select1_onclick
	Chklist1.setAttribute "Style", select1.value
End Sub

Sub btnAdd_onclick
    Dim s
    
    s = InputBox("Enter a string:", "Add Item")
    If s <> "" Then
		ChkList1.AddItem s
    End If
    ChkList1_click
End Sub

Sub Chklist1_click
    lblResult.innerText = "Count of List = " & ChkList1.ListCount _
			& ", count of checked items = " & ChkList1.CheckedCount
End Sub

Sub btnRemove_onclick
    If ChkList1.ListIndex = -1 Then
        PromptSelect
    Else
        ChkList1.RemoveItem ChkList1.ListIndex
        ChkList1_Click
    End If
End Sub

Sub PromptSelect()
    MsgBox "You must select an item in CheckListBox first!", 64
End Sub

Sub btnCheckAll_onclick
	Chklist1.CheckAll
	Chklist1_Click
End Sub

Sub btnClear_onclick
	Chklist1.clear
	Chklist1_Click
End Sub

Sub btnEdit_onclick
    Dim s
    
    If ChkList1.ListIndex = -1 Then
        PromptSelect
    Else
        s = InputBox("Enter a string:", "Edit", ChkList1.Text)
        If s <> "" Then ChkList1.List(ChkList1.ListIndex) = s
    End If
End Sub

Sub Checkbox1_onclick
	Chklist1.NoCheckmark = Checkbox1.checked
End Sub

Sub Checkbox2_onclick
	Chklist1.Enabled = Checkbox2.checked
End Sub

Sub Select3_onclick
	Chklist1.ToggleMode = select3.value
End Sub

Sub Select2_onclick
	Chklist1.CheckAlignment = select2.value
End Sub

-->
		</script>
	</head>
	<body ms_positioning="GridLayout">
<table height="431" cellspacing="0" cellpadding="0" width="566" border="0" ms_2d_layout="TRUE">
  <tr valign="top"> 
    <td colspan="5" height="31"><b>Style:</b> 
      <select id="Select1" name="Select1">
        <option value="0" selected>0-AutoDetect</option>
        <option value="1">1-Windows 3.x</option>
        <option value="2">2-Windows 95</option>
        <option value="3">3-Borland</option>
        <option value="4">4-CTL3D</option>
        <option value="5">5-Diamond 3D</option>
        <option value="6">6-Diamond 2D</option>
        <option value="7">7-True and False</option>
        <option value="8">8-Plus and Minus</option>
        <option value="9">9-Circle</option>
        <option value="10">10-Custom</option>
        <option value="11">11-Windows XP</option>
      </select>
    </td>
  </tr>
  <tr valign="top"> 
    <td colspan="5" height="31"><b>Toggle:</b> 
      <select id="Select3" name="Select3">
        <option value="0" selected>0-Single click</option>
        <option value="1">1-Click on mark</option>
        <option value="2">2-Double Click</option>
      </select>
    </td>
  </tr>
  <tr valign="top"> 
    <td colspan="6" height="29"> 
      <div ms_positioning="FlowLayout"> <b>Alignment:</b> 
        <select id="Select2" name="Select2">
          <option value="0" selected> 0-Left</option>
          <option value="1"> 1-Right</option>
        </select>
      </div>
    </td>
  </tr>
  <tr valign="top"> 
    <td colspan="2" height="29"> 
      <div></div>
      <input id="Checkbox1" type="checkbox" name="Checkbox1">
      No Checkmark 
      <div ms_positioning="FlowLayout"> </div>
    </td>
    <td colspan="3" height="29"> 
      <input id="Checkbox2" type="checkbox" CHECKED name="Checkbox2">
      Enable </td>
  </tr>
  <tr valign="top"> 
    <td colspan="2" rowspan="5"> <object id="Chklist1" height="243" width="261" classid="clsid:22A21987-4FA2-11D1-AF19-444553540000">
        <param name="_Version" value="65544">
        <param name="_ExtentX" value="6906">
        <param name="_ExtentY" value="6429">
        <param name="_StockProps" value="221">
        <param name="Text" value="">
        <param name="ForeColor" value="-2147483640">
        <param name="BackColor" value="-2147483643">
        <param name="Enabled" value="-1">
        <param name="Appearance" value="1">
        <param name="ToggleMode" value="0">
        <param name="ShowFocusRect" value="-1">
        <param name="SortMode" value="0">
        <param name="CheckAlignment" value="0">
        <param name="NoCheckmark" value="0">
        <param name="MultiSelect" value="0">
        <param name="Redraw" value="-1">
        <param name="KeyFind" value="-1">
        <param name="Style" value="0">
        <param name="ItemHighLight" value="-1">
        <param name="Sorted" value="0">
      	<param name="ImageStretch" value="-1">
		<param name="ItemHeight" value="0">
		<param name="BackColor" value="-2147483643">
		<param name="ForeColor" value="-2147483640">
		<param name="Appearance" value="1">
      </object> </td>
    <td colspan="3"> 
      <input id="btnAdd" type="button" value="Add Item   " name="Button14">
    </td>
  </tr>
  <tr valign="top"> 
    <td colspan="3"> 
      <input id="btnRemove" type="button" value="Remove Item" name="Button13">
    </td>
  </tr>
  <tr valign="top"> 
    <td colspan="3"> 
      <input id="btnEdit" type="button" value="Edit       " name="Button1">
    </td>
  </tr>
  <tr valign="top"> 
    <td colspan="3"> 
      <input id="btnClear" type="button" value="Clear      " name="Button12">
    </td>
  </tr>
  <tr valign="top"> 
    <td colspan="3"> 
      <input id="btnCheckAll" type="button" value="Check All  " name="Button1">
    </td>
  </tr>
  <tr valign="top"> 
    <td colspan="6"> 
      <div id="lblResult" ms_positioning="FlowLayout"> 
        <table height="23" cellspacing="0" cellpadding="0" width="430" border="0" ms_1d_layout="TRUE">
          <tr> 
            <td></td>
          </tr>
        </table>
      </div>
    </td>
  </tr>
  <tr valign="top"> 
    <td colspan="6"> 
      <div ms_positioning="FlowLayout"> Copyright &copy; 1997-2003, <a href="http://www.zealsoft.com">Zeal 
        SoftStudio</a></div>
    </td>
  </tr>
</table>
</body>
</html>

Espero que le pueda servir a otra persona como me fue a mi.