Spread Designer 6.0 visual basic 6.0 复选框默认选中

Question

我是 VB6 的新手（我知道...它很旧但我们仍在使用它）

我有一个旧网格有问题，我必须对其进行更改。正如您在下图中看到的，这个网格是在 Spread Designer 中设计的，我需要做的只是在加载表单时默认选择“更改”列。我在这里搜索了可以更改此列属性的位置，到目前为止我唯一发现的是当我右键单击并单击编辑时弹出的单元格类型。

任何人都可以在这里指出正确的方向吗？

我认为这是我可能需要进行更改的地方。

Private Sub GrdPriceChanges_LeaveCell(ByVal Col As Long, ByVal Row As Long, ByVal NewCol As Long, ByVal NewRow As Long, Cancel As Boolean)
Dim VatRate As Variant
Dim CostPrice As Variant
Dim SellPrice As Variant
Dim vData As Variant
Dim Margin As Variant

    If Col = 9 Then
        GrdPriceChanges.Row = Row
        GrdPriceChanges.Col = 9
        If CellPrice <> GrdPriceChanges.Value And CellPrice <> 0 Then
            GrdPriceChanges.Col = 11
            GrdPriceChanges.Value = 1
            
            GrdPriceChanges.GetText 12, Row, VatRate
            GrdPriceChanges.GetText 9, Row, SellPrice
            GrdPriceChanges.GetText 8, Row, CostPrice
            GrdPriceChanges.Col = 10
            GrdPriceChanges.Value = CalculateMargin(Val(VatRate), Val(CostPrice), Val(SellPrice))
        End If
        
    ElseIf Col = 10 Then
        GrdPriceChanges.Row = Row
        GrdPriceChanges.Col = 10
        If CellMargin <> GrdPriceChanges.Value And Val(CellMargin) <> 0 Then
            Margin = GrdPriceChanges.Value
            GrdPriceChanges.Col = 11
            GrdPriceChanges.Value = 1
            
            GrdPriceChanges.GetText 12, Row, VatRate
            GrdPriceChanges.GetText 9, Row, SellPrice
            GrdPriceChanges.GetText 8, Row, CostPrice
            GrdPriceChanges.Col = 9
            GrdPriceChanges.Value = SuggestPrice(Val(CostPrice), Val(Margin), Val(VatRate))
        End If
    End If

    GrdPriceChanges.Col = 9
    GrdPriceChanges.Row = NewRow
    CellPrice = Val(GrdPriceChanges.Value)
    GrdPriceChanges.Col = 10
    GrdPriceChanges.Row = NewRow
    CellMargin = GrdPriceChanges.Value

End Sub

Answer 1

到 select 一个 单元格 加载表格后：

Private Sub Form_Load()
   GrdPriceChanges.SetActiveCell 10, 1
End Sub

到 select 一个列加载表单后：

Private Sub Form_Load()
   GrdPriceChanges.SetSelection 10, 0, 10, GrdPriceChanges.MaxRows
End Sub

Spread Designer 6.0 visual basic 6.0 复选框默认选中

Spread Designer 6.0 visual basic 6.0 check box selected by default

vb6

vba