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+·½Ïò¼ü½øÐÐÈÎÒâÎı¾Ñ¡Ôñ£¬¿ªÊ¼ºÍ½áÊøÎ»ÖÃ
¶¼²»ÖªµÀ£¬Ëæ¹â±êµÄλÖöø¶¨£¬Ñ¡ÔñÍêÖ®ºó£¬µã»÷¸´Öư´Å¥¾Í¿ÉÒÔ¸´ÖÆËùÑ¡ÔñµÄ×Ö·ûµ½¼ôÇаåÉ
Ïà¹ØÎÊ´ð£º
ÎÒÔÚÀàÖÐÓÐÒ»¸öº¯Êý
Public Function DownloadAdditionalSite(SiteName As siteconfig, Directory As String, ymd As String) As Boolean
siteconfigÊÇÎÒ×Ô¶¨ÒåÀàÐ͵ÄÊý¾Ý£¬ÎªÊ²Ã´»áÌáʾ¡°Ö»ÓÐÔÚ¹«¹²¶ÔÏóÄ£¿éÖж ......
Ôõô°ÑÒÑÖªµÄÊý¾Ý±£´æ³ÉxmlÎļþ£¬ÏÖÔÚÒÑÖªµÄÊý¾ÝÊÇ
<?mso-application progid="Excel.Sheet"?>
<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"
xmlns:o=& ......
form1ÖÐÓÐtext1-8£¬ ºÍcommand1
text8ÖÐΪ³ÌÐò´úÂ루Éú³É´°ÌåΪform2£¨ÒÑ×öºÃ£©£©
µ¥»÷command1ºó½«text2ÖеĴúÂëÉú³ÉEXEµ½d:\ ²¢ÇÒtext1-7·Ö±ð¶ÔÓ¦
²úÆ·Ãû ¹«Ë¾Ãû ºÏ·¨°æÈ¨ ºÏ·¨É̱ê ÎļþÃèÊö ×¢ÊÍ ±êÌâ
......
ͦ·±Ëö£¬Ö®Ç°·¢µÄÌû×Ó£¬·Öֵ̫µÍÏÖÔÚÖØ·¢Ò»¸ö¡£»¶Ó¸÷λ´óÏÀ~~
#include "stdlib.h"
#include "math.h"
#include "stdio.h"
float objfx(float x[]);
void constraint(float x[] ......
ÎÒµÄÒªÇóÊÇ£ºÍ¨¹ýץȡ±ðµÄ³ÌÐòÉϵıí¸ñµÄ¾ä±ú£¬È»ºó¶ÁÈ¡Õâ¸ö±í¸ñµÄÄÚÈÝ¡£
±í¸ñ¾ä±ú£¨ÀàÃû£ºMSFlexGridWndClass£©ÎÒÒÑ×¥µ½£¬½ÓÏÂÀ´ÈçºÎ¶ÁÈ¡±í¸ñµÄÄÚÈݾͲ»»áÁË£¿ÇóÖú¡£
ÄܰѴúÂë·¢À´Ñ§Ï°Ï²»£¿
244326867@qq.com ......