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

.netÖÐÓÃDropDownListÑ¡ÔñÈÕÆÚ£¨vb´úÂ룩

¿´Á˱ðÈËдµÄC#µÄ ×Ô¼º×ªÁËһϠȻºóºóÖØÐ¸ÄÁË¸Ä Ð´³ÉÁËÕâ¸ö
ÁíÍ⻹ÓÐÒ»¸öÎÒдµÄÑéÖ¤ÈÕÆÚÊÇ·ñºÏ·¨µÄ´úÂë ÔÚºóÃæ ¶¼ÊÇvbµÄ c#Ö»»á¿´²»»áд
  'ÅжÏÈòÄê=======================
Private Function CheckLeap(ByVal year As Integer) As Boolean
If (year Mod 4 = 0) AndAlso (year Mod 100 <> 0) OrElse (year Mod 400 = 0) Then
Return True
Else
Return False
End If
End Function
'ÅжÏÈòÄê½áÊø=======================
'°ó¶¨Ã¿ÔµÄÌìÊý=====================
Private Sub BindDays(ByVal year As Integer, ByVal month As Integer)
Dim i As Integer
Dim AlDay As New ArrayList()
Select Case month
Case 1, 3, 5, 7, 8, 10, 12
For i = 1 To 31
AlDay.Add(i)
Next
'Exit Select
Case 2
If CheckLeap(year) Then
For i = 1 To 29
AlDay.Add(i)
Next
Else
For i = 1 To 28
AlDay.Add(i)
Next
End If
'Exit Select
Case 4, 6, 9, 11
For i = 1 To 30
AlDay.Add(i)
Next
'Exit Select
End Select
DropDownList_day.DataSource = AlDay
DropDownList_day.DataBind()
End Sub
'°ó¶¨Ã¿ÔµÄÌìÊý½áÊø=====================
'Ò³ÃæÉÏÍÏÈý¸öDropDownList DropDownList_year DropDownList_month DropDownList_day ¶¼Òªautopostback
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Dim AlYear As New ArrayList()
Dim i As Integer
For i = 1940 To 1992
AlYear.Add(i)
Next
Dim AlMonth As New ArrayList
For i = 1 To 12
AlMonth.Add(i)
Next
If Not Me.IsPostBack Th


Ïà¹ØÎĵµ£º

VB ʵÏÖ¹ú¼Ê»¯

1. ÀûÓÃ×ÊÔ´Îļþ±£´æ¹ú¼Ê»¯Áбí
2.“Íâ½Ó³ÌÐò”--“Íâ½Ó³ÌÐò¹ÜÀíÆ÷”--“VB6 ×ÊÔ´±à¼­Æ÷”¾Í¿ÉÒԱ༭×ÊÔ´Îļþ
3.²¿·Ö´úÂë
  '´°Ìå¼ÓÔØ
Private Sub Form_Load()
Dim LocaleID As Long
  LocaleID = GetSystemDefaultLCID
  Select Case LocaleID
   'Ó¢ÎÄ ......

VB.NET+AJAXËÑË÷½¨Ò鹦ÄܵÄʵÏÖ

IDE£ºVisual Web Developer 2008 Express Edition
Êý¾Ý¿â£ºAccess 2007
µ½http://www.asp.net/ajax/downloads/ÏÂÔØAJAX Control Toolkit£¬½«AjaxControlToolkit.dll¿½±´µ½ÏîÄ¿µÄbinĿ¼Ï£¬ÔÚ¹¤¾ßÀ¸ÖÐÒýÈë¡£
WebServiceµÄ´úÂ룺£¨aaa.asmx£©
Public Function GetCompletionList(ByVal prefixText As String, ByVal coun ......

VBÖÐÀûÓÃDataBaseÇÉÃîÉèÖÃDataReportÖеĶ¯Ì¬SQL

    ½üÈÕ·ÖÎöÒ»VB×öµÄ±¨±í£¬ÓÉÓÚ¶ÔVBÖ»ÊÇÁ˽⣬̸²»ÉÏÊìÁ·£¬²»¹ý¶ÔÆäË®¾§±¨±íµ¹ÓеãÈÏʶ£¬Ö®Ç°Ò²×ö¹ýÈýÁ½¸öСµÄ±¨±í £¬¼ÓÖ®¶ÔPBÖеı¨±íÁ˽â·Ç³£ÊìϤ£¬µ±Ê±ÐÅÐÄÂù´óµÄ¡£
    ÏÈÊÇ¿´ÁËDataReport£¬ÓÃÓÚ»æÖƱ¨±í¸ñʽ¡£ÔÙÀ´¿´DataEnvironment£¬ÓÃÓÚ¶¨Òå»ñÈ¡µÄÊý¾ÝÁС£½«DataReportÓëDataEnviro ......

VBÄ£Äâ·¢ËÍICMPÊý¾Ý°ü(´úÂëÖ±½Ó¿ÉÓÃ)

'*********************************************************************
'         ³ÌÐòÉè¼Æ ºÓÄϹ¤Òµ´óѧÐÅÏ¢Íø-http://www.hautbbs.com.cn
'±¾Õ¾ÒÔ·½±ãÔÚУʦÉúÐÅÏ¢½»Á÷Ϊ×ÚÖ¼£¬ÊÇÒ»¸ö¼¯ÐÅÏ¢´«µÝ¡¢×ÊÁϲéѯ¡¢ÓéÀÖ½»ÓÑΪһÌåµÄÐ£Ô°ÍøÂçÆ½Ì¨!
'ÎÒվΪÄúÃâ·ÑÌṩÐÅϢƽ̨,ÄúÖ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ