VBÉè¼Æ¶¯»Ê±ÖÓ
VBÉè¼Æ¶¯»Ê±ÖÓ
³ÌÐòÃû£ºSec-Time.vbp
³ÌÐòÀà±ð£ºÍêÕûµÄVB³ÌÐò
¹¦ÄÜ£ºÏÔʾһ¸ö¶¯»Ê±ÖÓ£¬¸ÃʱÕëËæ×ÅÿһÃë¶ø¶¯Ì¬±ä»¯¡£
³ÌÐò˵Ã÷
1£®ÈçºÎ»Ê±ÖÓ±íÅÌÉϵÄËùÓÐÖ±ÏßÔªËØ£¿
ÓÃLoadÃüÁÁ¢ÔʼLine¿ØÖƵÄ14¸ö¿½±´£¨ÒòΪ±íÅÌÓÐ12¸öµãºÍʱ¡¢·Ö¡¢Ãë¹²15¸öLine£©£¬¸Ã¿ØÖÆÊý×éÿһ¸öʵÀýµÄ¶Ëµã×ø±êÊôÐÔÉèÖÃΪÿÌõÏßÔÚʱÖÓ±íÅÌÉϵÄÊʵ±Î»Öã¬ÕâЩ¿½±´Öдó¶àÊýÖ»·ÅÖÃÒ»´Î£¬¶ø3¸öLine¿ØÖÆÃ¿ÃëÖÓ¸üÐÂÒ»´Î£¬²úÉúʱÖÓÖ¸ÕëÒÆ¶¯µÄ¸Ð¾õ¡£
×¢Ò⣺ÔÚÓ¦ÓóÌÐò´úÂëÖв¢Ã»ÓÐÖ±½Ó²Á³ýÈκÎÒ»ÌõÏß¡£µ±ÎÒÃǸıäÿһ¸öLine¿ØÖƵĶ˵ãʱ£¬Ã¿Ò»¸ùÕë
ÔÚÒÆ¶¯Ê±²Á³ýºÍÖØ»µÄËùÓм¼Êõ¹¤×÷¶¼ÓÉVBÀ´´¦Àí¡£
2£®ÈçºÎÐÞ¸ÄʱÕëµÄÐÎ×´£¿
ͨ¹ýµ÷Õû´úÂëÖеÄÊôÐÔÉèÖ㬿ÉÒԸıäʱÖÓµÄÐÎ×´¡£ÀýÈ磺ͨ¹ý¸Ä±äÿһ¸öLine¿ØÖƵÄBorderwidthÊôÐÔÉèÖ㬿ÉÒÔ½¨Á¢¸üϸ»ò¸ü´ÖµÄÏß¡£
3. ¼ÆÊ±Æ÷µÄInterval£¨¼ä¾à£©ÊôÐÔÉèÖÃ
¼ÆÊ±Æ÷µÄIntervalÊôÐÔÉèÖÃΪ100£¬¼´Îª1/10Ãë¡£
³ÌÐòµÄ±àдÓëÖ´ÐÐ
£¨1£©Ð½¨¹¤³Ì
ÏÈн¨Ò»¸ö¹¤³Ì£¨¹¤³ÌÀàÐÍΪ±ê×¼EXE£©£¬È»ºóÓÓ¹¤¾ßÏä”ÖеŤ¾ß¼ÓÈëÒ»¸öTimer1£¨¼ÆÊ±Æ÷£©ºÍline1£¨Ö±Ïߣ©£¬Æäindex£¨Ö¸Õ룩·Ö±ðÉèÖÃΪ¿ÕºÍ0¡£È»ºóË«»÷Form1´°Ì壬ÊäÈëÔ´´úÂë¡£
£¨2£©³ÌÐòÔ´´úÂë
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 = O To 14
'»³ö±íÅÌ12¸öµãºÍʱ¡¢·Ö¡¢Ãë¹²15¸öLINE
If I > 0 Then Load Line1(I)
Line1(I).Visible = True
Line1(I).BorderWidth = 5
Line1(I).BorderColor = RGB(0, 128, 0) 'ÉèÖÃ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 Second(Now) = LS Then Exit Sub
LS = Second(Now)
Angle = 0.5236 * (15 - (Hour(Now) + Minute(Now) / 60)) 'ÉèÖÃʱÕë
Line1(HH).X1 = 0
Line1(HH).Y1 = 0
Line1(HH).X2 = 0.3 * Cos(Angle)
Line1(HH).Y2 = 0.3 * Sin(Angle)
Angle = 0.1047 * (75 - (Minute(Now) + S
Ïà¹ØÎĵµ£º
VBʵÏÖVC TabControl¿Ø¼þ
н¨Ò»¸ö¹¤³ÌÎļþProject1£¬
ÔÚ×ó²à¹¤¾ßÀ¸ÖеãÓÒ¼ü
ÔÚ³öÏÖµÄÑ¡ÏîÖеã“Components”£¬ÔÚ´ò¿ª´°¿ÚÖÐÕÒµ½“Controls”Ñ¡ÏîÒ²ÖеēMicrosoft Tabbed Dialog Control 6.0”£¬È»ºóµã“Ó¦ÓÔ“È·¶¨”Í˳ö¸Ãҳà ......
Õä¹óvbº¯ÊýÁбí
Variant ±äÁ¿µÄÄÚ²¿±íʾ:
_______________________________________________________________
·ûºÅ³£Á¿ Öµ ÄÚ²¿±íʾ ×Ö½ÚÊý
V_EMPTY 0 Empty
V_NULL 1 Null
V_INTEGER 2 Interger 2
V_LONG 3 Long 4
V_SINGLE 4 Single 4
V_DOUBLE 5 Double 8
V_CURRENCY 6 Currency 8
V_DATE 7 Date 8
V_STRI ......
VBµÄ´úÂë´æ´¢ÔÚÄ£¿éÖС£ÔÚVBÖÐÌṩÁËÈýÖÖÀàÐ͵ÄÄ£¿é£º´°ÌåÄ£¿é¡¢±ê׼ģ¿éºÍÀàÄ£¿é¡£
¡¡¡¡¼òµ¥µÄÓ¦ÓóÌÐò¿ÉÒÔÖ»ÓÐÒ»¸ö´°Ì壬ËùÓõijÌÐò¶¼×¤ÁôÔÚ´°ÌåÄ£¿éÖУ¬¶øµ±Ó¦ÓóÌÐòÅÓ´ó¸´ÔÓʱ£¬¾ÍÒªÁíÍ⸽¼Ó´°Ìå¡£×îÖÕ¿ÉÄÜÓм¸¸ö´°ÌåÖÐÓÐһЩ¹²Í¬¶¼ÒªÖ´ÐеĴúÂ룬ΪÁËÔÚÁ½¸ö´°ÌåÖв»²úÉúÖØ¸´´úÂ룬¿É´´½¨Ò»¸ö¶ÀÁ¢µÄÄ£¿é£¬ÓÃËüʵÏÖ´ú ......
Private Sub Command1_Click()
Dim MyComm As New ADODB.Command '¶¨ÒåÒ»¸öÃüÁî¶ÔÏó
Dim Rs_GetList As New ADODB.Recordset '¶¨ÒåÒ»¸ö¼Ç¼¼¯¶ÔÏó
Dim param As ADODB.Parameter ......
½¨Á¢ VPN ²¦ºÅÈ«²¿´úÂëÈçÏÂ:
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
Private Type GUID
Data1 As Long
Data2 As Integer
Data3 As Integer
......