如何将它放在picture上？急急！！！，在线等..

来源：百度知道编辑：UC知道时间：2024/05/23 12:39:33

Option Explicit
DefDbl A-Z

Private Sub Form_Load()
Timer1.Interval = 100
Width = 4000
Height = 4000
Left = Screen.Width \ 2 - 2000
Top = (Screen.Height - Height) \ 2
End Sub

Private Sub Form_Resize()
Dim I, Angle
Static flag As Boolean
If flag = False Then
flag = True
For I = 0 To 14
'画出表盘12个点和时、分、秒共15个Line
If I > 0 Then Load Line1(I)
Line1(I).Visible = True
Line1(I).BorderWidth = 5
Line1(I).BorderColor = RGB(200, 100, 60)'设置LINE的精细和颜色
Next I
End If
For I = 0 To 14
Scale (-1, 1)-(1, -1)
Angle = I * 2 * Atn(1) / 3
Line1(I).X1 = 0.9 * Cos(Angle)
Line1(I).Y1 = 0.9 * Sin(Angle)
Line1(I).X2 = Cos(Angle)
Line1(I).Y2 = Sin(Angle)
Next I
End Sub

Private Sub Timer1_Timer()
Const HH = 0
Const MH = 13
Const SH = 14
Dim Angle
Static LS
If Seco

代码如下。建一个Picture1.
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
Option Explicit
DefDbl A-Z

Private Sub Form_Load()
Timer1.Interval = 100
End Sub

Private Sub Form_Resize()
Dim I, Angle
Static flag As Boolean
If flag = False Then
flag = True
For I = 0 To 14
'画出表盘12个点和时、分、秒共15个Line
If I > 0 Then Load Line1(I)
Line1(I).Visible = True
Line1(I).BorderWidth = 5
Line1(I).BorderColor = RGB(200, 100, 60) '设置LINE的精细和颜色
Next I
End If
For I = 0 To 14
Picture1.Scale (-1, 1)-(1, -1)
Angle = I * 2 * Atn(1) / 3
Line1(I).X1 = 0.9 * Cos(Angle)
Line1(I).Y1 = 0.9 * Sin(Angle)
Line1(I).X2 = Cos(Angle)
Line1(I).Y2 = Sin(Angle)
Next I
End Sub

Private Sub Timer1_Timer()
Const HH = 0
Const MH = 13
Const SH = 14
Dim Angle
Static LS
If Second(Now) = LS Then Exit Sub
LS = Second(Now)
Angle = 0.5236 * (15 - (Hour(Now) + Minute(N

如何在picture中加载控件数组我下载了留言本如何将它放在网上我已经有了动太空间如果一个装满水的水瓶底下有一个小洞,那么将它放在墨水上墨水会不会进去? 如何在电脑上制作硬盘,如"G盘"等并将它隐藏如果我在网站上找到一个视频如何将它上传其它网站要熔化纯铁,能否将它放在铜锅里? 十万火急，如何在vb中的picture框中插入flash 我在网站上看到很好看2分钟的视频，如何将它保存在自己的计算机上呢？怎么样才可以将“线”上观看的电影下载下来？或者利用别的什么软件可以将它录下来，放在我的电脑上？在vb中自己做了个画图程序，图片是画在picture控件上的，请问如何保存图片为.jpg或其它格式。