VB ActiveX 使用方法(三)

回首頁

分類

標題

大意

作者

日期
MsFlexGrid 合併儲存格 MergeCells 屬性的使用 老怪 1999/6/13
MsFlexGrid 如何隱藏欄位 兼論 ColIsVisible 屬性 老怪 1999/6/15
MsFlexGrid 如何得知我 Click 那個 Cell RowColChange 通知 老怪 1999/6/16
MsFlexGrid 列印所有 Cell 的內容 TextMatrix 屬性 老怪 1999/6/23
MsComm 如何不停的 ReCheck 輸入區 使用 Timer 控件 老怪 1999/6/15

合併儲存格

'範例功能：儲存格合併
'測試本範例請於表單步置 MsFlexGrid1、Command1,2
Option Explicit
Private Sub Command1_Click()
    '沒有任何合併
    MSFlexGrid1.MergeCells = 0
    MSFlexGrid1.MergeCol(0) = True
    MSFlexGrid1.MergeCol(1) = True
    MSFlexGrid1.MergeCol(2) = True
    MSFlexGrid1.MergeCol(3) = False
End Sub
Private Sub Command2_Click()
    '自由合併模式
    MSFlexGrid1.MergeCells = 1
    MSFlexGrid1.MergeCol(0) = True
    MSFlexGrid1.MergeCol(1) = True
    MSFlexGrid1.MergeCol(2) = True
    MSFlexGrid1.MergeCol(3) = False
End Sub
Private Sub Form_Load()
Dim AddString As String
    Command1.Caption = "儲存格不併"
    Command2.Caption = "儲存格合併"

    MSFlexGrid1.Cols = 4
    MSFlexGrid1.Rows = 0

    AddString = "A" & Chr(9) & "Ap" & Chr(9) & "Aplle" & Chr(9) & "Good"
    MSFlexGrid1.AddItem AddString
    AddString = "A" & Chr(9) & "Ap" & Chr(9) & "Aplle" & Chr(9) & "Bad"
    MSFlexGrid1.AddItem AddString
    AddString = "A" & Chr(9) & "As" & Chr(9) & "Access" & Chr(9) & "Hard"
    MSFlexGrid1.AddItem AddString
    AddString = "B" & Chr(9) & "Bc" & Chr(9) & "BCB Builder" & Chr(9) & "Too
Hard"
    MSFlexGrid1.AddItem AddString
    AddString = "B" & Chr(9) & "Bi" & Chr(9) & "Bill" & Chr(9) & "Hurt"
    MSFlexGrid1.AddItem AddString
End Sub

回索引

如何隱藏欄位

vespa 撰寫於文章

MSHFlexGrid.ColIsVisible(index)，其index要如何用，它的型態是Long，如我設MSHFlexGrid.ColIsVisible(1)  run時會告訴我“不可指定至常數“，請問要如何設？

老怪答：

  1. 恐怕你誤解了 MSHFlexGrid.ColIsVisible 屬性的含意，他和一般其他物件的 Visible 屬性不一樣，所謂的 ColIsVisible 是指如果 MSHFlexGrid 的總欄位寬度大於他的顯示窗格，那該 Col(Index) 是在顯示窗格內還是在顯示窗格外的檢查標記，也就是說它是唯讀而不能由程設師設定的。
  2. 此外 MsFlexGrid 也不像 DBGrid 有 Column.Visible 屬性，所以它沒辦法 Hide ，唯一讓它看不見的方法是讓MsFlexGrid.ColWidth(Index)=0。
  3. 你加大 MsFlexGrid.Cols 數目，使它顯示窗格無法完全顯示，然後貼入下面這段：
    Private Sub MSFlexGrid1_Scroll()
        Debug.Print MSFlexGrid1.ColIsVisible(MSFlexGrid1.Cols - 1)
    End Sub
    然後左右拉他的捲動軸，你就可看間 Debug 視窗裏時而 True ，時而 False。

回索引

如何不停的 ReCheck 輸入區

Private Sub Timer1_Timer()
    If MSComm1.InBufferCount >= 1 Then
        GotMessage
    End If
End Sub

Private Sub GotMessage()
Dim InString as String

    '暫停 MsComm1 暫存區查核
    Timer.Enable=False

    ' 讀取所有可用資料.
    MSComm1.InputLen = 0
    ' Read data.
    InString = MSComm1.Input
    Text1.Text=Text1.Text & InString
    Text1.SelStart=(Len(Text1.Text))

    '恢復 MsComm1 暫存區查核
    Timer.Enable=True
End Sub

回索引

如何得知我 Click 那個 Cell

上班族(女) 撰寫於文章

請問若我要讓某一列的欄高加大(在run time時)，要怎得知某個格子被click了？

老怪答：

Private Sub MSFlexGrid1_RowColChange()
Debug.Print "Col=" & MSFlexGrid1.Col & "/Row=" & MSFlexGrid1.Row
End Sub

回索引

列印所有 Cell 的內容

Private Sub Command1_Click()
Dim I As Long, J As Long
Dim PrintString As String
    For I = 0 To MSFlexGrid1.Rows - 1
        PrintString = ""
        For J = 0 To MSFlexGrid1.Cols - 1
            PrintString = PrintString & MSFlexGrid1.TextMatrix(I, J) & "/"
        Next
        Printer.Print PrintString
    Next
    Printer.EndDoc
End Sub

回索引

回首頁

1