help about "Begin Dialog UserDialog"

Sub   Main()  
                  Begin   Dialog   UserDialog   350,   112  
                          Text   100,   14,   140,   14,   "   please   fill   in   Def"  
                          TextBox   90,   42,   170,   2,   .Text  
                          OKButton   120,   84,   90,   21  
                  End   Dialog  
                  Dim   dlg   As   UserDialog  
                  Dialog   dlg  
  End   Sub  
   
  为什么编译的时候老是会在UserDialog外报错,Expected:end   of   statement  
  谢谢各位! 问题点数：100、回复次数：10Top

1 楼kmlxk（xiaoKKKK）回复于 2006-07-02 16:13:39 得分 0

你确定这是vb的代码吗？Top

2 楼touchminami（touch）回复于 2006-07-02 16:22:27 得分 0

你觉得不是吗?  
  我写在word   vbs里的,   在vb里也一样啊  
  Top

3 楼aspower_（敬个礼 握个手 大家都素好朋友！）回复于 2006-07-02 16:25:11 得分 0

我倒  
  能是一样的吗？  
  那有这样用的Top

4 楼touchminami（touch）回复于 2006-07-02 16:28:16 得分 0

Private   Sub   Command1_Click()  
          Begin   Dialog   UserDialog   350,   112  
                  Text   100,   14,   140,   14,   "   please   fill   in   Def"  
                  TextBox   90,   42,   170,   2,   .Text  
                  OKButton   120,   84,   90,   21  
          End   Dialog  
          Dim   dlg   As   UserDialog  
          Dialog   dlg  
  End   Sub  
   
  这样写总行了吧,响应一个按钮Top

5 楼loomman（一剑）回复于 2006-07-02 16:34:18 得分 0

LZ是阿姨级的程序设计师Top

6 楼touchminami（touch）回复于 2006-07-02 16:40:32 得分 0

少废话,快帮帮我吧Top

7 楼yufengnet（雨风）回复于 2006-07-02 19:31:13 得分 50

不错，不错，已经在写frm文件了，等等，vbs？？  
  Begin   VB.Form   FrmMain    
        Caption                   =       "Form1"  
        ClientHeight         =       3195  
        ClientLeft             =       60  
        ClientTop               =       345  
        ClientWidth           =       4680  
        ControlBox             =       0       'False  
        LinkTopic               =       "Form1"  
        MDIChild                 =       -1     'True  
        ScaleHeight           =       3195  
        ScaleWidth             =       4680  
        WindowState           =       2     'Maximized  
  End  
   
  我好象记得象这种代码是在frm里面的嘛。。Top

8 楼touchminami（touch）回复于 2006-07-02 20:14:06 得分 0

好像是的,不好意思,我从来没学过VB  
  那么  
  ub   Main()  
                  Begin   Dialog   UserDialog   350,   112  
                          Text   100,   14,   140,   14,   "   please   fill   in   Def"  
                          TextBox   90,   42,   170,   2,   .Text  
                          OKButton   120,   84,   90,   21  
                  End   Dialog  
                  Dim   dlg   As   UserDialog  
                  Dialog   dlg  
  End   Sub  
  是怎么用,用在什么场合呢?   给个例子吧Top

9 楼aspower_（敬个礼 握个手 大家都素好朋友！）回复于 2006-07-02 20:16:12 得分 50

你这个代码之能用在word里面  
  UserDialog  
   
    TextBox    
  OKButton  
   
  这些和vb都不一样的Top

10 楼touchminami（touch）回复于 2006-07-03 09:01:33 得分 0

可是我在word里用  
  Sub   Main()  
                  Begin   Dialog   UserDialog   350,   112  
                          Text   100,   14,   140,   14,   "   please   fill   in   Def"  
                          TextBox   90,   42,   170,   2,   .Text  
                          OKButton   120,   84,   90,   21  
                  End   Dialog  
                  Dim   dlg   As   UserDialog  
                  Dialog   dlg  
  End   Sub  
  怎么还是会在UserDialog的地方出错呢?   是不是这个VBS的版本太旧了?  
  Top

相关问题

• 帖主：touchminami
• yufengnet
• aspower_

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