| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 503 人关注过本帖
标题:[求助]VB程序所需要的控件
只看楼主 加入收藏
duruijie
Rank: 1
等 级:新手上路
帖 子:2
专家分:0
注 册:2007-5-20
收藏
 问题点数:0 回复次数:2 
[求助]VB程序所需要的控件

VERSION 5.00
Begin VB.Form Form1
Caption = "Form1"
ClientHeight = 6390
ClientLeft = 60
ClientTop = 345
ClientWidth = 8640
LinkTopic = "Form1"
ScaleHeight = 6390
ScaleWidth = 8640
StartUpPosition = 3 '′° úè±ê
Begin VB.Timer Timer1
Interval = 1000
Left = 5880
Top = 3960
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "Label1"
ForeColor = &H00FF0000&
Height = 180
Left = 3240
TabIndex = 0
Top = 2160
Width = 540
End
Begin VB.Shape S_s
BorderStyle = 0 'Transparent
FillColor = &H000000FF&
FillStyle = 0 'Solid
Height = 255
Index = 1
Left = 3240
Shape = 3 'Circle
Top = 2760
Width = 375
End
Begin VB.Shape S_s
BorderStyle = 0 'Transparent
FillColor = &H0000FF00&
FillStyle = 0 'Solid
Height = 255
Index = 0
Left = 3240
Shape = 3 'Circle
Top = 1440
Width = 375
End
Begin VB.Shape S_H
BackColor = &H00000000&
BorderColor = &H0080FFFF&
BorderStyle = 0 'Transparent
FillColor = &H0080FF80&
FillStyle = 0 'Solid
Height = 255
Index = 1
Left = 3960
Shape = 2 'Oval
Top = 2160
Width = 255
End
Begin VB.Shape S_H
BackColor = &H00000000&
BorderColor = &H0080FFFF&
BorderStyle = 0 'Transparent
FillColor = &H0080FF80&
FillStyle = 0 'Solid
Height = 255
Index = 0
Left = 2760
Shape = 2 'Oval
Top = 2160
Width = 255
End
Begin VB.Line Line1
Index = 7
X1 = 3960
X2 = 3960
Y1 = 1920
Y2 = 120
End
Begin VB.Line Line1
Index = 6
X1 = 3960
X2 = 3960
Y1 = 2760
Y2 = 5880
End
Begin VB.Line Line1
Index = 5
X1 = 3960
X2 = 6840
Y1 = 2760
Y2 = 2760
End
Begin VB.Line Line1
Index = 4
X1 = 3960
X2 = 6840
Y1 = 1920
Y2 = 1920
End
Begin VB.Line Line1
Index = 3
X1 = 3000
X2 = 3000
Y1 = 1920
Y2 = 120
End
Begin VB.Line Line1
Index = 2
X1 = 3000
X2 = 3000
Y1 = 2760
Y2 = 5880
End
Begin VB.Line Line1
Index = 1
X1 = 120
X2 = 3000
Y1 = 2760
Y2 = 2760
End
Begin VB.Line Line1
Index = 0
X1 = 120
X2 = 3000
Y1 = 1920
Y2 = 1920
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim R_time As Integer, a As Boolean

Private Sub Timer1_Timer()
Select Case R_time
Case 1
S_s(1).FillColor = vbRed
Label1.Caption = R_time
Case 2
S_s(1).FillColor = vbYellow
Label1.Caption = R_time

Case 3
S_s(1).FillColor = vbGreen
Label1.Caption = R_time


R_time = 1
Exit Sub
End Select
R_time = R_time + 1

End Sub

不好意思程序长了点.我想知道这个程序需要几个控件.谢谢

搜索更多相关主题的帖子: 控件 Begin 
2007-05-20 15:35
Joforn
Rank: 6Rank: 6
等 级:贵宾
威 望:23
帖 子:1242
专家分:122
注 册:2007-1-2
收藏
得分:0 
你把这段方本保存到一个文本文件,然后把后缀名改为.Frm,双击打开不就知道了?

VB QQ群:47715789
2007-05-20 15:59
duruijie
Rank: 1
等 级:新手上路
帖 子:2
专家分:0
注 册:2007-5-20
收藏
得分:0 

大哥,我帮别人问的,本身我也不懂,可是我按你说的方法什么也不出来啊

2007-05-20 16:21
快速回复:[求助]VB程序所需要的控件
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.019885 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved