文件名称：Visual Basic LED控件
文件大小：9KB
文件格式：CTL
更新时间：2017-02-04 09:43:49
vb LED
模拟LED数码管的VB控件，很好用 If Len(strTmp) < 5 Then If InStr(1, strTmp, ".") Then For i = 1 To 5 - Len(strTmp) strTmp = strTmp & "0" Next i Else strTmp = strTmp & ".0" End If End If j = 1 For i = 0 To 3 If j < 4 And Mid$(strTmp, j + 1, 1) = "." Then Bar7Seg(i).DrawLED Mid$(strTmp, j, 2) j = j + 1 Else Bar7Seg(i).DrawLED Mid$(strTmp, j, 1) End If j = j + 1 Next i