VB 5·1µÚÈýÌì
1¡¢´óµÀÖÁ¼ò
Ã×ÀÏʦÏȳÊÏÖÁËÒ»¸öº¯ÊýµÄͼÏñ£¬È»ºóÎÊÎÊ´ó¼ÒÏëµ½ÁËʲô¡£
¿´µ½ÕâÕÅͼ£¬ÎÒÏÈ·¢ÏÖÕâÊÇÒ»¸öÖÜÆÚº¯Êý£¬ÔÙÍùÉîÁ˾͸оõ×Ô¼ºÓ¦¸Ã²»»áÁË£¬¼ÄÏ£ÍûÓÚÊéÐŵļ¸¸öͬѧ£¬¸Ð¾õÓ¦¸ÃÊǸßÊýÀïµÄ¶«Î÷¡£µ«ÊÂʵ֤Ã÷ÊdzõÖеÄ֪ʶ£º
ËûÊÇÒÔÏÂÈý¸öº¯ÊýµÄ¸´ºÏº¯Êý£º
y=sin(x)+sin(2x)+sin(3x)
ÕâÊÇàñàðÍÂÔæµÄ̬¶ÈµÄÁíÒ»¼«£¬¿´ÎÊÌâʱ±»±íÃæµÄ¸´ÔÓËùÃÔ»ó£¬×Ô¼ºÃ»ÐÅÐĶø²»È¥³¢ÊÔ£¬ÒÔºó²»¹ÜÓöµ½Ê²Ã´À§ÄÑ£¬¶¼Ó¦¸Ã¾²ÏÂÐÄÀ´ºÃºÃµÄ·ÖÎöһϣ¬³ä·Öµ÷¶¯×Ô¼ºÒÑÓеÄ֪ʶ£¬ÊÔÊÔÄܲ»ÄÜÓëÖ®·¢ÉúÅöײ£¬ÇóѧÊýÊ®ÔØ£¬ÏàÐÅÈκÎÒ»Ñù֪ʶ¶¼²»ÊÇȫеġ£³ä·Ö·¢»Ó×Ô¼ºµÄDZÄÜ¡£ÏàÐÅѧϰ¿ÉÒÔÊÇÓɸ´ÔÓµ½¼òµ¥ÔÙµ½¸´ÔÓµÄÁ¼ÐÔ·¢Õ¹µÄ¹ý³Ì
2¡¢BIOSÉèÖãº
×ܽáÇ°ÌìµÄ½Ìѵ£¬BIOSÉèÖÃÒ»¸öÔæÒ»¸öÔæµØÀ´£º
1¡¢Ð¡ÓÂʾ·¶µÄÉèÖÃÃú¼ÇÓÚÐÄ
2¡¢²»¶®µÄµØ·½°ÑÃû´ÊËõд¼ÇÏÂ
3¡¢»Ø»ú·¿°Ñ¼ÇϵIJéÒ»±é
4¡¢ÖÐÎç»Ø¶ÔÃÅ»ú·¿Êµ¼Ê²Ù×÷Ò»´Î¡£
ÒÔÇ°Ò»¿´µ½BIOSÉèÖýçÃ棬¾ÍÓÐÖÖ¿Ö¾åÒ»ÊÇÄ°Éú¶þÊÇŸø»úÆ÷Õû»µÁË£¬Õâ´Î²»»áÁË¡£×Ô¼ºÇ×ÊÖ½øÐÐÁËһϻù´¡BIOSÉèÖú͸߼¶BIOSÉèÖã¬Ò²²»¹ýÈç´Ë£¬Æäʵ¾ÍºÍ¸ÕÂòµÄ¼ÒÓõçÆ÷Ò»Ñù¡£¸ÕÂò»ØÀ´µÄµçÊÓ»ú£¬µÃ×Ô¼ºÊÖ¶¯ËÑ̨£¬È»ºóÉèÖÃÿ¸öƵµÀÊǼ¸Ì¨£¬È»ºóÊÇÁÁ¶È¡¢ÉùÒô¡¢É«²ÊЧ¹ûµÈµÄÉèÖÃÊÇÒ»¸öµÀÀí¡£ÒÔºó±ðÈËÔÙÇó°ï棬¿ÉÒÔÊÖ²»´ò²üµÃ¸øËû°ÚŪÁË
3¡¢°²È«½ÌÓý£º
»ú·¿×î½üµÄ“ðÑ̶ùÃÅ”¸ø´ó¼ÒÇÃÁ˾¯ÖÓ£¬ÈκÎʱºòÎÒÃǶ¼Ó¦¸Ã°ÑÉúÃü°²È«·ÅÔÚµÚһ룬Õâ²»Êǵ¨ÇÓ£¬¶øÊǽ÷É÷£¬ËûÊÇÎÒÃÇ¿ìÀÖÉú»îºÍѧϰµÄ¸ù±¾±£ÕÏ£¬Ð´µ½ÕâÏëµ½ÁËÇ°Á½Ìì¿´µÄһƪ²©¿Í£º
ITÈËÇ밮ϧ×Ô¼ºµÄÉíÌ壺
http://blog.csdn.net/zhoufoxcn/archive/2010/04/26/5528574.aspx
Ðж¯ÊÇ×îÓÐÁ¦µÄÓïÑÔ£¬²»¶à˵ÁË£¬ÈÃÐж¯À´Ö¤Ã÷
ÏÖÔÚgo downstairs··
Ïà¹ØÎĵµ£º
'ÕâÀïÊÇÆô¶¯¹ý³Ì[ʼþ»¥³â¾Í²»Ð´ÁË]
Dim f as frmMain
Sub Main
Set f=New frmMain
f.Show
End Sub
'ÕâÀïÊÇÒ»¸öÏß³ÌÀà¡£¡£¡£Ëæ±ãдɶ¡£¡£¡£
ˈ̞:BT
'ÕâÀïÊÇÖ÷´°¿Ú
Dim cBT as BT
Sub form_Load
'Ææ¹ÖµÄÎÊÌâ¾ÍÔÚÕâÀï...
Set cBT=CreateObject("¹¤³ÌÃû.BT")
'ÔÚL ......
ʹÓÃVB½«ASP´úÂë·â×°µ½DLLÎļþÍêÕûʵÀý
http://blog.csdn.net/cncco/archive/2007/10/20/1834865.aspx
ÓÃVB·â×°ASP£¬½¨Á¢SayHello²âÊÔ³ÌÐò
1¡¢´ò¿ªVB6£¬Ð½¨ActiveX DLL
2¡¢ÔÚ¹¤³ÌÒýÓÃÖмÓÈëMicrosoft Active Server Pages Object LibraryÑ¡Ôñ
3¡¢Ìî¼Ó´úÂëÈçÏ£º
'Code Start
'ÉùÃ÷²¿·Ö
Private MyScriptingContext ......
Sub CheckTextCodingType(Textfile)
Set fl = aqFile.OpenBinaryFile(Textfile, aqFile.faRead)
Binary1 = fl.ReadByte()
Binary2 = fl.ReadByte()
fl.Close
select case CStr(Binary1)& CStr(Binary2)
case 255254: '*Unicode (UTF-16) Ç°Á½¸ö×Ö½ÚΪFFFE
Log.Message("fi ......
¡¡¡¡ÐÅÏ¢¼à¿ØÓëÒþ˽±£»¤ÓÀÔ¶ÊÇÒ»¶Ôì¶Ü¡£
ÔÚ¶Ô¸¶¸÷ÖÖÐÅÏ¢ÇÔÈ¡Èí¼þÉÏ¡£
м¼Êõ×ÜÊDzã³ö²»Çî¡£±¾ÎĽéÉÜÒ»ÖÖ¹ÅÀϵļüÅ̼ǼÆ÷¼¼Êõ£¬È·ÊµºÜ¹ÅÀÏ¡£
DOSʱ´úÈËÃǾÍÔÚÓÃÁË¡£
µ«ÊÇÏÖÔÚËüÈÔÈ»ºÜÓÐЧ£¬ÔÚ¼üÅ̹ýÂËÇ ......
'¹¤³Ì-->ÒýÓà Ìí¼Ó Microsoft activex data objects 2.5 library
'¹¤³Ì-->²¿¼þ Ìí¼Ó Microsoft flexgrid control 6.0
Dim Cnn As New ADODB.Connection
Cnn.ConnectionString = "Provider=microsoft.jet.oledb.4.0;data source=E:\Access ......