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

ÓÐÖªµÀÕâ¾äVBº¬ÒåµÄÈ˲»£¿ - .NET¼¼Êõ / C#

ÓÐûÓÐÈËÖªµÀÕâ¾äVB´úÂ룺
 G.DrawImage(My.Resources.ResourceManager.GetObject("P" & Int(Rnd() * 5) + 1), New Rectangle(I * 16 + 2, 2, 16, 16), New Rectangle(0, 0, 16, 16), GraphicsUnit.Pixel)

»»³ÉC#ÊÇʲôÒâ˼£¿
ResourceManager.GetObject ·µ»ØÖ¸¶¨µÄ Object ×ÊÔ´µÄÖµ¡£
DrawImage(Image, Rectangle) ÔÚÖ¸¶¨Î»Öò¢ÇÒ°´Ö¸¶¨´óС»æÖÆÖ¸¶¨µÄ Image µÄÖ¸¶¨²¿·Ö
GraphicsUnit.Pixel GraphicsUnit ö¾ÙµÄ³ÉÔ±£¬ËüÖ¸¶¨ srcRect ²ÎÊýËùÓõĶÈÁ¿µ¥Î»¡£


¾ÍÊÇÔÚ×ÊÔ´ÖÐÓÐ P1 P2 ... P6 Ò»¸ö6¸öͼ±ê×ÊÔ´¡£
Ëæ»úÕÒ³ö1¸ö»­ÔÚ»­²¼ÉÏÃæµÄ I * 16 µÄλÖá£
ÄѵÀÊÇÀàËÆÉ¨À×µÄÓÎÏ·£¿


Ïà¹ØÎÊ´ð£º

vb - VB / »ù´¡Àà

ÔÚvbÖÐÈçºÎ¶ÁÈ¡WordÄÚÈÝ(°üº¬±í¸ñ£¬Í¼Æ¬£¬µÈ£©
¾¹È»²»ÊÇzero¡£

²»ÖªµÀÔõôʵÏֵIJ»ÒªËµ»°

Õâ¸öÖ»ÄܶÁÎı¾,
VB code:
Private Sub Command1_Click()
Dim WordApp As Object
Set WordApp = CreateObject(& ......

vb - VB / »ù´¡Àà

ÎÒÏë°ÑwordÁí´æÎªxmlÖ®ºó£¬ÓÃvb¶ÁÈ¡Õâ¸öxmlµÄÄÚÈÝ£¬ÇëÎÊÈçºÎʵÏÖ£¿
dim f as integer
dim b() as byte
dim s as string
dim L as long
f=freefile()
open "abc.xml" for binary access read as #f
......

vb - VB / »ù´¡Àà

vbÖÐ ÏÖÔÚÎÒÒª°ÑÊý¾Ý¿âÀï´æ´¢µÄÒ»¸ö¸½¼þµÄÄÚÈÝÌæ»»ÁË£¬Ôõô×ö£¬Ö»ÊÇÌæ»»ÎÒÖ¸¶¨µÄλÖ㬲»ÊÇÈ«²¿Ìæ»»
Ç뽫ÎÊÌâ˵Ã÷°×£¬´æ´¢×ֶθñʽ£¬Èç¹ûÊÇBinary¸ñʽµÄ±È½ÏÂé·³£¬Èç¹ûÊÇ×Ö´®£¬Ö±½ÓÌæ»»¡£×îºÃ²»Òª½øÐÐÖ¸¶¨Î»ÖÃÌæ»»¡ ......

vb²Ù×÷excel - VB / »ù´¡Àà

ÎÊÌ⣺
ÏÖÔÚAccessÊý¾Ý¿âÖÐÓÐÁ½ÕűíTableAºÍTableB
TableAÖÐÓмǼÈçÏÂ:
×Ö¶Î1(Name) ×Ö¶Î2(Num)
  A 3
  A 4
  B 6
  ... ......

vb WebBrowser СÎÊÌ⣬Çë½Ì - VB / »ù´¡Àà

vb WebBrowser СÎÊÌ⣬Çë½Ì£º
WebBrowserÀïµÄÍøÖ·Ìø×ªºó£¬ÔõôȡµÃÌø×ªºóµÄÒ³ÃæµÄURLµØÖ·

¶¥Ï¶¥ÏÂ

ÒýÓÃ
BeforeNavigate2
ºÃÏñûÓÐÕâ¸ö°É vb6.0

BeforeNavigate2
Õâ¸ö¿ÉÒÔÓУ¬ºÇºÇ¡£
......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ