- 首页
-
- 问答
-
-
灰太狼
大家都太积极了，我也贴出来好了，新建一个窗体只需要添加下面的代码就可以运行注：这是CBM666的代码，我不是原创，但是我很欣赏CBM666，简直是崇拜啊。。。。Option ExplicitPrivate WithEvents Timer1 As TimerDim i%, j%, x1%, y1%, blockw%, blockh%, carX%, carY%, pcolor$Dim N%, L%, C$Const Captions As String = "烟花飘飘的小汽车"Private Sub Form_Load() Me.AutoRedraw = True Me.DrawWidth = 2 Me.Width = 5120 Me.Move (Screen.Width - Me.Width) \ 2, (Screen.Height - Me.Height) \ 2 Me.Cls carY = Me.Height \ 2: blockw = 500: blockh = 200 x1 = 0: y1 = carY - 230 Set Timer1 = Controls.Add("vb.timer", "timer1") Timer1.Interval = 50End SubPrivate Sub Timer1_Timer() Me.Cls For i = 1 To 12 pcolor = IIf(i Mod 2 = 0, vbBlue, vbRed) Line (carX - j, carY)-(carX - j + blockw, carY + blockh), pcolor, BF carX = IIf(carX + 500 >= 6000, 0, carX + 500) Next i j = IIf(j + 100 > 900, 0, j + 100) Line (x1, y1)-(x1 + 500, y1 + 100), , B Me.Circle (x1 + 100, y1 + 150), 50 Me.Circle (x1 + 380, y1 + 150), 50 x1 = IIf(x1 + 50 >= 5000, -500, x1 + 50) L = Int(Me.Width / 220) C = String(L, " ") & Captions & String(L, " ") N = N + 1 If N > Len(C) - L Then N = 1 Me.Caption = Mid(C, N, L)End Sub
-
-
-
-
-
-
-
-
求购
东京蓝调° Provence 简单面具制作法： 材料：硬纸板250x300mm一块。橡皮筋180mm长（宽的那种)。 工具：尺子，铅笔，剪刀，彩色笔(根据所绘图案选取)，刀片，胶带纸。 做法： 1，根据佩带者的头部大小，将硬纸板剪成脸形轮廓。 2，用尺子量出佩带者两眼之间的距离，在硬纸板上用铅笔做下标计，开孔，（没的把握的话，孔先开小点，配带者试试后确定应往哪个方面开太），最后把眼洞修饰整齐（可以用刀片）。 3，在面具两侧平行于眼晴的地方开刀片分别开两条可以穿过胶带纸的狭缝,相距约10mm。 4,绘制图案，用彩色笔在面具上绘出需要的图案(发挥你的创造力吧)。 5，先用胶带纸将面具的一头和橡皮筋的一头固定好，佩带在头上试一下松紧，截取需要的长度，将另一头也固定好。胶带的粘接一定要牢固，它是通过穿过狭缝，将面具和橡皮筋连粘带绑在一起的。橡皮筋的两头可以烧结起来，防止开线。 6，戴起来，大功告成。
656ed4bf33dd 电脑常见硬件故障检修的原则 电脑出现故障，通常有一些蛛丝马迹可寻。进行故障检查诊断，一般应遵循以下几个原则： 1.先检查机外部件，再检查机内部件 对主机或显示器不亮灯的故障，应先检查机外的开关、保险、插座有无断路、短路等，确认机外部件正常后再打开机箱或显示器进行检查。打开机箱后，先观察系统板卡的插头、插座是否歪斜，电阻、电容引脚是否相碰，表面是否烧焦，芯片表面是否开裂，主板上的铜箔是否烧断；还要查看是否有异物掉进主板的元器件之间造成短路，也可以看看板上是否有烧焦变色的地方、印刷电路板上的走线（铜箔）是否断裂等等。 另外，注意辨闻主机、板卡中是否有烧焦的气味，便于发现故障和确定短路所在地。同时也要监听电源风扇、软/硬盘电机或寻道机构、显示器变压器等设备的工作声音是否正常。另外，系统发生短路故障时常常伴随着异常声响，监听可以及时发现一些事故隐患和帮助在事故发生时及时采取措施。
2f50e76d5199 
1条回答
匿名用户 
匿名 
南山南。北秋悲 
257dc8bc2bcc 
2970ae0727ed 
