Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

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¿Ø¼þ

VBʵÏÖVC TabControl¿Ø¼þ
 
н¨Ò»¸ö¹¤³ÌÎļþProject1£¬
 
 
ÔÚ×ó²à¹¤¾ßÀ¸ÖеãÓÒ¼ü
 
ÔÚ³öÏÖµÄÑ¡ÏîÖеã“Components”£¬ÔÚ´ò¿ª´°¿ÚÖÐÕÒµ½“Controls”Ñ¡ÏîÒ²ÖеēMicrosoft Tabbed Dialog Control 6.0”£¬È»ºóµã“Ó¦ÓÔ“È·¶¨”Í˳ö¸Ãҳà ......

һЩVBÏà¹ØµÄ¶«Î÷~~


Õä¹ó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µÄ´úÂë´æ´¢ÔÚÄ£¿éÖС£ÔÚVBÖÐÌṩÁËÈýÖÖÀàÐ͵ÄÄ£¿é£º´°ÌåÄ£¿é¡¢±ê׼ģ¿éºÍÀàÄ£¿é¡£
¡¡¡¡¼òµ¥µÄÓ¦ÓóÌÐò¿ÉÒÔÖ»ÓÐÒ»¸ö´°Ì壬ËùÓõijÌÐò¶¼×¤ÁôÔÚ´°ÌåÄ£¿éÖУ¬¶øµ±Ó¦ÓóÌÐòÅÓ´ó¸´ÔÓʱ£¬¾ÍÒªÁíÍ⸽¼Ó´°Ìå¡£×îÖÕ¿ÉÄÜÓм¸¸ö´°ÌåÖÐÓÐһЩ¹²Í¬¶¼ÒªÖ´ÐеĴúÂ룬ΪÁËÔÚÁ½¸ö´°ÌåÖв»²úÉúÖØ¸´´úÂ룬¿É´´½¨Ò»¸ö¶ÀÁ¢µÄÄ£¿é£¬ÓÃËüʵÏÖ´ú ......

MYSQL´æ´¢¹ý³ÌVBµ÷Ó÷½·¨¡£

Private Sub Command1_Click()
   
    Dim MyComm As New ADODB.Command      '¶¨ÒåÒ»¸öÃüÁî¶ÔÏó
    Dim Rs_GetList As New ADODB.Recordset '¶¨ÒåÒ»¸ö¼Ç¼¼¯¶ÔÏó
    Dim param As ADODB.Parameter     ......

vb½¨Á¢ VPN ²¦ºÅÁ¬½Ó

½¨Á¢ 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
    ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ