如何赋string值

数据类型  
  Type   TNode  
          Cur   As   Integer  
          ID   As   String  
          PP_Cur   As   String  
          Distance   As   Long  
          Status   As   Boolean  
  End   Type  
   
   
  With   Point(1)  
          .ID   =   "S"         ‘///此处出错，弹出对话框提示"“invalid   outside   procedure"  
          .Status   =   False  
          .LastPoint   =   "S"  
  End   With 问题点数：20、回复次数：5Top

1 楼faysky2（出来混，迟早是要还嘀）回复于 2006-03-07 23:07:41 得分 3

Point数组定义了没有？  
  结构体里怎么没有   .LastPoint     ？？Top

2 楼faysky2（出来混，迟早是要还嘀）回复于 2006-03-07 23:10:02 得分 3

With   Point(1)  
          .ID   =   "S"         ‘///此处出错，弹出对话框提示"“invalid   outside   procedure"  
          .Status   =   False  
          .LastPoint   =   "S"  
  End   With  
  ----------------------------------  
  无效外部过程  
  上面这段代码应该写在某个函数或过程里，比如Form_Load等Top

3 楼daisy8675（莫依 沉迷）回复于 2006-03-07 23:27:59 得分 1

帖完整一点的代码Top

4 楼of123（）回复于 2006-03-08 08:33:43 得分 3

With   Point(1)  
          .ID   =   "S"         ‘///此处出错，弹出对话框提示"“invalid   outside   procedure"  
          .Status   =   False  
          .LastPoint   =   "S"  
  End   With  
   
  把这段代码从通用区移到过程或函数里去。Top

5 楼ZOU_SEAFARER（颓废程序员^_^）回复于 2006-03-08 09:20:06 得分 10

 
      1   point是关键字  
      2   LastPoint   在你自定义数据类型里面没有这个  
      3.你应该把付值放在一个过程里面完成  
  Option   Explicit  
  Private   Type   TNode  
          Cur   As   Integer  
          ID   As   String  
          PP_Cur   As   String  
          Distance   As   Long  
          Status   As   Boolean  
  End   Type  
  Dim   Po_int(1)   As   TNode  
   
  Private   Sub   Form_Load()  
    With   Po_int(1)  
          .ID   =   "S"  
          .Status   =   False  
    End   With  
    '看这样还错不错  
  End   SubTop

相关问题

• 代码
• lastpoint
• 此处出错
• 弹出对话框提示
• cur
• 过程
• invalid
• status
• outside procedure
• point

• 帖主：charkie
• faysky2
• faysky2
• daisy8675
• of123
• ZOU_SEAFARER

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