Question

vb中的代码问题老是说变量未定义

imgD(1).Picture = pclpnum.GraphicCell(colorX * 10)老是说pclpnum未定义变量?

Answer 1

不知道你的代码是自己写的呢还是复制的什么地方的。
pclpnum这个东西应该是个控件，而且应该是个PictureClip控件
VB编辑器内 Ctrl+T 键,在控件列表里选择 Microsoft PictureClip Control 6.0
将PictureClip放置在窗体上，并命名为 pclpnum。
尝试一下

Answer 2

pclpnum应该是控件名称。

Answer 3

去掉 Option Explicit 行，

追问

子程序或函数未定义 Sub showday()
On Error Resume Next
If Len(CStr(Day(Now))) < 2 Then
imgD(1).Picture = pclpnum.GraphicCell(colorX * 10)
imgD(0).Picture = pclpnum.GraphicCell(colorX * 10 + CInt(CStr(Day(Now))))
Else
Dim i As Integer
For i = 0 To 1
imgD(i).Picture = pclpnum.GraphicCell(colorX * 10 + CInt(Mid(CStr(Day(Now)), 2 - i, 1)))
Next
End If
End Sub

追答

你用了控件，同意saddogchen 回答