玄関へお回り下さい。
AxMSHFlexGridコントロールの基本的な操作色々（その２） (4個)     (SNo.069)

１．昇順ソート
２．降順ソート
３．選択した範囲のテキストをクリップボードにコピー
４．選択した範囲にクリップボードのデータをペースト
使用コントロール Button3 〜 Button6  AxMSHFlexGrid1
その他条件 WindowsXP(Vista)　Visual Basic 2005(VB2008)
ツールボックスを右クリックして、アイテムの追加と削除より、COMコンポーネント内のMicrosoft Hierarchical FlexGrid Control 6.0(SP4)(OLEDB) にチェックを入れて下さい。（VB6.0 が別途必要です）　
１．昇順ソート
　
Private Sub Button3_Click(ByVal sender As System.Object, _
                          ByVal e As System.EventArgs) Handles Button.Click
'昇順ソート
    AxMSHFlexGrid1.Col = 1
    AxMSHFlexGrid1.Sort = MSHierarchicalFlexGridLib. _
                          SortSettings.flexSortStringNoCaseAscending
End Sub
　
２．降順ソート
　
Private Sub Button4_Click(ByVal sender As System.Object, _
                          ByVal e As System.EventArgs) Handles Button4.Click
'降順ソート
    AxMSHFlexGrid1.Col = 1
    AxMSHFlexGrid1.Sort = MSHierarchicalFlexGridLib. _
                          SortSettings.flexSortStringNoCaseDescending
End Sub
　
３．選択した範囲のテキストをクリップボードにコピー
　
Private Sub Button5_Click(ByVal sender As System.Object, _
                          ByVal e As System.EventArgs) Handles Button5.Click
'選択した範囲のテキストをクリップボードにコピー
    System.Windows.Forms.Clipboard.SetDataObject(AxMSHFlexGrid1.Clip)
End Sub
　
４．選択した範囲にクリップボードのデータをペースト
　
Private Sub Button6_Click(ByVal sender As System.Object, _
                          ByVal e As System.EventArgs) Handles Button6.Click
'選択した範囲にクリップボードのデータをペースト
    '現在システム クリップボードにあるデータを取得します
    Dim iData As IDataObject = System.Windows.Forms.Clipboard.GetDataObject()
    'クリップボードにテキストデータがあれば
    If iData.GetDataPresent(DataFormats.Text) Then
        'MSHFlexGrid の選択範囲に書き出し
        AxMSHFlexGrid1.Clip = CType(iData.GetData(DataFormats.Text), String)
    End If
End Sub
　
　　　





2004/06/23
2005/09/29


VBレスキュー(花ちゃん)
VB.NET2003　　VB2005