VB —ÍòÄêÀúʵÀý (2)
Éϼ¯ÖÐÖ»ÊÇÏÔʾÐÇÆÚ¼¸£¬²»¹»È«Ã棬ÍêÉÆºóÈçÏ£º
1¡¢´´½¨lbl1¡¢lbl2¡¢lbl3¡¢txt1¡¢cmd1¡¢Timer1
2¡¢lbl£º“ÊäÈëÄêÔÂÈÕ£¨Èç2000-8-16£©£º”£¬ÉèÖÃlbl¡¢txt1¡¢cmd1µÄ×ÖÌå´óСºÍÑÕÉ«¡£Timer1µÄEnableÊôÐÔÉèΪFalse£¬IntervalÊôÐÔÉèΪ£º1000¡£
3¡¢Ë«»÷cmd1£¬½øÈë´úÂë±à¼´°¿Ú£¬ÇÃÈ룺
Private Sub Timer1_Timer()
Dim c As Date
c = Time
lbl3.Caption = CStr(c)
End Sub
——————————————————
Private Sub cmd_Click()
If txt1.Text = "" Then
MsgBox "ÇëÊäÈëÄêÔÂÈÕ£¡", , "´íÎó£¡"
lbl2.Caption = ""
Exit Sub
End If
Timer1.Enabled = True
Dim a, b
b = Val(txt1.Text)
a = Weekday(b)
Select Case a
Case 1
lbl2.Caption = "ÐÇÆÚÈÕ"
Case 2
lbl2.Caption = "ÐÇÆÚÒ»"
Case 3
lbl2.Caption = "ÐÇÆÚ¶þ"
Case 4
lbl2.Caption = "ÐÇÆÚÈý"
Case 5
lbl2.Caption = "ÐÇÆÚËÄ"
Case 6
lbl2.Caption = "ÐÇÆÚÎå"
Case 7
&n
Ïà¹ØÎĵµ£º
Public Function IsValidIPAddress(ByVal strIPAddress As String) As Boolean
On Error GoTo Handler
Dim varAddress As Variant, n As Long, lCount As Long
varAddress = Split(strIPAddress, ".", , vbTextCompare)
If IsArray(varAd ......
·¶¨ÒåÍêÉÆµÄ±äÁ¿¾ßÓÐÃ÷È·¹æ¶¨µÄÊý¾ÝÀàÐͺÍ×÷ÓÃÓò
·ÒªÕýȷʹÓñäÁ¿£¬±ØÐëʹÓñíÒåÐÔÇ¿µÄ±äÁ¿ÃûÀ´ËµÃ÷ÕâЩ±äÁ¿£¬²¢ÇÒ±ØÐëΪËüÃǸ³Óè½¹µã
·±à³ÌÔÔò
·¶¨ÒåÓн¹µãµÄ±äÁ¿£¨·þÎñÓÚÒ»¸ö¶¨ÒåÃ÷È·µÄÄ¿µÄ£©
·Îª±äÁ¿¸³Óè±íÒåÐÔÇ¿µÄÃû×Ö
......
·ÐÙÑÀÀû±ê¼Ç·¨
·Ê¹ÓÃ3×Ö·ûǰ׺À´±íʾÊý¾ÝÀàÐͺͿؼþÀàÐÍ
·3¸ö×Ö·û¿ÉÒÔʵÏÖ³ä·Ö¶à±äÐÔ£¬²¢Ê¹Ç°×ººÏºõÂß¼ºÍÖ±¹Û
·±íʾ±äÁ¿µÄ×÷ÓÃÓò
·¿ÉÒÔ²¢ÇÒÓ¦¸ÃʹÓÃǰ׺À´±íʾ±äÁ¿µÄ×÷ÓÃÓò ......
·½çÃæÉè¼Æ±ØÐë±£³ÖÒ»ÖÂ
·Á½¸ö³ÌÐòÖ®¼äµÄÌØÐԾ߱¸¹²ÐÔ
·ºÍwindowsÓ¦ÓóÌÐòµÄ¿ì½Ý¼üÊÇÒ»ÖµÄ
·±à³ÌÔÔò
·Îª´°Ì帳ÓèͳһµÄÍâ¹ÛºÍÐÐÎªÌØÐÔ
·Èç¹û´°ÌåµÄ´óС¸Ä±äʱ£¬Ëü²»¸Ä±äÆäÄÚÈݵĴóС£¬ÄÇô±ß¿ò¾Í²»Ó ......
¹ØÓÚ²ÜʦÐÖÕÒ¹¤×÷£º
ÔÚÕÒ¹¤×÷¹ý³ÌÖУº
1¡¢ ¹Û²ìÁ¦¡£ÃæÊÔʱ¿´¼ûÖÐÄÏÈÚͨµÄºá·ù“×îС»¯ÄãºÍ¿Í»§µÄ¾àÀ룬×î´ó»¯ÄãºÍ¿Í»§µÄÀûÒæ”£¬Ë³¶øºÍÃæÊÔ¹ÙÌÖÂÛËûÃǹ«Ë¾µÄÎÄ»¯ºÍÀíÄ»á¶ÔÄãӦƸÓкܴó°ïÖú¡£ÕÒ¹¤×÷ʱµÄ±ÊÊÔ»ù´¡¶¼²î²»¶à£¬ÖØÒªµÄÊǺÍÀÏ×ܵÄÃæÊÔ£¬¹«Ë¾¸ü×¢ÖØµÄÊÇÄãÊÇÈçºÎ×öÈ˵ĺÍÄã¶ÔÒµÎñµÄÀí½â¡£ËùÒÔ£¬ÔÚÒÔºó ......