ÓÐÖªµÀÕâ¾ä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ÖÐÈçºÎ¶ÁÈ¡WordÄÚÈÝ(°üº¬±í¸ñ£¬Í¼Æ¬£¬µÈ£©
¾¹È»²»ÊÇzero¡£
²»ÖªµÀÔõôʵÏֵIJ»ÒªËµ»°
Õâ¸öÖ»ÄܶÁÎı¾,
VB code:
Private Sub Command1_Click()
Dim WordApp As Object
Set WordApp = CreateObject(& ......
ÎÒÏë°Ñ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ÖÐ ÏÖÔÚÎÒÒª°ÑÊý¾Ý¿âÀï´æ´¢µÄÒ»¸ö¸½¼þµÄÄÚÈÝÌæ»»ÁË£¬Ôõô×ö£¬Ö»ÊÇÌæ»»ÎÒÖ¸¶¨µÄλÖ㬲»ÊÇÈ«²¿Ìæ»»
Ç뽫ÎÊÌâ˵Ã÷°×£¬´æ´¢×ֶθñʽ£¬Èç¹ûÊÇBinary¸ñʽµÄ±È½ÏÂé·³£¬Èç¹ûÊÇ×Ö´®£¬Ö±½ÓÌæ»»¡£×îºÃ²»Òª½øÐÐÖ¸¶¨Î»ÖÃÌæ»»¡ ......
ÎÊÌ⣺
ÏÖÔÚAccessÊý¾Ý¿âÖÐÓÐÁ½ÕűíTableAºÍTableB
TableAÖÐÓмǼÈçÏÂ:
×Ö¶Î1(Name) ×Ö¶Î2(Num)
A 3
A 4
B 6
... ......
vb WebBrowser СÎÊÌ⣬Çë½Ì£º
WebBrowserÀïµÄÍøÖ·Ìø×ªºó£¬ÔõôȡµÃÌø×ªºóµÄÒ³ÃæµÄURLµØÖ·
¶¥Ï¶¥ÏÂ
ÒýÓÃ
BeforeNavigate2
ºÃÏñûÓÐÕâ¸ö°É vb6.0
BeforeNavigate2
Õâ¸ö¿ÉÒÔÓУ¬ºÇºÇ¡£
......