如何使用 vb 中的 dhtml 制作网页？

我将一个按钮添加到网页中，写了单击事件--弹出一个对话框，在vb   中调试中没问题。  
  但是我怎么将他保存一个同样功能的网页？ 问题点数：50、回复次数：5Top

1 楼junki（『.NET技术争霸天下』）回复于 2006-03-01 09:04:06 得分 15

最好封装成DLL或OCX.Top

2 楼liuxiaoyi666（MSMVP 小猪妹荣誉马甲之八卦兔子）回复于 2006-03-01 09:47:59 得分 20

......走火入魔了....嘿嘿Top

3 楼vansoft（Vansoft Workroom）回复于 2006-03-01 10:22:25 得分 15

看一下VB的DHTML的幫助吧。  
  生成就可以了。  
  一個網頁，還有相應的DLL，裏面就是單擊按鈕的代碼。Top

4 楼mydo（侯佩|hopy|ks）回复于 2006-03-01 12:26:57 得分 0

ok可以了，但是我用了数据集成环境作了一个写入数据库的代码，  
  单击确定键后，不报错，但打开数据库文件一看什么也没写进去？  
   
  Private   Function   btn1_onclick()   As   Boolean  
   
          If   de.rsCommand1.EOF   =   True   Then  
                de.rsCommand1.AddNew  
          Else  
                  de.rsCommand1.MoveLast  
                  de.rsCommand1.AddNew  
          End   If  
   
          de.rsCommand1.Fields(0).Value   =   txt1.Value  
          de.rsCommand1.Fields(1).Value   =   Val(txt2.Value)  
          de.rsCommand1.Fields(2).Value   =   Date  
          de.rsCommand1.Fields(3).Value   =   txt3.Value  
           
        de.rsCommand1.Update  
        Delay   0.2  
         
        de.rsCommand1.Close  
        Delay   0.2  
        de.rsCommand1.open  
           
        txt1.Value   =   ""  
        txt2.Value   =   ""  
        txt3.Value   =   ""  
           
  End   Function  
   
  Public   Sub   Delay(PauseTime   As   Single)  
  Dim   Start   As   Single  
  Start   =   Timer  
  Do   While   Timer   <   Start   +   PauseTime  
              DoEvents  
  Loop  
  End   Sub  
   
  Private   Sub   DHTMLPage_Load()  
   
          de.rsCommand1.open           ；***  
          Delay   0.2  
          de.rsCommand1.Update  
          Delay   0.2  
   
  End   Sub  
   
  还有我单步调试的时候，到打   ***   的一句会出现：  
   
  run-time   error   '-2147217887(80040e21)  
  多步   ole   db   操作产生错误   ...Top

5 楼mydo（侯佩|hopy|ks）回复于 2006-03-01 22:00:48 得分 0

no   one   ？Top

相关问题

• 网页
• rscommand1
• de
• txt
• fields
• delay

• 帖主：mydo
• junki
• liuxiaoyi666
• vansoft

• Visual Basic类图书
• Visual Basic类源码下载