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

vbÄÜ·ñ½«×Ö·û´®ÄÚÈÝ×öΪָÁîÀ´Ö´ÐУ¿

ÎÒÏëÓÃ×Ö·û´®±äÁ¿À´´æÖüVBµÄijһÌõÖ¸ÁÔÚÒ»¶¨Ìõ¼þϵ÷³öÀ´Ö´ÐС£

ÀýÈç

Private Sub Command1_Click()
    Dim str As String
    str = "text1.text=""²âÊԳɹ¦"""
    ???
End Sub


ʲôָÁî¿ÉÒÔÈÃstrÖеÄ×Ö·ûÖ¸ÁîÖ´ÐУ¿


Õâ¿ÖÅÂÖ»ÓÐÄã×Ô¼º×öÖ¸Áî½âÎö²¢ÀûÓÃCallByNameº¯ÊýÀ´Ö´ÐÐÁË.

Àý×Ó:

str = "text1.text=""²âÊԳɹ¦"""

Õâ¸ö×Ö·û´®¿ÉÒÔÓÃÒÔÏµļ¸¸öÌõ¼þÀ´½âÎö:

Ò»,µÈºÅ×óÓұ߷ֱðΪ±»¸³Öµ¶ÔÏóÓëÖµ;

¶þ,±»¸³Öµ¶ÔÏóÓÉСÊýµãÇø·Ö"Éϼ¶"Óë"ϼ¶".ÒòΪÕâÀï¿ÉÄܳöÏֶ༶µÄÇé¿ö,ÒªÒ»Ò»½âÎö³öÀ´;

Èý,µÈºÅÓұߵÄÖµ,ÐèÒª¸ù¾Ý×Ö·û´®ÐÎʽ,¾ö¶¨ÊÇʲôÀàÐÍ,±ÈÈçÉÏÃæµÄË«ÒýºÅ°ü¼Ð,ÔòÊÇ×Ö·û´®.

»¹ÓÐÆäËü¹æÔòÐèÒª¿¼ÂÇ,±ÈÈçÔËËã·ûÓÅÏȼ¶µÈ....

µÈ´ý¸üºÃµÄ·½°¸,ºÇºÇ.........

ʹÓÃScript¿Ø¼þ

VB code:

'1.²¿¼þÌí¼ÓMicrosoft Script Control 1.0¿Ø¼þ
'2.´Ó¹¤¾ßÀ¸Ë«»÷Ìí¼Óµ½´°Ìå

Private Sub Form_Load()
ScriptControl1.AddObject "Text1", Text1
End Sub

Private Sub Command1_Click()
Dim iStr As String
iStr = "text1.text=""²âÊԳɹ¦"""
ScriptControl1.ExecuteStatement (iStr)
End Sub





Ïà¹ØÎÊ´ð£º

VB iniÎļþдÈë ¶ÁÈ¡ - VB / »ù´¡Àà

¿´ÁËһЩVB iniÎļþдÈë¶ÁÈ¡µÄ·½·¨ µ«ÊÇ»¹ÊDz»ÖªµÀÔõôд£¬ÉÏÃæÐ´Á˺ܳ¤ ºÜ¶à£¬µ«ÊÇÎÒ²»ÖªµÀÔõôÓã¬ÎÒÏëÎÊÒ»ÏÂÔõÑùд²ÅÄÜʵÏÖÔÚTEXT1ÖÐд×Ö£¬È»ºóµãCommand1Ìá½»£¬È»ºóTEXT1ÀïÃæµÄÊý×Ö¾Íд½øINIÀïÃæ[Section]µÄKey1 ......

ÓÃVB±àдTXTÎĵµ - .NET¼¼Êõ / VB.NET

ÎÒÊÇVBµÄгÉÔ±£¬ÏÖÔÚÏëÓÃVBÀ´×ö¸öTXTÎĵµ£¬Çë´ó¼Ò¸øÎÒ´úÂë¼°½éÉÜÒ»ÏÂÏàÓ¦µÄ¿Ø¼þ£¡
·Ç³£¸Ðл£¡£¡£¡£¡£¡£¡
¿ÉÒÔÓÃһЩOFFICE¿Ø¼þ

googleÉÏÕÒһϰÉ,VBдÈëTXT,ºÜ¶àÑùÀý´úÂëµÄ

Ö±½Óµ÷²éÓþͿÉÒÔÁË

Ãæ¶ÔÃÀÅ® ......

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

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

100·Ö£¡¹ØÓÚvbµ÷ÓÃdelphi±àдµÄdllµÄÎÊÌ⣬¼±£¡£¡£¡

¸÷λ¸ßÊָϿì°ï°ïæ¡£
ÏÖÔÚÓÐÒ»¸ödelphiдµÄdll£¬º¯ÊýÖÐÓÐPIntegerµÄ·µ»Ø²ÎÊý£¬ÔÚdelphiÖпÉÒÔÕý³£µ÷Ó㬵«ÊÇÎÒÔÚvbÀïдµÄʱºò¾Í²»ÖªµÀ¸ÃÔõôÀ´µ÷ÓÃÁË¡£
Çë¿´´úÂë
ÒÔÏÂÊÇdelphiÖеĺ¯Êý¶¨ÒåºÍµ÷ÓôúÂ룬ÄÜÕý³£ÔËÐ ......

°ïÎҸĸÄÕâ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 ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ