access开发实现流式输出

HI，大家好！

最近，“苏超”非常的火热，众所周知作为包邮区的江苏人，啊不对，为什么江苏人这三个字打出来，这么烫手呢！没错，作为一个中国江阴人！我支持无锡！

当然，最近也是高考，所以苏超为了不打扰到考生，最新一轮还未开打，不过这周末，将在我们中国江阴鉴证，太湖三傻中的无锡与常州的对决，欢迎大家来玩！

好了，说了那么多足球相关的内容，今天要给大家讲讲足球相关的内容？不过这个相关的内容早就有讲过了，大家可以参考：在access中实现对称式的堆积条形图

今天我们就来讲讲流式输出！开始前，先给个一键三链吧！

啥是流式输出？

流式输出（Streaming Output）是一种数据渐进传输技术，通过分块传输实现实时增量渲染。

我们在平时使用对话式AI时，就是这样的一个输出方式，在调用API时，用户就不需要等待，内容就会像打字一样，一点一点的出来，那今天我们就来简单的实现一下！

1

创建窗体

首先，我们先创建一个窗体，在窗体放上两个文本框，一个按钮，控件的名称：txtMsg，txtPrint，btnPrint

2

添加代码

接着，就可以来添加代码了。

Option Explicit

Private i, k As Integer



Private Sub btnPrint_Click()

    If IsNull(Me.txtMsg) Then

        MsgBox "请输入内容！", vbExclamation

        Me.txtMsg.SetFocus

        Exit Sub

    End If

    Me.TimerInterval = 300

    

End Sub



Private Sub Form_Load()



    Me.TimerInterval = 0

    i = 0

End Sub



Private Sub Form_Timer()



    

    k = Len(Me.txtMsg)

    If i > k Then

        Me.TimerInterval = 0

        Me.txtMsg.SetFocus

    Else

        Me.txtPrint = Mid(Me.txtMsg, 1, i)

    End If

    If i <= k Then

        i = i + 1

    Else

        i = 1

    End If

     

End Sub

3

运行测试

最后，我们就来运行看一下！

OK，到这里就可以了，大家快去试一下吧！