ÓÐÄÍÐĵĸßÊÖÃǽøÀ´ Ö¸µ¼Ò»ÏÂvbÈçºÎµã»÷°´Å¥Ôö¼Ó×é¼þ
¾ÍÊÇÒ»µã»÷°´Å¥ ¾ÍÉú³ÉÒ»¸ötextboxµÄ¿Ø¼þ
Á½¸öcommandµÄ¿Ø¼þ
È»ºótextboxÔÚÀë´°¿Ú¶¥²¿µÄµØ·½ Á½¸öcommand²¢ÅÅÔÚtextboxµÄÓÒÃæ
Èç¹ûÔÙµã»÷´Î°´Å¥ ¾ÍÔÙÉú³ÉºÍÉÏÃæÒ»ÑùµÄÈý¸ö¿Ø¼þ
Ö»²»¹ýÕâÈý¸ö¿Ø¼þÔÚµÚÒ»´ÎµÄÄÇÈý¸ö¿Ø¼þµÄÏ·½
×îºÃ¸ø³öʵÀý ÅÔ±ßÓÐ×¢ÊÍ
ÎұϾ¹ÊÇ»¹ÊǸö³õѧµÄ²ËÄñ
µÚ¶þ´ÎÌí¼ÓÓÉÄã×Ô¼ºÍê³É,µÀÀíÒ»Ñù.
·¹ý.....
Ï£Íû¶ÔÄãÓÐËù°ïÖú
Private Sub cmdAddTxt_Click()
Dim n As Integer '¶¨ÒåÒ»¸ö±äÁ¿
n = Text1.UBound + 1 'ʹÓÿؼþÊý×飬½«ÉϽçÔö¼Ó1¸ö
Load Text1(n) '×°ÔØ¿Ø¼þ
Text1(n).Left = Text1(n - 1).Left 'ÉèÖÿؼþµÄλÖÃ
Text1(n).Top = Text1(n - 1).Top + Text1(n - 1).Height * 1.1
Text1(n).Visible = True 'ÉèÖÿؼþ¿É¼û
Text1(n).Text = n 'ÉèÖÃÄÚÈÝΪµÚ¼¸¸ö£¬´ËÐÐÓÃÓÚÇø±ðÆäËü¿Ø¼þ¶øÐ´£¬ÎÞÆäËüº¬Òå
End Sub
²»ÖªµÀΪʲôÉÏÒ»¸öÌû×ÓûÓдúÂ룿£¡²»ºÃÒâ˼ÁË£¡
±ØÐèÒªÏÈÅжϴ˿ؼþÊÇ·ñ²»´æÔÚ²ÅÄÜÌí¼Ó.
#2Õý½â
ѧϰÖÐ
·¹ý¡£¡£¡£
·¹ý£¡
VB½»Á÷Ⱥ159016553£¬»¶Ó´ó¼Ò¼ÓÈë~~~~~~
ÕæÊÇÌ«¸ÐлÁË
¾¹È»ÓÐÕâÑùÓÐÄÍÐÔµÄÈË
¸Ð¶¯ing
Set NewText = Controls.Add("VB.TextBox", "txtNew", Me)
NewText.Move 1000, 600, 2500, 1000
aButton.Move NewText.Left, NewText.Top + NewText.Height + 100,
Ïà¹ØÎÊ´ð£º
ÔÚÏÂÊÇvbµÄÐÂÊÖ£¬Ïëд¶Î³ÌÐò£¬ÔÚvbÖУ¬Ê¹ÓÃwscriptµ÷ÓÃһЩÍⲿµÄÃüÁµ«ÊdzÌÐòÖ´ÐÐÒ»Ö±ÓдíÎó£¬Çë¸÷λ¸ßÊÖ°ïæ½â´ðÏ£¬Ð»Ð»¡£
´úÂëÈçÏ£º
VB code:
Private Function getFile_CMD(filename, filepath) As Bo ......
ÎÒÊÇVBµÄгÉÔ±£¬ÏÖÔÚÏëÓÃVBÀ´×ö¸öTXTÎĵµ£¬Çë´ó¼Ò¸øÎÒ´úÂë¼°½éÉÜÒ»ÏÂÏàÓ¦µÄ¿Ø¼þ£¡
·Ç³£¸Ðл£¡£¡£¡£¡£¡£¡
¿ÉÒÔÓÃһЩOFFICE¿Ø¼þ
googleÉÏÕÒһϰÉ,VBдÈëTXT,ºÜ¶àÑùÀý´úÂëµÄ
Ö±½Óµ÷²éÓþͿÉÒÔÁË
Ãæ¶ÔÃÀÅ® ......
vbÊDz»ÊǺÜÅ£°¡ ÔõôÄÇô¶àµÄ²¡¶¾¶¼ÊÇvb×öµÄ°¡ c#Ðв»ÐУ¿
c#ÔÚXPÔËÐв»ÁË£¬³ý·ÇÈñðÈËÏÈ×°ÉÏ.net.
VBÏà¶ÔÓÚC,C++,ASMµÈµÈ£¬¾ÖÏÞÐÔ´ó¶àÁË¡£
±ðÔÙ˵ʲôÓïÑÔ²»ÈçʲôÓïÑԵϰÁË£¬Ö»ÓÐÄã²»»áÓûòÓÃ×Ų»Ë³ÊÖµÄÓ ......
±¨Õâ¸ö´í:
compile Error
sub or function not defined
ºÍÎÒÒýÓÃÕâ¸ö¿âº¯ÊýÓйØÏµÂð£¿
Private Declare Function GetPrivateProfileString Lib "kernel32" Alias _
"GetPrivatePr ......
ΪʲôÎÒÓÃform.showºÍform.hide¶à´ÎÁ¬½ÓÁËÁ½¸ö´°¿ÚÖ»ÄÜ»¥»»Á´½ÓÁ½´Î°¡£¿
´úÂë¿´¿´
ÕÕµÀÀíform.show û´ÎÊýÏÞ¶¨µÄ°É
ÎÒÒ²¿ì·èÁË¡£
Â¥Ö÷ÖªµÀÔõô·¢Ìùô£¿
ÒýÓÃ
ÎÒÒ²¿ì·èÁË¡£
Â¥Ö÷ÖªµÀÔõô·¢Ìùô£¿
Â¥Ö÷Ò² ......