例51：状态条的使用

曾小猫

于 2024-05-04 21:09:08 发布

阅读量240

点赞数 1

CC 4.0 BY-SA版权

分类专栏： Visual Free Basic例解教程文章标签：开发语言

本文链接：https://blog.csdn.net/u010763140/article/details/138450398

Visual Free Basic例解教程专栏收录该内容

63 篇文章

订阅专栏

建立一个EXE工程，在窗体上放一个状态条（Status），一个文本框和一个计时器（Timer)。
设置计时器的时间间隔为1000毫秒。
在状态条中增加两个窗格。分别写上文本：文本框字符个数，时间日期。
在计时器的计时事件中输入代码：

Sub Form1_Timer1_WM_Timer(hWndForm As hWnd, wTimerID As Long)

   Status1.Text(0) = Text1.TextLength

   Status1.Text(1) =  Format(Now(), "yyyy / mm / dd hh：mm：ss")

End Sub

5.程序运行界面如下：（图49）

图49