admin 管理员组

文章数量: 1086019


2024年3月27日发(作者:linux删除3天前的文件)

frmTimer窗体控件:

commandbutton * 2

picturebox * 1

pictureclip(注:图片剪切控件) * 1

timer * 3

(注:此处只给出了控件类型,控件名祥见代码)

frmTimer 的代码

Option Explicit

Public t As Integer, str As String

Public h As Integer, m As Integer, s As Integer

Private Sub Show_LED(picTimer As PictureBox, str As String)

'显示图片的通用过程

Dim s As String * 1

Dim pos As Integer

Dim n As Integer

Dim i As Integer

For i = 1 To Len(str)

s = Mid(str, i, 1)

n = -1

Select Case s

Case "0" To "9"

n = CInt(s)

Case ":"

n = 10

Case "-"

n = 11


本文标签: 控件 删除 图片 类型 名祥