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ÎļþдÈë¶ÁÈ¡µÄ·½·¨ µ«ÊÇ»¹ÊDz»ÖªµÀÔõôд£¬ÉÏÃæÐ´Á˺ܳ¤ ºÜ¶à£¬µ«ÊÇÎÒ²»ÖªµÀÔõôÓã¬ÎÒÏëÎÊÒ»ÏÂÔõÑùд²ÅÄÜʵÏÖÔÚTEXT1ÖÐд×Ö£¬È»ºóµãCommand1Ìá½»£¬È»ºóTEXT1ÀïÃæµÄÊý×Ö¾Íд½øINIÀïÃæ[Section]µÄKey1 ......
ÎÒÊÇVBµÄгÉÔ±£¬ÏÖÔÚÏëÓÃVBÀ´×ö¸öTXTÎĵµ£¬Çë´ó¼Ò¸øÎÒ´úÂë¼°½éÉÜÒ»ÏÂÏàÓ¦µÄ¿Ø¼þ£¡
·Ç³£¸Ðл£¡£¡£¡£¡£¡£¡
¿ÉÒÔÓÃһЩOFFICE¿Ø¼þ
googleÉÏÕÒһϰÉ,VBдÈëTXT,ºÜ¶àÑùÀý´úÂëµÄ
Ö±½Óµ÷²éÓþͿÉÒÔÁË
Ãæ¶ÔÃÀÅ® ......
³õѧ£¬´óµ¨ÌáÎÊ£¬Çë¸ßÊÖ²»ÁߴͽÌ
1¡¢¹ö¶¯Ìõµã»÷Óë»æÍ¼°å£¨ÆÁÄ»,Piceure1£©µÄÒÆ¶¯ÎÊÌâÒѾ½â¾ö¡£
Picture1.Top = -VScroll1.Value + bcW '´¹Ö±Òƶ¯
Picture1.Left = -HScroll1.Value + bcW ' ......
¸÷λ¸ßÊָϿì°ï°ïæ¡£
ÏÖÔÚÓÐÒ»¸ödelphiдµÄdll£¬º¯ÊýÖÐÓÐPIntegerµÄ·µ»Ø²ÎÊý£¬ÔÚdelphiÖпÉÒÔÕý³£µ÷Ó㬵«ÊÇÎÒÔÚvbÀïдµÄʱºò¾Í²»ÖªµÀ¸ÃÔõôÀ´µ÷ÓÃÁË¡£
Çë¿´´úÂë
ÒÔÏÂÊÇdelphiÖеĺ¯Êý¶¨ÒåºÍµ÷ÓôúÂ룬ÄÜÕý³£ÔËÐ ......
°ïÎÒ¸Ä¸Ä ÎÒ×ܾõµÃÓÐÎÊÌâ
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 ......