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

vb¼Ç¼¼¯Êý¾Ýµ¼Èëµ½excel

 Public Sub DGToExcel(DataGrid1 As DataGrid, Optional ProgressBar1 As ProgressBar, Optional ByVal intFirst As Integer, Optional ByVal intLast As Integer, Optional strTitle As String)
'--½«DataGridµ¼³öÖÁExcel,ProgressBar1Ϊ½ø¶ÈÌõ,intFirstΪ´ÓÄÄÒ»ÁпªÊ¼´òÓ¡,intLastΪ´òÓ¡µ½ÄÄÒ»ÁÐ
On Error Resume Next
    Dim I As Long
    Dim J As Integer
    Dim K As Integer
    Dim sLast As String
    Dim xlApp As Excel.Application
    Dim xlBook As Excel.Workbook
    Dim xlSheet As Excel.Worksheet
    Set xlApp = New Excel.Application
    Set xlBook = xlApp.Workbooks.Add
    Set xlSheet = xlBook.Worksheets(1)
    xlSheet.Name = "²éѯ½á¹û"
    xlApp.Visible = False '--ÏÈÒþ²Ø
    ProgressBar1.Value = 0
    Screen.MousePointer = 11
    ProgressBar1.Max = DataGrid1.ApproxCount + 3
    '--ÉèÖñêÌâ
    sLast = Chr(Asc("A") + intLast - intFirst)
    xlApp.Range("A1:" & sLast & "2").Select
    With xlApp.Selection '--ºÏ²¢µ¥Ôª¸ñ
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
    End With
    ProgressBar1.Value = 1
    xlApp.Selection.Merge
    With xlApp.Selection.Font '--×ÖÌå
        .FontStyle = "¼Ó´Ö"
        .SIZE = 24
    End With
    xlApp.Range("A1:" & sLast & "2").Select
    xlApp.ActiveCell.FormulaR1C1 = strTitle
    ProgressBar1.Value = 2
    '--ÉèÖÃÁÐ
    For K = 0 To intLast - intFirst 'ÏÔʾѡÖеÄÁÐ
     


Ïà¹ØÎĵµ£º

VBÖÐ Replace º¯Êý

VBÖÐ Replace º¯Êý
ÃèÊö
·µ»Ø×Ö·û´®£¬ÆäÖÐÖ¸¶¨ÊýÄ¿µÄij×Ó×Ö·û´®±»Ì滻ΪÁíÒ»¸ö×Ó×Ö·û´®¡£
Óï·¨
Replace(expression, find, replacewith[, compare[, count[, start]]])
Replace º¯ÊýµÄÓï·¨ÓÐÒÔϲÎÊý£º
²ÎÊý ÃèÊö
expression ±ØÑ¡¡£×Ö·û´®±í´ïʽ£¬°üº¬ÒªÌæ»»µÄ×Ó×Ö·û´®¡£ 
find ±ØÑ¡¡£±»ËÑË÷µÄ×Ó×Ö·û´®¡£ ......

VB.NET2005¶ÁÈ¡XMLÊý¾Ý

ͨ¹ýµ÷ÓÃCreateDataSetfromXmlÈ¡µÃXMLÊý¾Ý
Imports System.Xml
Public Const FILE_CONFIG = "MZZ.xml"
Public Const PATH_CONFIG = "\XML\"
Dim dstXML As DataSet
Dim tblXML_DB As DataTable
Dim dtCod As New DataTable
Dim strSQL As String = ""

clsPublic ......

VB ×ÊÁϵ¼³ö

Ôںܶà VB µÄ×ÊÁÏ¿âÊé¼®ÖУ¬¶¼»áºÜÍêÕûµÄÌáµ½£ºÈçºÎÓÉÆäËûÖÖÀàµÄÎļþÖн«×ÊÁϵ¼Èë×ÊÁϿ⣬µ«ÊÇÈ´ºÜÉÙÓÐÊéÌáµ½£ºÈçºÎ½«×ÊÁÏ¿âÖеÄ×ÊÁÏ£¬µ¼³öµ½¸÷ÖÖ²»Í¬µÄÎļþÀàÐ͵ÄÎļþÖУ¬Á¬ VB µÄ Help ÖÐÒ²ÊÇÕâÑù£¡
»òÐíÊÇ´ó¼Ò¶¼ÈÏΪ×ÊÁÏ¿âÖ÷ÌâµÄÖØµãÊÇÔÚ×ÊÁϿⱾÉí°É£¡
µ«ÊÇ£¬ÔÚʵ¼ÊµÄ×ÊÁÏ¿â³ÌÐòÔËÓÃÖУ¬È´³£³£ÐèÒª½«×ÊÁϿ⵼³öµ½¸÷ÖÖ ......

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

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

VBÎÞËù²»ÄÜÖ®Áù£º¶Ô³ÌÐòÔËÐÐµÄ¼à¿Ø ת

×÷Õß: ØýÃû, ¡¡³ö´¦:ITר¼ÒÍø,¡¡ÔðÈα༭: лåûåû,¡¡
2010-04-23 11:20
¡¡¡¡±¾ÎĽéÉÜVB¶Ô³ÌÐòÔËÐÐµÄ¼à¿Ø¡£
¡¡¡¡×ªÑۼ䣬±¾ÏµÁÐÎÄÕÂÒѾ­Ð´µ½Á˵ÚÁù¸ö£¬½ñÌìдµãÊ²Ã´ÄØ?
¡¡¡¡»¹ÊǵÃд£¬¿´ËÆVB×ö²»µ½µÄÊÂÇ飬ÄÇô½ñÌìÆð¾ÍддVB¶Ô²Ù×÷ϵͳµÄ¿ØÖưɡ£
¡¡¡¡Ê×ÏÈ£¬ËµÒ»Ëµ£¬VB¶ÔÓÚ±»µ÷ÓúóµÄ³ÌÐòµÄ¼à¿Ø·½·¨¡£
¡¡¡¡Ô­Ðͺ¯Êý¼ò ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ