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

VB datagridviewµ×²¿ºÏ¼Æ

ÈçºÎÔÚdatagridviewµÄ×îºóÒ»ÐÐ×öijÁÐÖµµÄºÍ»òÊdz˻ý¡£Òª¼ÆËã3¡¢4¡¢5Áи÷ÁеĺÍ,
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        DataGridView1.Rows.Add(TextBox3.Text, TextBox2.Text)
        For i As Int32 = 0 To DataGridView1.Rows.Count - 1
        DataGridView1.Rows(i).Cells(2).Value = DataGridView1.Rows(i).Cells(0).Value * _
                                                              DataGridView1.Rows(i).Cells(1).Value
         
        DataGridView1.Rows(i).Cells(3).Value = DataGridView1.Rows(i).Cells(2).Value * _
                                                              CDbl(Val(TextBox1.Text))
        DataGridView1.Rows(i).Cells(4).Value = DataGridView1.Rows(i).Cells(2).Value * _
                                                              CDbl(Val(Text


Ïà¹ØÎÊ´ð£º

vbдµÄ³ÌÐò±àÒëºó,ÔËÐÐÈô³ö´í,ÈçºÎÖªµÀµ½ÔÚÄÄÒ»ÐÐ?

vbдµÄ³ÌÐò±àÒëºó,ÔËÐÐÈô³ö´í,ÈçºÎÖªµÀµ½ÔÚÄÄÒ»ÐÐ?

°´Ctrl+F5Ô¤±àÒ룬³ö´íʱ»áÌø×ªµ½´íÎóÐÐ

²»ÊÇÄÇÑùµÄÁË,ÎÒÊÇÒªÇó±àÒë³ÉEXEºóÔËÐÐ,Ìáʾ³ö´íÄÜ·ñÌáʾ´íÔÚÄÄÒ»ÐÐ.

ÎÒ±àÒëºóÔÚÎҵĵçÄÔÉÏÔËÐÐûÎÊÌâ,µ«Ô ......

VBÖÐCommondialog¿Ø¼þÖеÄshowfont·½·¨Ê¹ÓÃ

Çë½ÌÒ»¸öÓйØCommondialog¿Ø¼þµÄÎÊÌ⣨ʹshowfont·½·¨£©

µÚÒ»¸öÎÊÌ⣺

CommondialogÕâ¸ö¿Ø¼þµÄFlagsÊôÐÔÊDz»ÊÇÖ»ÄÜÔÚ´úÂëÖÐÉèÖÃ

ΪºÎÎÒÔÚÊôÐÔ¿òÀïµÄFlagsÒ»À¸ÖÐÊäÈëcdlCFScreenFonts£¨ÆÁÄ»×ÖÌå ......

vbÑ­»·

Option Explicit
Dim N As Integer
Private Sub Command1_Click()
    Dim A As Integer, B As Integer
    A = 2: B = 3
    For N = 1 To 6
      ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ