关于磁盘存储数据的问题???

我的窗体上有一个COMBO1   两个TEXT.TEXT  
   
  现在我想设计一个程序有两个COMMAND  
   
   
  现在我想将COMO1   TEXT   中的内容存储到一个二进制文件中.  
   
  退出后  
  再运行用另一个COMMAND进行读入到COMBO1   和   两个TEXT中  
  请问程序应该怎么设计啊？  
  问题点数：20、回复次数：1Top

1 楼chendjin（蹭分来了）回复于 2005-04-01 15:49:03 得分 20

'保存数据  
  Private   Sub   Command1_Click()  
               
        Open   App.Path   &   "\Test.dat"   For   Binary   As   #1  
        Put   #1,yourtext  
        Close   #1  
         
  End   Sub  
  '读数据  
  Private   Sub   Command2_Click()  
          Dim   i   As   Long  
          If   Dir(App.Path   &   "\Test.dat")   <>   ""   Then  
                  Open   App.Path   &   "\Test.dat"   For   Binary   As   #1  
                  Get   #1,   ,   yourdat  
                  Close   #1  
                  ....  
          End   If  
         
  End   Sub  
  Top

相关问题

• 数据
• 存储
• dat
• combo
• 程序
• 设计
• sub
• command
• open app
• 数据private

• 帖主：ukm789512346
• chendjin

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