Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö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 »ñÈ¡ÍøÒ³Ô´´úÂë

Ò»¸ö²éѯijÐÅÏ¢µÄASPÍøÒ³£¬Ìá½»²ÉÓõÄÊÇpost·½·¨£¬²éÕÒ½á¹ûµÄÍøÒ³±ØÐëÓÒ¼üµã»÷¡°²é¿´Ô´Îļþ¡±²ÅÄÜ¿´µ½ÕæÕý²éѯ½á¹ûÍøÒ³µÄÔ´´úÂ룬ÓÃä¯ÀÀÆ÷²Ëµ¥¿´µ½µÄÊDzéѯǰµÄÔ´´úÂë
ÓÃVBÓÐʲô°ì·¨¿ÉÒÔ»ñÈ¡µ½Õâ¸ö²éѯºóµÄÔ´´ú ......

vb´òÓ¡ÎÊÌâ


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

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


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

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

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

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

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

VBÖе÷ÓÃwordµÄÎÊÌâ

ÈçºÎÔÚwordÀïÉú³ÉÒ»¸ö°Ë½ÇÐÎ ¾ÍÊÇÒ»¸ö¾ØÐΠÿ¸ö½Ç¶¼¾çµô ±ä³É°Ë½Ç

ÓÐÕâÑùµÄÓï¾äÂð лл
ÓÃWORDÀïµÄºêÖ±½Ó»­²»¾ÍÐÐÁËô?

ÄѵÀÊÇÏëÔÚ×Ô¼º±àµÄÒ»¸öEXEÀï²Ù×÷WORD?

ûÓÐÕâÑùµÄÓï¾ä¡£
VBÀïÃæÒ»¹²Ò²¾ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ