text内容被选定显示怎么实现 & Setup Factory 6.0.0.3 的注册码有人知道码?

请问:  
  1   我想执行命令后,让一个文本筐的内容被选定,就像我们用鼠标把它选定一样,怎么实现  
  2   我想打包文件,可是Setup   Factory   6.0.0.3要注册码,有人知道码?  
  3.能在循环里捕捉错误吗?  
  如     For   i   =   0   To   255   '对key进行分离  
   
          If   j   >   Len(key)   Then   j   =   1  
          K(i)   =   Asc(Mid(key,   j,   1))  
       
          j   =   j   +   1  
   
  Next   i  
      当keu被输入成汉字的时候,我想有错误捕捉的功能.  
  谢谢大家 问题点数：60、回复次数：5Top

1 楼sinom（小白MOU）回复于 2003-12-02 16:01:45 得分 50

1   text1.setfocus  
   
  2   软件名称：Setup   Factory   零售版  
  软件说明：一个强大的安装程序制作工具。提供了安装制作向导界面，即使你对安装制作不了解，也可以生成专业性质的安装程序。可建立快捷方式，也可直接在Windows   系统的   Register加入内容，还能在Win.ini和   System.ini内加入设定值，更可以建立反安装选项等等。它内附的精灵可以一步步的带领您做出漂亮又专业的安装程式。最新的   6.03   版支持标准的   Windows   2000   的安装风格，非常漂亮、专业！  
   
  安装序列号：SF6-1139-6333-8984  
   
  重要说明：  
  Setup60.exe  
  为主安装程序   版本：6.0.0.3  
   
  suf60cm-patch.exe  
  升级到   版本：6.0.1.2  
   
  6.0.0.3汉化补丁.zip  
  安装了汉化补丁，就不能升级到   版本：6.0.1.2  
   
  中文窗体模板.exe  
  Setup   Factory   中文窗体模板，适用   Setup   Factory   6.0   所有版本  
   
  3   输入汉字也不会出错吧？再议Top

2 楼sinom（小白MOU）回复于 2003-12-02 16:03:04 得分 0

错了。  
  １　text1.selstart=0  
          text1.sellength=len(text1.text)  
          text1.setfocusTop

3 楼jaz（飞刀，又见飞刀！）回复于 2003-12-03 10:41:37 得分 0

For   i   =   0   To   255   '对key进行分离  
   
          If   j   >   Len(key)   Then   j   =   1  
          K(i)   =   Asc(Mid(key,   j,   1))  
       
          j   =   j   +   1  
  如果输入汉字,则Asc(Mid(key,   j,   1))会出错啊!Top

4 楼yinweihong（）回复于 2003-12-07 12:19:20 得分 0

楼上的sinom       好象要先让text获得焦点再选择吧Top

5 楼SoHo_Andy（冰）回复于 2003-12-07 12:27:37 得分 10

text1.setfocus  
  SendKeys   "{Home}+{End}"Top

相关问题

• 安装
• 选定
• 汉字
• 版本
• 内容
• 专业
• setup factory
• 输入
• 程序
• asc

• 帖主：jaz
• sinom
• SoHo_Andy

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