用“MSFlexGrid1”替换“MSHFlexGrid1”。

解决方案 »

  1.   

    例子如下:(在XP、VB6环境下调试通过)'给MSFlexGrid1一些初始值
    Private Sub Form_Load()
    For i = 1 To 3
      For j = 1 To 2
       MSFlexGrid1.Col = i
       MSFlexGrid1.Row = j
       MSFlexGrid1.Text = "No." & i & j
      Next j
    Next i
    End Sub
    '把选中单元格的内容赋给一个字符串变量并显示出来
    Private Sub MSFlexGrid1_MouseUp(Button As Integer, _
    Shift As Integer, X As Single, Y As Single)
      
      Dim myStr As String
      myStr = MSFlexGrid1.Clip
       MsgBox myStrEnd Sub
      

  2.   

    MSHFlexGrid1.Clip = myStr
      

  3.   

    微软说这是VB的一个BUG,到此下载VB(vstudio6.0)的补丁程序SP5,一切OK!
    http://msdn.microsoft.com/vstudio/downloads/updates/sp/vs6/sp5/sp5_dwnld.asp