none
求解!!! RRS feed

  • 问题

  • 大家好,小弟初学VB,现想实现 点击按钮1,数据在MSFlexGrid里显示, 接着 点击 按钮2  使用CommonDialog

    把MSFlexGrid里的数据 保存起来。 现能保存,可MSFlexGrid里的数据却不显示在保存的文件里! 望各位高手 教教我。谢谢   

    以下是代码:Private Sub Command1_Click()

      Grid.Cols = 2
      Grid.Rows = 200 + 1
     
      Grid.Col = 0
      For i = 1 To 200
        Grid.Row = i
        Grid.Text = i
      Next i
      For j = 1 To 100
        Grid.Col = 1
        Grid.Row = j
        Grid.Text = Str$(j)
          Next j
      Grid.Row = 0
      Grid.Col = 0: Grid.Text = " 序号"
      Grid.Col = 1: Grid.Text = " 温度值"
      Grid.TopRow = 1
      Grid.LeftCol = 1
      Grid.ColWidth(0) = 600
      Grid.ColWidth(1) = 1000
      End Sub

     

    Private Sub Command2_Click()

      Dialog.Filter = "*.txt|*.txt|"
      F3 = FreeFile
      Dialog.ShowSave
      fname = Dialog.FileName
      Open fname For Output As #F3
        
            Print #F3, ?????
          
      Close #F3

    End Sub

    2008年10月13日 15:46

答案

全部回复

  • Code Snippet

    for i=1 to grid.rows-1

       Print #F3,grid.textmetrix(i,1)

    next

     

     

     

    2008年10月14日 7:00
    版主
  •  feiyun0112 写:

    Code Snippet

    for i=1 to grid.rows-1

       Print #F3,grid.textmetrix(i,1)

    next

     

     

     

             

    Print #F3,   grid.textmatrix(i,1) .....  非常谢谢这位好心人!鞠个躬。
    2008年10月14日 14:43