VB中CELL尺寸太小?
以下代码执行的时候出现错误“cell尺寸太小,至少为1*1像素该怎么修改呢”Private incounter As Integer
Private Sub Form_Load()
incounter = 0
PictureClip1.Cols = 1
PictureClip1.Rows = 4
PictureClip1.Picture = LoadPicture("C:\31-141-6765-141-1954-153-20061120051111.bmp")
Timer1.Interval = 300
End Sub
Private Sub Timer1_Timer()
incounter = incounter + 1
PictureClip1.Picture = PictureClip1.GraphicCell(i)
If incounter > 3 Then incounter = 0