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

VBÓëC#»¥×ª¹¤¾ß

http://www.carlosag.net/Tools/CodeTranslator/ Õâ¸öÒ²Ðíѧ¼ÆËã»úµÄ¸ç¸ç½ã½ãÃÇ»áÓõõ½£¬£¬¾ÍתÁËÏ£Íû¶à¶àÖ§³ÖŶ Î÷Î÷  Óõõ½¾Í¶¥Å¶
²îµãÍüÁËŶ    £¬Åº»¹ÓÐÒ»¸ösqlµÄ²å¼þºÜºÃÓõÄѽ¡£¡£¡£¡£ÓÐÏëÒªµÄ¾ÍÁôÑÔÏÂÒª¿©¡£¡£¡£¡£¡£


Ïà¹ØÎĵµ£º

c#ÖиßЧµÄexcelµ¼ÈësqlserverµÄ·½·¨

±¾ÎÄת×Ô£ºhttp://blog.csdn.net/jinjazz/archive/2008/07/14/2650506.aspx
    ½«oledb¶ÁÈ¡µÄexcelÊý¾Ý¿ìËÙ²åÈëµÄsqlserverÖУ¬ºÜ¶àÈËͨ¹ýÑ­»·À´Æ´½Ósql£¬ÕâÑù×ö²»µ«ÈÝÒ׳ö´í¶øÇÒЧÂʵÍÏ£¬×îºÃµÄ°ì·¨ÊÇʹÓÃbcp£¬Ò²¾ÍÊÇSystem.Data.SqlClient.SqlBulkCopy ÀàÀ´ÊµÏÖ¡£²»µ«Ëٶȿ죬¶øÇÒ´úÂë¼òµ¥£¬ÏÂÃæ²âÊÔ´ú ......

vb×Ô¶¯¹Ø»ú³ÌÐò

Private Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long
Private Const EWX_LOGOFF = 0
Private Const EWX_SHUTDOWN = 1
Private Const EWX_REBOOT = 2
Private Const EWX_FORCE = 4
Private closeTime As String
Sub AdjustTokenPrivilegesForNT()
  ......

VBÓëWindows API½²×ù(¶þ) өĻץȡÓëÓ©Ä»±£»¤³Ìʽ

ÎÄÕÂÀ´Ô´:vb´óÊÀ½ç ×÷ÕߣºÍõ¹úÈÙ
¡¸VB ûÓÐÌṩÕâÑùµÄ¹¦ÄÜ£¬ ±ØÐëºô½Ð Windows API¡¹£¬ µ±±ÊÕßÕâÑù»Ø´ð¶ÁÕßÖ®áᣬÓÐЩ¶ÁÕß»áÒªÇó±ÊÕß½éÉÜ Windows API ·½ÃæµÄÊé¼®£¬ ÓÈÆäÊÇÖÐÎÄÊ飬 µ«Êµ¼ÊÉÏ£¬Ä¿Ç°ÊÐÃæÉÏÖ»¿´µ½Ò»±¾Ô­ÎÄÊé(ZD Press ³ö°æµÄ Visual Basic 5.0 Programming Guide to Win32 API)£¬ ÖÐÎÄÊéÔòδ¼û¹ý£¬ Ϊʲ÷áÃ»Ó ......

VBÕýÔò±í´ïʽ

Èç¹ûÔ­À´Ã»ÓÐʹÓùýÕýÔò±í´ïʽ£¬ÄÇô¿ÉÄܶÔÕâ¸öÊõÓïºÍ¸ÅÄî»á²»Ì«ÊìϤ¡£²»¹ý£¬ËüÃDz¢²»ÊÇÄúÏëÏóµÄÄÇôÐÂÆæ¡£
Çë»ØÏëÒ»ÏÂÔÚÓ²ÅÌÉÏÊÇÈçºÎ²éÕÒÎļþµÄ¡£Äú¿Ï¶¨»áʹÓà ? ºÍ * ×Ö·ûÀ´°ïÖú²éÕÒÄúÕýÑ°ÕÒµÄÎļþ¡£? ×Ö·ûÆ¥ÅäÎļþÃûÖеĵ¥¸ö×Ö·û£¬¶ø * ÔòÆ¥ÅäÒ»¸ö»ò¶à¸ö×Ö·û¡£Ò»¸öÈç 'data?.dat' µÄģʽ¿ÉÒÔÕÒµ½ÏÂÊöÎļþ£º
data1.dat ......

VBµÇ½163ÓÊÏä

Ìí¼Ó2¸ötext£¬Ò»¸öcommand£¬Ò»¸ö WebBrowser
Dim vDoc, vTag
Dim i As Integer
Private Sub Command1_Click()
Set vDoc = WebBrowser1.Document
For i = 0 To vDoc.All.length - 1
If UCase(vDoc.All(i).tagName) = "INPUT" Then
Set vTag = vDoc.All(i)
If vTag.Type = "text" Then
Select Case vTag.Nam ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØͼ | ¸ÓICP±¸09004571ºÅ