Question

我正在制作一个VB6项目来显示板球比赛的统计数据。在“ overs”文本框中，我想以“ over.ball”（例如：-6.2，12.5）格式显示当前的over和balls。我目前已经设置了一个“ up”按钮，将“ 0.1”添加到文本框中单击时。当我单击“向上”按钮时，如果文本框的当前值为“ 0.5”，则必须变为“ 1” [或“ 1.0”]，而不是“ 0.6”。

这是我为“ up”命令添加的代码。

Private Sub up_Click()
overs.Text = overs.Text + 0.1
End Sub

Preview of the application
Code for the 'up' command

那么，我必须在文本框中使用哪种格式来显示上述内容？

注意：抱歉！我是VB6的新手。因此，请告诉我是否需要有关此问题的更多信息。希望得到您的答复。谢谢！

Answer 1

我已经在Excel中完成了此操作，因为我没有VB6，但是您可能可以从中获得一些有用的信息。我创建了一个名为Innings的新类模块：

Private m_Over As Integer
Private m_Ball As Integer
Public Sub BowlDelivery()
    If m_Ball = 5 Then
        m_Ball = 0
        m_Over = m_Over + 1
    Else
        m_Ball = m_Ball + 1
    End If
End Sub
Public Function ToString() As String
    ToString = Format(m_Over, "##0") + "." + Format(m_Ball, "0")
End Function
Private Sub Class_Initialize()
    m_Over = 0
    m_Ball = 0
End Sub

此类封装了保龄球投递的行为，以及如何影响超额球数和超额球中的球。然后，ToString方法将这些值格式化为您将在乐谱显示中正常显示的方式。

然后您可以像这样使用此类：

Public Sub TestInnings()
    Dim EnglandFirstInnings As New Innings
    Dim i As Integer
    For i = 1 To 100
        Debug.Print EnglandFirstInnings.ToString()
        EnglandFirstInnings.BowlDelivery
    Next
End Sub

如果您没有在VB6中使用自己的类，那么可能值得在该主题上进行一些背景阅读，因为它们是隐藏复杂性的好方法。

是否以板球“翻车”格式设置文本格式？

1 个答案: