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
Ïà¹ØÎĵµ£º
Option Explicit
Dim FSO As New FileSystemObject
Dim currentFolder As Folder
Dim currentFolderName As String
Dim folderItem, fileItem
Private Sub Form_Load()
currentFolderName = FSO.GetFolder(App.Path) & "\content"
SeachFolder (FSO.GetFolder(currentFolderName))
End Sub ......
·ÖÀࣺVBѧϰ ×ֺţº ´ó´ó ÖÐÖРСС mid(×Ö·û´®£¬´ÓµÚ¼¸¸ö¿ªÊ¼£¬³¤¶È) ÔÚ[×Ö·û´®]ÖÐ[´ÓµÚ¼¸¸ö¿ªÊ¼]È¡³ö[³¤¶È¸ö×Ö·û´®]
ÀýÈç mid("СÐÀÎÞµÐ",1,3) Ôò·µ»Ø "СÐÀÎÞ"
instr(´ÓµÚ¼¸¸ö¿ªÊ¼,×Ö·û´®1,×Ö·û´®2) ´Ó¹æ¶¨µÄλÖÿªÊ¼²éÕÒ£¬·µ»Ø×Ö·û´®2ÔÚ×Ö·û´®1Öе ......
Option Explicit
Private Declare Function LoadCursor Lib "user32.dll" Alias "LoadCursorA" (ByVal hInstance As Long, ByVal lpCursorName As Long) As Long
Private Declare Function SetCursor Lib "user32.dll" (ByVal hCursor As Long) As Long
Private Const IDC_HAND As Long = 32649
Private myHand_handle ......
Imports System.Data.OleDb
Inherits System.Windows.Forms.Form
Dim myconnection As New OleDbConnection("provider=microsoft.jet.oledb.4.0;data source=" & Application.StartupPath & "\student0.mdb") ‘------------------------- Á´½ÓÊý¾Ý¿â
......
http://zhidao.baidu.com/question/84802747.html
VBÈçºÎ»ñÈ¡´°¿ÚµØÖ·À¸ÄÚÈÝ
¾ÍÊDZÈÈçÎÒ´ò¿ªDÅ̵ÄaaaÎļþ¼Ð£¬´°¿ÚµØÖ·À¸¾ÍÊÇÏÔʾD:\aaa£¬ÇëÎÊÎÒÒªÔõôÓÃVBд³ÌÐòÀ´»ñÈ¡´°¿ÚµØÖ·À¸µÄÄÚÈÝ£¿£¨²»ÊÇIEµÄµØÖ·À¸£©
Èô´ò¿ªÁËÁ½¸ö´°¿Ú£¬±ÈÈçDÅ̵ÄaaaÎļþ¼ÐºÍEÅ̵ÄbbbÎļþ¼ÐϵÄcccÎļþ¼Ð¶¼´ò¿ªµÄ»°£¬µã»÷command1,text1¾ÍÏÔʾ£º
......