一区二区三区成人-一区二区三区www-一区二区三区 日韩-一区二区日韩欧美-一区二区日韩精品中文字幕-一区二区日韩

18063219
級別: *
精華主題: * 篇
發帖數量: * 個
工控威望: * 點
下載積分: * 分
在線時間: (小時)
注冊時間: *
最后登錄: *
查看18063219的 主題 / 回貼
樓主  發表于: 2010-04-29 13:45
某程序的功能是a1<=q<a2,Shape1.FillColor = vbGreen;q<a4,Shape1.FillColor = vbRed
a2<=q<a3,Shape2.FillColor = vbGreen,Shape2.FillColor = vbGreen  ;q<a5,Shape2.FillColor = vbRed
a3<=q<15,Shape3.FillColor = vbGreen,Shape2.FillColor = vbGreen,Shape1.FillColor = vbGreen;q<a6,Shape3.FillColor = vbRed
我寫的程序存在的問題:shape1顯示正常,其余兩個顯示綠色沒問題,但若要顯示紅色不能顯示,任然是綠色,不發生變化。
Private Sub Command2_Click()
Const pi = 3.14159
Dim t As Single, y As Single, p As Single
Dim a1 As Single, a2 As Single, a3 As Single, a4 As Single, a5 As Single, a6 As Single, q As Single



a1 = Val(Text1.Text)
a2 = Val(Text2.Text)
a3 = Val(Text3.Text)
a4 = Val(Text4.Text)
a5 = Val(Text5.Text)
a6 = Val(Text6.Text)
For t = 0 To 24 Step 0.0003
y = -2 * Sin(t * pi / 1.5) + 3

p = y / 5
Text8.Height = Text7.Height * (1 - p)
q = p * 15
Text9.Text = q
Shape1.Refresh
DoEvents
Select Case q


Case 0 To a4
Shape1.FillColor = vbRed
Case a1 To a2
Shape1.FillColor = vbGreen


Case a4 To a5
Shape2.FillColor = vbRed
Case a2 To a3
Shape2.FillColor = vbGreen
Shape1.FillColor = vbGreen


Case a5 To a6
Shape3.FillColor = vbRed
Case a3 To 15
Shape3.FillColor = vbGreen
Shape2.FillColor = vbGreen
Shape1.FillColor = vbGreen


End Select
Next t
End Sub
[ 此帖被18063219在2010-04-29 20:41重新編輯 ]
vili
級別: *
精華主題: * 篇
發帖數量: * 個
工控威望: * 點
下載積分: * 分
在線時間: (小時)
注冊時間: *
最后登錄: *
查看vili的 主題 / 回貼
1樓  發表于: 2010-05-02 07:53
就例如,C水位,
如果當前水位在13.5-14之間,你如何顯示??顯示綠色,還是紅色,這個在你上面的程序沒有處理。

主站蜘蛛池模板: 色悠久久久| 特级毛片免费观看视频| 国产精品理论片| 美艳教师刘艳第三部166| 国产成人激烈叫床视频| 欧美骚熟| 男人的天堂在线| 大陆男同志gayxxx| 亚洲好视频| 青草热久精品视频在线观看| 好湿好滑好硬好爽好深视频| 亚州日韩精品AV片无码中文| 日韩精品成人| 超碰av| asian4you裸模| 欧美性色欧美a在线播放| 好大好爽好涨太深了小喜| www.麻豆视频| 色综合综合色| 亚洲国产成人精品无码区APP| 国产一区私人高清影院| 短篇小说肉| 天天做天天爱天天综合网| 日韩欧美国产一区| 黑帮少爷爱上我第8集最新| 国产日日操| 波多野结衣久久国产精品| 青青青国产在线| 麻生希无码| 国产亚洲精品aaa大片| 91精品久久| 国产精品永久免费10000| 亚洲国产天堂综合一区| 日韩美一区二区三区| 免费一区二区视频| 九九在线免费视频| 18hdxxxx日本护士| 国产精品亚洲午夜不卡| 欧美一级久久久久久久大片| 女人和男人搞鸡| 欧美日韩一级视频|