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

[ÇóÖú]VB»ñÈ¡ExcelÊý¾ÝµÄÎÊÌâ

Excel±íÄÚÓÐÒ»ÄÚÈÝΪ01.00£¬Í¨¹ýVB½øÐжÁÈ¡£¬µ«¶Àµ½µÄÊýֵΪ1£¬VBʹÓÃ×Ö·ûÐͶÔExcel¶Áµ½µÄÊý¾Ý½øÐд洢¡£
ÓÐʲô·½·¨Äܱ£Ö¤¶ÁȡǰºóÄÚÈݵÄÒ»ÖÂÐÔÄØ£¿Çó½ÌÀ²£¡
ÏÈл¹ý£¡
µ¥¶À¶ÁÈ¡Êý¾ÝÊDz»ÐеÄ.»¹ÐèÒª¶ÁÈ¡¸ÃCELLµÄ¸ñʽ.
¶øÇÒÒª¿´Äã´¢´æµÄÊÇʲô¸ñʽ,³ýÁËchar/ncharµÈ×Ö·ûÐÍÀ¸Î»,ÆäËûµÄ¾ÍÒª¿´±¾ÉíÔÚÊý¾Ý¿âÀïÃæ¶¨ÒåµÄÊý¾ÝÀàÐÍÓë¸ñʽ.
±ÈÈçËäÈ»CELLÖдæµÄÊÇ01.00,µ«´æÈëÊý¾Ý¿âÖеÄÀ¸Î»¸ñʽÊÇNumeric(5,2),Æä¾Í»á±ä³É 1.00

Ô­À´µÄ¶ÁÈ¡·½Ê½:Ex_dh(i) = Excelsheet.Cells(i, 1)
¸ü¸ÄºóµÄ¶ÁÈ¡·½Ê½:Ex_dh(i) = Excelsheet.Range("A" & i).Text
ÎÊÌâ½â¾ö,ºÇºÇ,ллÀ².

ÒýÓÃ
Ô­À´µÄ¶ÁÈ¡·½Ê½:Ex_dh(i) = Excelsheet.Cells(i, 1)
¸ü¸ÄºóµÄ¶ÁÈ¡·½Ê½:Ex_dh(i) = Excelsheet.Range("A" & i).Text
ÎÊÌâ½â¾ö,ºÇºÇ,ллÀ².

¾ÍÊÇÓ¦¸Ã¶ÁÈ¡ .Text ¡£
¹§Ï²Â¥Ö÷¡­¡­¡­¡­


ʹÓÃVariant±äÁ¿Êý×é´æÈ¡´ÓexcelÖеĵõ½Êý¾Ý¡£Ê¹ÓÃTypeName£¨£©ÅжÏÀàÐͼ´¿É¡£
ÀýÈ磺
dim a(5)
dim b as string 
a(0)=Excelsheet.Cells(i, 1)
b=typename(a(0))'bΪÊý¾ÝÀàÐÍ



ºÇºÇ£¬Ð»Ð»´ó¼ÒÈÈÐİïæÀ²£¡


Ïà¹ØÎÊ´ð£º

ΪʲôÓÃVB¸Ä±ä²»Á˹¤¾ßÀ¸°´Å¤µÄ¿í¶È - VB / ¿Ø¼þ

Ϊʲô¹¤¾ßÀ¸°´Å¤µÄ¿í¶È¸Ä±ä²»ÁË,ÔÚÊôÐÔÀï¸ÄÁËÓÖ±ä³ÉÔ­À´µÄÊýÖµÁË

´óºú×ÓÕæÀ÷º¦£¬»Ø´ð»ù±¾¶¼ÊDZ¬Áϼ¶µÄ
´óºú×ÓÉý¼¶Õæ¿ì°¡£¬Õâ²Å¼¸Ìì¾Í5Ìõ¶Ì¿ãÍâ¼ÓÔÂÅÅÃûµÚÒ»ÁË
ÏëÏëÎÒÕâ5¸ö¶Ì¿ã»ìÁ˲¶à8Äê²ÅµÃµ½µÄ¡£

»Ø¸´ ......

VB µÄ PictureBOX ¿Ø¼þ»æÍ¼ÎÊÌâ - VB / ¿Ø¼þ

³õѧ£¬´óµ¨ÌáÎÊ£¬Çë¸ßÊÖ²»ÁߴͽÌ
1¡¢¹ö¶¯Ìõµã»÷Óë»æÍ¼°å£¨ÆÁÄ»,Piceure1£©µÄÒÆ¶¯ÎÊÌâÒѾ­½â¾ö¡£
  Picture1.Top = -VScroll1.Value + bcW '´¹Ö±Òƶ¯
  Picture1.Left = -HScroll1.Value + bcW ' ......

°ïÎҸĸÄÕâVBÌâ - VB / »ù´¡Àà

°ïÎÒ¸Ä¸Ä ÎÒ×ܾõµÃÓÐÎÊÌâ
Type ID
  number As Single
  score As Integer
  name As String * 6
End Type
Dim personl As ID, i%
Private Sub Command1_Click()
 i = 0
&nbs ......

VBÔõÑù»ñµÃÊó±ê´¦µÄ³¬¼¶Á¬½Ó - VB / »ù´¡Àà

VBÔõÑù»ñµÃÊó±ê´¦µÄ³¬¼¶Á¬½ÓÄØ£¿
  ÔÚWebBrowser¿Ø¼þÖÐÓÐÕâÑùÒ»¸öʼþ:StatusTextChange(index As Integer, ByVal Text As String)
  ËüµÄText²ÎÊýÕýÊÇÊó±ê´¦µÄ³¬¼¶Á¬½Ó,µ«ÎÊÌâÊÇÈç¹ûÎÒµÄä¯ÀÀÆ÷Õýà ......

vb³¬¼òµ¥form.showµÄÎÊÌâ - VB / ·Ç¼¼ÊõÀà

ΪʲôÎÒÓÃform.showºÍform.hide¶à´ÎÁ¬½ÓÁËÁ½¸ö´°¿ÚÖ»ÄÜ»¥»»Á´½ÓÁ½´Î°¡£¿
´úÂë¿´¿´
ÕÕµÀÀíform.show û´ÎÊýÏÞ¶¨µÄ°É

ÎÒÒ²¿ì·èÁË¡£
Â¥Ö÷ÖªµÀÔõô·¢Ìùô£¿

ÒýÓÃ
ÎÒÒ²¿ì·èÁË¡£
Â¥Ö÷ÖªµÀÔõô·¢Ìùô£¿
Â¥Ö÷Ò² ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ