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

ÎÊÒ»¸öVBÎÊÌâ - .NET¼¼Êõ / C#

Õâ¶Î´úÂëÊÇVBÓïÑÔFor I As Integer = 0
ת»»ÎªC#ÓïÑÔÊÇʲôÒâË¼ÄØ£¿×ª»»ÍøÕ¾ÉÏÊÇת»»²»Á˵Ä...ËùÒÔ²ÅÀ´ÎʵÄÓж®VBµÄ˵ÏÂ...

¶÷¸Õ¸ÕŪÃ÷°×ÁË..¹þ¹þ....Ô­À´ÊǸöÑ­»·....

ÔÙÎÊϰ¡...VBÕâ¾äÖÐe.Graphics.DrawString(IDcombo.Items(I), IDcombo.Font, Brushes.Black, New Rectangle(1, I * IDcombo.ItemHeight + 1, IDcombo.Width, IDcombo.ItemHeight), SF)


IDcombo.Items(I)ÔÚC#ÖÐÊÇʲôÒâ˼£¿

IDcombo.Items(I)

IDcombo¹À¼ÆÊǸöcombobox¶ÔÏó¶ÔÓ¦c#
ComboBox IDcombo = new ....;
IDcombo.Items[i]

ÔÙÎÊÏÂåÐÒ£ÐÖ°¡...Õâ¾ä»°ÊÇʲôÒâË¼ÄØ If IDcombo.SelectedIndex Mod 2 <> 0 Then


ÄãÁ˽âvbÓ﷨ô£¿²»¶®µÄ»°±È½ÏÂé·³¡£
µ±Ç°µÄÑ¡ÔñÁÐÈç¹û²»ÊÇ2µÄ±¶Êý£¬Ôò...

modÊÇȡģ

¶®Ò»µãµã...ÒòΪÎÒÊÇѧC#µÄËùÒÔÓеÄVBÓïÑÔÎÒ¾ÍÔÚÍøÉÏÖ±½Óת»»,µ«ÊÇÍøÕ¾×ª»»ÓÐʱºòÓеľä×Óת»»²»ÁËËùÒÔ²ÅÀ´ÎʵÄ..


Ïà¹ØÎÊ´ð£º

vb - VB / »ù´¡Àà

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

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

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

vb¶ÁÈ¡ÓÃwordת»»³ÉµÄxmlÀïµÄÊý¾Ý - VB / »ù´¡Àà

Private Sub Command1_Click()
Dim MyString() As String
Open "a.xml" For Binary As #1 ' ´ò¿ª¸Õ´´½¨µÄÎļþ¡£
ReDim MyString(LOF(1) - 1)
  Put #1, , MyRecord ' ¶ÁÈëËùÓÐ×Ö·ûµ½±äÁ¿ÖÐ ......

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

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

VB µ÷ÓÃInet¿Ø¼þÏÂÔØ³ö´í - VB / ÍøÂç±à³Ì

¸÷λ¸ßÊÖ£¬Ð¡µÜ×î½üÅöµ½Ò»¸öÎÊÌ⣺ԭÏÈдµÄ³ÌÐò´ó¸ÅµÄ˼·ÊÇ£ºÊ×ÏÈwebbrowser´ò¿ªÍøÖ·£¬ÍøÖ·ÏÔʾºó£¬µã»÷ÍøÖ·ÉϵÄijһ¸öÁ¬½Ó£¬µ±webbrowser¼ì²âµ½ÍøÖ·ÒѾ­Á¬½Óµ½ÏëÒªµÄµØÖ·Ê±ºò¾Í¿ªÊ¼ÏÂÔØÎļþ£¬µ±ÓÃIE6µÄʱºòÏÂÔ ......

vbÒì²½ÎÊÌâ - VB / »ù´¡Àà

ÏÖÔÚСµÜÔÚÓÃvb6.0±àд³ÌÐò£¬Óöµ½Òì²½µÄÎÊÌ⣬¾ßÌåÈçÏ£º
µã»÷°´Å¥Aʱ£¬µ÷ÓÃÍⲿµÄdll(C++)£¬´ËdllÊÇͬ²½·µ»ØÊý¾Ý¡£´ËʱÈç¹ûÔ¶³ÌδÏìÓ¦£¬ÎҵijÌÐò½çÃæ¾Í»á¿¨ËÀ¡£Òò´ËÎÒÏëµ½ÓÃtimerÀ´ÊµÏÖÒì²½ £¬µ«ÊDz»Çå³þ¾ßÌåµÄÊµÏ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ