分类

  • 软件天地

    • Asp组件初级入门与精通系列之三‖

    　　打开vb6,新建Activex
    		Dll工程。工程名修改为fCom,类
    		名修改为fC2

    　　点击菜单->工具->添加过程


    　　我们在名称内输入myName,类型选择属性，范围选择公有，然后确定            

    　　再次操作:在名称内输入Age,类型选择属性，范围选择公有，然后确定            

    　　再次操作:在名称内输
    		入peopleInfo,类型选择函数，
    		范围选择公有，然后确定即可

    　　代码如下:


    　　Option Explicit                                                

    　　'保持属性值的局部变量,只能在类中使用                                        

    　　Private mvarmyName As String　                    

    　　Private mvarAge As Integer                          

    　　‘Let写属性(Let属性: 该过程给一个属性赋值。)                        


    　　Public Property Let
    		Age(ByVal vData As Integer)

    　　　　mvarAge = vData                                            

    　　End Property                                                      

    　　‘Get读属性(该过程获取一个属性的值。)                                    

    　　Public Property Get Age() As Integer      

    　　　　Age = mvarAge                                                

    　　End Property                                                      

    　　Public Property Let myName(ByVal
    		 vData As String)

    　　　　mvarmyName = vData                                      

    　　End Property                                                      

    　　Public Property Get myName() As String  

    　　　　myName = mvarmyName                                    
    　　End Property                                                      

    　　                                                                             
    　　Public Function peopleInfo() As String  

    　　peopleInfo = "姓名: " & mvarmyNa
    		me & "　年龄:" & mvarAge

    　　End Function                                                      

    　　                                                                             
    　　Ok,一个简单的组件就写好了，点击菜单->文件->生成fCom.dll文件


    　　确定，在目录下就会有fCom.dll文件                                      

    　　                                                                             
    　　测试


    　　打开visual interdev6
    功能，与vb的ide环境一致
    		.0,生成一个asp文件，为什么要
    ，方便书写
    		使用interdev,因为它有代码提示


    　　<%@ Language=VBScript %>


    　　


    　　


    　　<%                                                                          

    　　set obj=server.CreateObject("fCo
    		m.fC2")

    　　dim c                                                                    

    　　'这里调用的是组件的Let属性                                                

    　　obj.myName ="龙卷风"                                            

    　　obj.Age =20                                                        

    　　c=obj.peopleInfo()                                         

    　　Response.Write c                                              

    　　'这里调用的是组件的Get属性                                                

    　　Response.Write "
    "


    　　Response.Write obj.myName                            

    　　Response.Write "
    "


    　　Response.Write obj.Age                                 

    　　%>


    　　


    　　


    　　配置好虚拟目录，在ie中执行此asp文件，得到结果如下:                      
    　　姓名: 龙卷风 年龄:20                                                    
    　　龙卷风                                                                        
    　　20                                                                          



    上一页 下一页




    map