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 下一页