lanlanvip
lanlanvip
关注数: 12
粉丝数: 9
发帖数: 195
关注贴吧数: 4
亲们,咱这谁知道哪有平顶山到上海的大巴 RT, 旅游一圈
【全橙开砸 销量称霸】陈翔要来郑州啦!!!!!!!!!! 11月4号。陈翔将携最新专辑“初告白”在歌迷KTV郑州建文店大厅,恭候您的光临! 欢迎您的参见
12号楼终于不停电了,。...但。。。。。。 老师这样给我们说的: 11点后不断电,但是.....断网!!
建议12号楼别停电了。 一天一天的热了, 电扇少不了哇,请管理这方面的老师,别再停电了。, 晚上够热了
新人报道! 呵呵, 先Sorry! 没报道就先发帖了! 这次来个新人报道, 在校学生, 今年6月大学毕业, 学习电脑网络专业 工作已经应聘上了,松下公司。 大家多多支持,多多鼓励
寻 vb 高手..找错误!! Option Explicit Sub changcolor(lcnt As Control, color1 As Integer, _ color2 As Integer, color3 As Integer, _ color4 As Integer, color5 As Integer, _ color6 As Integer, color7 As Integer, _ color8 As Integer) Dim tmep As Integer tmep = Val(lcnt.Tag) Select Case tmep Case color1 lcnt.Tag = color2 Case color2 lcnt.Tag = color3 Case color3 lcnt.Tag = color4 Case color4 lcnt.Tag = color5 Case color5 lcnt.Tag = color6 Case color6 lcnt.Tag = color7 Case color7 lcnt.Tag = color8 Case color8 lcnt.Tag = color1 End Select lcnt.ForeColor = QBColor(lcnt.Tag) End Sub Private Sub Timer1_Timer() changcolor Label1, 2, 3, 4, 5, 6, 7, 8, 9 End Sub 想问问这段代码哪里错了
今天第一次在贴吧上发话。 终于有勇气发帖了。哈哈 以前都是只看,.....是进步,为自己鼓掌
1
下一页