有谁懂VB
课程设计。我在用VB做指针式时钟,那个刻度怎么也出不来,还有我想在界面上加一行会移动的字,也不会,请教高手 --------------------编程问答-------------------- 针式时钟可以尝试用GDI+画出来会移动的字可以用label控件做,用一个Timer定时,然后改变label控件的坐标就可以了 --------------------编程问答-------------------- 指针可以使用Line控件来做,或者使用Line方法来绘制。 --------------------编程问答-------------------- 请问楼主,要达到哪种水平,才算“懂VB”???
--------------------编程问答--------------------
--------------------编程问答-------------------- 我以前VS2005做出来一个过啊。,。。。 --------------------编程问答-------------------- 课程设计的意义就是让你动脑子学习的。
Option Explicit
Const π = 3.14159127
Dim XS, YS, rad
Dim ab%, CNT%, a!, b!, W!, X!, Y!, Z!, C!, D!, E!, F!, TX$
Private Sub Form_Load()
Me.AutoRedraw = True
XS = Width / 2
YS = (Height / 2) - 120
Font.Name = "Courier New"
For ab = 0 To 359 Step 30
a = Sin(clock(ab))
b = -(Cos(clock(ab)))
If ab = 0 Then CNT = 360 Else CNT = ab
TX = Trim(Int((CNT) / 30))
Line ((a * 1000) + XS, (b * 1000) + YS)-((a * 900) + XS, (b * 900) + YS), RGB(0, 0, 0)
CurrentX = (a * 1200) + XS - (TextWidth(TX$) / 2)
CurrentY = (b * 1200) + YS - (TextHeight(TX$) / 2)
Print TX$
Next ab
Line1.X1 = XS
Line1.Y1 = YS
Line2.X1 = XS
Line2.Y1 = YS
Line3.X1 = XS
Line3.Y1 = YS
Me.Move (Screen.Width - Me.Width) \ 2, (Screen.Height - Me.Height) \ 2
Timer1.Interval = 500
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
W = Timer
X = W / 120
Y = W * 6
Z = W / 10
a = Sin(clock(X))
b = -(Cos(clock(X)))
Line1.X2 = (a * 600) + XS
Line1.Y2 = (b * 600) + YS
C = Sin(clock(Y))
D = -(Cos(clock(Y)))
Line3.X2 = (C * 800) + XS
Line3.Y2 = (D * 800) + YS
E = Sin(clock(Z))
F = -(Cos(clock(Z)))
Line2.X2 = (E * 800) + XS
Line2.Y2 = (F * 800) + YS
End Sub
Private Function clock(X)
rad = π / 180
clock = X * rad
End Function
要不然干吗上这个学,受这个罪。 --------------------编程问答-------------------- 多多交流啊! --------------------编程问答-------------------- 居然还有这种写法。很强大。刚测试过,vb.net也支持这种写法。这样比正则方便多了。 --------------------编程问答-------------------- Characters in pattern
Matches in string
? Any single character
* Zero or more characters
# Any single digit (0–9)
[charlist] Any single character in charlist
[!charlist] Any single character not in charlist
Like Operator (Visual Basic)
太强大了。
补充:VB , 基础类