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

vbÐÂÎÊÌâ ¼±£¡£¡£¡ - VB / »ù´¡Àà

ÎÒÏëÓ÷½Ïò¼üʵÏÖ¶Ôvb textboxÖеÄÎı¾½øÐбê¼Ç£¬ÒÔʵÏÖÈçͬ¼Çʱ¾ÖÐshift+·½Ïò¼üÑ¡ÔñÎı¾µÄ¹¦ÄÜ£»¼´£ºÎÞÂÛ¹â±êÔÚÄĸöλÖÃÉÏ£¬µ±µ¥»÷Ò»¸ö°´Å¥ ¿ªÊ¼±ê¼Ç£©Ê±£¬¿ªÊ¼¸ßÁÁÏÔʾµ±Ç°µÄ×Ö·û£¬µ±ÔÙ°´ÁíÒ»¸ö°´Å¥£¨½áÊø±ê¼Ç£©Ê±£¬Í£Ö¹±ê¼Ç£¬Í¬Ê±½«Õⲿ·ÖÑ¡ÔñµÄÄÚÈݷŵ½¼ôÇаåÉÏ£»Òƶ¯¹â±êµ½ÆäËüλÖã¬ÎÒÔÙµ¥»÷Ò»¸ö°´Å¥£¨Õ³Ìù£©£¬¾Í¿ÉÒ԰ѸղÅÑ¡ÖеÄÄÚÈÝÕ³Ìùµ½´Ë´¦£¬Ó¦ÈçºÎ±à³Ì£¿[color=#FF6600]ÕâÖÖ·½Ê½ÔÚÎ÷ÃÅ×ÓÊý¿ØϵͳÖоÍÓÐËùÓ¦ÓÃ[/color]£»£¬Èô²»ºÃ±à³ÌÄÜ·ñÓÃRICHtextbox
 ÊµÏÖ£¿
Çë¸ßÊÖ°ïæ¡£
¼±£¡£¡£¡
shift+·½Ïò¼ü
ctrl+c
ctrl+v

¿´¿´MSDNÖеÄ
SelStart
SelLength
ÊôÐÔ˵Ã÷

·¶Àý£º
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)

Èç¹ûÓóÌÐòÔõôʵÏÖ£¬ÔÚÊý¿ØϵͳÉϾ¡Á¿ÓÃÒ»¸ö¼üʵÏÖ

2Â¥Ëù˵µÄ·½·¨,Ö»ÄÜÓÃÀ´Ñ¡ÔñÈ«²¿Îı¾£¬µ«ÊÇû·¨ÊµÏÖ±ê¼ÇÈÎÒâÒ»¶Î£¬²¢½«Æ临ÖƵŦÄÜ£¬Ò²¾ÍÊÇÈçºÎÈõ±Ç°
¹â±êµÄÓұߵÄÒ»¸ö×Ö·û¼´ÎªText1.SelStart λÖã¿£¬Èô»»³ÉrichtextboxÄÜʵÏÖô

Text1.Text = "***ÕâÊÇÈÎÒⲿ·Ö***"
Text1.SelStart = 3
Text1.SelLength = 6


VB code:

Text1.Text = "***ÕâÊÇÈÎÒⲿ·Ö***"
Text1.SelStart = 3
Text1.SelLength = 6
Clipboard.SetText Text1.SelText, vbCFText



Â¥ÉÏËù˵µÄÊÇÔÚÒÑÖªselstart ÔÚÄǸöλÖã¬ÎÒÏë×öµÄʱÓÃshift+·½Ïò¼ü½øÐÐÈÎÒâÎı¾Ñ¡Ôñ£¬¿ªÊ¼ºÍ½áÊøλÖÃ
¶¼²»ÖªµÀ£¬Ëæ¹â±êµÄλÖöø¶¨£¬Ñ¡ÔñÍêÖ®ºó£¬µã»÷¸´ÖÆ°´Å¥¾Í¿ÉÒÔ¸´ÖÆËùÑ¡ÔñµÄ×Ö·ûµ½¼ôÇаåÉ


Ïà¹ØÎÊ´ð£º

vb - VB / »ù´¡Àà

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

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

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

vb - VB / ·Ç¼¼ÊõÀà

Ôõô°ÑÒÑÖªµÄÊý¾Ý±£´æ³ÉxmlÎļþ£¬ÏÖÔÚÒÑÖªµÄÊý¾ÝÊÇ
<?mso-application progid="Excel.Sheet"?>
<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"
 xmlns:o=& ......

vb ÖÐ - VB / »ù´¡Àà

dim a as string,b as string£¬c as string
a="¹¤³Ì±àºÅ,µ¥Î»¹¤³ÌÃû³Æ,·Ö²¿¹¤³Ì±àºÅ"
b="µ¥Î»¹¤³ÌÃû³Æ"
c="µ¥Î»"
Ôõô²ÅÄÜÅжϳöa×Ö·û´®ÖдæÔÚb×Ö·û´®£¬¶ø²»´æÔÚc×Ö·û´®

¿´¿´i ......

¹ØÓÚVbÖÐsqlÓï¾äµÄд·¨£¨100·Ö£© - Java / Web ¿ª·¢

Çó¸övbÖеÄsqlÓï¾äµÄд·¨£¬´ÎsqlÓï¾äµÄÓ÷¨ÊÇ·ÖÒ³³ÌÐò
ÎÒдµÄÈçÏ£ºÆäÖÐAÊÇÓÃÀ´½ÓÊÕÿҳÏÔʾµÄ¼Ç¼µÄÌõÊý£¬BÊÇÓÃÀ´½ÓÊÕÏÔʾµÄµ±Ç°µÄÒ³Ãæ.
sqltext="select top A * from log where id not in(select top ( ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØͼ | ¸ÓICP±¸09004571ºÅ