ActiveX Control Roundup (text figures)

Figure 2Visual Speller 2.0 on a Web Page

Spellchk.htm

 
<HTML> 
<HEAD> 
<TITLE>New Page</TITLE> 
</HEAD> 
<BODY> 
 
<OBJECT CLASSID="CLSID:812AE312-8B8E-11CF-93C8-00AA00C08FDF" 
ID="SPELLCHK_alx" STYLE="LEFT:0;TOP:0"> 
<PARAM NAME="ALXPATH" REF VALUE="file:C:\WIN95\Desktop\SPELLCHK.alx"> 
 </OBJECT> 
 
</BODY> 
</HTML>

Spellchk.alx

  
<SCRIPT LANGUAGE="VBScript"> 
<!-- 
Sub CommandButton1_Click() 
VSSpell1.CheckText = TextBox1.Text 
End sub 
--> 
</SCRIPT> 
<DIV ID="SPCHK" STYLE="LAYOUT:FIXED;WIDTH:597pt;HEIGHT:362pt;"> 
    <OBJECT ID="TextBox1" 
     CLASSID="CLSID:8BD21D10-EC42-11CE-9E0D-00AA006002F3" STYLE="TOP:91pt;LEFT:41pt;WIDTH:347pt;HEIGHT:133pt;TABINDEX:0;ZINDEX:0;"> 
        <PARAM NAME="VariousPropertyBits" VALUE="746604571"> 
        <PARAM NAME="BackColor" VALUE="255"> 
        <PARAM NAME="ForeColor" VALUE="16777215"> 
        <PARAM NAME="Size" VALUE="12241;4692"> 
        <PARAM NAME="FontEffects" VALUE="1073741825"> 
        <PARAM NAME="FontHeight" VALUE="200"> 
        <PARAM NAME="FontCharSet" VALUE="0"> 
        <PARAM NAME="FontPitchAndFamily" VALUE="2"> 
        <PARAM NAME="FontWeight" VALUE="700"> 
    </OBJECT> 
    <OBJECT ID="CommandButton1" 
     CLASSID="CLSID:D7053240-CE69-11CD-A777-00DD01143C57" STYLE="TOP:58pt;LEFT:182pt;WIDTH:72pt;HEIGHT:24pt;TABINDEX:1;ZINDEX:1;"> 
        <PARAM NAME="Caption" VALUE="Spell Check"> 
        <PARAM NAME="Size" VALUE="2540;847"> 
        <PARAM NAME="FontEffects" VALUE="1073741825"> 
        <PARAM NAME="FontHeight" VALUE="200"> 
        <PARAM NAME="FontCharSet" VALUE="0"> 
        <PARAM NAME="FontPitchAndFamily" VALUE="2"> 
        <PARAM NAME="ParagraphAlign" VALUE="3"> 
        <PARAM NAME="FontWeight" VALUE="700"> 
    </OBJECT> 
    <OBJECT ID="VSSpell1" 
     CLASSID="CLSID:97F4CED0-9103-11CE-8385-524153480001" 
     DATA="DATA:application/x-oleobject;BASE64,0M70lwORzhGDhVJBU0gAAQAA       
           AgABAQEAAAAAXn4AAAoAAQAMYW1lcmljYW4udnRk3AUAAAAAAAAAAAABwMDAAAAA 
           AAx2c3BlbGxlci5obHAMdnNwZWxsZXIuaGxwAAAA" 
     STYLE="TOP:256pt;LEFT:330pt;WIDTH:17pt;HEIGHT:17pt;ZINDEX:2;"> 
    </OBJECT> 
    <OBJECT ID="Label1" 
     CLASSID="CLSID:978C9E23-D4B0-11CE-BF2D-00AA003F40D0" STYLE="TOP:8pt;LEFT:41pt;WIDTH:347pt;HEIGHT:41pt;ZINDEX:3;"> 
        <PARAM NAME="ForeColor" VALUE="255"> 
        <PARAM NAME="Caption" VALUE="Use This Handy Spell Checker to Proof Your 
             Letters to the Technical Editor!"> 
        <PARAM NAME="Size" VALUE="12241;1446"> 
        <PARAM NAME="SpecialEffect" VALUE="1"> 
        <PARAM NAME="FontEffects" VALUE="1073741827"> 
        <PARAM NAME="FontHeight" VALUE="280"> 
        <PARAM NAME="FontCharSet" VALUE="0"> 
        <PARAM NAME="FontPitchAndFamily" VALUE="2"> 
        <PARAM NAME="ParagraphAlign" VALUE="3"> 
        <PARAM NAME="FontWeight" VALUE="700"> 
    </OBJECT> 
</DIV>

Figure 4Using mhIni

<SCRIPT LANGUAGE="VBScript"> 
<!-- 
Sub Layout1_OnLoad() 
call ComboBox1.AddItem("CLASSES_ROOT") 
call ComboBox1.AddItem("CURRENT_USER") 
call ComboBox1.AddItem("LOCAL_MACHINE") 
call ComboBox1.AddItem("USERS") 
call ComboBox1.AddItem("CURRENT_CONFIG") 
call ComboBox1.AddItem("DYNAMIC DATA") 
ComboBox1.ListIndex = 0 
end sub 
--> 
</SCRIPT> 
 
<SCRIPT LANGUAGE="VBScript"> 
<!-- 
Sub CommandButton1_Click() 
MhIni1.Key = ComboBox1.ListIndex + 1 
alert MhIni1.Key 
MhIni1.EntrySection = txtRegSection.Text 
MhIni1.EntryItem = txtRegItem.Text 
MhIni1.Action = 13 
txtRegValue.Text = MhIni1.EntryValue 
end sub 
-->

Figure 6Using the Calendar Component

Mscal.htm


<HTML> 
<HEAD> 
<TITLE>New Page</TITLE> 
</HEAD> 
<BODY> 
 
<OBJECT CLASSID="CLSID:812AE312-8B8E-11CF-93C8-00AA00C08FDF" 
ID="MSCAL_alx" STYLE="LEFT:0;TOP:0"> 
<PARAM NAME="ALXPATH" REF VALUE="file:C:\WIN95\Desktop\MSCAL.alx"> 
 </OBJECT> 
 
 
</BODY> 
</HTML>

Mscal.alx

 
<SCRIPT LANGUAGE="VBScript"> 
<!-- 
Sub Calendar1_DblClick() 
alert Calendar1.Value 
alert Calendar1.Month 
alert Calendar1.MonthLength 
alert Calendar1.Year 
alert Calendar1.FirstDay 
end sub 
--> 
</SCRIPT> 
<DIV ID="MSCAL" STYLE="LAYOUT:FIXED;WIDTH:400pt;HEIGHT:300pt;"> 
    <OBJECT ID="Calendar1" 
     CLASSID="CLSID:8E27C92B-1264-101C-8A2F-040224009C02" STYLE="TOP:8pt;LEFT:8pt;WIDTH:279pt;HEIGHT:209pt;ZINDEX:0;"> 
        <PARAM NAME="_Version" VALUE="524288"> 
        <PARAM NAME="_ExtentX" VALUE="9843"> 
        <PARAM NAME="_ExtentY" VALUE="7373"> 
        <PARAM NAME="_StockProps" VALUE="1"> 
        <PARAM NAME="BackColor" VALUE="12632256"> 
        <PARAM NAME="Year" VALUE="1996"> 
        <PARAM NAME="Month" VALUE="11"> 
        <PARAM NAME="Day" VALUE="3"> 
    </OBJECT> 
</DIV>

Figure 8 Using the ChkList Component


<HTML> 
 
<HEAD> 
<TITLE>New Page</TITLE> 
</HEAD> 
 
<BODY BGCOLOR=#CC5566> 
 
<SCRIPT LANGUAGE="VBScript"> 
<!-- 
Sub Window_onLoad() ' Same as Form_Load 
   ChkList1.Sort = False 
   ChkList1.AddStringCheck "Premiere Issue", True 
   ChkList1.AddString "Summer 96" 
   ChkList1.AddString "September 96" 
   ChkList1.AddString "October 96" 
   ChkList1.AddString "November 96" 
   ChkList1.AddString "December 96" 
   ChkList1.AddStringCheck "January 97", True 
End Sub 
--> 
</SCRIPT> 
 
<H1>Choose the MIND back issue you want:</H1> 
<OBJECT ID="ChkList1" WIDTH=181 HEIGHT=104 
 CLASSID="CLSID:D1D71993-5C1B-11CF-8E84-00AA006DB209">
 
    <PARAM NAME="_Version" VALUE="65536">
 
    <PARAM NAME="_ExtentX" VALUE="4798">
 
    <PARAM NAME="_ExtentY" VALUE="2752">
 
    <PARAM NAME="_StockProps" VALUE="77">
 
    <PARAM NAME="BackColor" VALUE="12632256">
 
    <PARAM NAME="Sort" VALUE="0"> 
</OBJECT> 
 
</BODY> 
</HTML>

Figure 10Creating Entities and Relations

Sub cbProgDemo_Click() 
call InterAct1.ResetDiagram 
If not(InterAct1.DoesRuleExist("Generic Rectangle","Generic Angle","Generic Rectangle")) then 
    Call InterAct1.AddRule("Generic Rectangle","Generic Angle","Generic Rectangle") 
end If 
 
call InterAct1.AddEntityFromClass(1, "","Generic Rectangle", "Customers Table", 75, 100, 80, 50) 
call InterAct1.AddEntityFromClass(2, "","Generic Rectangle", "Order Table", 200, 150, 80, 50) 
call InterAct1.AddEntityFromClass(3, "","Generic Rectangle", "Parts Table", 375, 275, 80, 50) 
 
call InterAct1.AddRelationFromClass(0, "Link1 ","Generic Angle","",1, "",2,"") 
call InterAct1.AddRelationFromClass(8, "Link2 ","Generic Angle","",2, "",3,"") 
end sub

Figure 13First Impression Sample Code

Chart.htm


<HTML> 
<HEAD> 
<TITLE>New Page</TITLE> 
</HEAD> 
<BODY> 
 
<OBJECT CLASSID="CLSID:812AE312-8B8E-11CF-93C8-00AA00C08FDF" 
ID="CHKLIST_alx" STYLE="LEFT:0;TOP:0"> 
<PARAM NAME="ALXPATH" REF VALUE="file:C:\WIN95\Desktop\CHART.alx"> 
 </OBJECT> 
 
</BODY> 
</HTML>

Chart.alx

 
<SCRIPT LANGUAGE="VBScript"> 
<!-- 
Sub Label1_DblClick(Cancel) 
call VtChart1.AboutBox() 
end sub 
--> 
</SCRIPT> 
<DIV ID="Layout1" STYLE="LAYOUT:FIXED;WIDTH:597pt;HEIGHT:362pt;"> 
    <OBJECT ID="VtChart1" 
     CLASSID="CLSID:5A721580-5AF0-11CE-8384-0020AF2337F2" 
     DATA="DATA:application/x-oleobject;BASE64,gBVyWvBazhGDhAAgryM38gAAAQAcQwAA 
           1h8AAGAAAAABAAEAAQABAAHAQABACBOZSAAAAAAAAAAAAAACABWdENoYXJ0AAYAAQAAAAEA 
           AAALAFZ0RGF0YUdyaWQAAQACAAAACQBWdE1hdHJpeAABAAMAAAANAFZ0Q29sbGVjdG 
           lvbgABAAAA 
           ... 
           AAAKAAAAAQD//////8EAAAAAAAEAAAABAAAAAQAAACpAAAAHwAAAAcAVnRMaXN0AAEAAw 
           AAAAAABAAAAAEAAAAAAP//////////////////AAAAAAAAIAAAAAkAVnRXaW5k 
           b3cAAgAEAAAAAAAAAAA=" 
     STYLE="TOP:66pt;LEFT:50pt;WIDTH:487pt;HEIGHT:231pt;ZINDEX:0;"> 
    </OBJECT> 
    <OBJECT ID="Label1" 
     CLASSID="CLSID:978C9E23-D4B0-11CE-BF2D-00AA003F40D0" STYLE="TOP:17pt;LEFT:50pt;WIDTH:487pt;HEIGHT:33pt;ZINDEX:1;"> 
        <PARAM NAME="Caption" VALUE="Oustanding Chart Demo!"> 
        <PARAM NAME="Size" VALUE="17180;1164"> 
        <PARAM NAME="BorderColor" VALUE="2147483661"> 
        <PARAM NAME="SpecialEffect" VALUE="3"> 
        <PARAM NAME="FontName" VALUE="Footlight MT Light"> 
        <PARAM NAME="FontEffects" VALUE="1073741827"> 
        <PARAM NAME="FontHeight" VALUE="480"> 
        <PARAM NAME="FontCharSet" VALUE="0"> 
        <PARAM NAME="FontPitchAndFamily" VALUE="2"> 
        <PARAM NAME="ParagraphAlign" VALUE="3"> 
        <PARAM NAME="FontWeight" VALUE="700"> 
    </OBJECT> 
</DIV>

Figure 14Crescent CIPOP3 Control

<SCRIPT LANGUAGE="VBScript"> 
<!-- 
Sub cbDeliver_Click() 
     
    Dim NumMessages 
    Dim MessageNum 
    Dim Connected 
 
    CIPOP1.UserName = "psanna" 
    CIPOP1.Password = "88888888" 
    Connected = (CIPOP1.ConnectToPOPServer()) 
 
    If Connected <> 0 then 
        Alert "Problem connecting to server." 
        Exit sub 
    End If 
 
    if CIPOP1.USER() <> 0 then 
        alert "Invalid user name." 
        call CIPOP1.QUIT() 
        exit sub 
    end if 
 
    if CIPOP1.PASS() <> 0 then 
        alert "Invalid password." 
        call CIPOP1.QUIT() 
        exit sub 
    end if 
 
    call CIPOP1.STAT() 
 
    if (CIPOP1.TotalMessages) = 0 then 
        alert "No messages in mailbox. Loser" 
        call CIPOP1.QUIT() 
        exit sub 
    end if 
    NumMessages = CIPOP1.TotalMessages 
    lblNumberMessages.Caption = NumMessages 
 
    for MessageNum = 1 to NumMessages 
        CIPOP1.MessageNumber = MessageNum 
        CIPOP1.RETR 
        listMessages.AddItem "Sender: " & CIPOP1.Sender + " - " + "Date: " + 
            CIPOP1.MessageDate         
    Next 
end sub