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

VB datagridviewµ×²¿ºÏ¼ÆÐø

Dim cSum0, cSum1, cSum2, cSum3, cSum4, cSum5, cSum6, cSum7 As String
    DataGridView1.Rows.Add(textbox1.Text, textbox2.Text)
        DataGridView4.Rows.Add(textbox1.Text,textbox1.Text)

          For i As Int32 = 0 To DataGridView3.Rows.Count - 1
            cSum0 = cSum0 + DataGridView4.Rows(i).Cells(0).Value
            cSum1 = cSum1 + DataGridView4.Rows(i).Cells(3).Value
            cSum2 = cSum2 + DataGridView4.Rows(i).Cells(4).Value
            cSum3 = cSum3 + DataGridView4.Rows(i).Cells(5).Value
            cSum4 = cSum4 + DataGridView4.Rows(i).Cells(6).Value
            cSum5 = cSum5 + DataGridView4.Rows(i).Cells(7).Value
            cSum6 = cSum6 + DataGridView4.Rows(i).Cells(8).Value
            cSum7 = cSum7 + DataGridView4.Rows(i).Cells(9).Value
           
            L.Text = CStr(cSum0)
            G.Text = CStr(cSum1)
            Y.Text = CStr(cSum2)
            F.Text = CStr(cSum3)
   


Ïà¹ØÎÊ´ð£º

VBÖÐÓÐÎÞTApplication¶ÔÓ¦ÀàÐÍ

ÎÒÓÃDelphiдÁËÒ»¸öDLL, DLLÀïÓÐMDIµÄ×Ó´°Ìå,DLL³õʼ»¯Ê± ´«µÝµ÷ÓÃÕßµÄTApplication¸øDLL, ÔÚDelphi7Öе÷ÓÃÒѾ­Í¨¹ý,µ«ÊDz»ÖªµÀÔÚVBÖÐÓÐÎÞTApplication¶ÔÓ¦ÀàÐÍ, ÊÇ·ñÄÜÔÚVBÖе÷ÓÃ?
ÄãºÃ£¬ÓÃinstance²»ÊǾͿÉÒÔÁË&# ......

vb´òÓ¡ÎÊÌâ


Printer.ScaleMode = 6
6±íʾºÁÃ×
Printer.PaperSize = vbPRPSA4

'³õÊ¼×ø±ê
x = 1
y = 4


'×î´óµÄÏß¿ð
Printer.DrawStyle = 0
Printer.Line (x, y)-(x + 132.5, y) ......

vb´ò°ü°²×°Ê±ÌáʾÊäÈëÐòÁкÅ

ÎÒÓÐ×Ô¶¯Éú³ÉÐòÁкŵijÌÐò£¬µ«ÊÇÔõô¸ú´ò°üºóµÄ°²×°³ÌÐò½áºÏÔÚÒ»Æð£¬ÔÚ°²×°Ê±ÌáʾÓû§ÊäÈëÐòÁкţ¬ÕýÈ·ºóÔÙ¼ÌÐø°²×°£¿£¿£¿
·½·¨1£ºÄã¿ÉÒÔÔÚÔËÐгÌÐòºóÊäÈëÐòÁкÅ×¢²á£¬ºÜ¶àÈí¼þ¶¼ÊÇÕâÑùµÄ¡£

·½·¨2£ºÊ¹ÓÃSetu ......

Çó½ÌÏÂVBÈçºÎ¸øD3DÓÎϷдÆÁ - VB / API

ÏëÔÚwarcraft3Àï½øÐÐдÆÁ²Ù×÷¡¾Èç¶Ôսƽ̨ÖеÄʤ¸ºÌáʾÐÅÏ¢¡¿£¬Ð§¹û¾ÍÏñÓÎϷƽ̨ÖÐÒ»Ñù£¬ÎÒÊÔ¹ýÔÚÒ»´°¿ÚÖÐдÈëÎÄ×Ö£¬È»ºóÒ»Ö±Èô°¿ÚÇ¿ÖÆ×îǰ£¬ËäÈ»ÄÜʵÏÖÎÄ×ÖÏÔʾ£¬µ«ÊÇÎÄ×ֻ᲻¶ÏÉÁ˸£¬¶øÇÒÓв»È·¶¨BUG£¬Í¨¹ýÂÛ̳ËÑ ......

ÔõôÓÃVBʵÏÖ²»ÈÃÆäËû³ÌÐò¶Ï¿ª¿í´øÁ¬½Ó

ÎÒÏë×öÒ»¸ö·ÀÖ¹²¡¶¾ÈëÇÖϵͳµÄС³ÌÐòÀ´±£»¤ÎÒµÄ¿í´øÁ¬½Ó²»±»¶ñÒâ¶Ï¿ª,ÇëÎÊÔõôʵÏÖ.VCµÄÒ²¿ÉÒÔ,×îºÃÓÃVB,ÒòΪÎÒ¸Õ×°ÁËϵͳ,»¹Ã»ÏÂÔØVC,µçÄÔÉÏÖ»ÓÐVBµÄ¾«¼ò°æ.ÎÒÃþË÷ÁËÒ»ÉÏÎ綼û½øÕ¹,°Ù¶ÈÉÏ,GoogleÉÏÒ²ËÑË÷²»µ½Ïà¹ØÎ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ