VB6.0用掲示板の過去のログ(No.2)−VBレスキュー(花ちゃん)
[記事リスト] [新規投稿] [新着記事] [ワード検索] [管理用]

投稿日： 2007/02/28(Wed) 11:45
投稿者： Do_Shirouto
Ｅメール：
ＵＲＬ：
タイトル： Re^6: MSFlexGrid1.MouseRow & .MouseColについて

何度も申し訳御座いません。
続きを教えて頂きたいのですが、
---------------------
Private Sub MSFlexGrid1_Click()
Text3.ZOrder vbBringToFront
Text3.Refresh

With MSFlexGrid1
        Text3.Move .Left + .CellLeft, .Top + .CellTop, .CellWidth, .CellHeight
    End With
    Text3.Visible = True
    Text3.SetFocus
XX = MSFlexGrid1.Row
YY = MSFlexGrid1.Col
    
Text3.Text = MSFlexGrid1.TextMatrix(XX, YY)
Select Case YY--------ここでMSFlexGrid1.Col=0の所をクリックしても
                      YY=1　になっています。
   Case 1, 3, 9, 10
     Text3.Alignment = 2
   Case 5, 6, 7
     Text3.Alignment = 1
   Case 2, 4, 8
     Text3.Alignment = 0
     End Select
End Sub
---------------------------------------
MSFlexGrid1.Col=0の所をクリックした時　YY=0にしたいのですが
無理でしょうか？
目的は横1行(列)クリップボードに代入したいのです。
ご指導のほど宜しくお願いいたします。

- 関連一覧ツリー （★ をクリックするとツリー全体を一括表示します）
- 返信フォーム （この記事に返信する場合は下記フォームから投稿して下さい）

- VBレスキュー(花ちゃん) - - Web Forum -